| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_extend.F |
109 |
THSICE_EXTEND |
_RL newIce |
|
./pkg/thsice/thsice_extend.F |
191 |
THSICE_EXTEND |
newIce = esurp*deltaTice/qicAv |
|
./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_extend.F |
203 |
THSICE_EXTEND |
iceThick = MAX(iceThick,newIce/iceMaskMax) |
|
./pkg/thsice/thsice_extend.F |
204 |
THSICE_EXTEND |
iceFrac = newIce/iceThick |
|
./pkg/thsice/thsice_extend.F |
205 |
THSICE_EXTEND |
iceFormed = newIce |
|
./pkg/thsice/thsice_extend.F |
211 |
THSICE_EXTEND |
iceFrac = MIN(icFrac(i,j)+newIce/hNewIce,iceMaskMax) |
|
./pkg/thsice/thsice_extend.F |
214 |
THSICE_EXTEND |
iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac) |
|
./pkg/thsice/thsice_extend.F |
230 |
THSICE_EXTEND |
& iceThick, newIce, iceFrac-icFrac(i,j) |