| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
203 |
NO PROCEDURE |
& thSIce_diffK, stressReduction, |
|
./pkg/thsice/THSICE_PARAMS.h |
209 |
NO PROCEDURE |
_RL thSIce_diffK, stressReduction |
|
./pkg/thsice/thsice_advdiff.F |
209 |
THSICE_ADVDIFF |
IF ( thSIce_diffK .GT. 0. ) THEN |
|
./pkg/thsice/thsice_check.F |
58 |
THSICE_CHECK |
IF ( thSIceAdvScheme.EQ.0 .AND. thSIce_diffK.NE.0. ) THEN |
|
./pkg/thsice/thsice_diffusion.F |
100 |
THSICE_DIFFUSION |
& + thSIce_diffK*( iceFld(i,j-1)-iceFld(i,j) ) |
|
./pkg/thsice/thsice_diffusion.F |
74 |
THSICE_DIFFUSION |
IF ( thSIce_diffK .GT. 0. ) THEN |
|
./pkg/thsice/thsice_diffusion.F |
89 |
THSICE_DIFFUSION |
& + thSIce_diffK*( iceFld(i-1,j)-iceFld(i,j) ) |
|
./pkg/thsice/thsice_readparms.F |
162 |
THSICE_READPARMS |
thSIce_diffK = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
337 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:','thSIce_diffK =',thSIce_diffK |
|
./pkg/thsice/thsice_readparms.F |
70 |
THSICE_READPARMS |
& thSIce_diffK, thSIceAdvScheme, stressReduction, |