| 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 |
669 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).LT.hIceMin |
|
./pkg/thsice/thsice_calc_thickn.F |
834 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).GT.0. _d 0 .AND. hIce(i,j).LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_extend.F |
189 |
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 |
242 |
THSICE_SOLVE4TEMP |
IF ( hIce(i,j).LT.hIceMin ) THEN |