| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
208 |
THSICE_CALC_THICKN |
ebot = (flxCnB-Fbot) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
209 |
THSICE_CALC_THICKN |
if (ebot.gt.0. _d 0) then |
|
./pkg/thsice/thsice_calc_thickn.F |
210 |
THSICE_CALC_THICKN |
ebote = frace*ebot |
|
./pkg/thsice/thsice_calc_thickn.F |
211 |
THSICE_CALC_THICKN |
ebot = ebot-ebote |
|
./pkg/thsice/thsice_calc_thickn.F |
216 |
THSICE_CALC_THICKN |
& etop,etope,ebot,ebote |
|
./pkg/thsice/thsice_calc_thickn.F |
269 |
THSICE_CALC_THICKN |
if (ebot .lt. 0. _d 0) then |
|
./pkg/thsice/thsice_calc_thickn.F |
272 |
THSICE_CALC_THICKN |
dhi = -ebot / (qbot * rhoi) |
|
./pkg/thsice/thsice_calc_thickn.F |
273 |
THSICE_CALC_THICKN |
ebot = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
279 |
THSICE_CALC_THICKN |
if (ebot.gt.0. _d 0 .and. hnew(k).gt.0. _d 0) then |
|
./pkg/thsice/thsice_calc_thickn.F |
282 |
THSICE_CALC_THICKN |
if (ebot .lt. rqh) then |
|
./pkg/thsice/thsice_calc_thickn.F |
283 |
THSICE_CALC_THICKN |
hnew(k) = hnew(k) - ebot / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
284 |
THSICE_CALC_THICKN |
ebot = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
286 |
THSICE_CALC_THICKN |
ebot = ebot - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
295 |
THSICE_CALC_THICKN |
if (ebot.gt.0. _d 0 .and. hs.gt.0. _d 0) then |
|
./pkg/thsice/thsice_calc_thickn.F |
298 |
THSICE_CALC_THICKN |
if (ebot .lt. rqh) then |
|
./pkg/thsice/thsice_calc_thickn.F |
299 |
THSICE_CALC_THICKN |
hs = hs - ebot / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
300 |
THSICE_CALC_THICKN |
ebot = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
302 |
THSICE_CALC_THICKN |
ebot = ebot - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
319 |
THSICE_CALC_THICKN |
& etop, ebot, hi, hs |
|
./pkg/thsice/thsice_calc_thickn.F |
486 |
THSICE_CALC_THICKN |
qleft = qleft + (Fbot+(esurp+etop+ebot)/dt) |
|
./pkg/thsice/thsice_calc_thickn.F |
488 |
THSICE_CALC_THICKN |
& ,esurp/dt,etop/dt,ebot/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
96 |
THSICE_CALC_THICKN |
_RL ebot ! energy for bottom melting (J m-2) |