| 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 |
475 |
THSICE_ADVDIFF |
IF ( iceHeight(i,j,bi,bj).LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
478 |
THSICE_ADVDIFF |
IF ( iceVol(i,j).GE.hIceMin*iceMaskMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
479 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceVol(i,j)/hIceMin |
|
./pkg/thsice/thsice_advdiff.F |
481 |
THSICE_ADVDIFF |
& *hIceMin/iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
482 |
THSICE_ADVDIFF |
iceHeight(i,j,bi,bj) = hIceMin |
|
./pkg/thsice/thsice_calc_thickn.F |
672 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).LT.hIceMin |
|
./pkg/thsice/thsice_calc_thickn.F |
840 |
THSICE_CALC_THICKN |
IF ( hIce(i,j).GT.0. _d 0 .AND. hIce(i,j).LT.hIceMin ) THEN |
|
./pkg/thsice/thsice_extend.F |
198 |
THSICE_EXTEND |
IF ( newIce.GT.hIceMin*iceMaskMin ) THEN |
|
./pkg/thsice/thsice_readparms.F |
138 |
THSICE_READPARMS |
hIceMin = 1. _d -2 |
|
./pkg/thsice/thsice_readparms.F |
323 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'hIceMin =', hIceMin |
|
./pkg/thsice/thsice_readparms.F |
62 |
THSICE_READPARMS |
& hIceMin, hiMax, hsMax, iceMaskMax, iceMaskMin, |
|
./pkg/thsice/thsice_solve4temp.F |
261 |
THSICE_SOLVE4TEMP |
IF ( hIce(i,j).LT.hIceMin ) THEN |