| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1060 |
THSICE_CALC_THICKN |
rq = rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2)) |
|
./pkg/thsice/thsice_calc_thickn.F |
1062 |
THSICE_CALC_THICKN |
rqh = rq * hIce(i,j) + rs * hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
185 |
THSICE_CALC_THICKN |
_RL rq |
|
./pkg/thsice/thsice_calc_thickn.F |
503 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
504 |
THSICE_CALC_THICKN |
rqh = rq * hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
506 |
THSICE_CALC_THICKN |
hSnow(i,j) = hSnow(i,j) - etop(i,j)/rq |
|
./pkg/thsice/thsice_calc_thickn.F |
536 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
537 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
539 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - etop(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
614 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
615 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
617 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - ebot(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
637 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
638 |
THSICE_CALC_THICKN |
rqh = rq * hSnow(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
640 |
THSICE_CALC_THICKN |
hSnow(i,j) = hSnow(i,j) - ebot(i,j) / rq |