| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_vars.F |
93 |
FIZHI_INIT_VARS |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN |
|
./pkg/fizhi/fizhi_readparms.F |
84 |
FIZHI_READPARMS |
endTime = startTime + deltaT*float(nTimeSteps) |
|
./pkg/fizhi/fizhi_write_state.F |
54 |
FIZHI_WRITE_STATE |
& myTime.EQ.startTime ) |
|
./model/inc/PARAMS.h |
743 |
NO PROCEDURE |
& baseTime, startTime, endTime, |
|
./model/inc/PARAMS.h |
846 |
NO PROCEDURE |
_RL startTime |
|
./pkg/generic_advdiff/gad_init_varia.F |
62 |
GAD_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/kpp/kpp_calc.F |
225 |
KPP_CALC |
1 .OR. myTime .EQ. startTime ) THEN |
|
./pkg/land/land_ini_vars.F |
131 |
LAND_INI_VARS |
IF ( ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) .OR. |
|
./pkg/land/land_ini_vars.F |
95 |
LAND_INI_VARS |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN |
|
./pkg/land/land_output.F |
72 |
LAND_OUTPUT |
& myTime.EQ.startTime ) |
|
./pkg/matrix/matrix_write_tendency.F |
35 |
MATRIX_WRITE_TENDENCY |
IF ( (mod(myTime-startTime,expMatrixWriteTime) |
|
./pkg/matrix/matrix_write_tendency.F |
79 |
MATRIX_WRITE_TENDENCY |
IF ( (mod(myTime-startTime,impMatrixWriteTime) |
|
./pkg/mypackage/mypackage_init_varia.F |
73 |
MYPACKAGE_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/obcs/obcs_init_variables.F |
342 |
OBCS_INIT_VARIABLES |
CALL OBCS_CALC( startTime, nIter0, |
|
./pkg/obcs/obcs_init_variables.F |
377 |
OBCS_INIT_VARIABLES |
CALL OBCS_PRESCRIBE_READ( startTime, nIter0, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
80 |
CPL_INI_VARS |
IF ( startTime.NE.baseTime .OR. nIter0.NE.0 |
|
./model/src/config_check.F |
428 |
CONFIG_CHECK |
& .AND. startTime.NE.baseTime .AND. usePickupBeforeC54 ) THEN |
|
./model/src/config_summary.F |
538 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( startTime, INDEX_NONE,'startTime =', |
|
./pkg/ptracers/ptracers_write_state.F |
55 |
PTRACERS_WRITE_STATE |
& myTime.EQ.startTime ) |
|
./pkg/ptracers/ptracers_write_state.F |
90 |
PTRACERS_WRITE_STATE |
iRec = 1 + NINT( (myTime-startTime) / PTRACERS_dumpFreq ) |
|
./pkg/ptracers/ptracers_write_state.F |
95 |
PTRACERS_WRITE_STATE |
iRec = 1 + NINT( (myTime-startTime) / PTRACERS_dumpFreq ) |
|
./pkg/rbcs/rbcs_readparms.F |
131 |
RBCS_READPARMS |
IF (startTime.LT.rbcsForcingOffset+0.5*rbcsForcingPeriod .AND. |
|
./pkg/seaice/cost_ice_test.F |
86 |
COST_ICE_TEST |
& ( ( 1. _d 0 + min(endTime-startTime,lastinterval) ) |
|
./pkg/seaice/seaice_cost_init_fixed.F |
71 |
SEAICE_COST_INIT_FIXED |
costIceStart = costIceStart + startTime |
|
./pkg/seaice/seaice_cost_init_fixed.F |
78 |
SEAICE_COST_INIT_FIXED |
costIceEnd = costIceEnd + startTime |
|
./pkg/seaice/seaice_init_varia.F |
302 |
SEAICE_INIT_VARIA |
IF ( .NOT. ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./pkg/seaice/seaice_output.F |
68 |
SEAICE_OUTPUT |
& myTime.EQ.startTime ) |
|
./model/src/forward_step.F |
196 |
FORWARD_STEP |
myTime = startTime + float(iloop-1)*deltaTclock |
|
./model/src/forward_step.F |
653 |
FORWARD_STEP |
myTime = startTime + deltaTClock * float(iLoop) |
|
./pkg/thsice/thsice_output.F |
300 |
THSICE_OUTPUT |
& myTime.EQ.startTime ) |
|
./pkg/thsice/thsice_output.F |
325 |
THSICE_OUTPUT |
IF ( myTime.NE.startTime ) THEN |
|
./verification/OpenAD/code_oad_all/initialise_fixed.F |
179 |
INITIALISE_FIXED |
& startTime.EQ.baseTime ) CALL WRITE_GRID( myThid ) |
|
./verification/OpenAD/code_oad_all/the_model_main.F |
541 |
THE_MODEL_MAIN |
myCurrentTime = startTime |
|
./verification/OpenAD/code_oad_all/write_state.F |
85 |
WRITE_STATE |
& myTime.EQ.startTime ) |
|
./verification/OpenAD/code_oad_all/write_state.F |
90 |
WRITE_STATE |
iRec = int ( (myTime-startTime) / dumpFreq +1.5 ) |
|
./model/src/ini_fields.F |
30 |
INI_FIELDS |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
73 |
FIZHI_INIT_VARS |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN |
|
./model/src/ini_nh_fields.F |
49 |
INI_NH_FIELDS |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./model/src/ini_parms.F |
223 |
INI_PARMS |
& baseTime, startTime, endTime, |
|
./model/src/ini_parms.F |
890 |
INI_PARMS |
IF ( nIter0.NE.0 .AND. startTime.NE.0. .AND. baseTime.EQ.0. ) |
|
./model/src/ini_parms.F |
891 |
INI_PARMS |
& baseTime = startTime - deltaTClock*float(nIter0) |
|
./model/src/ini_parms.F |
893 |
INI_PARMS |
IF ( nIter0 .NE. 0 .AND. startTime .EQ. 0. ) |
|
./model/src/ini_parms.F |
894 |
INI_PARMS |
& startTime = baseTime + deltaTClock*float(nIter0) |
|
./model/src/ini_parms.F |
896 |
INI_PARMS |
IF ( nIter0 .EQ. 0 .AND. startTime .NE. baseTime ) |
|
./model/src/ini_parms.F |
897 |
INI_PARMS |
& nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/ini_parms.F |
904 |
INI_PARMS |
& nTimeSteps = NINT((endTime-startTime)/deltaTclock) |
|
./model/src/ini_parms.F |
913 |
INI_PARMS |
& endTime = startTime + deltaTClock*float(nTimeSteps) |
|
./model/src/ini_parms.F |
919 |
INI_PARMS |
IF ( startTime .NE. baseTime+deltaTClock*float(nIter0) ) THEN |
|
./model/src/ini_parms.F |
937 |
INI_PARMS |
IF ( nTimeSteps .NE. NINT((endTime-startTime)/deltaTClock) |
|
./model/src/ini_pressure.F |
117 |
INI_PRESSURE |
I startTime, -1, myThid ) |
|
./model/src/initialise_fixed.F |
172 |
INITIALISE_FIXED |
& startTime.EQ.baseTime ) CALL WRITE_GRID( myThid ) |
|
./model/src/initialise_varia.F |
117 |
INITIALISE_VARIA |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/initialise_varia.F |
142 |
INITIALISE_VARIA |
CALL UPDATE_CG2D( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
214 |
INITIALISE_VARIA |
IF ( startTime .EQ. baseTime .AND. cAdjFreq .NE. 0. ) THEN |
|
./model/src/initialise_varia.F |
223 |
INITIALISE_VARIA |
I bi, bj, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
237 |
INITIALISE_VARIA |
& CALL CALC_R_STAR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
242 |
INITIALISE_VARIA |
CALL UPDATE_R_STAR( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
246 |
INITIALISE_VARIA |
CALL UPDATE_SIGMA( etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
249 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
250 |
INITIALISE_VARIA |
CALL UPDATE_SURF_DR( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
255 |
INITIALISE_VARIA |
CALL UPDATE_CG2D( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
267 |
INITIALISE_VARIA |
I startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
278 |
INITIALISE_VARIA |
CALL UPDATE_ETAH( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
286 |
INITIALISE_VARIA |
CALL CALC_R_STAR(etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
290 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
331 |
INITIALISE_VARIA |
CALL MONITOR( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
339 |
INITIALISE_VARIA |
CALL DO_STATEVARS_TAVE( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
346 |
INITIALISE_VARIA |
CALL DO_THE_MODEL_IO( .FALSE., startTime, nIter0, myThid ) |
|
./model/src/integr_continuity.F |
123 |
INTEGR_CONTINUITY |
IF ( myTime.EQ.startTime .AND. myTime.NE.baseTime |
|
./model/src/integr_continuity.F |
145 |
INTEGR_CONTINUITY |
ELSEIF ( myTime.EQ.startTime ) THEN |
|
./model/src/integr_continuity.F |
177 |
INTEGR_CONTINUITY |
IF (exactConserv .AND. myTime.NE.startTime) THEN |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
345 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
351 |
THE_MAIN_LOOP |
mytime = startTime + float(iloop-1)*deltaTclock |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
437 |
THE_MAIN_LOOP |
myTime = startTime + deltaTClock * float(iLoop) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
166 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
384 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
392 |
THE_MAIN_LOOP |
myTime = startTime + float(iloop-1)*deltaTclock |
|
./verification/offline_exf_seaice/code_ad/the_main_loop.F |
467 |
THE_MAIN_LOOP |
myTime = startTime + float(iloop)*deltaTclock |
|
./verification/offline_exf_seaice/code_ad/the_model_main.F |
515 |
THE_MODEL_MAIN |
myCurrentTime = startTime |
|
./model/src/set_defaults.F |
259 |
SET_DEFAULTS |
startTime = deltaT*float(nIter0) |
|
./model/src/set_parms.F |
158 |
SET_PARMS |
tmpVar = startTime + deltaTClock*FLOAT(nTimeSteps) |
|
./model/src/the_main_loop.F |
195 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/the_main_loop.F |
447 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/the_main_loop.F |
460 |
THE_MAIN_LOOP |
myTime = startTime + float(iloop-1)*deltaTclock |
|
./model/src/the_model_main.F |
521 |
THE_MODEL_MAIN |
myCurrentTime = startTime |
|
./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 ) |
|
./pkg/admtlm/admtlm_driver.F |
51 |
ADMTLM_DRIVER |
myCurrentTime = startTime |
|
./pkg/admtlm/admtlm_driver.F |
61 |
ADMTLM_DRIVER |
myCurrentTime = startTime |
|
./pkg/aim_compon_interf/cpl_ini_vars.F |
99 |
CPL_INI_VARS |
IF ( startTime .NE. baseTime .OR. nIter0 .NE. 0 ) THEN |
|
./pkg/aim_v23/aim_do_co2.F |
104 |
AIM_DO_CO2 |
ELSEIF ( myTime .EQ. startTime ) THEN |
|
./pkg/aim_v23/aim_do_co2.F |
75 |
AIM_DO_CO2 |
IF ( Aim_CO2_Flag .EQ. 1 .AND. myTime .EQ. startTime ) THEN |
|
./pkg/aim_v23/aim_do_co2.F |
99 |
AIM_DO_CO2 |
IF ( startTime.EQ.baseTime .AND. myTime.EQ.0 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
186 |
AIM_TENDENCY_APPLY_V |
IF ( myTime.EQ.startTime .AND. kLev.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
60 |
AIM_TENDENCY_APPLY_U |
IF ( myTime.EQ.startTime .AND. kLev.EQ.1 ) THEN |
|
./pkg/atm2d/atm2d_read_pickup.F |
37 |
ATM2D_READ_PICKUP |
IF (startTime.NE.baseTime .OR. nIter0.NE.0) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
158 |
FORWARD_STEP_ATM2D |
& (startTime.NE.baseTime .OR. nIter0.NE.0)) ) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
195 |
FORWARD_STEP_ATM2D |
myTime = startTime + deltaTClock *float (iloop_ocn) |
|
./pkg/cal/cal_readparms.F |
143 |
CAL_READPARMS |
modstart = startTime |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
113 |
CTRL_GET_GEN_REC |
startrec = int((modelstart + startTime - fldsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
206 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
208 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
233 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
235 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
270 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
272 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
297 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
299 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
334 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
336 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
365 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
367 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
402 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
404 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
433 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
435 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
601 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
603 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
637 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
639 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
766 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
768 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
797 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
799 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
828 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
830 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
859 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
861 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
890 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
892 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
921 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
923 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
952 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
954 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init.F |
983 |
CTRL_INIT |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init.F |
985 |
CTRL_INIT |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/diagnostics/diagnostics_init_varia.F |
66 |
DIAGNOSTICS_INIT_VARIA |
CALL DIAGNOSTICS_SUMMARY( startTime, nIter0, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
150 |
DIAGNOSTICS_OUT |
timeRec(1) = MAX( timeRec(1), startTime ) |
|
./pkg/dic/dic_surfforcing_init.F |
58 |
DIC_SURFFORCING_INIT |
CALL DIC_ATMOS(0, startTime, nIter0, myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
70 |
DIC_SURFFORCING_INIT |
Imytm = NINT(startTime*rdt) |
|
./pkg/dic/dic_surfforcing_init.F |
99 |
DIC_SURFFORCING_INIT |
CALL OFFLINE_FIELDS_LOAD( startTime, nIter0, myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
237 |
EBM_ATMOSPHERE |
& (myTime-startTime)*3.215 _d -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/ecco/the_main_loop.F |
453 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./pkg/ecco/the_main_loop.F |
459 |
THE_MAIN_LOOP |
mytime = startTime + float(iloop-1)*deltaTclock |
|
./pkg/ecco/the_main_loop.F |
721 |
THE_MAIN_LOOP |
myTime = startTime + deltaTClock * float(iLoop) |