vege_flux()

subroutine, private module_sf_noahmplsm::vege_flux ( type (noahmp_parameters), intent(in)  parameters, integer, intent(in)  nsnow, integer, intent(in)  nsoil, integer, intent(in)  isnow, integer, intent(in)  vegtyp, logical, intent(in)  veg, real (kind=kind_phys), intent(in)  dt, real (kind=kind_phys), intent(in)  sav, real (kind=kind_phys), intent(in)  sag, real (kind=kind_phys), intent(in)  lwdn, real (kind=kind_phys), intent(in)  ur, real (kind=kind_phys), intent(in)  uu, real (kind=kind_phys), intent(in)  vv, real (kind=kind_phys), intent(in)  sfctmp, real (kind=kind_phys), intent(in)  thair, real (kind=kind_phys), intent(in)  qair, real (kind=kind_phys), intent(in)  eair, real (kind=kind_phys), intent(in)  rhoair, real (kind=kind_phys), intent(in)  snowh, real (kind=kind_phys), intent(in)  vai, real (kind=kind_phys), intent(in)  gammav, real (kind=kind_phys), intent(in)  gammag, real (kind=kind_phys), intent(in)  fwet, real (kind=kind_phys), intent(in)  laisun, real (kind=kind_phys), intent(in)  laisha, real (kind=kind_phys), intent(in)  cwp, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  dzsnso, real (kind=kind_phys), intent(in)  zlvl, real (kind=kind_phys), intent(in)  zpd, real (kind=kind_phys), intent(in)  z0m, real (kind=kind_phys), intent(in)  fveg, real (kind=kind_phys), intent(in)  shdfac, real (kind=kind_phys), intent(in)  z0mg, real (kind=kind_phys), intent(in)  emv, real (kind=kind_phys), intent(in)  emg, real (kind=kind_phys), intent(in)  canliq, real (kind=kind_phys), intent(in)  fsno, real (kind=kind_phys), intent(in)  canice, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  stc, real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in)  df, real (kind=kind_phys), intent(out)  rssun, real (kind=kind_phys), intent(out)  rssha, real (kind=kind_phys), intent(in)  rsurf, real (kind=kind_phys), intent(in)  latheav, real (kind=kind_phys), intent(in)  latheag, real (kind=kind_phys), intent(in)  parsun, real (kind=kind_phys), intent(in)  parsha, real (kind=kind_phys), intent(in)  igs, real (kind=kind_phys), intent(in)  foln, real (kind=kind_phys), intent(in)  co2air, real (kind=kind_phys), intent(in)  o2air, real (kind=kind_phys), intent(in)  btran, real (kind=kind_phys), intent(in)  sfcprs, real (kind=kind_phys), intent(in)  rhsur, integer, intent(in)  iloc, integer, intent(in)  jloc, real (kind=kind_phys), intent(in)  q2, real (kind=kind_phys), intent(in)  pahv, real (kind=kind_phys), intent(in)  pahg, 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)  garea1, real (kind=kind_phys), intent(in)  pblhx, integer, intent(in)  iz0tlnd, integer, intent(in)  itime, integer, intent(in)  psi_opt, real (kind=kind_phys), intent(in)  ep_1, real (kind=kind_phys), intent(in)  ep_2, real (kind=kind_phys), intent(in)  cp, real (kind=kind_phys), intent(inout)  eah, real (kind=kind_phys), intent(inout)  tah, real (kind=kind_phys), intent(inout)  tv, real (kind=kind_phys), intent(inout)  tg, real (kind=kind_phys), intent(inout)  cm, real (kind=kind_phys), intent(inout)  ustarx,   ifdef,   CCPP  )

private

Parameters

[in]	iloc	grid index
[in]	jloc	grid index
[in]	veg	true if vegetated surface
[in]	nsnow	maximum no. of snow layers
[in]	nsoil	number of soil layers
[in]	isnow	actual no. of snow layers
[in]	vegtyp	vegetation physiology type
[in]	fveg	greeness vegetation fraction (-)
[in]	sav	solar rad absorbed by veg (w/m2)
[in]	sag	solar rad absorbed by ground (w/m2)
[in]	lwdn	atmospheric longwave radiation (w/m2)
[in]	ur	wind speed at height zlvl (m/s)
[in]	uu	wind speed in eastward dir (m/s)
[in]	vv	wind speed in northward dir (m/s)
[in]	sfctmp	air temperature at reference height (k)
[in]	thair	potential temp at reference height (k)
[in]	eair	vapor pressure air at zlvl (pa)
[in]	qair	specific humidity at zlvl (kg/kg)
[in]	rhoair	density air (kg/m**3)
[in]	dt	time step (s)
[in]	fsno	snow fraction
[in]	pblhx	pbl height
[in]	snowh	actual snow depth [m]
[in]	fwet	wetted fraction of canopy
[in]	cwp	canopy wind parameter
[in]	vai	total leaf area index + stem area index
[in]	laisun	sunlit leaf area index, one-sided (m2/m2)
[in]	laisha	shaded leaf area index, one-sided (m2/m2)
[in]	zlvl	reference height (m)
[in]	zpd	zero plane displacement (m)
[in]	z0m	roughness length, momentum (m)
[in]	z0mg	roughness length, momentum, ground (m)
[in]	emv	vegetation emissivity
[in]	emg	ground emissivity
[in]	stc	soil/snow temperature (k)
[in]	df	thermal conductivity of snow/soil (w/m/k)
[in]	dzsnso	thinkness of snow/soil layers (m)
[in]	canliq	intercepted liquid water (mm)
[in]	canice	intercepted ice mass (mm)
[in]	rsurf	ground surface resistance (s/m)
[in]	gammav	psychrometric constant (pa/k)
[in]	latheav	latent heat of vaporization/subli (j/kg)
[in]	gammag	psychrometric constant (pa/k)
[in]	latheag	latent heat of vaporization/subli (j/kg)
[in]	parsun	par absorbed per unit sunlit lai (w/m2)
[in]	parsha	par absorbed per unit shaded lai (w/m2)
[in]	foln	foliage nitrogen (%)
[in]	co2air	atmospheric co2 concentration (pa)
[in]	o2air	atmospheric o2 concentration (pa)
[in]	igs	growing season index (0=off, 1=on)
[in]	sfcprs	pressure (pa)
[in]	btran	soil water transpiration factor (0 to 1)
[in]	rhsur	raltive humidity in surface soil/snow air space (-)
[in]	q2	mixing ratio (kg/kg)
[in]	pahv	precipitation advected heat - canopy net in (w/m2)
[in]	pahg	precipitation advected heat - ground net in (w/m2)
[in,out]	eah	canopy air vapor pressure (pa)
[in,out]	tah	canopy air temperature (k)
[in,out]	tv	vegetation temperature (k)
[in,out]	tg	ground temperature (k)
[in,out]	cm	momentum drag coefficient

References canres(), esat(), ragrb(), sfcdif1(), sfcdif2(), sfcdif3(), sfcdif4(), stomata(), and thermalz0().

Referenced by energy().

Here is the call graph for this function:

Here is the caller graph for this function: