snowcompaction()

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

Parameters

[in]	ubc	column bounds
[in]	num_snowc	number of column snow points in column filter
[in]	filter_snowc	column filter for snow points
[in]	snl	number of snow layers
[in]	imelt	flag for melting (=1), freezing (=2), Not=0
[in]	frac_iceold	fraction of ice relative to the tot water
[in]	t_soisno	soil temperature (Kelvin)
[in]	h2osoi_ice	ice lens (kg/m2)
[in]	h2osoi_liq	liquid water (kg/m2)
[in,out]	dz	layer depth (m)