| File |
Line number |
Procedure |
Code |
|
./pkg/thsice/thsice_calc_thickn.F |
186 |
THSICE_CALC_THICKN |
_RL dhs |
|
./pkg/thsice/thsice_calc_thickn.F |
911 |
THSICE_CALC_THICKN |
dhs = (hSnow1(i,j) - hIce(i,j)*floodFac) * rhoi / rhosw |
|
./pkg/thsice/thsice_calc_thickn.F |
912 |
THSICE_CALC_THICKN |
dhs = MAX( hSnow1(i,j) - hsMax, dhs ) |
|
./pkg/thsice/thsice_calc_thickn.F |
913 |
THSICE_CALC_THICKN |
dhi = dhs * rhos / rhoi |
|
./pkg/thsice/thsice_calc_thickn.F |
914 |
THSICE_CALC_THICKN |
rqh = rhoi*qicen(i,j,1)*hnew(i,j,1) + rhos*qsnow*dhs |
|
./pkg/thsice/thsice_calc_thickn.F |
918 |
THSICE_CALC_THICKN |
hSnow1(i,j) = hSnow1(i,j) - dhs |