| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
126 |
NO PROCEDURE |
_RL hIceMin |
|
./pkg/thsice/THSICE_PARAMS.h |
90 |
NO PROCEDURE |
& hIceMin, hiMax, hsMax, |
|
./pkg/thsice/thsice_advdiff.F |
441 |
THSICE_ADVDIFF |
IF ( iceHeight(i,j,bi,bj).LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
444 |
THSICE_ADVDIFF |
IF ( iceVol(i,j).GE.hIceMin*iceMaskMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
445 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceVol(i,j)/hIceMin |
|
./pkg/thsice/thsice_advdiff.F |
447 |
THSICE_ADVDIFF |
& *hIceMin/iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
448 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = hIceMin |
|
./pkg/thsice/thsice_calc_thickn.F |
593 |
THSICE_CALC_THICKN |
IF ( hi.LT.hIceMin .AND. (hi+hs).GT.0. _d 0 ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
708 |
THSICE_CALC_THICKN |
IF ( hi.GT.0. _d 0 .AND. hi.LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_extend.F |
183 |
THSICE_EXTEND |
IF ( newIce.GT.hIceMin*iceMaskMin ) THEN |
|
./pkg/thsice/thsice_readparms.F |
117 |
THSICE_READPARMS |
hIceMin = 1. _d -2 |
|
./pkg/thsice/thsice_readparms.F |
288 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: hIceMin =',hIceMin |
|
./pkg/thsice/thsice_readparms.F |
59 |
THSICE_READPARMS |
& hIceMin, hiMax, hsMax, iceMaskMax, iceMaskMin, |
|
./pkg/thsice/thsice_solve4temp.F |
234 |
THSICE_SOLVE4TEMP |
IF ( hi.LT.hIceMin ) THEN |