vege_flux()

subroutine __module_sf_noahmplsm_f90__::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) epsm1, 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: