CanopyFluxesMod Module



Variables

Type Visibility Attributes Name Initial
logical, public :: perchroot = .false.
logical, public :: perchroot_alt = .false.

Subroutines

public subroutine CanopyFluxesReadNML(NLFilename)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: NLFilename

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

Read more…

Arguments

Type IntentOptional 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:)