PlantsAllometrics Module

History

current version 1.0 - 29st April 2019

version date comment
1.0 29/Apr/2019 Original code

License

license: GNU GPL http://www.gnu.org/licenses/

Module Description

Module defining quantitative relations between some key characteristic dimensions of trees (usually fairly easy to measure) and other properties (often more difficult to assess).


Uses


Functions

public function CanopyCover(dc, den) result(cc)

compute canopy cover (0-1)

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: dc

crown diameter (m)
real(kind=float), intent(in) :: den

tree density (trees/ha)

Return Value real(kind=float)

returned result

public function CrownDiameter(dbh, den, denmin, denmax, dbhdcmin, dbhdcmax) result(cd)

compute crown doameter (m)

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: dbh

diameter at brest height (cm)
real(kind=float), intent(in) :: den

current tree density (trees/ha)
real(kind=float), intent(in) :: denmin

minimum tree density (trees/ha)
real(kind=float), intent(in) :: denmax

minimum tree density (trees/ha)
real(kind=float), intent(in) :: dbhdcmin

minimum ratio between stem and crown diameters (m/cm)
real(kind=float), intent(in) :: dbhdcmax

maximum ratio between stem and crown diameters (m/cm)

Return Value real(kind=float)

returned result

public function DBHvsStemBiomass(ws, n, as, ns) result(dbh)

relationship between DBH (Diameter at Brest Height) and stem biomass.

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: ws

stem biomass (t)
real(kind=float), intent(in) :: n

number of trees
real(kind=float), intent(in) :: as

scaling coefficient
real(kind=float), intent(in) :: ns

scaling exponent

Return Value real(kind=float)

diameter at brest height (cm)

public function HeightVsDBH(dbh, cra, crb, crc) result(height)

relationship between tree height and DBH (Diameter at Brest Height). Implements Chapman-Richards relationship

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: dbh

diameter at brest height (cm)
real(kind=float), intent(in) :: cra

Chapman-Richards asymptotic maximum height
real(kind=float), intent(in) :: crb

Chapman-Richards exponential decay parameter
real(kind=float), intent(in) :: crc

Chapman-Richards shape parameter

Return Value real(kind=float)

tree eight (m)

public function StemBiomassVsDBH(dbh, n, as, ns) result(ws)

relationship between stem biomass andDBH (Diameter at Brest Height).

Read more…

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: dbh

diameter at brest height (cm)

real(kind=float), intent(in) :: n

number of trees
real(kind=float), intent(in) :: as

scaling coefficient
real(kind=float), intent(in) :: ns

scaling exponent

Return Value real(kind=float)

stem biomass (t)

private function DBHDCeff(dbhdcmin, dbhdcmax, den, denmin, denmax) result(dbhdc)

Compute the actual ratio DBH-crown diameter: crown/dbh (m/cm)

Arguments

Type IntentOptional Attributes Name
real(kind=float), intent(in) :: dbhdcmin

minimum ratio between stem and crown diameters (m/cm)
real(kind=float), intent(in) :: dbhdcmax

maximum ratio between stem and crown diameters (m/cm)
real(kind=float), intent(in) :: den

current tree density (trees/ha)
real(kind=float), intent(in) :: denmin

minimum tree density (trees/ha)
real(kind=float), intent(in) :: denmax

minimum tree density (trees/ha)

Return Value real(kind=float)

returned result