| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
186 |
THSICE_CALC_THICKN |
_RL etop |
|
./pkg/thsice/thsice_calc_thickn.F |
419 |
THSICE_CALC_THICKN |
etop = (1. _d 0-frace)*sHeating * dt |
|
./pkg/thsice/thsice_calc_thickn.F |
422 |
THSICE_CALC_THICKN |
etop = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
447 |
THSICE_CALC_THICKN |
& 'ThSI_CALC_TH: etop,etope,ebot,ebote=', etop,etope,ebot,ebote |
|
./pkg/thsice/thsice_calc_thickn.F |
462 |
THSICE_CALC_THICKN |
IF (etop .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
469 |
THSICE_CALC_THICKN |
IF (etop .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
470 |
THSICE_CALC_THICKN |
hs = hs - etop/rq |
|
./pkg/thsice/thsice_calc_thickn.F |
471 |
THSICE_CALC_THICKN |
etop = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
473 |
THSICE_CALC_THICKN |
etop = etop - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
493 |
THSICE_CALC_THICKN |
IF (etop .GT. 0. _d 0) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
496 |
THSICE_CALC_THICKN |
IF (etop .LT. rqh) THEN |
|
./pkg/thsice/thsice_calc_thickn.F |
497 |
THSICE_CALC_THICKN |
hnew(k) = hnew(k) - etop / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
498 |
THSICE_CALC_THICKN |
etop = 0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
500 |
THSICE_CALC_THICKN |
etop = etop - rqh |
|
./pkg/thsice/thsice_calc_thickn.F |
506 |
THSICE_CALC_THICKN |
etop=0. _d 0 |
|
./pkg/thsice/thsice_calc_thickn.F |
589 |
THSICE_CALC_THICKN |
& 'ThSI_CALC_TH: etop, ebot, hi, hs =', etop, ebot, hi, hs |
|
./pkg/thsice/thsice_calc_thickn.F |
812 |
THSICE_CALC_THICKN |
qleft = qleft + (Fbot+(esurp+etop+ebot)/dt) |
|
./pkg/thsice/thsice_calc_thickn.F |
815 |
THSICE_CALC_THICKN |
& 'ThSI_CALC_TH: [esurp,etop+ebot]/dt =',esurp/dt,etop/dt,ebot/dt |