| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/THSICE_PARAMS.h |
116 |
NO PROCEDURE |
_RL iceMaskmax |
|
./pkg/thsice/THSICE_PARAMS.h |
81 |
NO PROCEDURE |
& iceMaskmax, iceMaskmin, himin0, |
|
./pkg/thsice/thsice_calc_thickn.F |
207 |
THSICE_CALC_THICKN |
IF (hi.GT.hihig .AND. iceFrac.LE.iceMaskmax) THEN |
|
./pkg/thsice/thsice_extend.F |
148 |
THSICE_EXTEND |
iceThick = MAX(himin0,newIce/iceMaskmax) |
|
./pkg/thsice/thsice_extend.F |
149 |
THSICE_EXTEND |
newIceFrac = MIN(newIce/himin0,iceMaskmax) |
|
./pkg/thsice/thsice_extend.F |
155 |
THSICE_EXTEND |
newIceFrac=MIN(newIce/iceThick,iceMaskmax-icFrac(i,j)) |
|
./pkg/thsice/thsice_readparms.F |
117 |
THSICE_READPARMS |
iceMaskmax = 1. _d 0 |
|
./pkg/thsice/thsice_readparms.F |
249 |
THSICE_READPARMS |
WRITE(iUnit,*) 'ThSI: iceMaskmax=',iceMaskmax |
|
./pkg/thsice/thsice_readparms.F |
59 |
THSICE_READPARMS |
& iceMaskmax, iceMaskmin, himin0, |