| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
942 |
NO PROCEDURE |
LOGICAL useSEAICE |
|
./model/inc/PARAMS.h |
966 |
NO PROCEDURE |
& useSEAICE, useSALT_PLUME, useShelfIce, |
|
./pkg/obcs/obcs_check.F |
179 |
OBCS_CHECK |
IF (useSEAICE) THEN |
|
./pkg/obcs/obcs_check.F |
230 |
OBCS_CHECK |
IF (useSEAICE) THEN |
|
./pkg/obcs/obcs_check.F |
329 |
OBCS_CHECK |
IF (useSEAICE .AND. .NOT. useEXF) THEN |
|
./pkg/obcs/obcs_prescribe_read.F |
377 |
OBCS_PRESCRIBE_EXF_XZ |
IF (useSEAICE) THEN |
|
./pkg/obcs/obcs_prescribe_read.F |
611 |
OBCS_PRESCRIBE_EXF_YZ |
IF (useSEAICE) THEN |
|
./model/src/config_check.F |
678 |
CONFIG_CHECK |
IF ( (useSEAICE .OR. useThSIce) .AND. allowFreezing ) THEN |
|
./model/src/do_oceanic_phys.F |
178 |
DO_OCEANIC_PHYS |
IF ( useSEAICE ) THEN |
|
./model/src/do_statevars_diags.F |
90 |
DO_STATEVARS_DIAGS |
IF ( seqFlag.EQ.0 .AND. useSEAICE ) THEN |
|
./pkg/seaice/seaice_cost_driver.F |
59 |
SEAICE_COST_DRIVER |
if (useSEAICE) then |
|
./model/src/do_the_model_io.F |
149 |
DO_THE_MODEL_IO |
IF ( useSEAICE ) THEN |
|
./model/src/external_forcing_surf.F |
80 |
EXTERNAL_FORCING_SURF |
IF ( useSEAICE .AND. (.NOT. SEAICErestoreUnderIce) ) 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 |
251 |
THSICE_MAIN |
IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN |
|
./pkg/thsice/thsice_main.F |
262 |
THSICE_MAIN |
IF ( useRealFreshWaterFlux .AND. (useEXF.OR.useSEAICE ) ) |
|
./pkg/thsice/thsice_main.F |
64 |
THSICE_MAIN |
IF ( useEXF .OR. useSEAICE ) THEN |
|
./pkg/thsice/thsice_readparms.F |
143 |
THSICE_READPARMS |
IF ( useSEAICE ) stressReduction = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
237 |
THSICE_READPARMS |
IF ( useSEAICE .AND. stressReduction.NE.0. _d 0 ) THEN |
|
./verification/global1x1_tot/code_seaice_adj/autodiff_inadmode_set_ad.F |
24 |
ADAUTODIFF_INADMODE_SET |
useSEAICE = .FALSE. |
|
./verification/global1x1_tot/code_seaice_adj/autodiff_inadmode_unset_ad.F |
24 |
ADAUTODIFF_INADMODE_UNSET |
useSEAICE = .TRUE. |
|
./verification/lab_sea/code_ad_seaice_only/the_main_loop.F |
393 |
THE_MAIN_LOOP |
IF ( useSEAICE ) THEN |
|
./model/src/packages_boot.F |
131 |
PACKAGES_BOOT |
useSEAICE =.FALSE. |
|
./model/src/packages_boot.F |
73 |
PACKAGES_BOOT |
& useSEAICE, |
|
./model/src/packages_check.F |
261 |
PACKAGES_CHECK |
IF (useSEAICE) CALL SEAICE_CHECK( myThid ) |
|
./model/src/packages_check.F |
263 |
PACKAGES_CHECK |
IF (useSEAICE) CALL PACKAGES_ERROR_MSG('SEAICE',' ',myThid) |
|
./model/src/packages_init_fixed.F |
250 |
PACKAGES_INIT_FIXED |
IF (useSEAICE) CALL SEAICE_COST_INIT_FIXED( myThid ) |
|
./model/src/packages_init_fixed.F |
304 |
PACKAGES_INIT_FIXED |
IF (useSEAICE) CALL SEAICE_INIT_FIXED(myThid) |
|
./model/src/packages_init_variables.F |
202 |
PACKAGES_INIT_VARIABLES |
IF (useSEAICE) THEN |
|
./model/src/packages_readparms.F |
196 |
PACKAGES_READPARMS |
IF (useSEAICE) CALL SEAICE_READPARMS( myThid ) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
80 |
EXTERNAL_FORCING_SURF |
IF ( useSEAICE .AND. (.NOT. SEAICErestoreUnderIce) ) THEN |
|
./model/src/packages_write_pickup.F |
81 |
PACKAGES_WRITE_PICKUP |
IF ( useSEAICE ) THEN |
|
./model/src/thermodynamics.F |
727 |
THERMODYNAMICS |
IF ( useOldFreezing .AND. .NOT. useSEAICE |
|
./model/src/turnoff_model_io.F |
90 |
TURNOFF_MODEL_IO |
IF ( useSEAICE ) THEN |
|
./model/src/write_grid.F |
208 |
WRITE_GRID |
IF (useSEAICE) CALL MNC_CW_WRITE_GRID_COORD('adseaice',myThid) |
|
./pkg/aim_v23/aim_aim2dyn_exchanges.F |
58 |
AIM_AIM2DYN_EXCHANGES |
IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN |
|
./pkg/autodiff/addummy_in_stepping.F |
168 |
ADDUMMY_IN_STEPPING |
if ( .NOT. useSEAICE .AND. .NOT. useEXF ) then |
|
./pkg/autodiff/addummy_in_stepping.F |
218 |
ADDUMMY_IN_STEPPING |
IF ( useSEAICE ) CALL SEAICE_AD_DUMP( mytime, myiter, myThid ) |
|
./pkg/cfc/cfc_fields_load.F |
100 |
CFC_FIELDS_LOAD |
IF ( CFC_iceFile .NE. ' ' .AND. .NOT.useSEAICE ) THEN |
|
./pkg/cfc/cfc_fields_load.F |
114 |
CFC_FIELDS_LOAD |
IF (.NOT.useSEAICE) THEN |
|
./pkg/cfc/cfc_fields_load.F |
173 |
CFC_FIELDS_LOAD |
IF (useSEAICE) THEN |
|
./pkg/dic/dic_fields_load.F |
208 |
DIC_FIELDS_LOAD |
IF ( useSEAICE ) THEN |
|
./pkg/dic/dic_readparms.F |
180 |
DIC_READPARMS |
IF ( useSEAICE ) QSW_underice = .TRUE. |
|
./pkg/ecco/cost_averagesfields.F |
447 |
COST_AVERAGESFIELDS |
if (useSEAICE) then |
|
./pkg/ecco/ecco_cost_init_barfiles.F |
381 |
ECCO_COST_INIT_BARFILES |
if (useSEAICE) then |
|
./pkg/exf/exf_filter_rl.F |
57 |
EXF_FILTER_RL |
IF ( .NOT. useSEAICE ) THEN |
|
./pkg/exf/exf_filter_rs.F |
57 |
EXF_FILTER_RS |
IF ( .NOT. useSEAICE ) THEN |
|
./pkg/exf/exf_getforcing.F |
285 |
EXF_GETFORCING |
if ( .NOT. useSEAICE ) |