| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_extend.F |
126 |
THSICE_EXTEND |
iceThick= hIce(i,j) |
|
./pkg/thsice/thsice_extend.F |
148 |
THSICE_EXTEND |
iceThick = MAX(himin0,newIce/iceMaskmax) |
|
./pkg/thsice/thsice_extend.F |
155 |
THSICE_EXTEND |
newIceFrac=MIN(newIce/iceThick,iceMaskmax-icFrac(i,j)) |
|
./pkg/thsice/thsice_extend.F |
162 |
THSICE_EXTEND |
flx2oc(i,j)= iceThick*newIceFrac*qicAv/deltaTice |
|
./pkg/thsice/thsice_extend.F |
163 |
THSICE_EXTEND |
frw2oc(i,j)=-(rhoi*iceThick)*newIceFrac/deltaTice |
|
./pkg/thsice/thsice_extend.F |
164 |
THSICE_EXTEND |
fsalt(i,j)= -(rhoi*iceThick*saltice)*newIceFrac/deltaTice |
|
./pkg/thsice/thsice_extend.F |
170 |
THSICE_EXTEND |
& iceThick, newIce, newIceFrac |
|
./pkg/thsice/thsice_extend.F |
177 |
THSICE_EXTEND |
I icFrac(i,j), iceFrac, iceThick, snowThick, qicen, |
|
./pkg/thsice/thsice_extend.F |
191 |
THSICE_EXTEND |
hIce(i,j) = iceThick |
|
./pkg/thsice/thsice_extend.F |
97 |
THSICE_EXTEND |
_RL iceThick |