| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_extend.F |
101 |
THSICE_EXTEND |
_RL iceThick |
|
./pkg/thsice/thsice_extend.F |
161 |
THSICE_EXTEND |
iceThick= hIce(i,j) |
|
./pkg/thsice/thsice_extend.F |
167 |
THSICE_EXTEND |
iceVol = iceFrac*iceThick |
|
./pkg/thsice/thsice_extend.F |
187 |
THSICE_EXTEND |
iceThick = MIN(hThinIce,newIce/iceMaskMin) |
|
./pkg/thsice/thsice_extend.F |
188 |
THSICE_EXTEND |
iceThick = MAX(iceThick,newIce/iceMaskMax) |
|
./pkg/thsice/thsice_extend.F |
189 |
THSICE_EXTEND |
iceFrac = newIce/iceThick |
|
./pkg/thsice/thsice_extend.F |
195 |
THSICE_EXTEND |
hNewIce = MIN(iceThick,hNewIceMax) |
|
./pkg/thsice/thsice_extend.F |
199 |
THSICE_EXTEND |
iceThick = MIN(hiMax,(iceVol+newIce)/iceFrac) |
|
./pkg/thsice/thsice_extend.F |
202 |
THSICE_EXTEND |
iceFormed = iceThick*iceFrac - iceVol |
|
./pkg/thsice/thsice_extend.F |
215 |
THSICE_EXTEND |
& iceThick, newIce, iceFrac-icFrac(i,j) |
|
./pkg/thsice/thsice_extend.F |
222 |
THSICE_EXTEND |
I icFrac(i,j), iceFrac, iceThick, hSnow(i,j), qicen, |
|
./pkg/thsice/thsice_extend.F |
237 |
THSICE_EXTEND |
hIce(i,j) = iceThick |