energy_glacier()

subroutine, private noahmp_glacier_routines::energy_glacier ( integer, intent(in)  nsnow, integer, intent(in)  nsoil, integer, intent(in)  isnow, real (kind=kind_phys), intent(in)  dt, real (kind=kind_phys), intent(in)  qsnow, real (kind=kind_phys), intent(in)  rhoair, real (kind=kind_phys), intent(in)  eair, real (kind=kind_phys), intent(in)  sfcprs, real (kind=kind_phys), intent(in)  qair, real (kind=kind_phys), intent(in)  sfctmp, real (kind=kind_phys), intent(in)  lwdn, real (kind=kind_phys), intent(in)  uu, real (kind=kind_phys), intent(in)  vv, real (kind=kind_phys), dimension( 1: 2), intent(in)  solad, real (kind=kind_phys), dimension( 1: 2), intent(in)  solai, real (kind=kind_phys), intent(in)  cosz, real (kind=kind_phys), intent(in)  zref, real (kind=kind_phys), intent(in)  tbot, real (kind=kind_phys), intent(in)  zbot, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  zsnso, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  dzsnso, real (kind=kind_phys), intent(in)  sigmaf1, real (kind=kind_phys), intent(in)  garea1, 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(inout)  tg, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout)  stc, real (kind=kind_phys), intent(inout)  snowh, real (kind=kind_phys), intent(inout)  sneqv, real (kind=kind_phys), intent(inout)  sneqvo, real (kind=kind_phys), dimension( 1:nsoil), intent(inout)  sh2o, real (kind=kind_phys), dimension( 1:nsoil), intent(inout)  smc, real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout)  snice, real (kind=kind_phys), dimension(-nsnow+1: 0), intent(inout)  snliq, real (kind=kind_phys), intent(inout)  albold, real (kind=kind_phys), intent(inout)  cm, real (kind=kind_phys), intent(inout)  ch,   ifdef,   CCPP  )

private

Parameters

[in]	nsnow	maximum no. of snow layers
[in]	nsoil	number of soil layers
[in]	isnow	actual no. of snow layers
[in]	dt	time step [sec]
[in]	qsnow	snowfall on the ground (mm/s)
[in]	rhoair	density air (kg/m3)
[in]	eair	vapor pressure air (pa)
[in]	sfcprs	pressure (pa)
[in]	qair	specific humidity (kg/kg)
[in]	sfctmp	air temperature (k)
[in]	lwdn	downward longwave radiation (w/m2)
[in]	uu	wind speed in e-w dir (m/s)
[in]	vv	wind speed in n-s dir (m/s)
[in]	solad	incoming direct solar rad. (w/m2)
[in]	solai	incoming diffuse solar rad. (w/m2)
[in]	cosz	cosine solar zenith angle (0-1)
[in]	zref	reference height (m)
[in]	tbot	bottom condition for soil temp. (k)
[in]	zbot	depth for tbot [m]
[in]	zsnso	layer-bottom depth from snow surf [m]
[in]	dzsnso	depth of snow & soil layer-bottom [m]
[in]	sigmaf1	areal fractional cover of green vegetation
[in]	garea1	area of the grid cell
[in,out]	tg	ground temperature (k)
[in,out]	stc	snow/soil temperature [k]
[in,out]	snowh	snow height [m]
[in,out]	sneqv	snow mass (mm)
[in,out]	sneqvo	snow mass at last time step (mm)
[in,out]	sh2o	liquid soil moisture [m3/m3]
[in,out]	smc	soil moisture (ice + liq.) [m3/m3]
[in,out]	snice	snow ice mass (kg/m2)
[in,out]	snliq	snow liq mass (kg/m2)
[in,out]	albold	snow albedo at last time step(class type)
[in,out]	cm	momentum drag coefficient
[in,out]	ch	sensible heat exchange coefficient

References glacier_flux(), phasechange_glacier(), radiation_glacier(), thermoprop_glacier(), and tsnosoi_glacier().

Referenced by noahmp_glacier().

Here is the call graph for this function:

Here is the caller graph for this function: