| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_extend.F |
167 |
THSICE_EXTEND |
iceThick= hIce(i,j) |
|
./pkg/thsice/thsice_extend.F |
173 |
THSICE_EXTEND |
iceVol = iceFrac*iceThick |
|
./pkg/thsice/thsice_extend.F |
193 |
THSICE_EXTEND |
iceThick = MIN(hThinIce,newIce/iceMaskMin) |
|
./pkg/thsice/thsice_extend.F |
194 |
THSICE_EXTEND |
iceThick = MAX(iceThick,newIce/iceMaskMax) |
|
./pkg/thsice/thsice_extend.F |
195 |
THSICE_EXTEND |
iceFrac = newIce/iceThick |
|
./pkg/thsice/thsice_extend.F |
201 |
THSICE_EXTEND |
hNewIce = MIN(iceThick,hNewIceMax) |
|
./pkg/thsice/thsice_extend.F |
205 |
THSICE_EXTEND |
iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac) |
|
./pkg/thsice/thsice_extend.F |
208 |
THSICE_EXTEND |
iceFormed = iceThick*iceFrac - iceVol |
|
./pkg/thsice/thsice_extend.F |
221 |
THSICE_EXTEND |
& iceThick, newIce, iceFrac-icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
228 |
THSICE_EXTEND |
I icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen, |
|
./pkg/thsice/thsice_extend.F |
243 |
THSICE_EXTEND |
hIce(i,j) = iceThick |
|
./pkg/thsice/thsice_extend.F |
98 |
THSICE_EXTEND |
_RL iceThick |