File |
Line number |
Procedure |
Code |
./pkg/thsice/THSICE_PARAMS.h |
178 |
NO PROCEDURE |
& startIceModel, nitMaxTsf, thSIceAdvScheme, thSIceBalanceAtmFW |
./pkg/thsice/THSICE_PARAMS.h |
182 |
NO PROCEDURE |
INTEGER thSIceAdvScheme |
./pkg/thsice/thsice_advdiff.F |
147 |
THSICE_ADVDIFF |
IF ( thSIceAdvScheme.EQ.ENUM_CENTERED_2ND |
./pkg/thsice/thsice_advdiff.F |
148 |
THSICE_ADVDIFF |
& .OR.thSIceAdvScheme.EQ.ENUM_UPWIND_3RD |
./pkg/thsice/thsice_advdiff.F |
149 |
THSICE_ADVDIFF |
& .OR.thSIceAdvScheme.EQ.ENUM_CENTERED_4TH ) THEN |
./pkg/thsice/thsice_advdiff.F |
244 |
THSICE_ADVDIFF |
I GAD_SI_FRAC, thSIceAdvScheme, .TRUE., |
./pkg/thsice/thsice_advdiff.F |
257 |
THSICE_ADVDIFF |
I GAD_SI_HSNOW, thSIceAdvScheme, .FALSE., |
./pkg/thsice/thsice_advdiff.F |
275 |
THSICE_ADVDIFF |
I GAD_SI_HICE, thSIceAdvScheme, .FALSE., |
./pkg/thsice/thsice_advdiff.F |
355 |
THSICE_ADVDIFF |
I GAD_SI_QICE1, thSIceAdvScheme, .FALSE., |
./pkg/thsice/thsice_advdiff.F |
392 |
THSICE_ADVDIFF |
I GAD_SI_QICE2, thSIceAdvScheme, .FALSE., |
./pkg/thsice/thsice_check.F |
58 |
THSICE_CHECK |
IF ( thSIceAdvScheme.EQ.0 .AND. thSIce_diffK.NE.0. ) THEN |
./pkg/thsice/thsice_check.F |
66 |
THSICE_CHECK |
IF ( thSIceAdvScheme.NE.0 ) THEN |
./pkg/thsice/thsice_do_advect.F |
137 |
THSICE_DO_ADVECT |
ELSEIF ( thSIceAdvScheme.GT.0 ) THEN |
./pkg/thsice/thsice_do_advect.F |
58 |
THSICE_DO_ADVECT |
IF ( thSIceAdvScheme.GT.0 .AND. biArg.EQ.0 .AND. bjArg.EQ.0 ) THEN |
./pkg/thsice/thsice_do_exch.F |
36 |
THSICE_DO_EXCH |
IF ( useSEAICE .OR. thSIceAdvScheme.GT.0 ) THEN |
./pkg/thsice/thsice_main.F |
156 |
THSICE_MAIN |
IF ( thSIceAdvScheme.GT.0 ) |
./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_main.F |
272 |
THSICE_MAIN |
ELSEIF ( thSIceAdvScheme.LE.0 .AND. useRealFreshWaterFlux ) THEN |
./pkg/thsice/thsice_main.F |
297 |
THSICE_MAIN |
IF ( thSIceAdvScheme.LE.0 ) THEN |
./pkg/thsice/thsice_readparms.F |
163 |
THSICE_READPARMS |
thSIceAdvScheme = 0 |
./pkg/thsice/thsice_readparms.F |
335 |
THSICE_READPARMS |
WRITE(iUnit,fmtI) 'ThSI:','thSIceAdvScheme =',thSIceAdvScheme |
./pkg/thsice/thsice_readparms.F |
70 |
THSICE_READPARMS |
& thSIce_diffK, thSIceAdvScheme, stressReduction, |
./pkg/thsice/thsice_slab_ocean.F |
163 |
THSICE_SLAB_OCEAN |
IF ( thSIceAdvScheme.LE.0 ) THEN |
./pkg/thsice/thsice_step_fwd.F |
405 |
THSICE_STEP_FWD |
IF ( thSIceAdvScheme.LE.0 ) THEN |
./pkg/thsice/thsice_step_fwd.F |
427 |
THSICE_STEP_FWD |
IF ( thSIceAdvScheme.GT.0 ) THEN |