| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
198 |
NO PROCEDURE |
& thSIce_diffK, stressReduction, |
|
./pkg/thsice/THSICE_PARAMS.h |
204 |
NO PROCEDURE |
_RL thSIce_diffK, stressReduction |
|
./pkg/thsice/thsice_advdiff.F |
175 |
THSICE_ADVDIFF |
IF ( thSIce_diffK .GT. 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 |
140 |
THSICE_READPARMS |
thSIce_diffK = 0. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
220 |
THSICE_READPARMS |
IF ( thSIceAdvScheme.EQ.0 .AND. thSIce_diffK.NE.0. ) THEN |
|
./pkg/thsice/thsice_readparms.F |
300 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: thSIce_diffK =',thSIce_diffK |
|
./pkg/thsice/thsice_readparms.F |
67 |
THSICE_READPARMS |
& thSIce_diffK, thSIceAdvScheme, stressReduction, |