| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_driver.F |
51 |
ADMTLM_DRIVER |
myCurrentTime = startTime |
|
./pkg/admtlm/admtlm_driver.F |
61 |
ADMTLM_DRIVER |
myCurrentTime = startTime |
|
./pkg/ebm/ebm_atmosphere.F |
238 |
EBM_ATMOSPHERE |
< (myTime-startTime)*3.215e-8*DLW |
|
./pkg/ebm/ebm_ini_vars.F |
54 |
EBM_INI_VARS |
CALL EBM_DRIVER( startTime, niter0, myThid ) |
|
./pkg/ebm/ebm_ini_vars.F |
68 |
EBM_INI_VARS |
I startTime, niter0, myThid ) |
|
./pkg/ptracers/ptracers_write_state.F |
52 |
PTRACERS_WRITE_STATE |
& myTime.EQ.startTime ) |
|
./pkg/ptracers/ptracers_write_state.F |
88 |
PTRACERS_WRITE_STATE |
iRec = int ( (myCurrentTime-startTime) |
|
./pkg/ptracers/ptracers_write_state.F |
94 |
PTRACERS_WRITE_STATE |
iRec = int ( (myCurrentTime-startTime) |
|
./model/inc/PARAMS.h |
646 |
NO PROCEDURE |
& baseTime, startTime, endTime, |
|
./model/inc/PARAMS.h |
741 |
NO PROCEDURE |
_RL startTime |
|
./pkg/diagnostics/diagnostics_init_varia.F |
68 |
DIAGNOSTICS_INIT_VARIA |
CALL DIAGNOSTICS_SUMMARY( startTime, nIter0, myThid ) |
|
./pkg/aim_v23/aim_tendency_apply.F |
163 |
AIM_TENDENCY_APPLY_V |
IF ( myTime.EQ.startTime .AND. kLev.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
50 |
AIM_TENDENCY_APPLY_U |
IF ( myTime.EQ.startTime .AND. kLev.EQ.1 ) THEN |
|
./model/src/the_main_loop.F |
192 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/the_main_loop.F |
427 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/initialise_fixed.F |
165 |
INITIALISE_FIXED |
& startTime.EQ.baseTime ) CALL WRITE_GRID( myThid ) |
|
./pkg/matrix/matrix_write_tendency.F |
34 |
MATRIX_WRITE_TENDENCY |
IF ( (mod(myTime-startTime,expMatrixWriteTime) |
|
./pkg/matrix/matrix_write_tendency.F |
78 |
MATRIX_WRITE_TENDENCY |
IF ( (mod(myTime-startTime,impMatrixWriteTime) |
|
./model/src/integr_continuity.F |
106 |
INTEGR_CONTINUITY |
IF ( myTime.EQ.startTime .AND. myTime.NE.baseTime |
|
./model/src/integr_continuity.F |
127 |
INTEGR_CONTINUITY |
ELSEIF ( myTime.EQ.startTime ) THEN |
|
./model/src/integr_continuity.F |
149 |
INTEGR_CONTINUITY |
IF (exactConserv .AND. myTime.NE.startTime) THEN |
|
./model/src/config_check.F |
394 |
CONFIG_CHECK |
& .AND. startTime.NE.baseTime .AND. usePickupBeforeC54 ) THEN |
|
./pkg/offline/offline_state.F |
49 |
OFFLINE_STATE |
& myTime.EQ.startTime ) |
|
./pkg/offline/offline_state.F |
54 |
OFFLINE_STATE |
iRec = int ( (myTime-startTime) / dumpFreq +1.5 ) |
|
./pkg/fizhi/fizhi_init_vars.F |
73 |
FIZHI_INIT_VARS |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN |
|
./pkg/fizhi/fizhi_write_state.F |
53 |
FIZHI_WRITE_STATE |
& myTime.EQ.startTime ) |
|
./pkg/fizhi/fizhi_readparms.F |
79 |
FIZHI_READPARMS |
endTime = startTime + deltat*float(ntimeSteps) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
73 |
FIZHI_INIT_VARS |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN |
|
./verification/OpenAD/code_ad_openad/the_main_loop.F |
133 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./verification/OpenAD/code_ad_openad/the_main_loop.F |
249 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./verification/OpenAD/code_ad_openad/the_main_loop.F |
274 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./verification/OpenAD/code_ad_openad/the_model_main.F |
530 |
THE_MODEL_MAIN |
myCurrentTime = startTime |
|
./model/src/ini_parms.F |
219 |
INI_PARMS |
& baseTime, startTime, endTime, chkPtFreq, |
|
./model/src/ini_parms.F |
880 |
INI_PARMS |
IF ( nIter0.NE.0 .AND. startTime.NE.0. .AND. baseTime.EQ.0. ) |
|
./model/src/ini_parms.F |
881 |
INI_PARMS |
& baseTime = startTime - deltaTClock*float(nIter0) |
|
./model/src/ini_parms.F |
883 |
INI_PARMS |
IF ( nIter0 .NE. 0 .AND. startTime .EQ. 0. ) |
|
./model/src/ini_parms.F |
884 |
INI_PARMS |
& startTime = baseTime + deltaTClock*float(nIter0) |
|
./model/src/ini_parms.F |
886 |
INI_PARMS |
IF ( nIter0 .EQ. 0 .AND. startTime .NE. baseTime ) |
|
./model/src/ini_parms.F |
887 |
INI_PARMS |
& nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/ini_parms.F |
894 |
INI_PARMS |
& nTimeSteps = NINT((endTime-startTime)/deltaTclock) |
|
./model/src/ini_parms.F |
903 |
INI_PARMS |
& endTime = startTime + deltaTClock*float(nTimeSteps) |
|
./model/src/ini_parms.F |
909 |
INI_PARMS |
IF ( startTime .NE. baseTime+deltaTClock*float(nIter0) ) THEN |
|
./model/src/ini_parms.F |
927 |
INI_PARMS |
IF ( nTimeSteps .NE. NINT((endTime-startTime)/deltaTClock) ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
371 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
377 |
THE_MAIN_LOOP |
mytime = startTime + float(iloop-1)*deltaTclock |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
462 |
THE_MAIN_LOOP |
myTime = startTime + deltaTClock * float(iLoop) |
|
./model/src/initialise_varia.F |
127 |
INITIALISE_VARIA |
CALL UPDATE_CG2D( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
192 |
INITIALISE_VARIA |
IF ( startTime .NE. baseTime ) THEN |
|
./model/src/initialise_varia.F |
196 |
INITIALISE_VARIA |
CALL THE_CORRECTION_STEP(startTime, nIter0, myThid) |
|
./model/src/initialise_varia.F |
202 |
INITIALISE_VARIA |
IF ( startTime .EQ. baseTime .AND. cAdjFreq .NE. 0. ) THEN |
|
./model/src/initialise_varia.F |
216 |
INITIALISE_VARIA |
I startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
229 |
INITIALISE_VARIA |
& CALL CALC_R_STAR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
234 |
INITIALISE_VARIA |
CALL UPDATE_R_STAR( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
237 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
238 |
INITIALISE_VARIA |
CALL UPDATE_SURF_DR( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
243 |
INITIALISE_VARIA |
CALL UPDATE_CG2D( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
255 |
INITIALISE_VARIA |
I startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
266 |
INITIALISE_VARIA |
CALL UPDATE_ETAH( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
274 |
INITIALISE_VARIA |
CALL CALC_R_STAR(etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
278 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
306 |
INITIALISE_VARIA |
CALL TIMEAVE_STATVARS(startTime, nIter0, bi, bj, myThid) |
|
./model/src/initialise_varia.F |
314 |
INITIALISE_VARIA |
CALL PTRACERS_STATVARS(startTime, nIter0, bi, bj, myThid) |
|
./model/src/initialise_varia.F |
96 |
INITIALISE_VARIA |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/forward_step.F |
143 |
FORWARD_STEP |
myTime = startTime + float(iloop-1)*deltaTclock |
|
./model/src/forward_step.F |
440 |
FORWARD_STEP |
myTime = startTime + deltaTClock * float(iLoop) |
|
./model/src/packages_init_fixed.F |
160 |
PACKAGES_INIT_FIXED |
CALL FLT_INIT(nIter0,startTime,myThid ) |
|
./model/src/write_state.F |
85 |
WRITE_STATE |
& myTime.EQ.startTime ) |
|
./model/src/write_state.F |
90 |
WRITE_STATE |
iRec = int ( (myTime-startTime) / dumpFreq +1.5 ) |
|
./model/src/config_summary.F |
461 |
CONFIG_SUMMARY |
CALL WRITE_0D_R8( startTime, INDEX_NONE,'startTime =', |
|
./model/src/the_model_main.F |
515 |
THE_MODEL_MAIN |
myCurrentTime = startTime |
|
./model/src/ini_fields.F |
30 |
INI_FIELDS |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./model/src/ini_pressure.F |
111 |
INI_PRESSURE |
I startTime, nIter0, myThid) |
|
./model/src/set_defaults.F |
235 |
SET_DEFAULTS |
startTime = deltaT*float(nIter0) |
|
./pkg/kpp/kpp_calc.F |
219 |
KPP_CALC |
1 .OR. myTime .EQ. startTime ) THEN |
|
./pkg/rw/write_myfield.F |
65 |
WRITE_MYFIELD |
& .OR. myTime.EQ.startTime |
|
./pkg/rw/write_myfield.F |
70 |
WRITE_MYFIELD |
iRec = NINT ( (myTime-startTime) / dumpFreq + 1. ) |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
84 |
CPL_INI_VARS |
IF ( startTime .NE. baseTime .OR. nIter0 .NE. 0 ) THEN |
|
./pkg/obcs/obcs_init_variables.F |
229 |
OBCS_INIT_VARIABLES |
CALL OBCS_CALC( bi, bj, startTime, nIter0, |
|
./pkg/obcs/obcs_init_variables.F |
234 |
OBCS_INIT_VARIABLES |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
68 |
CPL_INI_VARS |
IF ( ( startTime.NE.baseTime .OR. nIter0.NE.0 ) |
|
./pkg/ecco/the_main_loop.F |
492 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./pkg/ecco/the_main_loop.F |
498 |
THE_MAIN_LOOP |
mytime = startTime + float(iloop-1)*deltaTclock |
|
./pkg/ecco/the_main_loop.F |
756 |
THE_MAIN_LOOP |
myTime = startTime + deltaTClock * float(iLoop) |
|
./pkg/ctrl/ctrl_init.F |
194 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
196 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
221 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
223 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
258 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
260 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
285 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
287 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
322 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
324 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
349 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
351 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
386 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
388 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
413 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
415 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
582 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
584 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
618 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
620 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
743 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
745 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
774 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
776 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
805 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
807 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/thsice/thsice_output.F |
316 |
THSICE_OUTPUT |
& myTime.EQ.startTime ) |
|
./pkg/thsice/thsice_output.F |
341 |
THSICE_OUTPUT |
IF ( myTime.NE.startTime ) THEN |
|
./pkg/land/land_ini_vars.F |
125 |
LAND_INI_VARS |
IF ( ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) .OR. |
|
./pkg/land/land_ini_vars.F |
92 |
LAND_INI_VARS |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN |
|
./pkg/cal/cal_readparms.F |
143 |
CAL_READPARMS |
modstart = startTime |
|
./pkg/seaice/seaice_cost_init_fixed.F |
70 |
SEAICE_COST_INIT_FIXED |
costIceStart = costIceStart + startTime |
|
./pkg/seaice/seaice_cost_init_fixed.F |
77 |
SEAICE_COST_INIT_FIXED |
costIceEnd = costIceEnd + startTime |
|
./pkg/seaice/cost_ice_test.F |
85 |
COST_ICE_TEST |
& ( ( 1. + min(endTime-startTime,lastinterval) ) |