| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
104 |
THSICE_CALC_THICKN |
_RL rq ! rho * q for a layer |
|
./pkg/thsice/thsice_calc_thickn.F |
232 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
233 |
THSICE_CALC_THICKN |
rqh = rq * hs |
|
./pkg/thsice/thsice_calc_thickn.F |
235 |
THSICE_CALC_THICKN |
hs = hs - etop/rq |
|
./pkg/thsice/thsice_calc_thickn.F |
245 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(k) |
|
./pkg/thsice/thsice_calc_thickn.F |
246 |
THSICE_CALC_THICKN |
rqh = rq * hnew(k) |
|
./pkg/thsice/thsice_calc_thickn.F |
248 |
THSICE_CALC_THICKN |
hnew(k) = hnew(k) - etop / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
280 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(k) |
|
./pkg/thsice/thsice_calc_thickn.F |
281 |
THSICE_CALC_THICKN |
rqh = rq * hnew(k) |
|
./pkg/thsice/thsice_calc_thickn.F |
283 |
THSICE_CALC_THICKN |
hnew(k) = hnew(k) - ebot / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
296 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
297 |
THSICE_CALC_THICKN |
rqh = rq * hs |
|
./pkg/thsice/thsice_calc_thickn.F |
299 |
THSICE_CALC_THICKN |
hs = hs - ebot / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
519 |
THSICE_CALC_THICKN |
rq = rhoi * 0.5 _d 0*(qicen(1)+qicen(2)) |
|
./pkg/thsice/thsice_calc_thickn.F |
521 |
THSICE_CALC_THICKN |
rqh = rq * hi + rs * hs |