cable_psm Module


Uses


Variables

Type Visibility Attributes Name Initial
real(kind=r_2), public, parameter :: rt_Dff = 2.5e-5
real(kind=r_2), public, parameter :: lm = 1.73e-5
real(kind=r_2), public, parameter :: c2 = 2.0
real(kind=r_2), public, parameter :: litter_thermal_diff = 2.7e-5
real(kind=r_2), public, parameter :: rtevap_max = 10000.0
real(kind=r_2), public, parameter, DIMENSION(0:8) :: gamma_pre = (/0.99999999999980993, 676.5203681218851, -1259.1392167224028, 771.32342877765313, -176.61502916214059, 12.507343278686905, -0.13857109526572012, 9.9843695780195716e-6, 1.5056327351493116e-7/)
integer, public, parameter :: c_gamma = 7
real(kind=r_2), public, parameter :: pi_r_2 = 3.14159

Functions

public recursive function my_gamma(a) result(g)

Arguments

Type IntentOptional Attributes Name
real(kind=r_2), intent(in) :: a

Return Value real(kind=r_2)


Subroutines

public subroutine or_soil_evap_resistance(soil, air, met, canopy, ssnow, veg, rough)

Arguments

Type IntentOptional Attributes Name
type(soil_parameter_type), intent(inout) :: soil
type(air_type), intent(inout) :: air
type(met_type), intent(inout) :: met
type(canopy_type), intent(inout) :: canopy
type(soil_snow_type), intent(inout) :: ssnow
type(veg_parameter_type), intent(inout) :: veg
type(roughness_type), intent(inout) :: rough

public subroutine update_or_soil_resis(ssnow, canopy, veg, dq, dqu)

Arguments

Type IntentOptional Attributes Name
type(soil_snow_type), intent(inout) :: ssnow
type(canopy_type), intent(inout) :: canopy
type(veg_parameter_type), intent(inout) :: veg
real, intent(in), DIMENSION(mp) :: dq
real, intent(in), DIMENSION(mp) :: dqu