subroutine clm_lake::snowcompaction |
( |
integer, intent(in) |
lbc, |
|
|
integer, intent(in) |
ubc, |
|
|
integer, intent(in) |
num_snowc, |
|
|
integer, dimension(ubc-lbc+1), intent(in) |
filter_snowc, |
|
|
integer, dimension(1), intent(in) |
snl, |
|
|
integer, dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
imelt, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
frac_iceold, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
t_soisno, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
h2osoi_ice, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(in) |
h2osoi_liq, |
|
|
real(kind_lake), intent(in) |
dtime, |
|
|
real(kind_lake), dimension(1,-nlevsnow+1:nlevsoil), intent(inout) |
dz |
|
) |
| |
|
private |