| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_init_fixed.F |
123 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START uwind',myThid) |
|
./pkg/exf/exf_init_fixed.F |
132 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START vwind',myThid) |
|
./pkg/exf/exf_init_fixed.F |
143 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START wspeed',myThid) |
|
./pkg/exf/exf_init_fixed.F |
154 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START ustress',myThid) |
|
./pkg/exf/exf_init_fixed.F |
163 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START vstress',myThid) |
|
./pkg/exf/exf_init_fixed.F |
175 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START atemp',myThid) |
|
./pkg/exf/exf_init_fixed.F |
184 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START aqh',myThid) |
|
./pkg/exf/exf_init_fixed.F |
193 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START lwflux',myThid) |
|
./pkg/exf/exf_init_fixed.F |
202 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START precip',myThid) |
|
./pkg/exf/exf_init_fixed.F |
212 |
EXF_INIT_FIXED |
& CALL DEBUG_CALL('GETFIELD_START snowprecip',myThid) |
|
./pkg/exf/exf_init_fixed.F |
222 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START hflux',myThid) |
|
./pkg/exf/exf_init_fixed.F |
231 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START sflux',myThid) |
|
./pkg/exf/exf_init_fixed.F |
243 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START swflux',myThid) |
|
./pkg/exf/exf_init_fixed.F |
255 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START evap',myThid) |
|
./pkg/exf/exf_init_fixed.F |
267 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START runoff',myThid) |
|
./pkg/exf/exf_init_fixed.F |
279 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START sgrunoff',myThid) |
|
./pkg/exf/exf_init_fixed.F |
291 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START swdown',myThid) |
|
./pkg/exf/exf_init_fixed.F |
300 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START lwdown',myThid) |
|
./pkg/exf/exf_init_fixed.F |
313 |
EXF_INIT_FIXED |
& CALL DEBUG_CALL('GETFIELD_START apressure',myThid) |
|
./pkg/exf/exf_init_fixed.F |
325 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START areamask',myThid) |
|
./pkg/exf/exf_init_fixed.F |
337 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START obcsN',myThid) |
|
./pkg/exf/exf_init_fixed.F |
346 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START obcsS',myThid) |
|
./pkg/exf/exf_init_fixed.F |
355 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START obcsE',myThid) |
|
./pkg/exf/exf_init_fixed.F |
364 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START obcsW',myThid) |
|
./pkg/exf/exf_init_fixed.F |
374 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START siobN',myThid) |
|
./pkg/exf/exf_init_fixed.F |
383 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START siobS',myThid) |
|
./pkg/exf/exf_init_fixed.F |
392 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START siobE',myThid) |
|
./pkg/exf/exf_init_fixed.F |
401 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START siobW',myThid) |
|
./pkg/exf/exf_init_fixed.F |
414 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START climsst',myThid) |
|
./pkg/exf/exf_init_fixed.F |
426 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START climsss',myThid) |
|
./pkg/exf/exf_init_fixed.F |
438 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START climustr',myThid) |
|
./pkg/exf/exf_init_fixed.F |
448 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GETFIELD_START climvstr',myThid) |
|
./pkg/exf/exf_init_fixed.F |
530 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('EXF_ZENITHANGLE_TABLE',myThid) |
|
./pkg/exf/exf_init_fixed.F |
538 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('EXF_SUMMARY',myThid) |
|
./pkg/exf/exf_init_fixed.F |
545 |
EXF_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('EXF_DIAGNOSTICS_INIT',myThid) |
|
./pkg/flt/flt_main.F |
108 |
FLT_MAIN |
IF (debugMode) CALL DEBUG_CALL('FLT_RUNGA*', myThid ) |
|
./pkg/flt/flt_main.F |
127 |
FLT_MAIN |
IF (debugMode) CALL DEBUG_CALL('FLT_EXCH*', myThid ) |
|
./pkg/flt/flt_main.F |
142 |
FLT_MAIN |
IF (debugMode) CALL DEBUG_CALL('FLT_UP', myThid ) |
|
./pkg/flt/flt_main.F |
150 |
FLT_MAIN |
IF (debugMode) CALL DEBUG_CALL('FLT_DOWN', myThid ) |
|
./pkg/flt/flt_main.F |
163 |
FLT_MAIN |
IF (debugMode) CALL DEBUG_CALL('FLT_TRAJ', myThid ) |
|
./pkg/gmredi/gmredi_do_exch.F |
56 |
GMREDI_DO_EXCH |
IF (debugMode) CALL DEBUG_CALL('EXCH_UV(GM_PsiX,Y)',myThid) |
|
./pkg/longstep/longstep_thermodynamics.F |
228 |
LONGSTEP_THERMODYNAMICS |
IF (debugMode) CALL DEBUG_CALL('PTRACERS_INTEGRATE',myThid) |
|
./pkg/obcs/obcs_calc.F |
406 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_CALL('OBCS_PRESCRIBE_READ',myThid) |
|
./pkg/obcs/obcs_calc.F |
421 |
OBCS_CALC |
IF (debugMode) CALL DEBUG_CALL('OBCS_CALC_STEVENS',myThid) |
|
./pkg/obcs/obcs_init_variables.F |
350 |
OBCS_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('ORLANSKI_INIT',myThid) |
|
./pkg/obcs/obcs_init_variables.F |
424 |
OBCS_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('OBCS_CALC',myThid) |
|
./pkg/obcs/obcs_init_variables.F |
433 |
OBCS_INIT_VARIABLES |
& CALL DEBUG_CALL('OBCS_APPLY_UV + OBCS_APPLY_TS',myThid) |
|
./pkg/obcs/obcs_init_variables.F |
447 |
OBCS_INIT_VARIABLES |
& CALL DEBUG_CALL('EXCHANGES in OBCS_INIT_VARIABLES',myThid) |
|
./pkg/obcs/obcs_init_variables.F |
476 |
OBCS_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('OBCS_APPLY_PTRACER',myThid) |
|
./pkg/obcs/obcs_init_variables.F |
495 |
OBCS_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL( |
|
./pkg/openad/the_model_main.F |
356 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid) |
|
./pkg/openad/the_model_main.F |
394 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('G_THE_MAIN_LOOP',myThid) |
|
./pkg/openad/the_model_main.F |
408 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('MDTHE_MAIN_LOOP',myThid) |
|
./pkg/openad/the_model_main.F |
416 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('ADTHE_MAIN_LOOP',myThid) |
|
./pkg/openad/the_model_main.F |
427 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('ADTHE_MAIN_LOOP',myThid) |
|
./pkg/openad/the_model_main.F |
435 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
|
./pkg/openad/the_model_main.F |
582 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
|
./pkg/openad/the_model_main.F |
621 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
|
./model/src/do_atmospheric_phys.F |
130 |
DO_ATMOSPHERIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('AIM_DO_PHYSICS',myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
224 |
PTRACERS_INTEGRATE |
IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid) |
|
./pkg/ptracers/ptracers_integrate.F |
241 |
PTRACERS_INTEGRATE |
IF (debugMode) CALL DEBUG_CALL('GAD_ADVECTION',myThid) |
|
./model/src/do_oceanic_phys.F |
186 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('OBCS_CALC',myThid) |
|
./model/src/do_oceanic_phys.F |
264 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('THSICE_MAIN',myThid) |
|
./model/src/do_oceanic_phys.F |
378 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('SEAICE_MODEL',myThid) |
|
./model/src/do_oceanic_phys.F |
417 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('THSICE_MAIN',myThid) |
|
./model/src/do_oceanic_phys.F |
435 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('SHELFICE_THERMODYNAMICS',myThid) |
|
./model/src/do_oceanic_phys.F |
450 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('ICEFRONT_THERMODYNAMICS',myThid) |
|
./model/src/do_oceanic_phys.F |
494 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FORCING_SURF',myThid) |
|
./model/src/do_oceanic_phys.F |
659 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('FIND_RHO_2D (xNr)',myThid) |
|
./model/src/do_oceanic_phys.F |
766 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('GRAD_SIGMA',myThid) |
|
./model/src/do_oceanic_phys.F |
802 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('CALC_IVDC',myThid) |
|
./model/src/do_oceanic_phys.F |
893 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('KPP_CALC',myThid) |
|
./model/src/do_oceanic_phys.F |
911 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('PP81_CALC',myThid) |
|
./model/src/do_oceanic_phys.F |
922 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('KL10_CALC',myThid) |
|
./model/src/do_oceanic_phys.F |
933 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('MY82_CALC',myThid) |
|
./model/src/do_oceanic_phys.F |
948 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('GGL90_CALC',myThid) |
|
./model/src/do_oceanic_phys.F |
986 |
DO_OCEANIC_PHYS |
IF (debugMode) CALL DEBUG_CALL('GMREDI_CALC_TENSOR',myThid) |
|
./model/src/dynamics.F |
648 |
DYNAMICS |
IF (debugMode) CALL DEBUG_CALL('CALC_GW', myThid ) |
|
./model/src/forward_step.F |
364 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('LOAD_FIELDS_DRIVER',myThid) |
|
./model/src/forward_step.F |
381 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('BULKF_FORCING',myThid) |
|
./model/src/forward_step.F |
394 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('CHEAPAML',myThid) |
|
./model/src/forward_step.F |
437 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('EBM',myThid) |
|
./model/src/forward_step.F |
448 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('DO_ATMOSPHERIC_PHYS',myThid) |
|
./model/src/forward_step.F |
483 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('DO_OCEANIC_PHYS',myThid) |
|
./model/src/forward_step.F |
529 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('GCHEM_CALC_TENDENCY',myThid) |
|
./model/src/forward_step.F |
601 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('LONGSTEP_AVERAGE',myThid) |
|
./model/src/forward_step.F |
609 |
FORWARD_STEP |
& CALL DEBUG_CALL('LONGSTEP_THERMODYNAMICS',myThid) |
|
./model/src/forward_step.F |
624 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid) |
|
./model/src/forward_step.F |
638 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('LONGSTEP_AVERAGE',myThid) |
|
./model/src/forward_step.F |
646 |
FORWARD_STEP |
& CALL DEBUG_CALL('LONGSTEP_THERMODYNAMICS',myThid) |
|
./model/src/forward_step.F |
680 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('DYNAMICS',myThid) |
|
./model/src/forward_step.F |
867 |
FORWARD_STEP |
& CALL DEBUG_CALL('DO_STAGGER_FIELDS_EXCH.',myThid) |
|
./model/src/forward_step.F |
886 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('THERMODYNAMICS',myThid) |
|
./model/src/forward_step.F |
914 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('LONGSTEP_AVERAGE',myThid) |
|
./model/src/forward_step.F |
924 |
FORWARD_STEP |
& CALL DEBUG_CALL('LONGSTEP_THERMODYNAMICS',myThid) |
|
./model/src/forward_step.F |
957 |
FORWARD_STEP |
IF (debugMode) CALL DEBUG_CALL('GCHEM_FORCING_SEP',myThid) |
|
./pkg/seaice/seaice_model.F |
137 |
SEAICE_MODEL |
IF (debugMode) CALL DEBUG_CALL( 'SEAICE_DYNSOLVER', myThid ) |
|
./pkg/seaice/seaice_model.F |
160 |
SEAICE_MODEL |
IF (debugMode) CALL DEBUG_CALL( 'THSICE_DO_ADVECT', myThid ) |
|
./pkg/seaice/seaice_model.F |
175 |
SEAICE_MODEL |
IF (debugMode) CALL DEBUG_CALL( 'SEAICE_ADVDIFF', myThid ) |
|
./pkg/seaice/seaice_model.F |
195 |
SEAICE_MODEL |
IF (debugMode) CALL DEBUG_CALL( 'SEAICE_GROWTH', myThid ) |
|
./model/src/initialise_fixed.F |
110 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_PARMS',myThid) |
|
./model/src/initialise_fixed.F |
116 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('PACKAGES_BOOT',myThid) |
|
./model/src/initialise_fixed.F |
122 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('PACKAGES_READPARMS',myThid) |
|
./model/src/initialise_fixed.F |
129 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('SET_PARMS',myThid) |
|
./model/src/initialise_fixed.F |
135 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_MODEL_IO',myThid) |
|
./model/src/initialise_fixed.F |
142 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_GRID',myThid) |
|
./model/src/initialise_fixed.F |
152 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('LOAD_REF_FILES',myThid) |
|
./model/src/initialise_fixed.F |
158 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_EOS',myThid) |
|
./model/src/initialise_fixed.F |
164 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('SET_REF_STATE',myThid) |
|
./model/src/initialise_fixed.F |
170 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('SET_GRID_FACTORS',myThid) |
|
./model/src/initialise_fixed.F |
176 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_DEPTHS',myThid) |
|
./model/src/initialise_fixed.F |
187 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_MASKS_ETC',myThid) |
|
./model/src/initialise_fixed.F |
200 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('PACKAGES_INIT_FIXED',myThid) |
|
./model/src/initialise_fixed.F |
206 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_GLOBAL_DOMAIN',myThid) |
|
./model/src/initialise_fixed.F |
212 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_LINEAR_PHISURF',myThid) |
|
./model/src/initialise_fixed.F |
222 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_CORI',myThid) |
|
./model/src/initialise_fixed.F |
232 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_CG2D',myThid) |
|
./model/src/initialise_fixed.F |
243 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('INI_CG3D',myThid) |
|
./model/src/initialise_fixed.F |
250 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('CONFIG_SUMMARY',myThid) |
|
./model/src/initialise_fixed.F |
256 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('PACKAGES_CHECK',myThid) |
|
./model/src/initialise_fixed.F |
262 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('CONFIG_CHECK',myThid) |
|
./model/src/initialise_fixed.F |
269 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('WRITE_GRID',myThid) |
|
./model/src/initialise_fixed.F |
279 |
INITIALISE_FIXED |
IF (debugMode) CALL DEBUG_CALL('CPL_EXCH_CONFIGS',myThid) |
|
./model/src/initialise_varia.F |
119 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_DYNVARS',myThid) |
|
./model/src/initialise_varia.F |
133 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_FIELDS',myThid) |
|
./model/src/initialise_varia.F |
139 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_MIXING',myThid) |
|
./model/src/initialise_varia.F |
150 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INI_FORCING',myThid) |
|
./model/src/initialise_varia.F |
161 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('PACKAGES_INIT_VARIABLES',myThid) |
|
./model/src/initialise_varia.F |
184 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('CONVECTIVE_ADJUSTMENT_INI',myThid) |
|
./model/src/initialise_varia.F |
225 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('INTEGR_CONTINUITY',myThid) |
|
./model/src/initialise_varia.F |
268 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('STATE_SUMMARY',myThid) |
|
./model/src/initialise_varia.F |
274 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('MONITOR',myThid) |
|
./model/src/initialise_varia.F |
282 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('DO_STATEVARS_TAVE',myThid) |
|
./model/src/initialise_varia.F |
290 |
INITIALISE_VARIA |
IF (debugMode) CALL DEBUG_CALL('DO_THE_MODEL_IO',myThid) |
|
./model/src/integr_continuity.F |
313 |
INTEGR_CONTINUITY |
IF (debugMode) CALL DEBUG_CALL('UPDATE_ETAH',myThid) |
|
./model/src/load_fields_driver.F |
127 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('BULKF_FIELDS_LOAD',myThid) |
|
./model/src/load_fields_driver.F |
139 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('EXF_GETFORCING',myThid) |
|
./model/src/load_fields_driver.F |
156 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('CHEAPAML_FIELDS_LOAD',myThid) |
|
./model/src/load_fields_driver.F |
164 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('EXTERNAL_FIELDS_LOAD',myThid) |
|
./model/src/load_fields_driver.F |
181 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('OFFLINE_FIELDS_LOAD',myThid) |
|
./model/src/load_fields_driver.F |
192 |
LOAD_FIELDS_DRIVER |
IF (debugMode) CALL DEBUG_CALL('GCHEM_FIELDS_LOAD',myThid) |
|
./model/src/main_do_loop.F |
218 |
MAIN_DO_LOOP |
IF (debugMode) CALL DEBUG_CALL('FORWARD_STEP',myThid) |
|
./model/src/packages_init_fixed.F |
146 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('RUNCLOCK_INIT',myThid) |
|
./model/src/packages_init_fixed.F |
156 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('CAL_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
166 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_EARLY',myThid) |
|
./model/src/packages_init_fixed.F |
170 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_MAIN_INIT',myThid) |
|
./model/src/packages_init_fixed.F |
179 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GAD_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
188 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('MOM_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
197 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('CD_CODE_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
207 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
217 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('SHAP_FILT_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
227 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('ZONAL_FILT_INIT',myThid) |
|
./model/src/packages_init_fixed.F |
237 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('EXF_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
246 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('CHEAPAML_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
255 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('OPPS_INIT',myThid) |
|
./model/src/packages_init_fixed.F |
265 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('PP81_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
275 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('KL10_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
285 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('MY82_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
295 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
305 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('KPP_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
315 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
325 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('BBL_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
335 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('DWNSLP_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
347 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('SEAICE_COST_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
355 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('SMOOTH_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
365 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('ECCO_COST_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
373 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('PROFILES_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
382 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('CTRL_INIT',myThid) |
|
./model/src/packages_init_fixed.F |
390 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('CTRL_ADMTLM',myThid) |
|
./model/src/packages_init_fixed.F |
399 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('FLT_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
408 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
417 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
426 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GCHEM_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
435 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('RBCS_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
444 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
453 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
462 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('SALT_PLUME_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
471 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
480 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
489 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
498 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('THSICE_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
508 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('LAND_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
517 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
527 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('AIM_INITIALISE',myThid) |
|
./model/src/packages_init_fixed.F |
537 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('ATM_PHYS_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
547 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
557 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('GRIDALT_INITIALISE',myThid) |
|
./model/src/packages_init_fixed.F |
567 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('TIMEAVE_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
576 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('REGRID_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
585 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('LAYERS_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
594 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('CPL_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
604 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('OASIS_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
613 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('EMBED_FILES_INIT',myThid) |
|
./model/src/packages_init_fixed.F |
622 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('MYPACKAGE_INIT_FIXED',myThid) |
|
./model/src/packages_init_fixed.F |
632 |
PACKAGES_INIT_FIXED |
IF (debugMode) CALL DEBUG_CALL('DIAGNOSTICS_INIT_FIXED',myThid) |
|
./model/src/packages_init_variables.F |
160 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('GAD_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
172 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('CD_CODE_INI_VARS',myThid) |
|
./model/src/packages_init_variables.F |
182 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('PP81_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
192 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('KL10_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
209 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('GGL90_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
219 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('KPP_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
229 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('GMREDI_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
250 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('EXF_INIT',myThid) |
|
./model/src/packages_init_variables.F |
300 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('PTRACERS_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
305 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('LONGSTEP_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
329 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('MATRIX_INIT',myThid) |
|
./model/src/packages_init_variables.F |
338 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('FRAZIL_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
348 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('SEAICE_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
363 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('SHELFICE_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
372 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('STREAMICE_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
381 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('ICEFRONT_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
390 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('THSICE_INI_VARS',myThid) |
|
./model/src/packages_init_variables.F |
399 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('LAND_INI_VARS',myThid) |
|
./model/src/packages_init_variables.F |
408 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('ATM2D_INIT_VARS',myThid) |
|
./model/src/packages_init_variables.F |
417 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('ATM_PHYS_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
427 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('FIZHI_INIT_VARS',myThid) |
|
./model/src/packages_init_variables.F |
450 |
PACKAGES_INIT_VARIABLES |
& CALL DEBUG_CALL('NEST_CHILD_INIT_VARIA',myThid) |
|
./model/src/packages_init_variables.F |
461 |
PACKAGES_INIT_VARIABLES |
& CALL DEBUG_CALL('NEST_PARENT_INIT',myThid) |
|
./model/src/packages_init_variables.F |
470 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('CPL_INI_VARS',myThid) |
|
./model/src/packages_init_variables.F |
492 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('CTRL_INIT_VARIABLES',myThid) |
|
./model/src/packages_init_variables.F |
497 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI_ECCO',myThid) |
|
./model/src/packages_init_variables.F |
500 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('CTRL_MAP_INI',myThid) |
|
./model/src/packages_init_variables.F |
509 |
PACKAGES_INIT_VARIABLES |
IF (debugMode) CALL DEBUG_CALL('OBCS_INIT_VARIABLES',myThid) |
|
./model/src/salt_integrate.F |
253 |
SALT_INTEGRATE |
IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid) |
|
./model/src/salt_integrate.F |
267 |
SALT_INTEGRATE |
IF (debugMode) CALL DEBUG_CALL('GAD_ADVECTION',myThid) |
|
./model/src/temp_integrate.F |
261 |
TEMP_INTEGRATE |
IF (debugMode) CALL DEBUG_CALL('GAD_SOM_ADVECT',myThid) |
|
./model/src/temp_integrate.F |
275 |
TEMP_INTEGRATE |
IF (debugMode) CALL DEBUG_CALL('GAD_ADVECTION',myThid) |
|
./model/src/the_main_loop.F |
306 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_VARIA',myThid) |
|
./model/src/the_main_loop.F |
564 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('cost_averagesfields',myThid) |
|
./model/src/the_main_loop.F |
575 |
THE_MAIN_LOOP |
IF (debugMode) CALL DEBUG_CALL('profiles_inloop',myThid) |
|
./model/src/the_model_main.F |
321 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('INITIALISE_FIXED',myThid) |
|
./model/src/the_model_main.F |
356 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('G_THE_MAIN_LOOP',myThid) |
|
./model/src/the_model_main.F |
370 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('MDTHE_MAIN_LOOP',myThid) |
|
./model/src/the_model_main.F |
378 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('ADTHE_MAIN_LOOP',myThid) |
|
./model/src/the_model_main.F |
388 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('ADTHE_MAIN_LOOP',myThid) |
|
./model/src/the_model_main.F |
398 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
|
./model/src/the_model_main.F |
432 |
THE_MODEL_MAIN |
IF (debugMode) CALL DEBUG_CALL('THE_MAIN_LOOP',myThid) |
|
./model/src/thermodynamics.F |
276 |
THERMODYNAMICS |
IF (debugMode) CALL DEBUG_CALL('TEMP_INTEGRATE',myThid) |
|
./model/src/thermodynamics.F |
287 |
THERMODYNAMICS |
IF (debugMode) CALL DEBUG_CALL('SALT_INTEGRATE',myThid) |
|
./model/src/thermodynamics.F |
303 |
THERMODYNAMICS |
IF (debugMode) CALL DEBUG_CALL('PTRACERS_INTEGRATE',myThid) |
|
./pkg/debug/debug_call.F |
6 |
DEBUG_CALL |
SUBROUTINE DEBUG_CALL( |
|
./pkg/ecco/cost_averagesfields.F |
156 |
COST_AVERAGESFIELDS |
IF ( debugMode ) CALL DEBUG_CALL('cost_averagesflags',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
184 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric psbar',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
239 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric sigmaRbar',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
256 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric tbar',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
278 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric sstbar',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
295 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric sbar',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
492 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric hfluxmeanbar',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
506 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric sfluxmeanbar',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
516 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric sfluxmeanbar',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
540 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric smrareabar',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
550 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric smrsstbar',myThid) |
|
./pkg/ecco/cost_averagesfields.F |
561 |
COST_AVERAGESFIELDS |
& CALL DEBUG_CALL('cost_averagesgeneric smrsssbar',myThid) |
|
./pkg/ecco/ecco_cost_driver.F |
106 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_hyd',myThid) |
|
./pkg/ecco/ecco_cost_driver.F |
114 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('seaice_cost_driver',myThid) |
|
./pkg/ecco/ecco_cost_driver.F |
125 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_obcs',myThid) |
|
./pkg/ecco/ecco_cost_driver.F |
134 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_curmtr',myThid) |
|
./pkg/ecco/ecco_cost_driver.F |
145 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_drifter',myThid) |
|
./pkg/ecco/ecco_cost_driver.F |
157 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_scat',myThid) |
|
./pkg/ecco/ecco_cost_driver.F |
170 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_drift',myThid) |
|
./pkg/ecco/ecco_cost_driver.F |
178 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_driftw',myThid) |
|
./pkg/ecco/ecco_cost_driver.F |
45 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_forcing',myThid) |
|
./pkg/ecco/ecco_cost_driver.F |
72 |
ECCO_COST_DRIVER |
IF (debugMode) CALL DEBUG_CALL('cost_ssh',myThid) |