| 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_getffieldrec.F |
214 |
EXF_GETFFIELDREC |
first = ( myIter.EQ.nIter0 ) |
|
./pkg/exf/exf_getffieldrec.F |
231 |
EXF_GETFFIELDREC |
first = ( myIter .EQ.nIter0 ) |
|
./pkg/exf/exf_getforcing.F |
263 |
EXF_GETFORCING |
& ( myIter.EQ.nIter0 .OR. exf_debugLev.GE.debLevC ) ) THEN |
|
./pkg/exf/exf_interp.F |
315 |
EXF_INTERP |
& .OR. ( exf_debugLev.GE.debLevB .AND. myIter.LE.nIter0 ) |
|
./pkg/exf/exf_interp_uv.F |
338 |
EXF_INTERP_UV |
& .OR. ( exf_debugLev.GE.debLevB .AND. myIter.LE.nIter0 ) |
|
./model/inc/PARAMS.h |
225 |
NO PROCEDURE |
& nIter0, nTimeSteps, nTimeSteps_l2, nEndIter, |
|
./model/inc/PARAMS.h |
245 |
NO PROCEDURE |
INTEGER nIter0 |
|
./pkg/fizhi/fizhi_init_vars.F |
294 |
FIZHI_INIT_VARS |
call FIZHI_READ_PICKUP( nIter0, myThid ) |
|
./pkg/fizhi/fizhi_init_vars.F |
295 |
FIZHI_INIT_VARS |
CALL FIZHI_READ_VEGTILES( nIter0, 'D', myThid ) |
|
./pkg/fizhi/fizhi_init_vars.F |
93 |
FIZHI_INIT_VARS |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 ) THEN |
|
./pkg/fizhi/fizhi_readparms.F |
99 |
FIZHI_READPARMS |
nEndIter = nIter0 + nTimeSteps |
|
./pkg/fizhi/fizhi_wrapper.F |
260 |
FIZHI_WRAPPER |
turbStart(bi,bj) = turbStart(bi,bj) .AND. ( myIter.EQ.nIter0 ) |
|
./pkg/flt/flt_init_varia.F |
126 |
FLT_INIT_VARIA |
IF ( nIter0.EQ.FLT_Iter0 ) THEN |
|
./pkg/flt/flt_init_varia.F |
232 |
FLT_INIT_VARIA |
IF ( nIter0.EQ.FLT_Iter0 .AND. mapIniPos2Index ) THEN |
|
./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 |
90 |
FLT_INIT_VARIA |
IF ( nIter0.EQ.FLT_Iter0 ) THEN |
|
./pkg/flt/flt_init_varia.F |
93 |
FLT_INIT_VARIA |
ELSEIF ( nIter0.GT.FLT_Iter0 ) THEN |
|
./pkg/flt/flt_init_varia.F |
96 |
FLT_INIT_VARIA |
WRITE(suff,'(I10.10)') nIter0 |
|
./pkg/flt/flt_init_varia.F |
98 |
FLT_INIT_VARIA |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/flt/flt_traj.F |
86 |
FLT_TRAJ |
IF ( myIter.EQ.nIter0 .OR. flt_selectTrajOutp.LE.0 ) RETURN |
|
./pkg/flt/flt_up.F |
80 |
FLT_UP |
IF ( myIter.EQ.nIter0 ) RETURN |
|
./pkg/gchem/gchem_output.F |
38 |
GCHEM_OUTPUT |
IF ( myIter.NE.nIter0 ) |
|
./pkg/generic_advdiff/gad_advection.F |
822 |
GAD_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_calc_rhs.F |
792 |
GAD_CALC_RHS |
& .AND. k.EQ.2 .AND. myIter.EQ.1+nIter0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
62 |
GAD_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/generic_advdiff/gad_init_varia.F |
71 |
GAD_INIT_VARIA |
CALL GAD_READ_PICKUP( nIter0, myThid ) |
|
./pkg/generic_advdiff/gad_som_advect.F |
439 |
GAD_SOM_ADVECT |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/ggl90/ggl90_init_varia.F |
138 |
GGL90_INIT_VARIA |
IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN |
|
./pkg/ggl90/ggl90_init_varia.F |
139 |
GGL90_INIT_VARIA |
CALL GGL90_READ_PICKUP( nIter0, myThid ) |
|
./pkg/ggl90/ggl90_output.F |
110 |
GGL90_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/ggl90/ggl90_output.F |
142 |
GGL90_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/ggl90/ggl90_output.F |
89 |
GGL90_OUTPUT |
IF ( myIter.NE.nIter0 ) THEN |
|
./pkg/gmredi/gmredi_init_varia.F |
111 |
GMREDI_INIT_VARIA |
IF (.NOT.( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./model/src/adams_bashforth2.F |
64 |
ADAMS_BASHFORTH2 |
IF ( myIter.EQ.nIter0 .AND. startAB.EQ.0 ) THEN |
|
./pkg/grdchk/grdchk_main.F |
286 |
GRDCHK_MAIN |
myIter = nIter0 |
|
./pkg/grdchk/grdchk_main.F |
331 |
GRDCHK_MAIN |
myIter = nIter0 |
|
./pkg/grdchk/grdchk_main.F |
370 |
GRDCHK_MAIN |
myIter = nIter0 |
|
./model/src/adams_bashforth3.F |
87 |
ADAMS_BASHFORTH3 |
IF ( myIter.EQ.nIter0 .AND. startAB.EQ.0 ) THEN |
|
./model/src/adams_bashforth3.F |
91 |
ADAMS_BASHFORTH3 |
ELSEIF ( (myIter.EQ.nIter0 .AND. startAB.EQ.1) |
|
./model/src/adams_bashforth3.F |
92 |
ADAMS_BASHFORTH3 |
& .OR. (myIter.EQ.1+nIter0 .AND. startAB.EQ.0) ) THEN |
|
./pkg/kl10/kl10_output.F |
107 |
KL10_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/kl10/kl10_output.F |
133 |
KL10_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/kl10/kl10_output.F |
175 |
KL10_OUTPUT |
IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN |
|
./pkg/kl10/kl10_output.F |
81 |
KL10_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/kpp/kpp_output.F |
113 |
KPP_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/kpp/kpp_output.F |
126 |
KPP_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/kpp/kpp_output.F |
206 |
KPP_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/kpp/kpp_output.F |
259 |
KPP_OUTPUT |
IF ( myIter .NE. nIter0 ) THEN |
|
./pkg/kpp/kpp_output.F |
376 |
KPP_OUTPUT |
IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN |
|
./pkg/land/land_ini_vars.F |
100 |
LAND_INI_VARS |
& land_nLev, land_groundT, 1, nIter0, myThid ) |
|
./pkg/land/land_ini_vars.F |
104 |
LAND_INI_VARS |
& land_nLev, land_groundW, 1, nIter0, myThid ) |
|
./pkg/land/land_ini_vars.F |
108 |
LAND_INI_VARS |
& land_hSnow, nIter0, myThid ) |
|
./pkg/land/land_ini_vars.F |
114 |
LAND_INI_VARS |
CALL LAND_READ_PICKUP( nIter0, myThid ) |
|
./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_monitor.F |
156 |
LAND_MONITOR |
IF ( myIter.EQ.1+nIter0 ) THEN |
|
./pkg/land/land_monitor.F |
82 |
LAND_MONITOR |
& .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/land/land_output.F |
100 |
LAND_OUTPUT |
IF ( myIter.NE.nIter0 ) THEN |
|
./pkg/land/land_output.F |
168 |
LAND_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/layers/layers_calc.F |
116 |
LAYERS_CALC |
IF ( myIter.EQ.nIter0 ) RETURN |
|
./pkg/layers/layers_output.F |
60 |
LAYERS_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/longstep/longstep_check_iters.F |
36 |
LONGSTEP_CHECK_ITERS |
IF (MOD(nIter0, LS_nIter) .NE. 0) THEN |
|
./pkg/longstep/longstep_check_iters.F |
41 |
LONGSTEP_CHECK_ITERS |
& ' LS_niter', nIter0, LS_niter |
|
./pkg/longstep/longstep_check_iters.F |
60 |
LONGSTEP_CHECK_ITERS |
nTimeSteps = nEndIter - nIter0 |
|
./pkg/matrix/matrix_output.F |
35 |
MATRIX_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/mnc/mnc_init.F |
111 |
MNC_INIT |
mnc_cw_cit(2,1) = nIter0 |
|
./pkg/mnc/mnc_init.F |
121 |
MNC_INIT |
mnc_cw_cit(2,3) = nIter0 |
|
./pkg/mom_vecinv/mom_vecinv.F |
853 |
MOM_VECINV |
& .AND. k.EQ.4 .AND. myIter.EQ.nIter0 |
|
./model/src/check_pickup.F |
219 |
CHECK_PICKUP |
IF ( mom_StartAB.LT.nIter0 .OR. |
|
./model/src/check_pickup.F |
220 |
CHECK_PICKUP |
& nHydStartAB.LT.nIter0 .OR. |
|
./model/src/check_pickup.F |
221 |
CHECK_PICKUP |
& tempStartAB.LT.nIter0 .OR. |
|
./model/src/check_pickup.F |
222 |
CHECK_PICKUP |
& saltStartAB.LT.nIter0 ) THEN |
|
./model/src/check_pickup.F |
64 |
CHECK_PICKUP |
tempStartAB = nIter0 |
|
./model/src/check_pickup.F |
65 |
CHECK_PICKUP |
saltStartAB = nIter0 |
|
./model/src/check_pickup.F |
66 |
CHECK_PICKUP |
mom_StartAB = nIter0 |
|
./model/src/check_pickup.F |
67 |
CHECK_PICKUP |
nHydStartAB = nIter0 |
|
./model/src/config_summary.F |
720 |
CONFIG_SUMMARY |
CALL WRITE_0D_I( nIter0, INDEX_NONE, 'nIter0 =', |
|
./pkg/my82/my82_output.F |
136 |
MY82_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/my82/my82_output.F |
165 |
MY82_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/my82/my82_output.F |
236 |
MY82_OUTPUT |
IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN |
|
./pkg/my82/my82_output.F |
86 |
MY82_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./model/src/convective_adjustment.F |
211 |
CONVECTIVE_ADJUSTMENT |
IF (myIter.NE.nIter0 .AND. taveFreq.GT.0.) THEN |
|
./model/src/convective_adjustment.F |
218 |
CONVECTIVE_ADJUSTMENT |
IF ( myIter.NE.nIter0 .AND. useDiagnostics ) THEN |
|
./pkg/mypackage/mypackage_init_varia.F |
128 |
MYPACKAGE_INIT_VARIA |
CALL MYPACKAGE_READ_PICKUP( nIter0, myThid ) |
|
./pkg/mypackage/mypackage_init_varia.F |
73 |
MYPACKAGE_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/obcs/obcs_fields_load.F |
127 |
OBCS_FIELDS_LOAD |
IF ( iRec0.NE.iRecP .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/obcs/obcs_fields_load.F |
349 |
OBCS_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/obcs/obcs_init_variables.F |
389 |
OBCS_INIT_VARIABLES |
& (OBNamFile,fp,tidalComponents,OBNam,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
391 |
OBCS_INIT_VARIABLES |
& (OBNphFile,fp,tidalComponents,OBNph,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
395 |
OBCS_INIT_VARIABLES |
& (OBSamFile,fp,tidalComponents,OBSam,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
397 |
OBCS_INIT_VARIABLES |
& (OBSphFile,fp,tidalComponents,OBSph,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
401 |
OBCS_INIT_VARIABLES |
& (OBEamFile,fp,tidalComponents,OBEam,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
403 |
OBCS_INIT_VARIABLES |
& (OBEphFile,fp,tidalComponents,OBEph,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
407 |
OBCS_INIT_VARIABLES |
& (OBWamFile,fp,tidalComponents,OBWam,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
409 |
OBCS_INIT_VARIABLES |
& (OBWphFile,fp,tidalComponents,OBWph,1,nIter0,myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
416 |
OBCS_INIT_VARIABLES |
IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN |
|
./pkg/obcs/obcs_init_variables.F |
417 |
OBCS_INIT_VARIABLES |
CALL OBCS_READ_PICKUP( nIter0, myThid ) |
|
./pkg/obcs/obcs_init_variables.F |
422 |
OBCS_INIT_VARIABLES |
IF ( nIter0.EQ.0 .AND. pickupSuff.EQ.' ' ) THEN |
|
./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_init_variables.F |
474 |
OBCS_INIT_VARIABLES |
IF ( nIter0.EQ.PTRACERS_Iter0 ) THEN |
|
./pkg/obcs/obcs_init_variables.F |
490 |
OBCS_INIT_VARIABLES |
IF ( nIter0.EQ.PTRACERS_Iter0 .AND. useOBCSprescribe ) THEN |
|
./pkg/obcs/obcs_output.F |
52 |
OBCS_OUTPUT |
& .AND. OBCSprintDiags .AND. myIter.NE.nIter0 |
|
./pkg/obcs/obcs_output.F |
93 |
OBCS_OUTPUT |
& .AND. myIter.NE.nIter0 |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
91 |
CPL_INI_VARS |
IF ( startTime.NE.baseTime .OR. nIter0.NE.0 |
|
./pkg/ocn_compon_interf/cpl_ini_vars.F |
93 |
CPL_INI_VARS |
CALL OCN_CPL_READ_PICKUP( nIter0, myThid ) |
|
./pkg/ocn_compon_interf/cpl_output.F |
59 |
CPL_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/ocn_compon_interf/ocn_cpl_read_pickup.F |
77 |
OCN_CPL_READ_PICKUP |
IF (nIter0.GT.PTRACERS_Iter0) THEN |
|
./pkg/offline/offline_fields_load.F |
114 |
OFFLINE_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/offline/offline_fields_load.F |
360 |
OFFLINE_FIELDS_LOAD |
IF ( myIter.NE.nIter0 .OR. nonlinFreeSurf.LE.0 ) THEN |
|
./pkg/offline/offline_get_diffus.F |
82 |
OFFLINE_GET_DIFFUS |
IF ( Wvelfile .NE. ' ' .AND. myIter.EQ.nIter0 ) THEN |
|
./pkg/offline/offline_init_varia.F |
77 |
OFFLINE_INIT_VARIA |
CALL OFFLINE_FIELDS_LOAD( startTime, nIter0, myThid ) |
|
./pkg/offline/offline_readparms.F |
92 |
OFFLINE_READPARMS |
offlineIter0 = nIter0 !initial offline field timestep |
|
./pkg/openad/the_model_main.F |
370 |
THE_MODEL_MAIN |
myIter = nIter0 |
|
./pkg/openad/the_model_main.F |
605 |
THE_MODEL_MAIN |
myIter=nIter0 |
|
./pkg/openad/the_model_main.F |
613 |
THE_MODEL_MAIN |
& .AND. myIter.EQ.nIter0 ) THEN |
|
./pkg/opps/opps_output.F |
100 |
OPPS_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/opps/opps_output.F |
123 |
OPPS_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/pp81/pp81_output.F |
104 |
PP81_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/pp81/pp81_output.F |
130 |
PP81_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/pp81/pp81_output.F |
174 |
PP81_OUTPUT |
IF ( useDiagnostics .AND. myIter.NE.nIter0 ) THEN |
|
./pkg/pp81/pp81_output.F |
78 |
PP81_OUTPUT |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/profiles/profiles_init_fixed.F |
389 |
PROFILES_INIT_FIXED |
diffsecs=diffsecs+nIter0*deltaTclock |
|
./pkg/ptracers/ptracers_check.F |
160 |
PTRACERS_CHECK |
ELSEIF ( PTRACERS_Iter0.GT.nIter0 ) THEN |
|
./model/src/do_the_model_io.F |
132 |
DO_THE_MODEL_IO |
IF (taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN |
|
./model/src/do_the_model_io.F |
160 |
DO_THE_MODEL_IO |
IF (useGMRedi .AND. myIter.NE.nIter0 .AND. .NOT.useOffLine ) |
|
./model/src/do_the_model_io.F |
222 |
DO_THE_MODEL_IO |
IF ( useBulkForce .AND. myIter.NE.nIter0 ) |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
117 |
PTRACERS_DIAGNOSTICS_STATE |
IF ( trIter.GT.nIter0 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
151 |
PTRACERS_DIAGNOSTICS_STATE |
IF ( trIter.GT.nIter0 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
59 |
PTRACERS_DIAGNOSTICS_STATE |
IF ( LS_doTimeStep .OR. trIter.EQ.nIter0 ) THEN |
|
./pkg/ptracers/ptracers_diagnostics_state.F |
84 |
PTRACERS_DIAGNOSTICS_STATE |
IF ( trIter.GT.nIter0 ) THEN |
|
./pkg/ptracers/ptracers_init_varia.F |
127 |
PTRACERS_INIT_VARIA |
IF ( nIter0.GT.PTRACERS_Iter0 .OR. |
|
./pkg/ptracers/ptracers_init_varia.F |
128 |
PTRACERS_INIT_VARIA |
& (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ') |
|
./pkg/ptracers/ptracers_init_varia.F |
131 |
PTRACERS_INIT_VARIA |
CALL PTRACERS_READ_PICKUP( nIter0, myThid ) |
|
./pkg/ptracers/ptracers_init_varia.F |
49 |
PTRACERS_INIT_VARIA |
PTRACERS_startAB(iTracer) = nIter0 - PTRACERS_Iter0 |
|
./pkg/ptracers/ptracers_init_varia.F |
99 |
PTRACERS_INIT_VARIA |
IF (nIter0.EQ.PTRACERS_Iter0) THEN |
|
./pkg/ptracers/ptracers_output.F |
42 |
PTRACERS_OUTPUT |
IF ( PTRACERS_taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN |
|
./pkg/ptracers/ptracers_timeave.F |
59 |
PTRACERS_TIMEAVE |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/ptracers/ptracers_timeave.F |
72 |
PTRACERS_TIMEAVE |
IF ( myIter .EQ. nIter0 .OR. |
|
./pkg/ptracers/ptracers_timeave.F |
90 |
PTRACERS_TIMEAVE |
IF ( myIter .NE. nIter0 ) THEN |
|
./pkg/ptracers/ptracers_write_timeave.F |
170 |
PTRACERS_WRITE_TIMEAVE |
CALL PTRACERS_TIMEAVE( myTime, nIter0, bi, bj, myThid ) |
|
./model/src/external_fields_load.F |
95 |
EXTERNAL_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/rbcs/rbcs_fields_load.F |
104 |
RBCS_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
|
./model/src/forward_step.F |
404 |
FORWARD_STEP |
myIter = nIter0 + (iloop-1) |
|
./model/src/forward_step.F |
830 |
FORWARD_STEP |
myIter = nIter0 + iLoop |
|
./pkg/sbo/sbo_output.F |
113 |
SBO_OUTPUT |
IF ( myIter .EQ. nIter0 .OR. |
|
./pkg/sbo/sbo_output.F |
87 |
SBO_OUTPUT |
irecord = myIter - nIter0 + 1 |
|
./pkg/sbo/sbo_output.F |
93 |
SBO_OUTPUT |
WRITE(fName,'(A,I10.10)') 'SBO_global.', nIter0 |
|
./pkg/sbo/sbo_output.F |
95 |
SBO_OUTPUT |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/seaice/seaice_advection.F |
186 |
SEAICE_ADVECTION |
& .AND. myIter.EQ.nIter0 |
|
./pkg/seaice/seaice_advection.F |
758 |
SEAICE_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./pkg/seaice/seaice_calc_lhs.F |
101 |
SEAICE_CALC_LHS |
IF ( myIter.EQ.nIter0 .AND. SEAICEmomStartBDF.EQ.0 ) THEN |
|
./pkg/seaice/seaice_init_fixed.F |
72 |
SEAICE_INIT_FIXED |
IF ( SEAICEuseBDF2 ) SEAICEmomStartBDF = nIter0 |
|
./pkg/seaice/seaice_init_varia.F |
450 |
SEAICE_INIT_VARIA |
& nIter0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
453 |
SEAICE_INIT_VARIA |
& nIter0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
455 |
SEAICE_INIT_VARIA |
& nIter0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
458 |
SEAICE_INIT_VARIA |
& nIter0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
463 |
SEAICE_INIT_VARIA |
IF ( .NOT. ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./pkg/seaice/seaice_init_varia.F |
583 |
SEAICE_INIT_VARIA |
CALL SEAICE_ITD_REDIST(bi, bj, baseTime, nIter0, myThid) |
|
./pkg/seaice/seaice_jfnk.F |
138 |
SEAICE_JFNK |
IF ( myIter.EQ.nIter0 .AND. SEAICEmomStartBDF.EQ.0 ) THEN |
|
./pkg/seaice/seaice_jfnk.F |
303 |
SEAICE_JFNK |
& SEAICEnonLinIterMax*(myIter-nIter0)+newtonIter |
|
./pkg/seaice/seaice_krylov.F |
138 |
SEAICE_KRYLOV |
IF ( myIter.EQ.nIter0 .AND. SEAICEmomStartBDF.EQ.0 ) THEN |
|
./pkg/seaice/seaice_krylov.F |
380 |
SEAICE_KRYLOV |
& picardIterMax*(myIter-nIter0)+picardIter |
|
./pkg/seaice/seaice_lsr.F |
1232 |
SEAICE_LSR_CALC_COEFFS |
IF ( myIter.EQ.nIter0 .AND. SEAICEmomStartBDF.EQ.0 ) THEN |
|
./pkg/seaice/seaice_output.F |
129 |
SEAICE_OUTPUT |
IF ( myIter.NE.nIter0 ) THEN |
|
./pkg/seaice/seaice_output.F |
234 |
SEAICE_OUTPUT |
IF ( myIter .NE. nIter0 ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
146 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn,fp,nITD, TICES, nj,nIter0,myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
151 |
SEAICE_READ_PICKUP |
I nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
155 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSNOW , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
157 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, UICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
159 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, VICE , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
161 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HEFF , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
163 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, AREA , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
168 |
SEAICE_READ_PICKUP |
CALL SEAICE_ITD_PICKUP( nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
172 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma1,nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
174 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma2,nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
176 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL(fn,fp,1,seaice_sigma12,nj,nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
181 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSALT , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
192 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
197 |
SEAICE_READ_PICKUP |
& nj, fp, nITD,1,1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
203 |
SEAICE_READ_PICKUP |
& nj, fp, nITD,1,1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
206 |
SEAICE_READ_PICKUP |
& nj, fp, nITD,1,1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
212 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
218 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
220 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
222 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
226 |
SEAICE_READ_PICKUP |
CALL SEAICE_ITD_PICKUP( nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
231 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
233 |
SEAICE_READ_PICKUP |
& nj, fp, nITD, nIter0, myThid ) |
|
./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 |
244 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
251 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
260 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
262 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
265 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
267 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
272 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
274 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
276 |
SEAICE_READ_PICKUP |
& nj, fp, 1, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
288 |
SEAICE_READ_PICKUP |
I nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
298 |
SEAICE_READ_PICKUP |
I nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
68 |
SEAICE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_seaice.', nIter0 |
|
./pkg/seaice/seaice_read_pickup.F |
70 |
SEAICE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
88 |
SEAICE_READ_PICKUP |
I nITD, nIter0, myThid ) |
|
./pkg/shelfice/shelfice_init_varia.F |
94 |
SHELFICE_INIT_VARIA |
IF ( .NOT. ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./pkg/shelfice/shelfice_output.F |
102 |
SHELFICE_OUTPUT |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/shelfice/shelfice_output.F |
133 |
SHELFICE_OUTPUT |
IF ( myIter .NE. nIter0 ) THEN |
|
./pkg/shelfice/shelfice_output.F |
57 |
SHELFICE_OUTPUT |
IF ( myIter .NE. nIter0 .AND. |
|
./pkg/shelfice/shelfice_read_pickup.F |
136 |
SHELFICE_READ_PICKUP |
& nj, fp, 1 , nIter0, myThid ) |
|
./pkg/shelfice/shelfice_read_pickup.F |
146 |
SHELFICE_READ_PICKUP |
I nIter0, myThid ) |
|
./pkg/shelfice/shelfice_read_pickup.F |
55 |
SHELFICE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_shelfice.', nIter0 |
|
./pkg/shelfice/shelfice_read_pickup.F |
57 |
SHELFICE_READ_PICKUP |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/shelfice/shelfice_read_pickup.F |
68 |
SHELFICE_READ_PICKUP |
I Nr, nIter0, myThid ) |
|
./model/src/ini_fields.F |
30 |
INI_FIELDS |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./model/src/ini_fields.F |
41 |
INI_FIELDS |
CALL READ_PICKUP( nIter0, myThid ) |
|
./model/src/ini_fields.F |
53 |
INI_FIELDS |
CALL UPDATE_ETAWS( startTime, nIter0, myThid ) |
|
./pkg/streamice/streamice_init_varia.F |
313 |
STREAMICE_INIT_VARIA |
IF ( .NOT. ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./pkg/streamice/streamice_read_pickup.F |
55 |
STREAMICE_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_streamice.',nIter0 |
|
./pkg/streamice/streamice_read_pickup.F |
64 |
STREAMICE_READ_PICKUP |
I Nr, nIter0, myThid ) |
|
./pkg/thsice/thsice_advection.F |
168 |
THSICE_ADVECTION |
& .AND. myIter.EQ.nIter0 |
|
./pkg/thsice/thsice_advection.F |
763 |
THSICE_ADVECTION |
& .AND. k.LE.3 .AND. myIter.EQ.1+nIter0 |
|
./model/src/ini_model_io.F |
120 |
INI_MODEL_IO |
tempStartAB = nIter0 |
|
./model/src/ini_model_io.F |
121 |
INI_MODEL_IO |
saltStartAB = nIter0 |
|
./model/src/ini_model_io.F |
122 |
INI_MODEL_IO |
mom_StartAB = nIter0 |
|
./model/src/ini_model_io.F |
123 |
INI_MODEL_IO |
nHydStartAB = nIter0 |
|
./model/src/ini_model_io.F |
124 |
INI_MODEL_IO |
IF ( startFromPickupAB2 ) tempStartAB = MIN( nIter0 , 1 ) |
|
./model/src/ini_nh_fields.F |
52 |
INI_NH_FIELDS |
IF ( startTime .EQ. baseTime .AND. nIter0 .EQ. 0 |
|
./pkg/thsice/thsice_ini_vars.F |
116 |
THSICE_INI_VARS |
& ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) |
|
./pkg/thsice/thsice_ini_vars.F |
119 |
THSICE_INI_VARS |
CALL THSICE_READ_PICKUP( nIter0, myThid ) |
|
./pkg/thsice/thsice_monitor.F |
72 |
THSICE_MONITOR |
& .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/thsice/thsice_output.F |
63 |
THSICE_OUTPUT |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/thsice/thsice_test_addfluid.h |
11 |
NO PROCEDURE |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/timeave/timeave_statv_write.F |
305 |
TIMEAVE_STATV_WRITE |
CALL TIMEAVE_STATVARS(myTime, nIter0, bi, bj, myThid) |
|
./model/src/ini_parms.F |
1001 |
INI_PARMS |
IF ( startTime .NE. baseTime+deltaTClock*DFLOAT(nIter0) ) THEN |
|
./model/src/ini_parms.F |
1010 |
INI_PARMS |
IF ( nEndIter .NE. nIter0+nTimeSteps ) THEN |
|
./model/src/ini_parms.F |
252 |
INI_PARMS |
& nIter0, nTimeSteps, nTimeSteps_l2, nEndIter, |
|
./model/src/ini_parms.F |
965 |
INI_PARMS |
IF ( startTime.EQ.UNSET_RL .AND. nIter0.EQ.-1 ) THEN |
|
./model/src/ini_parms.F |
968 |
INI_PARMS |
nIter0 = 0 |
|
./model/src/ini_parms.F |
971 |
INI_PARMS |
startTime = baseTime + deltaTClock*DFLOAT(nIter0) |
|
./model/src/ini_parms.F |
972 |
INI_PARMS |
ELSEIF ( nIter0.EQ.-1 ) THEN |
|
./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 |
983 |
INI_PARMS |
& nTimeSteps = nEndIter-nIter0 |
|
./model/src/ini_parms.F |
989 |
INI_PARMS |
& nEndIter = nIter0+nTimeSteps |
|
./pkg/timeave/timeave_statvars.F |
180 |
TIMEAVE_STATVARS |
IF ( myIter .NE. nIter0 ) THEN |
|
./pkg/timeave/timeave_statvars.F |
52 |
TIMEAVE_STATVARS |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/timeave/timeave_statvars.F |
96 |
TIMEAVE_STATVARS |
IF ( myIter .EQ. nIter0 ) THEN |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
345 |
AIM_SURF_BC |
IF (myIter.EQ.nIter0) 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 |
211 |
INITIALISE_VARIA |
I bi, bj, startTime, nIter0, 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 |
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 ) |
|
./model/src/integr_continuity.F |
136 |
INTEGR_CONTINUITY |
IF ( myIter.EQ.nIter0 .AND. myIter.NE.0 |
|
./model/src/integr_continuity.F |
158 |
INTEGR_CONTINUITY |
ELSEIF ( myIter.EQ.nIter0 ) THEN |
|
./model/src/integr_continuity.F |
202 |
INTEGR_CONTINUITY |
IF ( exactConserv .AND. myIter.NE.nIter0 ) THEN |
|
./model/src/integr_continuity.F |
301 |
INTEGR_CONTINUITY |
IF ( exactConserv .AND. myIter.NE.nIter0 |
|
./model/src/integr_continuity.F |
304 |
INTEGR_CONTINUITY |
IF ( implicitIntGravWave .OR. myIter.EQ.nIter0 ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
286 |
FIZHI_INIT_VARS |
call FIZHI_READ_PICKUP( nIter0, myThid ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
287 |
FIZHI_INIT_VARS |
CALL FIZHI_READ_VEGTILES( nIter0, 'D', 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/set_defaults.F |
302 |
SET_DEFAULTS |
nIter0 = -1 |
|
./model/src/solve_for_pressure.F |
106 |
SOLVE_FOR_PRESSURE |
IF ( myIter.EQ.1+nIter0 .AND. debugLevel .GE. debLevA ) THEN |
|
./model/src/taueddy_init_varia.F |
56 |
TAUEDDY_INIT_VARIA |
& eddyPsiX, nIter0, myThid ) |
|
./model/src/taueddy_init_varia.F |
60 |
TAUEDDY_INIT_VARIA |
& eddyPsiY, nIter0, myThid ) |
|
./model/src/the_main_loop.F |
267 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/the_main_loop.F |
353 |
THE_MAIN_LOOP |
CALL INIT_PDAF( nIter0, myTime, myIter, myThid ) |
|
./model/src/the_main_loop.F |
584 |
THE_MAIN_LOOP |
nIter0 = NINT( (startTime-baseTime)/deltaTClock ) |
|
./model/src/the_main_loop.F |
586 |
THE_MAIN_LOOP |
myIter = nIter0 + (iloop-1) |
|
./model/src/the_main_loop.F |
613 |
THE_MAIN_LOOP |
myIter = nIter0 + (iloop-1) |
|
./model/src/the_model_main.F |
630 |
THE_MODEL_MAIN |
myIter = nIter0 |
|
./model/src/the_model_main.F |
720 |
THE_MODEL_MAIN |
& .AND. myIter.EQ.nIter0 ) THEN |
|
./model/src/update_cg2d.F |
63 |
UPDATE_CG2D |
updatePreCond = ( myIter.EQ.nIter0 ) |
|
./model/src/write_state.F |
140 |
WRITE_STATE |
IF ( storePhiHyd4Phys .OR. myIter.NE.nIter0 ) THEN |
|
./model/src/write_state.F |
151 |
WRITE_STATE |
IF ( storePhiHyd4Phys .OR. myIter.NE.nIter0 ) THEN |
|
./model/src/write_state.F |
156 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter.NE.nIter0) ) THEN |
|
./model/src/write_state.F |
198 |
WRITE_STATE |
IF ( storePhiHyd4Phys .OR. myIter.NE.nIter0 ) THEN |
|
./model/src/write_state.F |
206 |
WRITE_STATE |
IF ( fluidIsWater .AND. (myIter .NE. nIter0) ) THEN |
|
./pkg/admtlm/admtlm_driver.F |
52 |
ADMTLM_DRIVER |
myCurrentIter = nIter0 |
|
./pkg/admtlm/admtlm_driver.F |
62 |
ADMTLM_DRIVER |
myCurrentIter = nIter0 |
|
./pkg/aim_v23/aim_do_co2.F |
102 |
AIM_DO_CO2 |
ELSEIF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
263 |
AIM_DYN2AIM |
IF (myIter.EQ.nIter0) |
|
./pkg/aim_v23/aim_fields_load.F |
187 |
AIM_FIELDS_LOAD |
IF (myIter.EQ.nIter0) THEN |
|
./pkg/aim_v23/aim_fields_load.F |
200 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_fields_load.F |
240 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_fields_load.F |
291 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_fields_load.F |
98 |
AIM_FIELDS_LOAD |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_initialise.F |
118 |
AIM_INITIALISE |
CALL READ_REC_XY_RS(aim_LandFile,aim_landFr,1,nIter0,myThid) |
|
./pkg/aim_v23/aim_sice2aim.F |
131 |
AIM_SICE2AIM |
& .AND. myIter.EQ.nIter0 ) |
|
./pkg/aim_v23/aim_sice2aim.F |
143 |
AIM_SICE2AIM |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_write_tave.F |
56 |
AIM_WRITE_TAVE |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/aim_v23/aim_write_tave.F |
87 |
AIM_WRITE_TAVE |
IF ( myIter.NE.nIter0 .AND. |
|
./pkg/atm2d/atm2d_read_pickup.F |
37 |
ATM2D_READ_PICKUP |
IF (startTime.NE.baseTime .OR. nIter0.NE.0) THEN |
|
./pkg/atm2d/atm2d_read_pickup.F |
41 |
ATM2D_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_atm2d.',nIter0 |
|
./pkg/atm2d/atm2d_read_pickup.F |
43 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_slp, 1, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
44 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_qnet, 2, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
45 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_solarnet, 3, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
46 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_fu, 4, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
47 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_fv, 5, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
48 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_precip, 6, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
49 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_evap, 7, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
50 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_runoff, 8, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
51 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_wspeed, 9, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
52 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_pCO2, 10, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
53 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_sIceLoad,11, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
55 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,sHeating, 12, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
56 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,flxCndBt, 13, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
57 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,pass_prcAtm, 14, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
58 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,snowPrc, 15, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
59 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,icFrwAtm, 16, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
60 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,icFlxSw, 17, nIter0, myThid) |
|
./pkg/atm2d/atm2d_read_pickup.F |
61 |
ATM2D_READ_PICKUP |
CALL READ_REC_3D_RL(fn,prec,1,siceAlb, 18, nIter0, myThid) |
|
./pkg/atm2d/forward_step_atm2d.F |
205 |
FORWARD_STEP_ATM2D |
& (startTime.NE.baseTime .OR. nIter0.NE.0)) ) THEN |
|
./pkg/atm2d/forward_step_atm2d.F |
247 |
FORWARD_STEP_ATM2D |
myIter = nIter0 + iloop_ocn |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
117 |
CPL_INI_VARS |
IF ( startTime .NE. baseTime .OR. nIter0 .NE. 0 ) THEN |
|
./pkg/atm_compon_interf/cpl_ini_vars.F |
118 |
CPL_INI_VARS |
CALL ATM_CPL_READ_PICKUP( nIter0, 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_init_varia.F |
77 |
ATM_PHYS_INIT_VARIA |
CALL ATM_PHYS_READ_PICKUP( nIter0, myThid ) |
|
./pkg/bbl/bbl_init_varia.F |
52 |
BBL_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/bbl/bbl_init_varia.F |
75 |
BBL_INIT_VARIA |
CALL BBL_READ_PICKUP( nIter0, myThid ) |
|
./pkg/bling/bling_carbonate_init.F |
149 |
BLING_CARBONATE_INIT |
IF ( nIter0.GT.PTRACERS_Iter0 .OR. |
|
./pkg/bling/bling_carbonate_init.F |
150 |
BLING_CARBONATE_INIT |
& (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ') |
|
./pkg/bling/bling_carbonate_init.F |
155 |
BLING_CARBONATE_INIT |
I nIter0, myThid ) |
|
./pkg/bling/bling_carbonate_init.F |
69 |
BLING_CARBONATE_INIT |
& ' BLING_SURFFORCING_INIT, it=', nIter0, |
|
./pkg/bling/bling_carbonate_init.F |
75 |
BLING_CARBONATE_INIT |
& nIter0,myThid ) |
|
./pkg/bling/bling_carbonate_init.F |
77 |
BLING_CARBONATE_INIT |
& nIter0,myThid ) |
|
./pkg/bling/bling_carbonate_init.F |
82 |
BLING_CARBONATE_INIT |
CALL OFFLINE_FIELDS_LOAD( startTime, nIter0, myThid ) |
|
./pkg/bling/bling_fields_load.F |
83 |
BLING_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/bling/bling_init_varia.F |
119 |
BLING_INIT_VARIA |
IF (nIter0.EQ.PTRACERS_Iter0) THEN |
|
./pkg/bulk_force/bulkf_fields_load.F |
129 |
BULKF_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/cal/cal_init_fixed.F |
39 |
CAL_INIT_FIXED |
I nIter0, nEndIter, nTimeSteps, |
|
./pkg/cd_code/cd_code_ini_vars.F |
55 |
CD_CODE_INI_VARS |
IF ( nIter0.NE.0 .OR. pickupSuff.NE.' ' ) THEN |
|
./pkg/cd_code/cd_code_ini_vars.F |
56 |
CD_CODE_INI_VARS |
CALL CD_CODE_READ_PICKUP( nIter0, myThid ) |
|
./pkg/cfc/cfc_fields_load.F |
100 |
CFC_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/cfc/cfc_fields_load.F |
62 |
CFC_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
127 |
CHEAPAML_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
174 |
CHEAPAML_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/cheapaml/cheapaml_fields_load.F |
446 |
CHEAPAML_FIELDS_LOAD |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
258 |
CHEAPAML_INIT_FIXED |
IF ( debugLevel.GE.debLevB .AND. nIter0.EQ.0 ) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
261 |
CHEAPAML_INIT_FIXED |
IF ( debugLevel.GE.debLevC .AND. nIter0.EQ.0 ) THEN |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
269 |
CHEAPAML_INIT_FIXED |
cheapTairStartAB = nIter0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
270 |
CHEAPAML_INIT_FIXED |
cheapQairStartAB = nIter0 |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
271 |
CHEAPAML_INIT_FIXED |
cheapTracStartAB = nIter0 |
|
./pkg/cheapaml/cheapaml_init_varia.F |
169 |
CHEAPAML_INIT_VARIA |
CALL CHEAPAML_READ_PICKUP( nIter0, myThid ) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
242 |
CHEAPAML_INIT_VARIA |
IF ( debugLevel.GE.debLevB .AND. nIter0.EQ.0 ) THEN |
|
./pkg/cheapaml/cheapaml_init_varia.F |
87 |
CHEAPAML_INIT_VARIA |
IF ( startTime.EQ.baseTime .AND. nIter0.EQ.0 |
|
./pkg/ctrl/ctrl_map_forcing.F |
109 |
CTRL_MAP_FORCING |
IF ( myIter .EQ. nIter0 ) THEN |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
295 |
DIAGNOSTICS_CALC_PHIVEL |
& 'diags_CScorners', '.', nIter0, '.txt' |
|
./pkg/diagnostics/diagnostics_init_varia.F |
74 |
DIAGNOSTICS_INIT_VARIA |
CALL DIAGNOSTICS_SUMMARY( startTime, nIter0, myThid ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
139 |
DIAGNOSTICS_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_qdiag.', nIter0 |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
141 |
DIAGNOSTICS_READ_PICKUP |
& numDiags, qdiag, nIter0, myThid ) |
|
./pkg/diagnostics/diagnostics_read_pickup.F |
148 |
DIAGNOSTICS_READ_PICKUP |
WRITE(fn,'(A,I10.10)') 'pickup_ndiag.', nIter0 |
|
./pkg/diagnostics/diagnostics_summary.F |
51 |
DIAGNOSTICS_SUMMARY |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/diagnostics/diagnostics_switch_onoff.F |
69 |
DIAGNOSTICS_SWITCH_ONOFF |
IF ( myIter.EQ.nIter0 ) THEN |
|
./pkg/diagnostics/diagnostics_write.F |
51 |
DIAGNOSTICS_WRITE |
IF ( myIter.NE.nIter0 ) THEN |
|
./pkg/diagnostics/diagstats_close_io.F |
56 |
DIAGSTATS_CLOSE_IO |
WRITE(suff,'(I10.10)') nIter0 |
|
./pkg/diagnostics/diagstats_close_io.F |
58 |
DIAGSTATS_CLOSE_IO |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/diagnostics/diagstats_ini_io.F |
55 |
DIAGSTATS_INI_IO |
WRITE(suff,'(I10.10)') nIter0 |
|
./pkg/diagnostics/diagstats_ini_io.F |
57 |
DIAGSTATS_INI_IO |
CALL RW_GET_SUFFIX( suff, startTime, nIter0, myThid ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
99 |
DIAGSTATS_SET_REGIONS |
& nIter0, myThid ) |
|
./pkg/dic/dic_biotic_forcing.F |
240 |
DIC_BIOTIC_FORCING |
IF(myIter .lt. (nIter0+5) .or. |
|
./pkg/dic/dic_fields_load.F |
70 |
DIC_FIELDS_LOAD |
IF ( intime0.NE.intimeP .OR. myIter.EQ.nIter0 ) THEN |
|
./pkg/dic/dic_ini_atmos.F |
132 |
DIC_INI_ATMOS |
IF ( nIter0.GT.PTRACERS_Iter0 .OR. |
|
./pkg/dic/dic_ini_atmos.F |
133 |
DIC_INI_ATMOS |
& (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ') |
|
./pkg/dic/dic_ini_atmos.F |
135 |
DIC_INI_ATMOS |
CALL DIC_READ_CO2_PICKUP( nIter0, myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
156 |
DIC_SURFFORCING_INIT |
IF ( nIter0.GT.PTRACERS_Iter0 .OR. |
|
./pkg/dic/dic_surfforcing_init.F |
157 |
DIC_SURFFORCING_INIT |
& (nIter0.EQ.PTRACERS_Iter0 .AND. pickupSuff.NE.' ') |
|
./pkg/dic/dic_surfforcing_init.F |
162 |
DIC_SURFFORCING_INIT |
I nIter0, myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
59 |
DIC_SURFFORCING_INIT |
CALL DIC_INI_ATMOS( startTime, nIter0, myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
77 |
DIC_SURFFORCING_INIT |
& ' DIC_SURFFORCING_INIT, it=', nIter0, |
|
./pkg/dic/dic_surfforcing_init.F |
83 |
DIC_SURFFORCING_INIT |
& nIter0,myThid ) |
|
./pkg/dic/dic_surfforcing_init.F |
85 |
DIC_SURFFORCING_INIT |
& nIter0,myThid ) |