PlantsCohort Derived Type
type, public :: PlantsCohort
Components
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=float), | public | :: | age |
age [years] |
|||
| real(kind=float), | public | :: | apar |
absorbed photosynthetically active radiation (molPAR m-2) |
|||
| real(kind=float), | public | :: | canopy_cover |
percentage of surface stand covered by canopy [0-1] |
|||
| real(kind=float), | public | :: | crown_diameter |
diameter of crown [m] |
|||
| real(kind=float), | public | :: | dbh |
diameter at brest heigth [cm] |
|||
| real(kind=float), | public | :: | density |
number of plants per hectar |
|||
| real(kind=float), | public | :: | gpp |
gross primary production (t/ha) |
|||
| real(kind=float), | public | :: | height |
plants heigth [m] |
|||
| real(kind=float), | public | :: | lai |
leaf area index [m2/m2] |
|||
| real(kind=float), | public | :: | mass_leaf |
mass of leaf (t/ha) |
|||
| real(kind=float), | public | :: | mass_root |
mass of root (t/ha) |
|||
| real(kind=float), | public | :: | mass_stem |
mass of stem (t/ha) |
|||
| real(kind=float), | public | :: | mass_stem_year_previous |
mass of stem of the previous year (t/ha) |
|||
| real(kind=float), | public | :: | mass_total |
total biomass root + stem + foliage (t/ha) |
|||
| type(PlantsCohort), | public, | POINTER | :: | next | => | null() | |
| real(kind=float), | public | :: | npp |
net primary production (t/ha) |
|||
| type(PlantsSpecies), | public | :: | species | ||||
| real(kind=float), | public | :: | stem_yield |
stem mass produced by plants cut (t/ha) |
Source Code
TYPE PlantsCohort !group of plants of the same species that are born during the same year TYPE (PlantsSpecies) :: species !state variables REAL (KIND = float) :: age !!age [years] REAL (KIND = float) :: gpp !! gross primary production (t/ha) REAL (KIND = float) :: npp !! net primary production (t/ha) REAL (KIND = float) :: lai !! leaf area index [m2/m2] REAL (KIND = float) :: mass_root !! mass of root (t/ha) REAL (KIND = float) :: mass_stem !! mass of stem (t/ha) REAL (KIND = float) :: mass_stem_year_previous !! mass of stem of the previous year (t/ha) REAL (KIND = float) :: mass_leaf !! mass of leaf (t/ha) REAL (KIND = float) :: mass_total !! total biomass root + stem + foliage (t/ha) REAL (KIND = float) :: stem_yield !! stem mass produced by plants cut (t/ha) REAL (KIND = float) :: density !! number of plants per hectar REAL (KIND = float) :: height !! plants heigth [m] REAL (KIND = float) :: dbh !!diameter at brest heigth [cm] REAL (KIND = float) :: canopy_cover !! percentage of surface stand covered by canopy [0-1] REAL (KIND = float) :: crown_diameter !! diameter of crown [m] REAL (KIND = float) :: apar !! absorbed photosynthetically active radiation (molPAR m-2) TYPE(PlantsCohort), POINTER :: next =>null() ! pointer to the next cohort in the same stand END TYPE PlantsCohort