| 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 |
924 |
THSICE_CALC_THICKN |
IF (hIce(i,j).GT.hiMax) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
926 |
THSICE_CALC_THICKN |
chi=hIce(i,j)-hiMax |
|
./pkg/thsice/thsice_extend.F |
207 |
THSICE_EXTEND |
ELSEIF ( iceVol.LT.hiMax*iceMaskMax ) THEN |
|
./pkg/thsice/thsice_extend.F |
214 |
THSICE_EXTEND |
iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac) |
|
./pkg/thsice/thsice_readparms.F |
139 |
THSICE_READPARMS |
hiMax = 10. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
221 |
THSICE_READPARMS |
IF ( hNewIceMax .EQ. UNSET_RL ) hNewIceMax = hiMax |
|
./pkg/thsice/thsice_readparms.F |
324 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'hiMax =', hiMax |
|
./pkg/thsice/thsice_readparms.F |
62 |
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 |