| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_getforcing.F |
295 |
EXF_GETFORCING |
IF ( .NOT. useSEAICE ) |
|
./pkg/exf/exf_init_fixed.F |
84 |
EXF_INIT_FIXED |
IF ( useSEAICE ) THEN |
|
./model/inc/PARAMS.h |
1006 |
NO PROCEDURE |
& useFRAZIL, useSEAICE, useSALT_PLUME, useShelfIce, |
|
./model/inc/PARAMS.h |
980 |
NO PROCEDURE |
LOGICAL useSEAICE |
|
./model/src/config_check.F |
863 |
CONFIG_CHECK |
IF ( (useSEAICE .OR. useThSIce) .AND. allowFreezing ) THEN |
|
./pkg/obcs/obcs_check.F |
245 |
OBCS_CHECK |
IF (useSEAICE) THEN |
|
./pkg/obcs/obcs_check.F |
286 |
OBCS_CHECK |
IF (useSEAICE) THEN |
|
./pkg/obcs/obcs_check.F |
401 |
OBCS_CHECK |
IF (useSEAICE .AND. .NOT. useEXF) THEN |
|
./pkg/obcs/obcs_check.F |
412 |
OBCS_CHECK |
IF ( useSEAICE ) THEN |
|
./pkg/obcs/obcs_exf_load.F |
369 |
OBCS_EXF_READ_XZ |
IF (useSEAICE) THEN |
|
./pkg/obcs/obcs_exf_load.F |
642 |
OBCS_EXF_READ_YZ |
IF (useSEAICE) THEN |
|
./model/src/do_oceanic_phys.F |
286 |
DO_OCEANIC_PHYS |
IF ( .NOT.useSEAICE .AND. SEAICEadjMODE .EQ. -1 ) THEN |
|
./model/src/do_oceanic_phys.F |
302 |
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 |
154 |
DO_THE_MODEL_IO |
IF ( useSEAICE ) THEN |
|
./pkg/sbo/sbo_calc.F |
191 |
SBO_CALC |
IF ( useSEAICE ) THEN |
|
./model/src/forcing_surf_relax.F |
78 |
FORCING_SURF_RELAX |
IF ( useSEAICE .AND. (.NOT. SEAICErestoreUnderIce) ) THEN |
|
./pkg/seaice/seaice_cost_driver.F |
60 |
SEAICE_COST_DRIVER |
if (useSEAICE) then |
|
./pkg/seaice/seaice_readparms.F |
182 |
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 |
172 |
THSICE_INI_VARS |
IF ( useSEAICE ) THEN |
|
./pkg/thsice/thsice_main.F |
250 |
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 |
254 |
THSICE_READPARMS |
IF ( useSEAICE .AND. stressReduction.NE.0. _d 0 ) THEN |
|
./model/src/packages_boot.F |
141 |
PACKAGES_BOOT |
useSEAICE =.FALSE. |
|
./model/src/packages_boot.F |
305 |
PACKAGES_BOOT |
CALL PACKAGES_PRINT_MSG( useSEAICE, 'SEAICE', ' ' ) |
|
./model/src/packages_boot.F |
79 |
PACKAGES_BOOT |
& useSEAICE, |
|
./model/src/packages_check.F |
256 |
PACKAGES_CHECK |
IF (useSEAICE) CALL SEAICE_CHECK( myThid ) |
|
./model/src/packages_check.F |
258 |
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 |
451 |
PACKAGES_INIT_FIXED |
IF (useSEAICE) THEN |
|
./model/src/packages_init_variables.F |
346 |
PACKAGES_INIT_VARIABLES |
IF (useSEAICE) THEN |
|
./model/src/packages_write_pickup.F |
127 |
PACKAGES_WRITE_PICKUP |
IF ( useSEAICE ) THEN |
|
./model/src/turnoff_model_io.F |
102 |
TURNOFF_MODEL_IO |
IF ( useSEAICE ) THEN |
|
./model/src/write_grid.F |
222 |
WRITE_GRID |
IF (useSEAICE) CALL MNC_CW_WRITE_GRID_COORD('adseaice',myThid) |
|
./pkg/autodiff/addummy_in_stepping.F |
186 |
ADDUMMY_IN_STEPPING |
IF ( .NOT. useSEAICE .AND. .NOT. useEXF ) THEN |
|
./pkg/autodiff/addummy_in_stepping.F |
246 |
ADDUMMY_IN_STEPPING |
IF ( .NOT. useSEAICE .AND. .NOT. useEXF ) THEN |
|
./pkg/autodiff/addummy_in_stepping.F |
331 |
ADDUMMY_IN_STEPPING |
IF ( .NOT. useSEAICE .AND. .NOT. useEXF ) THEN |
|
./pkg/autodiff/addummy_in_stepping.F |
477 |
ADDUMMY_IN_STEPPING |
IF ( useSEAICE ) |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
34 |
ADAUTODIFF_INADMODE_SET |
useSEAICE = useSEAICEinAdMode |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
62 |
ADAUTODIFF_INADMODE_SET |
& 'S/R ADAUTODIFF_INADMODE_SET: useSEAICE =', useSEAICE |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
34 |
ADAUTODIFF_INADMODE_UNSET |
useSEAICE = useSEAICEinFwdMode |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
61 |
ADAUTODIFF_INADMODE_UNSET |
& 'S/R ADAUTODIFF_INADMODE_UNSET: useSEAICE =', useSEAICE |
|
./pkg/autodiff/autodiff_readparms.F |
101 |
AUTODIFF_READPARMS |
useSEAICEinFwdMode = useSEAICE |
|
./pkg/autodiff/autodiff_readparms.F |
108 |
AUTODIFF_READPARMS |
useSEAICEinAdMode = useSEAICEinAdMode .AND. useSEAICE |
|
./pkg/autodiff/autodiff_readparms.F |
166 |
AUTODIFF_READPARMS |
IF ( SEAICEuseFREEDRIFTswitchInAd .AND. .NOT.useSEAICE ) THEN |
|
./pkg/autodiff/autodiff_readparms.F |
172 |
AUTODIFF_READPARMS |
IF ( SEAICEuseDYNAMICSswitchInAd .AND. .NOT.useSEAICE ) THEN |
|
./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 |
50 |
COST_FINAL |
if (useSEAICE) CALL SEAICE_COST_FINAL (myThid) |
|
./pkg/dic/dic_fields_load.F |
243 |
DIC_FIELDS_LOAD |
IF ( useSEAICE ) THEN |
|
./pkg/dic/dic_readparms.F |
181 |
DIC_READPARMS |
IF ( useSEAICE ) QSW_underice = .TRUE. |
|
./pkg/ecco/cost_averagesfields.F |
535 |
COST_AVERAGESFIELDS |
if (useSEAICE) then |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
388 |
ECCO_COST_INIT_BARFILES |
if (useSEAICE) then |