hrt_glacier()

subroutine, private noahmp_glacier_routines::hrt_glacier ( integer, intent(in)  nsnow, integer, intent(in)  nsoil, integer, intent(in)  isnow, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  zsnso, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  stc, real (kind=kind_phys), intent(in)  tbot, real (kind=kind_phys), intent(in)  zbot, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  df, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  hcpct, real (kind=kind_phys), intent(in)  ssoil, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  phi, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out)  ai, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out)  bi, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out)  ci, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(out)  rhsts, real (kind=kind_phys), intent(out)  botflx  )

private

Parameters

[in]	nsoil	calculate the right hand side of the time tendency term of the soil thermal diffusion equation. also to compute ( prepare ) the matrix coefficients for the tri-diagonal matrix of the implicit time scheme.
[in]	nsoil	no of soil layers (4)
[in]	nsnow	maximum no of snow layers (3)
[in]	isnow	actual no of snow layers
[in]	tbot	bottom soil temp. at zbot (k)
[in]	zbot	depth of lower boundary condition (m) from soil surface not snow surface
[in]	ssoil	ground heat flux (w/m2)
[in]	zsnso	depth of layer-bottom of snow/soil (m)
[in]	stc	snow/soil temperature (k)
[in]	df	thermal conductivity [w/m/k]
[in]	hcpct	heat capacity [j/m3/k]
[in]	phi	light through water (w/m2)
[out]	rhsts	right-hand side of the matrix
[out]	ai	left-hand side coefficient
[out]	bi	left-hand side coefficient
[out]	ci	left-hand side coefficient
[out]	botflx	energy influx from soil bottom (w/m2)

Referenced by tsnosoi_glacier().

Here is the caller graph for this function: