| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
1065 |
THSICE_CALC_THICKN |
rq = rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2)) |
|
./pkg/thsice/thsice_calc_thickn.F |
1067 |
THSICE_CALC_THICKN |
rqh = rq * hIce(i,j) + rs * hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
187 |
THSICE_CALC_THICKN |
_RL rq |
|
./pkg/thsice/thsice_calc_thickn.F |
504 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
505 |
THSICE_CALC_THICKN |
rqh = rq * hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
507 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) - etop(i,j)/rq |
|
./pkg/thsice/thsice_calc_thickn.F |
537 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
538 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
540 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - etop(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
617 |
THSICE_CALC_THICKN |
rq = rhoi * qicen(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
618 |
THSICE_CALC_THICKN |
rqh = rq * hnew(i,j,k) |
|
./pkg/thsice/thsice_calc_thickn.F |
620 |
THSICE_CALC_THICKN |
hnew(i,j,k) = hnew(i,j,k) - ebot(i,j) / rq |
|
./pkg/thsice/thsice_calc_thickn.F |
640 |
THSICE_CALC_THICKN |
rq = rhos * qsnow |
|
./pkg/thsice/thsice_calc_thickn.F |
641 |
THSICE_CALC_THICKN |
rqh = rq * hSnow1(i,j) |
|
./pkg/thsice/thsice_calc_thickn.F |
643 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) - ebot(i,j) / rq |