| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
127 |
NO PROCEDURE |
_RL hiMax |
|
./pkg/thsice/THSICE_PARAMS.h |
90 |
NO PROCEDURE |
& hIceMin, hiMax, hsMax, |
|
./pkg/thsice/thsice_calc_thickn.F |
765 |
THSICE_CALC_THICKN |
IF (hi.GT.hiMax) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
767 |
THSICE_CALC_THICKN |
chi=hi-hiMax |
|
./pkg/thsice/thsice_extend.F |
192 |
THSICE_EXTEND |
ELSEIF ( iceVol.LT.hiMax*iceMaskMax ) THEN |
|
./pkg/thsice/thsice_extend.F |
199 |
THSICE_EXTEND |
iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac) |
|
./pkg/thsice/thsice_readparms.F |
118 |
THSICE_READPARMS |
hiMax = 10. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
183 |
THSICE_READPARMS |
IF ( hNewIceMax .EQ. UNSET_RL ) hNewIceMax = hiMax |
|
./pkg/thsice/thsice_readparms.F |
289 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: hiMax =',hiMax |
|
./pkg/thsice/thsice_readparms.F |
59 |
THSICE_READPARMS |
& hIceMin, hiMax, hsMax, iceMaskMax, iceMaskMin, |
|
./pkg/thsice/thsice_test_addfluid.h |
10 |
NO PROCEDURE |
IF ( selectAddFluid.NE.0 .AND. hsMax.GT.hiMax ) THEN |