| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
137 |
THSICE_CALC_THICKN |
_RL ebot ! energy for bottom melting (J m-2) |
|
./pkg/thsice/thsice_calc_thickn.F |
275 |
THSICE_CALC_THICKN |
ebot = (flxCnB(i,j)-Fbot) * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
276 |
THSICE_CALC_THICKN |
IF (ebot.GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
277 |
THSICE_CALC_THICKN |
ebote = frace*ebot |
|
./pkg/thsice/thsice_calc_thickn.F |
278 |
THSICE_CALC_THICKN |
ebot = ebot-ebote |
|
./pkg/thsice/thsice_calc_thickn.F |
284 |
THSICE_CALC_THICKN |
& 'ThSI_CALC_TH: etop,etope,ebot,ebote=', etop,etope,ebot,ebote |
|
./pkg/thsice/thsice_calc_thickn.F |
338 |
THSICE_CALC_THICKN |
IF (ebot .LT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
341 |
THSICE_CALC_THICKN |
dhi = -ebot / (qbot * rhoi) |
|
./pkg/thsice/thsice_calc_thickn.F |
342 |
THSICE_CALC_THICKN |
ebot = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
348 |
THSICE_CALC_THICKN |
IF (ebot.GT.0. _d 0 .AND. hnew(k).GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
351 |
THSICE_CALC_THICKN |
IF (ebot .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
352 |
THSICE_CALC_THICKN |
hnew(k) = hnew(k) - ebot / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
353 |
THSICE_CALC_THICKN |
ebot = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
355 |
THSICE_CALC_THICKN |
ebot = ebot - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
364 |
THSICE_CALC_THICKN |
IF (ebot.GT.0. _d 0 .AND. hs.GT.0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
367 |
THSICE_CALC_THICKN |
IF (ebot .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
368 |
THSICE_CALC_THICKN |
hs = hs - ebot / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
369 |
THSICE_CALC_THICKN |
ebot = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
371 |
THSICE_CALC_THICKN |
ebot = ebot - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
389 |
THSICE_CALC_THICKN |
& 'ThSI_CALC_TH: etop, ebot, hi, hs =', etop, ebot, hi, hs |
|
./pkg/thsice/thsice_calc_thickn.F |
570 |
THSICE_CALC_THICKN |
qleft = qleft + (Fbot+(esurp+etop+ebot)/dt) |
|
./pkg/thsice/thsice_calc_thickn.F |
573 |
THSICE_CALC_THICKN |
& 'ThSI_CALC_TH: [esurp,etop+ebot]/dt =',esurp/dt,etop/dt,ebot/dt |