glacier_flux()

subroutine, private noahmp_glacier_routines::glacier_flux ( integer, intent(in)  nsoil, integer, intent(in)  nsnow, real (kind=kind_phys), intent(in)  emg, integer, intent(in)  isnow, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  df, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  dzsnso, real (kind=kind_phys), intent(in)  z0m, real (kind=kind_phys), intent(in)  zlvl, real (kind=kind_phys), intent(in)  zpd, real (kind=kind_phys), intent(in)  qair, real (kind=kind_phys), intent(in)  sfctmp, real (kind=kind_phys), intent(in)  rhoair, real (kind=kind_phys), intent(in)  sfcprs, real (kind=kind_phys), intent(in)  ur, real (kind=kind_phys), intent(in)  gamma, real (kind=kind_phys), intent(in)  rsurf, real (kind=kind_phys), intent(in)  lwdn, real (kind=kind_phys), intent(in)  rhsur, real (kind=kind_phys), dimension( 1:nsoil), intent(in)  smc, real (kind=kind_phys), intent(in)  eair, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  stc, real (kind=kind_phys), intent(in)  sag, real (kind=kind_phys), intent(in)  snowh, real (kind=kind_phys), intent(in)  lathea, real (kind=kind_phys), dimension( 1:nsoil), intent(in)  sh2o, logical, intent(in)  thsfc_loc, real (kind=kind_phys), intent(in)  prslkix, real (kind=kind_phys), intent(in)  prsik1x, real (kind=kind_phys), intent(in)  prslk1x, real (kind=kind_phys), intent(in)  sigmaf1, real (kind=kind_phys), intent(in)  garea1,   ifdef,   CCPP  )

private

Parameters

[in]	nsnow	maximum no. of snow layers
[in]	nsoil	number of soil layers
[in]	emg	ground emissivity
[in]	isnow	actual no. of snow layers
[in]	df	thermal conductivity of snow/soil (w/m/k)
[in]	dzsnso	thickness of snow/soil layers (m)
[in]	z0m	roughness length, momentum, ground (m)
[in]	zlvl	reference height (m)
[in]	zpd	zero plane displacement (m)
[in]	qair	specific humidity at height zlvl (kg/kg)
[in]	sfctmp	air temperature at reference height (k)
[in]	rhoair	density air (kg/m3)
[in]	sfcprs	density air (kg/m3)
[in]	ur	wind speed at height zlvl (m/s)
[in]	gamma	psychrometric constant (pa/k)
[in]	rsurf	ground surface resistance (s/m)
[in]	lwdn	atmospheric longwave radiation (w/m2)
[in]	rhsur	raltive humidity in surface soil/snow air space (-)
[in]	eair	vapor pressure air at height (pa)
[in]	stc	soil/snow temperature (k)
[in]	smc	soil moisture
[in]	sh2o	soil liquid water
[in]	sag	solar radiation absorbed by ground (w/m2)
[in]	snowh	actual snow depth [m]
[in]	lathea	latent heat of vaporization/subli (j/kg)

References esat(), and sfcdif1_glacier().

Referenced by energy_glacier().

Here is the call graph for this function:

Here is the caller graph for this function: