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: