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

private

References noahmp_glacier_globals::denh2o, noahmp_glacier_globals::denice, and noahmp_glacier_globals::tfrz.

Referenced by snowwater_glacier().