| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
517 |
THSICE_CALC_THICKN |
extend=etope+ebote |
|
./pkg/thsice/thsice_calc_thickn.F |
518 |
THSICE_CALC_THICKN |
if (compact.gt.0. _d 0.and.extend.gt.0. _d 0) then |
|
./pkg/thsice/thsice_calc_thickn.F |
524 |
THSICE_CALC_THICKN |
if (extend .lt. rqh) then |
|
./pkg/thsice/thsice_calc_thickn.F |
525 |
THSICE_CALC_THICKN |
compact=(1. _d 0-extend/rqh)*compact |
|
./pkg/thsice/thsice_calc_thickn.F |
526 |
THSICE_CALC_THICKN |
fresh=fresh+extend/rqh*freshe |
|
./pkg/thsice/thsice_calc_thickn.F |
527 |
THSICE_CALC_THICKN |
fsalt=fsalt+extend/rqh*salte |
|
./pkg/thsice/thsice_calc_thickn.F |
532 |
THSICE_CALC_THICKN |
qleft=qleft+(extend-rqh)/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
536 |
THSICE_CALC_THICKN |
elseif (extend.gt.0. _d 0) then |
|
./pkg/thsice/thsice_calc_thickn.F |
537 |
THSICE_CALC_THICKN |
qleft=qleft+extend/dt |
|
./pkg/thsice/thsice_calc_thickn.F |
99 |
THSICE_CALC_THICKN |
_RL extend ! total energy for lateral melting (J m-2) |