| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
189 |
THSICE_CALC_THICKN |
etop = (1. _d 0-frace)*sHeating * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
192 |
THSICE_CALC_THICKN |
etop = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
216 |
THSICE_CALC_THICKN |
& etop,etope,ebot,ebote |
|
./pkg/thsice/thsice_calc_thickn.F |
230 |
THSICE_CALC_THICKN |
if (etop .gt. 0. _d 0) then |
|
./pkg/thsice/thsice_calc_thickn.F |
234 |
THSICE_CALC_THICKN |
if (etop .lt. rqh) then |
|
./pkg/thsice/thsice_calc_thickn.F |
235 |
THSICE_CALC_THICKN |
hs = hs - etop/rq |
|
./pkg/thsice/thsice_calc_thickn.F |
236 |
THSICE_CALC_THICKN |
etop = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
238 |
THSICE_CALC_THICKN |
etop = etop - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
244 |
THSICE_CALC_THICKN |
if (etop .gt. 0. _d 0) then |
|
./pkg/thsice/thsice_calc_thickn.F |
247 |
THSICE_CALC_THICKN |
if (etop .lt. rqh) then |
|
./pkg/thsice/thsice_calc_thickn.F |
248 |
THSICE_CALC_THICKN |
hnew(k) = hnew(k) - etop / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
249 |
THSICE_CALC_THICKN |
etop = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
251 |
THSICE_CALC_THICKN |
etop = etop - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
257 |
THSICE_CALC_THICKN |
etop=0. _d 0 |
|
./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 |
95 |
THSICE_CALC_THICKN |
_RL etop ! energy for top melting (J m-2) |