| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
113 |
NO PROCEDURE |
_RL iceMaskmax |
|
./pkg/thsice/THSICE_PARAMS.h |
79 |
NO PROCEDURE |
& iceMaskmax, iceMaskmin, himin0, |
|
./pkg/thsice/thsice_calc_thickn.F |
142 |
THSICE_CALC_THICKN |
if (hi.gt.hihig.and. compact.le.iceMaskmax) then |
|
./pkg/thsice/thsice_readparms.F |
115 |
THSICE_READPARMS |
iceMaskmax = 1. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
229 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: iceMaskmax=',iceMaskmax |
|
./pkg/thsice/thsice_readparms.F |
58 |
THSICE_READPARMS |
& iceMaskmax, iceMaskmin, himin0, |
|
./pkg/thsice/thsice_extend.F |
103 |
THSICE_EXTEND |
newIceFrac=MIN(newIce/iceThick,iceMaskmax-iceFraction) |
|
./pkg/thsice/thsice_extend.F |
96 |
THSICE_EXTEND |
iceThick = MAX(himin0,newIce/iceMaskmax) |
|
./pkg/thsice/thsice_extend.F |
97 |
THSICE_EXTEND |
newIceFrac = MIN(newIce/himin0,iceMaskmax) |