File |
Line number |
Procedure |
Code |
./pkg/thsice/thsice_calc_thickn.F |
13 |
THSICE_CALC_THICKN |
O fresh, fsalt, Fbot, |
./pkg/thsice/thsice_calc_thickn.F |
339 |
THSICE_CALC_THICKN |
fresh = (mwater0 - (rhos*hs + rhoi*hi))/dt |
./pkg/thsice/thsice_calc_thickn.F |
347 |
THSICE_CALC_THICKN |
fresh = fresh + snowPr |
./pkg/thsice/thsice_calc_thickn.F |
410 |
THSICE_CALC_THICKN |
fresh = fresh + (rhos*hs + rhoi*hi)/dt |
./pkg/thsice/thsice_calc_thickn.F |
423 |
THSICE_CALC_THICKN |
& esurp, fresh |
./pkg/thsice/thsice_calc_thickn.F |
452 |
THSICE_CALC_THICKN |
fresh = fresh + chi*rhoi/dt |
./pkg/thsice/thsice_calc_thickn.F |
458 |
THSICE_CALC_THICKN |
fresh = fresh + chs*rhos/dt |
./pkg/thsice/thsice_calc_thickn.F |
491 |
THSICE_CALC_THICKN |
fresh = fresh - evap |
./pkg/thsice/thsice_calc_thickn.F |
509 |
THSICE_CALC_THICKN |
& (mwater0-(rhos*hs+rhoi*hi))/dt,evap,fresh,fsalt |
./pkg/thsice/thsice_calc_thickn.F |
526 |
THSICE_CALC_THICKN |
fresh=fresh+extend/rqh*freshe |
./pkg/thsice/thsice_calc_thickn.F |
533 |
THSICE_CALC_THICKN |
fresh=fresh+freshe |
./pkg/thsice/thsice_calc_thickn.F |
64 |
THSICE_CALC_THICKN |
_RL fresh |
./pkg/thsice/thsice_extend.F |
110 |
THSICE_EXTEND |
fresh=-(rhoi*iceThick)*newIceFrac/deltaTice |
./pkg/thsice/thsice_extend.F |
12 |
THSICE_EXTEND |
O qleft, fresh, fsalt, |
./pkg/thsice/thsice_extend.F |
54 |
THSICE_EXTEND |
_RL fresh |