| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getfield_start.F |
70 |
EXF_GETFIELD_START |
CALL CAL_GETDATE( nIter0, startTime, gcm_startdate, myThid ) |
|
./pkg/exf/exf_getfield_start.F |
73 |
EXF_GETFIELD_START |
fld_start_time = startTime + fld_start_time |
|
./pkg/exf/exf_mapfields.F |
116 |
EXF_MAPFIELDS |
& hflux_exfremo_slope*(myTime-startTime) ) |
|
./pkg/exf/exf_mapfields.F |
133 |
EXF_MAPFIELDS |
& sflux_exfremo_slope*(myTime-startTime) ) |
|
./pkg/exf/exf_set_gen.F |
231 |
EXF_SET_GEN |
& genremove_slope*(myTime-startTime) ) |
|
./model/inc/PARAMS.h |
776 |
NO PROCEDURE |
& baseTime, startTime, endTime, |
|
./model/inc/PARAMS.h |
882 |
NO PROCEDURE |
_RL startTime |
|
./pkg/fizhi/fizhi_init_vars.F |
93 |
FIZHI_INIT_VARS |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN |
|
./pkg/fizhi/fizhi_readparms.F |
96 |
FIZHI_READPARMS |
endTime = startTime + deltaT*float(nTimeSteps) |
|
./pkg/fizhi/fizhi_write_state.F |
54 |
FIZHI_WRITE_STATE |
& myTime.EQ.startTime ) |
|
./pkg/flt/flt_init_varia.F |
254 |
FLT_INIT_VARIA |
& CALL FLT_UP( startTime, nIter0, myThid ) |
|
./pkg/flt/flt_init_varia.F |
256 |
FLT_INIT_VARIA |
& CALL FLT_TRAJ( startTime, nIter0, myThid ) |
|
./pkg/generic_advdiff/gad_init_varia.F |
62 |
GAD_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/gmredi/gmredi_init_varia.F |
111 |
GMREDI_INIT_VARIA |
IF (.NOT.( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/grdchk/grdchk_main.F |
285 |
GRDCHK_MAIN |
myTime = startTime |
|
./pkg/grdchk/grdchk_main.F |
330 |
GRDCHK_MAIN |
myTime = startTime |
|
./pkg/grdchk/grdchk_main.F |
369 |
GRDCHK_MAIN |
myTime = startTime |
|
./pkg/kpp/kpp_calc.F |
235 |
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 |
71 |
LAND_OUTPUT |
& myTime.EQ.startTime ) |
|
./pkg/mypackage/mypackage_init_varia.F |
73 |
MYPACKAGE_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./model/src/config_check.F |
572 |
CONFIG_CHECK |
& .AND. startTime.NE.baseTime .AND. usePickupBeforeC54 ) THEN |
|
./model/src/config_summary.F |
663 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( startTime, INDEX_NONE,'startTime =', |
|
./pkg/obcs/obcs_init_variables.F |
426 |
OBCS_INIT_VARIABLES |
CALL OBCS_CALC( startTime, nIter0, |
|
./pkg/obcs/obcs_init_variables.F |
463 |
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 |
|
./pkg/offline/offline_init_varia.F |
80 |
OFFLINE_INIT_VARIA |
CALL OFFLINE_FIELDS_LOAD( startTime, nIter0, myThid ) |
|
./pkg/openad/the_model_main.F |
366 |
THE_MODEL_MAIN |
myTime = 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 |
174 |
RBCS_READPARMS |
IF (startTime.LT.rbcsForcingOffset+0.5*rbcsForcingPeriod .AND. |
|
./pkg/seaice/cost_ice_test.F |
87 |
COST_ICE_TEST |
& ( ( 1. _d 0 + min(endTime-startTime,lastinterval) ) |
|
./model/src/forward_step.F |
278 |
FORWARD_STEP |
myTime = startTime + float(iloop-1)*deltaTClock |
|
./model/src/forward_step.F |
699 |
FORWARD_STEP |
myTime = startTime + deltaTClock * float(iLoop) |
|
./pkg/seaice/seaice_cost_init_fixed.F |
64 |
SEAICE_COST_INIT_FIXED |
costIceStart = costIceStart + startTime |
|
./pkg/seaice/seaice_cost_init_fixed.F |
76 |
SEAICE_COST_INIT_FIXED |
costIceEnd = costIceEnd + startTime |
|
./pkg/seaice/seaice_init_varia.F |
458 |
SEAICE_INIT_VARIA |
IF ( .NOT. ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./pkg/seaice/seaice_output.F |
76 |
SEAICE_OUTPUT |
& myTime.EQ.startTime ) |
|
./pkg/seaice/seaice_read_pickup.F |
232 |
SEAICE_READ_PICKUP |
CALL SEAICE_ITD_SUM( bi, bj, startTime, nIter0, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
506 |
SEAICE_READPARMS |
CALL CAL_GETDATE( -1, startTime, locDate, myThid ) |
|
./model/src/ini_fields.F |
30 |
INI_FIELDS |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./model/src/ini_fields.F |
59 |
INI_FIELDS |
CALL UPDATE_ETAWS( startTime, nIter0, myThid ) |
|
./pkg/streamice/streamice_fields_load.F |
73 |
STREAMICE_FIELDS_LOAD |
myRelTime = myTime - startTime |
|
./pkg/streamice/streamice_init_varia.F |
317 |
STREAMICE_INIT_VARIA |
IF ( .NOT. ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./pkg/thsice/thsice_cost_test.F |
83 |
THSICE_COST_TEST |
& ( ( 1. _d 0 + min(endTime-startTime,lastinterval) ) |
|
./pkg/thsice/thsice_output.F |
262 |
THSICE_OUTPUT |
& myTime.EQ.startTime ) |
|
./pkg/thsice/thsice_output.F |
287 |
THSICE_OUTPUT |
IF ( myTime.NE.startTime ) THEN |
|
./model/src/ini_mnc_vars.F |
210 |
INI_MNC_VARS |
CALL CAL_GETDATE( -1, startTime, locDate, myThid ) |
|
./model/src/ini_nh_fields.F |
52 |
INI_NH_FIELDS |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./model/src/ini_parms.F |
243 |
INI_PARMS |
& baseTime, startTime, endTime, |
|
./model/src/ini_parms.F |
924 |
INI_PARMS |
IF ( startTime.EQ.UNSET_RL .AND. nIter0.EQ.-1 ) THEN |
|
./model/src/ini_parms.F |
926 |
INI_PARMS |
startTime = baseTime |
|
./model/src/ini_parms.F |
928 |
INI_PARMS |
ELSEIF ( startTime.EQ.UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
930 |
INI_PARMS |
startTime = baseTime + deltaTClock*float(nIter0) |
|
./model/src/ini_parms.F |
933 |
INI_PARMS |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/ini_parms.F |
936 |
INI_PARMS |
baseTime = startTime - deltaTClock*float(nIter0) |
|
./model/src/ini_parms.F |
944 |
INI_PARMS |
& nTimeSteps = NINT((endTime-startTime)/deltaTClock) |
|
./model/src/ini_parms.F |
953 |
INI_PARMS |
& endTime = startTime + deltaTClock*float(nTimeSteps) |
|
./model/src/ini_parms.F |
959 |
INI_PARMS |
IF ( startTime .NE. baseTime+deltaTClock*float(nIter0) ) THEN |
|
./model/src/ini_parms.F |
977 |
INI_PARMS |
IF ( nTimeSteps .NE. NINT((endTime-startTime)/deltaTClock) |
|
./model/src/ini_pressure.F |
119 |
INI_PRESSURE |
I startTime, -1, myThid ) |
|
./model/src/initialise_fixed.F |
267 |
INITIALISE_FIXED |
IF ( debugLevel.GE.debLevA .OR. startTime.EQ.baseTime ) THEN |
|
./model/src/initialise_varia.F |
109 |
INITIALISE_VARIA |
CALL UPDATE_CG2D( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
182 |
INITIALISE_VARIA |
IF ( startTime .EQ. baseTime .AND. cAdjFreq .NE. 0. ) THEN |
|
./model/src/initialise_varia.F |
191 |
INITIALISE_VARIA |
I bi, bj, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
202 |
INITIALISE_VARIA |
& CALL CALC_R_STAR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
207 |
INITIALISE_VARIA |
CALL UPDATE_R_STAR( .TRUE., startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
211 |
INITIALISE_VARIA |
CALL UPDATE_SIGMA( etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
214 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
215 |
INITIALISE_VARIA |
CALL UPDATE_SURF_DR( .TRUE., startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
220 |
INITIALISE_VARIA |
CALL UPDATE_CG2D( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
229 |
INITIALISE_VARIA |
I startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
235 |
INITIALISE_VARIA |
CALL CALC_R_STAR(etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
239 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
277 |
INITIALISE_VARIA |
CALL MONITOR( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
285 |
INITIALISE_VARIA |
CALL DO_STATEVARS_TAVE( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
292 |
INITIALISE_VARIA |
CALL DO_THE_MODEL_IO( .FALSE., startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
99 |
INITIALISE_VARIA |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
73 |
FIZHI_INIT_VARS |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN |
|
./model/src/set_defaults.F |
294 |
SET_DEFAULTS |
startTime = UNSET_RL |
|
./model/src/set_parms.F |
239 |
SET_PARMS |
tmpVar = startTime + deltaTClock*FLOAT(nTimeSteps) |
|
./model/src/the_main_loop.F |
251 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/the_main_loop.F |
553 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/the_main_loop.F |
556 |
THE_MAIN_LOOP |
myTime = startTime + float(iloop-1)*deltaTClock |
|
./model/src/the_main_loop.F |
581 |
THE_MAIN_LOOP |
myTime = startTime + float(iloop-1)*deltaTClock |
|
./model/src/the_model_main.F |
328 |
THE_MODEL_MAIN |
myTime = 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_v23/aim_do_co2.F |
100 |
AIM_DO_CO2 |
IF ( startTime.EQ.baseTime .AND. myTime.EQ.0 ) THEN |
|
./pkg/aim_v23/aim_do_co2.F |
105 |
AIM_DO_CO2 |
ELSEIF ( myTime .EQ. startTime ) THEN |
|
./pkg/aim_v23/aim_do_co2.F |
142 |
AIM_DO_CO2 |
permCheckPoint = myTime.NE.startTime |
|
./pkg/aim_v23/aim_do_co2.F |
76 |
AIM_DO_CO2 |
IF ( Aim_CO2_Flag .EQ. 1 .AND. myTime .EQ. startTime ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
267 |
AIM_TENDENCY_APPLY_V |
IF ( myTime.EQ.startTime .AND. k.EQ.1 ) THEN |
|
./pkg/aim_v23/aim_tendency_apply.F |
80 |
AIM_TENDENCY_APPLY_U |
IF ( myTime.EQ.startTime .AND. k.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 |
205 |
FORWARD_STEP_ATM2D |
& (startTime.NE.baseTime .OR. nIter0.NE.0)) ) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
248 |
FORWARD_STEP_ATM2D |
myTime = startTime + deltaTClock *float (iloop_ocn) |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
99 |
CPL_INI_VARS |
IF ( startTime .NE. baseTime .OR. nIter0 .NE. 0 ) THEN |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
111 |
ATM_PHYS_INIT_FIXED |
& axes, startTime, myThid ) |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
116 |
ATM_PHYS_INIT_FIXED |
& startTime, myThid ) |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
99 |
ATM_PHYS_INIT_FIXED |
I startTime, myThid ) |
|
./pkg/atm_phys/atm_phys_init_varia.F |
63 |
ATM_PHYS_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/bbl/bbl_init_varia.F |
52 |
BBL_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/cal/cal_init_fixed.F |
38 |
CAL_INIT_FIXED |
I startTime, endTime, deltaTclock, |
|
./pkg/cheapaml/cheapaml_init_varia.F |
91 |
CHEAPAML_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
136 |
CTRL_GET_GEN_REC |
startrec = int((modelstart + startTime - fldsecs)/ |
|
./pkg/ctrl/ctrl_get_gen_rec.F |
190 |
CTRL_GET_GEN_REC |
myRelTime = myTime - startTime |
|
./pkg/ctrl/ctrl_init_rec.F |
101 |
CTRL_INIT_REC |
startrec = int((modelstart + startTime - diffsecs)/ |
|
./pkg/ctrl/ctrl_init_rec.F |
103 |
CTRL_INIT_REC |
endrec = int((modelend + startTime - diffsecs + modelstep/2)/ |
|
./pkg/ctrl/ctrl_init_rec.F |
112 |
CTRL_INIT_REC |
endrec = (int((endTime - startTime)/fldperiod) + 1)*nfac |
|
./pkg/diagnostics/diagnostics_init_varia.F |
72 |
DIAGNOSTICS_INIT_VARIA |
CALL DIAGNOSTICS_SUMMARY( startTime, nIter0, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
131 |
DIAGNOSTICS_OUT |
timeRec(1) = MAX( timeRec(1), startTime ) |
|
./pkg/dic/dic_surfforcing_init.F |
59 |
DIC_SURFFORCING_INIT |
CALL DIC_INI_ATMOS( startTime, nIter0, myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
72 |
DIC_SURFFORCING_INIT |
I deltaTClock, startTime, myThid ) |
|
./pkg/ebm/ebm_atmosphere.F |
259 |
EBM_ATMOSPHERE |
& (myTime-startTime)*3.215 _d -8*DLW |