| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getffield_start.F |
101 |
EXF_GETFFIELD_START |
CALL CAL_GETDATE( nIter0, startTime, gcm_startdate, myThid ) |
|
./pkg/exf/exf_getffield_start.F |
105 |
EXF_GETFFIELD_START |
fld_start_time = startTime + fld_start_time |
|
./pkg/exf/exf_mapfields.F |
119 |
EXF_MAPFIELDS |
& hflux_exfremo_slope*(myTime-startTime) ) |
|
./pkg/exf/exf_mapfields.F |
136 |
EXF_MAPFIELDS |
& sflux_exfremo_slope*(myTime-startTime) ) |
|
./pkg/exf/exf_set_fld.F |
292 |
EXF_SET_FLD |
& + fldRemove_slope*(myTime-startTime) ) |
|
./model/inc/PARAMS.h |
827 |
NO PROCEDURE |
& baseTime, startTime, endTime, |
|
./model/inc/PARAMS.h |
941 |
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 |
100 |
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 |
294 |
FLT_INIT_VARIA |
& CALL FLT_UP( startTime, nIter0, myThid ) |
|
./pkg/flt/flt_init_varia.F |
296 |
FLT_INIT_VARIA |
& CALL FLT_TRAJ( startTime, nIter0, myThid ) |
|
./pkg/flt/flt_init_varia.F |
98 |
FLT_INIT_VARIA |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/generic_advdiff/gad_init_varia.F |
62 |
GAD_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/generic_advdiff/gad_read_pickup.F |
129 |
GAD_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/generic_advdiff/gad_read_pickup.F |
78 |
GAD_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/ggl90/ggl90_read_pickup.F |
46 |
GGL90_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/gmredi/gmredi_init_varia.F |
111 |
GMREDI_INIT_VARIA |
IF (.NOT.( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/gmredi/gmredi_read_pickup.F |
62 |
GMREDI_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./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 |
239 |
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/land/land_read_pickup.F |
52 |
LAND_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./model/src/config_check.F |
655 |
CONFIG_CHECK |
& .AND. startTime.NE.baseTime .AND. usePickupBeforeC54 ) THEN |
|
./model/src/config_summary.F |
728 |
CONFIG_SUMMARY |
CALL WRITE_0D_RL( startTime, INDEX_NONE,'startTime =', |
|
./pkg/mypackage/mypackage_init_varia.F |
73 |
MYPACKAGE_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/mypackage/mypackage_read_pickup.F |
61 |
MYPACKAGE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./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/obcs/obcs_read_pickup.F |
47 |
OBCS_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
91 |
CPL_INI_VARS |
IF ( startTime.NE.baseTime .OR. nIter0.NE.0 |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
54 |
OCN_CPL_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/offline/offline_init_varia.F |
77 |
OFFLINE_INIT_VARIA |
CALL OFFLINE_FIELDS_LOAD( startTime, nIter0, myThid ) |
|
./pkg/openad/the_model_main.F |
369 |
THE_MODEL_MAIN |
myTime = startTime |
|
./pkg/ptracers/ptracers_read_pickup.F |
111 |
PTRACERS_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_read_pickup.F |
289 |
PTRACERS_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/ptracers/ptracers_write_state.F |
56 |
PTRACERS_WRITE_STATE |
& myTime.EQ.startTime ) |
|
./pkg/ptracers/ptracers_write_state.F |
91 |
PTRACERS_WRITE_STATE |
iRec = 1 + NINT( (myTime-startTime) / PTRACERS_dumpFreq ) |
|
./pkg/ptracers/ptracers_write_state.F |
96 |
PTRACERS_WRITE_STATE |
iRec = 1 + NINT( (myTime-startTime) / PTRACERS_dumpFreq ) |
|
./pkg/rbcs/rbcs_readparms.F |
206 |
RBCS_READPARMS |
IF (startTime.LT.rbcsForcingOffset+0.5*rbcsForcingPeriod .AND. |
|
./model/src/forward_step.F |
405 |
FORWARD_STEP |
myTime = startTime + deltaTClock*(iLoop-1) |
|
./model/src/forward_step.F |
831 |
FORWARD_STEP |
myTime = startTime + deltaTClock*iLoop |
|
./pkg/sbo/sbo_output.F |
95 |
SBO_OUTPUT |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/seaice/cost_ice_test.F |
87 |
COST_ICE_TEST |
& ( ( 1. _d 0 + min(endTime-startTime,lastinterval) ) |
|
./pkg/seaice/seaice_cost_init_fixed.F |
66 |
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 |
463 |
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 |
237 |
SEAICE_READ_PICKUP |
CALL SEAICE_ITD_SUM( bi, bj, startTime, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
70 |
SEAICE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/seaice/seaice_readparms.F |
574 |
SEAICE_READPARMS |
CALL CAL_GETDATE( -1, startTime, locDate, myThid ) |
|
./pkg/shelfice/shelfice_init_varia.F |
94 |
SHELFICE_INIT_VARIA |
IF ( .NOT. ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./pkg/shelfice/shelfice_read_pickup.F |
57 |
SHELFICE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./model/src/ini_fields.F |
30 |
INI_FIELDS |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./model/src/ini_fields.F |
53 |
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 |
313 |
STREAMICE_INIT_VARIA |
IF ( .NOT. ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./model/src/ini_mnc_vars.F |
210 |
INI_MNC_VARS |
CALL CAL_GETDATE( -1, startTime, locDate, myThid ) |
|
./pkg/thsice/thsice_cost_test.F |
83 |
THSICE_COST_TEST |
& ( ( 1. _d 0 + min(endTime-startTime,lastinterval) ) |
|
./model/src/ini_nh_fields.F |
52 |
INI_NH_FIELDS |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./pkg/thsice/thsice_output.F |
266 |
THSICE_OUTPUT |
& myTime.EQ.startTime ) |
|
./pkg/thsice/thsice_output.F |
270 |
THSICE_OUTPUT |
& ( myTime.NE.startTime .OR. .NOT.thSIce_skipThermo |
|
./pkg/thsice/thsice_output.F |
298 |
THSICE_OUTPUT |
IF ( myTime.NE.startTime ) THEN |
|
./pkg/thsice/thsice_read_pickup.F |
48 |
THSICE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./model/src/ini_parms.F |
1001 |
INI_PARMS |
IF ( startTime .NE. baseTime+deltaTClock*DFLOAT(nIter0) ) THEN |
|
./model/src/ini_parms.F |
1019 |
INI_PARMS |
IF ( nTimeSteps .NE. NINT((endTime-startTime)/deltaTClock) |
|
./model/src/ini_parms.F |
253 |
INI_PARMS |
& baseTime, startTime, endTime, |
|
./model/src/ini_parms.F |
965 |
INI_PARMS |
IF ( startTime.EQ.UNSET_RL .AND. nIter0.EQ.-1 ) THEN |
|
./model/src/ini_parms.F |
967 |
INI_PARMS |
startTime = baseTime |
|
./model/src/ini_parms.F |
969 |
INI_PARMS |
ELSEIF ( startTime.EQ.UNSET_RL ) THEN |
|
./model/src/ini_parms.F |
971 |
INI_PARMS |
startTime = baseTime + deltaTClock*DFLOAT(nIter0) |
|
./model/src/ini_parms.F |
974 |
INI_PARMS |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/ini_parms.F |
977 |
INI_PARMS |
baseTime = startTime - deltaTClock*DFLOAT(nIter0) |
|
./model/src/ini_parms.F |
986 |
INI_PARMS |
& nTimeSteps = NINT((endTime-startTime)/deltaTClock) |
|
./model/src/ini_parms.F |
995 |
INI_PARMS |
& endTime = startTime + deltaTClock*DFLOAT(nTimeSteps) |
|
./model/src/ini_pressure.F |
119 |
INI_PRESSURE |
I startTime, -1, myThid ) |
|
./model/src/initialise_fixed.F |
279 |
INITIALISE_FIXED |
IF ( debugLevel.GE.debLevA .OR. startTime.EQ.baseTime ) THEN |
|
./model/src/initialise_varia.F |
110 |
INITIALISE_VARIA |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/initialise_varia.F |
122 |
INITIALISE_VARIA |
CALL UPDATE_CG2D( 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 |
211 |
INITIALISE_VARIA |
I bi, bj, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
222 |
INITIALISE_VARIA |
& CALL CALC_R_STAR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
227 |
INITIALISE_VARIA |
CALL UPDATE_R_STAR( .TRUE., startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
231 |
INITIALISE_VARIA |
CALL UPDATE_SIGMA( etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
234 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, -1 , myThid ) |
|
./model/src/initialise_varia.F |
235 |
INITIALISE_VARIA |
CALL UPDATE_SURF_DR( .TRUE., startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
240 |
INITIALISE_VARIA |
CALL UPDATE_CG2D( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
249 |
INITIALISE_VARIA |
I startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
255 |
INITIALISE_VARIA |
CALL CALC_R_STAR(etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
259 |
INITIALISE_VARIA |
CALL CALC_SURF_DR(etaH, startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
297 |
INITIALISE_VARIA |
CALL MONITOR( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
305 |
INITIALISE_VARIA |
CALL DO_STATEVARS_TAVE( startTime, nIter0, myThid ) |
|
./model/src/initialise_varia.F |
312 |
INITIALISE_VARIA |
CALL DO_THE_MODEL_IO( .FALSE., startTime, nIter0, myThid ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
73 |
FIZHI_INIT_VARS |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN |
|
./model/src/read_pickup.F |
91 |
READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./model/src/set_defaults.F |
303 |
SET_DEFAULTS |
startTime = UNSET_RL |
|
./model/src/set_parms.F |
269 |
SET_PARMS |
tmpVar = startTime + deltaTClock*DFLOAT(nTimeSteps) |
|
./model/src/the_main_loop.F |
267 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/the_main_loop.F |
584 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/the_main_loop.F |
587 |
THE_MAIN_LOOP |
myTime = startTime + deltaTClock*(iloop-1) |
|
./model/src/the_main_loop.F |
614 |
THE_MAIN_LOOP |
myTime = startTime + deltaTClock*(iloop-1) |
|
./model/src/the_model_main.F |
629 |
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 = 1 + NINT( (myTime-startTime) / dumpFreq ) |
|
./pkg/admtlm/admtlm_driver.F |
51 |
ADMTLM_DRIVER |
myCurrentTime = startTime |
|
./pkg/admtlm/admtlm_driver.F |
61 |
ADMTLM_DRIVER |
myCurrentTime = startTime |
|
./pkg/aim_v23/aim_tendency_apply.F |
268 |
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/atm_cpl_read_pickup.F |
66 |
ATM_CPL_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
117 |
CPL_INI_VARS |
IF ( startTime .NE. baseTime .OR. nIter0 .NE. 0 ) THEN |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
106 |
ATM_PHYS_INIT_FIXED |
& startTime, cst_mxlDepth, myThid ) |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
118 |
ATM_PHYS_INIT_FIXED |
& startTime, cst_albedo, myThid ) |
|
./pkg/atm_phys/atm_phys_init_fixed.F |
123 |
ATM_PHYS_INIT_FIXED |
& startTime, myThid ) |
|
./pkg/atm_phys/atm_phys_init_varia.F |
71 |
ATM_PHYS_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/atm_phys/atm_phys_read_pickup.F |
64 |
ATM_PHYS_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/bbl/bbl_init_varia.F |
52 |
BBL_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/bbl/bbl_read_pickup.F |
60 |
BBL_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/bling/bling_carbonate_init.F |
64 |
BLING_CARBONATE_INIT |
I deltaTclock, startTime, myThid ) |
|
./pkg/bling/bling_carbonate_init.F |
82 |
BLING_CARBONATE_INIT |
CALL OFFLINE_FIELDS_LOAD( startTime, nIter0, myThid ) |
|
./pkg/bling/bling_read_pickup.F |
50 |
BLING_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/cal/cal_init_fixed.F |
38 |
CAL_INIT_FIXED |
I startTime, endTime, deltaTclock, |
|
./pkg/cd_code/cd_code_read_pickup.F |
43 |
CD_CODE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
87 |
CHEAPAML_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/cheapaml/cheapaml_read_pickup.F |
63 |
CHEAPAML_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./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 |
74 |
DIAGNOSTICS_INIT_VARIA |
CALL DIAGNOSTICS_SUMMARY( startTime, nIter0, myThid ) |
|
./pkg/diagnostics/diagnostics_out.F |
138 |
DIAGNOSTICS_OUT |
timeRec(1) = MAX( timeRec(1), startTime ) |
|
./pkg/diagnostics/diagstats_close_io.F |
58 |
DIAGSTATS_CLOSE_IO |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
57 |
DIAGSTATS_INI_IO |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/dic/dic_read_co2_pickup.F |
45 |
DIC_READ_CO2_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./pkg/dic/dic_read_pickup.F |
44 |
DIC_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, myIter, myThid ) |
|
./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 |