| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
130 |
NO PROCEDURE |
_RL iceMaskMin |
|
./pkg/thsice/THSICE_PARAMS.h |
91 |
NO PROCEDURE |
& iceMaskMax, iceMaskMin, |
|
./pkg/thsice/thsice_advdiff.F |
143 |
THSICE_ADVDIFF |
IF ( iceMaskMin.GT.0. _d 0 ) r_minArea = 1. _d 0 / iceMaskMin |
|
./pkg/thsice/thsice_advdiff.F |
460 |
THSICE_ADVDIFF |
ELSEIF ( iceFrc(i,j) .LT. iceMaskMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
462 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceMaskMin |
|
./pkg/thsice/thsice_advdiff.F |
478 |
THSICE_ADVDIFF |
IF ( iceVol(i,j).GE.hIceMin*iceMaskMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1073 |
THSICE_CALC_THICKN |
IF ( extend.LT.rqh .AND. icFrac(i,j).GE.iceMaskMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
243 |
THSICE_CALC_THICKN |
lowIcFrac1 = iceMaskMin*1.01 _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
244 |
THSICE_CALC_THICKN |
lowIcFrac2 = iceMaskMin*1.10 _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
419 |
THSICE_CALC_THICKN |
frace = (icFrac(i,j) - lowIcFrac1)/(lowIcFrac2-iceMaskMin) |
|
./pkg/thsice/thsice_extend.F |
198 |
THSICE_EXTEND |
IF ( newIce.GT.hIceMin*iceMaskMin ) THEN |
|
./pkg/thsice/thsice_extend.F |
202 |
THSICE_EXTEND |
iceThick = MIN(hThinIce,newIce/iceMaskMin) |
|
./pkg/thsice/thsice_readparms.F |
142 |
THSICE_READPARMS |
iceMaskMin = 0.1 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
327 |
THSICE_READPARMS |
WRITE(iUnit,fmtR) 'ThSI:', 'iceMaskMin =', iceMaskMin |
|
./pkg/thsice/thsice_readparms.F |
62 |
THSICE_READPARMS |
& hIceMin, hiMax, hsMax, iceMaskMax, iceMaskMin, |