| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_extend.F |
176 |
THSICE_EXTEND |
iceThick= hIce(i,j) |
|
./pkg/thsice/thsice_extend.F |
182 |
THSICE_EXTEND |
iceVol = iceFrac*iceThick |
|
./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 |
210 |
THSICE_EXTEND |
hNewIce = MIN(iceThick,hNewIceMax) |
|
./pkg/thsice/thsice_extend.F |
214 |
THSICE_EXTEND |
iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac) |
|
./pkg/thsice/thsice_extend.F |
217 |
THSICE_EXTEND |
iceFormed = iceThick*iceFrac - iceVol |
|
./pkg/thsice/thsice_extend.F |
230 |
THSICE_EXTEND |
& iceThick, newIce, iceFrac-icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
237 |
THSICE_EXTEND |
I icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen, |
|
./pkg/thsice/thsice_extend.F |
252 |
THSICE_EXTEND |
hIce(i,j) = iceThick |
|
./pkg/thsice/thsice_extend.F |
98 |
THSICE_EXTEND |
_RL iceThick |