File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_extend.F |
111 |
THSICE_EXTEND |
_RL iceFormed |
./pkg/thsice/thsice_extend.F |
181 |
THSICE_EXTEND |
iceFormed = 0. _d 0 |
./pkg/thsice/thsice_extend.F |
205 |
THSICE_EXTEND |
iceFormed = newIce |
./pkg/thsice/thsice_extend.F |
217 |
THSICE_EXTEND |
iceFormed = iceThick*iceFrac - iceVol |
./pkg/thsice/thsice_extend.F |
222 |
THSICE_EXTEND |
flx2oc(i,j)= qicAv*iceFormed/deltaTice |
./pkg/thsice/thsice_extend.F |
223 |
THSICE_EXTEND |
frw2oc(i,j)= -rhoi*iceFormed/deltaTice |
./pkg/thsice/thsice_extend.F |
224 |
THSICE_EXTEND |
fsalt(i,j)= -(rhoi*saltIce)*iceFormed/deltaTice |