| 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 |
142 |
THSICE_ADVDIFF |
IF ( iceMaskMin.GT.0. _d 0 ) r_minArea = 1. _d 0 / iceMaskMin |
|
./pkg/thsice/thsice_advdiff.F |
426 |
THSICE_ADVDIFF |
ELSEIF ( iceFrc(i,j) .LT. iceMaskMin ) THEN |
|
./pkg/thsice/thsice_advdiff.F |
428 |
THSICE_ADVDIFF |
iceMask(i,j,bi,bj) = iceMaskMin |
|
./pkg/thsice/thsice_advdiff.F |
444 |
THSICE_ADVDIFF |
IF ( iceVol(i,j).GE.hIceMin*iceMaskMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
1068 |
THSICE_CALC_THICKN |
IF ( extend.LT.rqh .AND. icFrac(i,j).GE.iceMaskMin ) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
242 |
THSICE_CALC_THICKN |
lowIcFrac1 = iceMaskMin*1.01 _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
243 |
THSICE_CALC_THICKN |
lowIcFrac2 = iceMaskMin*1.10 _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
418 |
THSICE_CALC_THICKN |
frace = (icFrac(i,j) - lowIcFrac1)/(lowIcFrac2-iceMaskMin) |
|
./pkg/thsice/thsice_extend.F |
189 |
THSICE_EXTEND |
IF ( newIce.GT.hIceMin*iceMaskMin ) THEN |
|
./pkg/thsice/thsice_extend.F |
193 |
THSICE_EXTEND |
iceThick = MIN(hThinIce,newIce/iceMaskMin) |
|
./pkg/thsice/thsice_readparms.F |
121 |
THSICE_READPARMS |
iceMaskMin = 0.1 _d 0 |
|
./pkg/thsice/thsice_readparms.F |
292 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: iceMaskMin =',iceMaskMin |
|
./pkg/thsice/thsice_readparms.F |
59 |
THSICE_READPARMS |
& hIceMin, hiMax, hsMax, iceMaskMax, iceMaskMin, |