| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_check.F |
360 |
EXF_CHECK |
IF ( useSEAICE .OR. useThSIce ) THEN |
|
./pkg/exf/exf_getforcing.F |
303 |
EXF_GETFORCING |
IF ( .NOT. useSEAICE ) |
|
./pkg/exf/exf_init_fixed.F |
435 |
EXF_INIT_FIXED |
IF ( useOBCS .AND. useSEAICE ) THEN |
|
./pkg/exf/exf_init_fixed.F |
86 |
EXF_INIT_FIXED |
IF ( useSEAICE ) THEN |
|
./model/inc/PARAMS.h |
1040 |
NO PROCEDURE |
LOGICAL useSEAICE |
|
./model/inc/PARAMS.h |
1067 |
NO PROCEDURE |
& useFRAZIL, useSEAICE, useSALT_PLUME, useShelfIce, |
|
./model/src/config_check.F |
990 |
CONFIG_CHECK |
IF ( (useSEAICE .OR. useThSIce) .AND. allowFreezing ) THEN |
|
./pkg/obcs/obcs_check.F |
256 |
OBCS_CHECK |
IF (useSEAICE) THEN |
|
./pkg/obcs/obcs_check.F |
297 |
OBCS_CHECK |
IF (useSEAICE) THEN |
|
./pkg/obcs/obcs_check.F |
412 |
OBCS_CHECK |
IF (useSEAICE .AND. .NOT. useEXF) THEN |
|
./pkg/obcs/obcs_check.F |
423 |
OBCS_CHECK |
IF ( useSEAICE ) THEN |
|
./pkg/obcs/obcs_exf_load.F |
366 |
OBCS_EXF_READ_XZ |
IF (useSEAICE) THEN |
|
./pkg/obcs/obcs_exf_load.F |
641 |
OBCS_EXF_READ_YZ |
IF (useSEAICE) THEN |
|
./model/src/do_oceanic_phys.F |
381 |
DO_OCEANIC_PHYS |
IF ( .NOT.useSEAICE .AND. SEAICEadjMODE .EQ. -1 ) THEN |
|
./model/src/do_oceanic_phys.F |
397 |
DO_OCEANIC_PHYS |
IF ( useSEAICE ) THEN |
|
./model/src/do_statevars_diags.F |
98 |
DO_STATEVARS_DIAGS |
IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN |
|
./model/src/do_the_model_io.F |
209 |
DO_THE_MODEL_IO |
IF ( useSEAICE ) THEN |
|
./model/src/forcing_surf_relax.F |
78 |
FORCING_SURF_RELAX |
IF ( useSEAICE .AND. (.NOT. SEAICErestoreUnderIce) ) THEN |
|
./pkg/sbo/sbo_calc.F |
191 |
SBO_CALC |
IF ( useSEAICE ) THEN |
|
./pkg/seaice/seaice_cost_driver.F |
74 |
SEAICE_COST_DRIVER |
if (useSEAICE) then |
|
./pkg/seaice/seaice_readparms.F |
203 |
SEAICE_READPARMS |
IF ( .NOT.useSEAICE ) THEN |
|
./pkg/thsice/thsice_do_exch.F |
36 |
THSICE_DO_EXCH |
IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN |
|
./pkg/thsice/thsice_get_ocean.F |
105 |
THSICE_GET_OCEAN |
IF ( .NOT.useSEAICE ) THEN |
|
./pkg/thsice/thsice_get_velocity.F |
65 |
THSICE_GET_VELOCITY |
IF ( useSEAICE ) THEN |
|
./pkg/thsice/thsice_ini_vars.F |
174 |
THSICE_INI_VARS |
IF ( useSEAICE ) THEN |
|
./pkg/thsice/thsice_main.F |
259 |
THSICE_MAIN |
IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 |
|
./pkg/thsice/thsice_main.F |
267 |
THSICE_MAIN |
IF ( thSIceAdvScheme.GT.0 .AND. .NOT.useSEAICE ) THEN |
|
./pkg/thsice/thsice_readparms.F |
165 |
THSICE_READPARMS |
IF ( useSEAICE ) stressReduction = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
258 |
THSICE_READPARMS |
IF ( useSEAICE .AND. stressReduction.NE.0. _d 0 ) THEN |
|
./model/src/packages_boot.F |
145 |
PACKAGES_BOOT |
useSEAICE =.FALSE. |
|
./model/src/packages_boot.F |
354 |
PACKAGES_BOOT |
CALL PACKAGES_PRINT_MSG( useSEAICE, 'SEAICE', ' ' ) |
|
./model/src/packages_boot.F |
81 |
PACKAGES_BOOT |
& useSEAICE, |
|
./model/src/packages_check.F |
329 |
PACKAGES_CHECK |
IF (useSEAICE) CALL SEAICE_CHECK( myThid ) |
|
./model/src/packages_check.F |
331 |
PACKAGES_CHECK |
IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid) |
|
./model/src/packages_init_fixed.F |
345 |
PACKAGES_INIT_FIXED |
IF (useSEAICE) THEN |
|
./model/src/packages_init_fixed.F |
440 |
PACKAGES_INIT_FIXED |
IF (useSEAICE) THEN |
|
./model/src/packages_init_variables.F |
332 |
PACKAGES_INIT_VARIABLES |
IF (useSEAICE) THEN |
|
./model/src/packages_write_pickup.F |
162 |
PACKAGES_WRITE_PICKUP |
IF ( useSEAICE ) THEN |
|
./model/src/turnoff_model_io.F |
102 |
TURNOFF_MODEL_IO |
IF ( useSEAICE ) THEN |
|
./model/src/write_grid.F |
228 |
WRITE_GRID |
IF (useSEAICE) CALL MNC_CW_WRITE_GRID_COORD('adseaice',myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
211 |
ADDUMMY_IN_STEPPING |
IF ( .NOT. useSEAICE .AND. .NOT. useEXF ) THEN |
|
./pkg/autodiff/addummy_in_stepping.F |
271 |
ADDUMMY_IN_STEPPING |
IF ( .NOT. useSEAICE .AND. .NOT. useEXF ) THEN |
|
./pkg/autodiff/addummy_in_stepping.F |
356 |
ADDUMMY_IN_STEPPING |
IF ( .NOT. useSEAICE .AND. .NOT. useEXF ) THEN |
|
./pkg/autodiff/addummy_in_stepping.F |
474 |
ADDUMMY_IN_STEPPING |
IF ( .NOT. useSEAICE .AND. .NOT. useEXF ) THEN |
|
./pkg/autodiff/addummy_in_stepping.F |
554 |
ADDUMMY_IN_STEPPING |
IF ( .NOT. useSEAICE .AND. .NOT. useEXF ) THEN |
|
./pkg/autodiff/addummy_in_stepping.F |
654 |
ADDUMMY_IN_STEPPING |
IF ( .NOT. useSEAICE .AND. .NOT. useEXF ) THEN |
|
./pkg/autodiff/addummy_in_stepping.F |
864 |
ADDUMMY_IN_STEPPING |
IF ( useSEAICE ) |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
37 |
ADAUTODIFF_INADMODE_SET |
useSEAICE = useSEAICEinAdMode |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
66 |
ADAUTODIFF_INADMODE_SET |
& 'S/R ADAUTODIFF_INADMODE_SET: useSEAICE =', useSEAICE |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
37 |
ADAUTODIFF_INADMODE_UNSET |
useSEAICE = useSEAICEinFwdMode |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
65 |
ADAUTODIFF_INADMODE_UNSET |
& 'S/R ADAUTODIFF_INADMODE_UNSET: useSEAICE =', useSEAICE |
|
./pkg/autodiff/autodiff_readparms.F |
115 |
AUTODIFF_READPARMS |
useSEAICEinFwdMode = useSEAICE |
|
./pkg/autodiff/autodiff_readparms.F |
122 |
AUTODIFF_READPARMS |
useSEAICEinAdMode = useSEAICEinAdMode .AND. useSEAICE |
|
./pkg/autodiff/autodiff_readparms.F |
180 |
AUTODIFF_READPARMS |
IF ( SEAICEuseFREEDRIFTswitchInAd .AND. .NOT.useSEAICE ) THEN |
|
./pkg/autodiff/autodiff_readparms.F |
186 |
AUTODIFF_READPARMS |
IF ( SEAICEuseDYNAMICSswitchInAd .AND. .NOT.useSEAICE ) THEN |
|
./pkg/bling/bling_fields_load.F |
211 |
BLING_FIELDS_LOAD |
IF ( useSEAICE ) THEN |
|
./pkg/bling/bling_init_fixed.F |
66 |
BLING_INIT_FIXED |
IF ( useSEAICE ) THEN |
|
./pkg/bling/bling_readparms.F |
384 |
BLING_READPARMS |
IF ( useSEAICE ) QSW_underice = .TRUE. |
|
./pkg/cfc/cfc_check.F |
110 |
CFC_CHECK |
& ( useThSIce .OR. useSEAICE ) ) THEN |
|
./pkg/cfc/cfc_fields_load.F |
134 |
CFC_FIELDS_LOAD |
& .NOT.useSEAICE .AND. .NOT.useThSIce ) THEN |
|
./pkg/cfc/cfc_fields_load.F |
147 |
CFC_FIELDS_LOAD |
IF ( .NOT.useSEAICE .AND. .NOT.useThSIce ) THEN |
|
./pkg/cfc/cfc_fields_load.F |
229 |
CFC_FIELDS_LOAD |
ELSEIF ( useSEAICE ) THEN |
|
./pkg/cheapaml/cheapaml_seaice.F |
143 |
CHEAPAML_SEAICE |
IF ( useSEAICE ) THEN |
|
./pkg/cost/cost_final.F |
59 |
COST_FINAL |
if (useSEAICE) CALL SEAICE_COST_FINAL (myThid) |
|
./pkg/diagnostics/diagnostics_utils.F |
651 |
DIAGNOSTICS_SETKLEV |
IF ( useSEAICE ) THEN |
|
./pkg/dic/dic_biotic_forcing.F |
118 |
DIC_BIOTIC_FORCING |
IF ( useThSIce .OR. useSEAICE .OR. useCoupler ) THEN |
|
./pkg/dic/dic_fields_update.F |
63 |
DIC_FIELDS_UPDATE |
ELSEIF ( useSEAICE ) THEN |
|
./pkg/dic/dic_readparms.F |
194 |
DIC_READPARMS |
IF ( useSEAICE ) QSW_underice = .TRUE. |
|
./pkg/ecco/cost_averagesfields.F |
549 |
COST_AVERAGESFIELDS |
if (useSEAICE) then |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
426 |
ECCO_COST_INIT_BARFILES |
if (useSEAICE) then |