| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
102 |
THSICE_CALC_THICKN |
_RL dhi ! change in ice thickness |
|
./pkg/thsice/thsice_calc_thickn.F |
272 |
THSICE_CALC_THICKN |
dhi = -ebot / (qbot * rhoi) |
|
./pkg/thsice/thsice_calc_thickn.F |
275 |
THSICE_CALC_THICKN |
qicen(k) = (hnew(k)*qicen(k)+dhi*qbot) / (hnew(k)+dhi) |
|
./pkg/thsice/thsice_calc_thickn.F |
276 |
THSICE_CALC_THICKN |
hnew(k) = hnew(k) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
380 |
THSICE_CALC_THICKN |
dhi = evap/rhoi*dt |
|
./pkg/thsice/thsice_calc_thickn.F |
381 |
THSICE_CALC_THICKN |
if (dhi.ge.hnew(k)) then |
|
./pkg/thsice/thsice_calc_thickn.F |
386 |
THSICE_CALC_THICKN |
hq = hnew(k)*qicen(k)-dhi*Lfresh |
|
./pkg/thsice/thsice_calc_thickn.F |
387 |
THSICE_CALC_THICKN |
hnew(k) = hnew(k) - dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
433 |
THSICE_CALC_THICKN |
dhi = (hs * rhos - hi * rhoiw) / rhosw |
|
./pkg/thsice/thsice_calc_thickn.F |
434 |
THSICE_CALC_THICKN |
dhs = dhi * rhoi / rhos |
|
./pkg/thsice/thsice_calc_thickn.F |
436 |
THSICE_CALC_THICKN |
hnew(1) = hnew(1) + dhi |
|
./pkg/thsice/thsice_calc_thickn.F |
438 |
THSICE_CALC_THICKN |
hi = hi + dhi |