define_canopy Subroutine

public subroutine define_canopy(bal, rad, rough, air, met, dels, ssnow, soil, veg, canopy, climate, sunlit_veg_mask, reducedLAIdue2snow)

canopy%fes_cor = 0.0

Arguments

Type	Intent	Optional	Attributes		Name
type(balances_type),	intent(inout)			::	bal
type(radiation_type),	intent(inout)			::	rad
type(roughness_type),	intent(inout)			::	rough
type(air_type),	intent(inout)			::	air
type(met_type),	intent(inout)			::	met
real,	intent(in)			::	dels
type(soil_snow_type),	intent(inout)			::	ssnow
type(soil_parameter_type),	intent(inout)			::	soil
type(veg_parameter_type),	intent(inout)			::	veg
type(canopy_type),	intent(inout)			::	canopy
type(climate_type),	intent(in)			::	climate
logical				::	sunlit_veg_mask(mp)
real				::	reducedLAIdue2snow(mp)