compact_glacier()

subroutine, private noahmp_glacier_routines::compact_glacier ( integer, intent(in)  nsnow, integer, intent(in)  nsoil, real (kind=kind_phys), intent(in)  dt, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  stc, real (kind=kind_phys), dimension(-nsnow+1: 0), intent(in)  snice, real (kind=kind_phys), dimension(-nsnow+1: 0), intent(in)  snliq, integer, dimension(-nsnow+1:0), intent(in)  imelt, real (kind=kind_phys), dimension(-nsnow+1: 0), intent(in)  ficeold, integer, intent(inout)  isnow, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout)  dzsnso  )

private

Parameters

[in]	nsoil	no. of soil layers [ =4]
[in]	nsnow	maximum no. of snow layers [ =3]
[in]	imelt	melting state index [0-no melt;1-melt]
[in]	dt	time step (sec)
[in]	stc	snow layer temperature [k]
[in]	snice	snow layer ice [mm]
[in]	snliq	snow layer liquid water [mm]
[in]	ficeold	ice fraction at last timestep
[in,out]	isnow	actual no. of snow layers
[in,out]	dzsnso	snow layer thickness [m]

Referenced by snowwater_glacier().

Here is the caller graph for this function: