CanopyFluxes Subroutine

public subroutine CanopyFluxes(bounds, num_exposedvegp, filter_exposedvegp, clm_fates, nc, atm2lnd_inst, canopystate_inst, energyflux_inst, frictionvel_inst, soilstate_inst, solarabs_inst, surfalb_inst, temperature_inst, waterflux_inst, waterstate_inst, ch4_inst, ozone_inst, photosyns_inst, humanindex_inst, soil_water_retention_curve, downreg_patch, leafn_patch, froot_carbon, croot_carbon)

modify csoilc value (0.004) if the under-canopy is in stable condition

Sakaguchi changes for stability formulation ends here

Arguments

Type	Intent	Optional	Attributes		Name
type(bounds_type),	intent(in)			::	bounds
integer,	intent(in)			::	num_exposedvegp
integer,	intent(in)			::	filter_exposedvegp(:)
type(hlm_fates_interface_type),	intent(inout)			::	clm_fates
integer,	intent(in)			::	nc
type(atm2lnd_type),	intent(in)			::	atm2lnd_inst
type(CanopyState_type),	intent(inout)			::	canopystate_inst
type(energyflux_type),	intent(inout)			::	energyflux_inst
type(frictionvel_type),	intent(inout)			::	frictionvel_inst
type(soilstate_type),	intent(inout)			::	soilstate_inst
type(solarabs_type),	intent(inout)			::	solarabs_inst
type(surfalb_type),	intent(in)			::	surfalb_inst
type(temperature_type),	intent(inout)			::	temperature_inst
type(waterflux_type),	intent(inout)			::	waterflux_inst
type(waterstate_type),	intent(inout)			::	waterstate_inst
type(ch4_type),	intent(inout)			::	ch4_inst
class(ozone_base_type),	intent(inout)			::	ozone_inst
type(photosyns_type),	intent(inout)			::	photosyns_inst
type(humanindex_type),	intent(inout)			::	humanindex_inst
class(soil_water_retention_curve_type),	intent(in)			::	soil_water_retention_curve
real(kind=r8),	intent(in)			::	downreg_patch(bounds%begp:)
real(kind=r8),	intent(in)			::	leafn_patch(bounds%begp:)
real(kind=r8),	intent(inout)			::	froot_carbon(bounds%begp:)
real(kind=r8),	intent(inout)			::	croot_carbon(bounds%begp:)