| 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 |
919 |
THSICE_CALC_THICKN |
IF (hIce(i,j).GT.hiMax) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
921 |
THSICE_CALC_THICKN |
chi=hIce(i,j)-hiMax |
|
./pkg/thsice/thsice_extend.F |
198 |
THSICE_EXTEND |
ELSEIF ( iceVol.LT.hiMax*iceMaskMax ) THEN |
|
./pkg/thsice/thsice_extend.F |
205 |
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 |