landuse_constant.F90 Source File


This file depends on

sourcefile~~landuse_constant.f90~~EfferentGraph sourcefile~landuse_constant.f90 landuse_constant.F90 sourcefile~cable_define_types.f90 cable_define_types.F90 sourcefile~landuse_constant.f90->sourcefile~cable_define_types.f90 sourcefile~casa_dimension.f90 casa_dimension.F90 sourcefile~landuse_constant.f90->sourcefile~casa_dimension.f90 sourcefile~cable_climate_type_mod.f90 cable_climate_type_mod.F90 sourcefile~cable_define_types.f90->sourcefile~cable_climate_type_mod.f90 sourcefile~casa_dimension.f90->sourcefile~cable_define_types.f90 sourcefile~cable_common.f90 cable_common.F90 sourcefile~cable_climate_type_mod.f90->sourcefile~cable_common.f90 sourcefile~grid_constants_cbl.f90 grid_constants_cbl.F90 sourcefile~cable_climate_type_mod.f90->sourcefile~grid_constants_cbl.f90 sourcefile~cable_runtime_opts_mod.f90 cable_runtime_opts_mod.F90 sourcefile~cable_common.f90->sourcefile~cable_runtime_opts_mod.f90

Files dependent on this one

sourcefile~~landuse_constant.f90~~AfferentGraph sourcefile~landuse_constant.f90 landuse_constant.F90 sourcefile~cable_mpimaster.f90 cable_mpimaster.F90 sourcefile~cable_mpimaster.f90->sourcefile~landuse_constant.f90 sourcefile~landuse3.f90 landuse3.F90 sourcefile~cable_mpimaster.f90->sourcefile~landuse3.f90 sourcefile~casa_cable.f90 casa_cable.F90 sourcefile~cable_mpimaster.f90->sourcefile~casa_cable.f90 sourcefile~bgcdriver.f90 bgcdriver.F90 sourcefile~cable_mpimaster.f90->sourcefile~bgcdriver.f90 sourcefile~cable_serial.f90 cable_serial.F90 sourcefile~cable_serial.f90->sourcefile~landuse_constant.f90 sourcefile~cable_serial.f90->sourcefile~landuse3.f90 sourcefile~cable_serial.f90->sourcefile~casa_cable.f90 sourcefile~cable_serial.f90->sourcefile~bgcdriver.f90 sourcefile~casa_cnp.f90 casa_cnp.F90 sourcefile~casa_cnp.f90->sourcefile~landuse_constant.f90 sourcefile~casa_rplant.f90 casa_rplant.F90 sourcefile~casa_rplant.f90->sourcefile~landuse_constant.f90 sourcefile~casa_rplant.f90->sourcefile~casa_cnp.f90 sourcefile~landuse3.f90->sourcefile~landuse_constant.f90 sourcefile~landuse_inout.f90 landuse_inout.F90 sourcefile~landuse_inout.f90->sourcefile~landuse_constant.f90 sourcefile~landuse_inout.f90->sourcefile~landuse3.f90 sourcefile~biogeochem_casa.f90 biogeochem_casa.F90 sourcefile~biogeochem_casa.f90->sourcefile~casa_cnp.f90 sourcefile~biogeochem_casa.f90->sourcefile~casa_rplant.f90 sourcefile~cable_offline_driver.f90 cable_offline_driver.F90 sourcefile~cable_offline_driver.f90->sourcefile~cable_serial.f90 sourcefile~casa_cable.f90->sourcefile~casa_cnp.f90 sourcefile~casa_feedback.f90 casa_feedback.F90 sourcefile~casa_feedback.f90->sourcefile~casa_cnp.f90 sourcefile~bgcdriver.f90->sourcefile~biogeochem_casa.f90 sourcefile~cable_mpiworker.f90 cable_mpiworker.F90 sourcefile~cable_mpiworker.f90->sourcefile~biogeochem_casa.f90 sourcefile~cable_mpiworker.f90->sourcefile~casa_cable.f90 sourcefile~cable_mpiworker.f90->sourcefile~bgcdriver.f90 sourcefile~casaonly_luc.f90 CASAONLY_LUC.F90 sourcefile~casaonly_luc.f90->sourcefile~biogeochem_casa.f90 sourcefile~casaonly_luc.f90->sourcefile~casa_cable.f90 sourcefile~spincasacnp.f90 spincasacnp.F90 sourcefile~spincasacnp.f90->sourcefile~biogeochem_casa.f90 sourcefile~spincasacnp.f90->sourcefile~casa_cable.f90

Source Code

MODULE landuse_constant
  !! The `landuse_constant` module contains landuse-specific constants.
  !!
  !! **WARNING:** Eventually, `mvmax` in the land-use code should be replaced
  !! with `mvtype`.
  !written by YP Wang
  USE cable_def_types_mod,    ONLY: mvtype,mstype,mland,ms,msn,nrb,ncp,ncs,r_2
  USE casadimension,          ONLY: icycle,mplant,mlitter,msoil,mwood,mso
  IMPLICIT NONE
  !  integer, parameter                     :: sp =selected_real_kind(8)
  !  integer, parameter                     :: dp =selected_real_kind(16)
  INTEGER,   PARAMETER                   :: mstate   = 12
  !* Number of land use states as in HYDE land use dataset processed by
  ! [George Hurtt](https://doi.org/10.5194/gmd-13-5425-2020)
  ! \( (-) \)
  INTEGER,   PARAMETER                   :: mvmax    = 17
  !! Maximum number of plant functional types in CABLE  \( (-) \)
  INTEGER,   PARAMETER                   :: mharvw   = 5           
  !! Number of harvest types \( (-) \)
  real(r_2),    PARAMETER                   :: thresh_frac  = 1.0e-6
  !! Threshold area fraction for a separate tile within a land cell \( (-) \)
  REAL(r_2),    PARAMETER, DIMENSION(mwood) :: fwoodprod    =(/0.3,0.4,0.4/)
  !! Allocation of harvested wood into each wood product pools \( (-) \)
  REAL(r_2),    PARAMETER, DIMENSION(mwood) :: ratewoodprod =(/1.0,0.1,0.01/)
  !! Decay rate of each wood product pools \( ( year^{-1} ) \)
  REAL(r_2),    PARAMETER, DIMENSION(mwood) :: fracwoodseed =(/0.4,0.3,0.3/)
  !! Biomass fraction in leaf, wood and root pools for woody seedlings in a cleared area \( (-) \)
  REAL(r_2),    PARAMETER, DIMENSION(mwood) :: fracgrassseed=(/0.6,0.0,0.4/)
  !! Biomass fraction in leaf wood, and root pools for grassy seedlings in a cleared area \( (-) \)
  REAL(r_2),    PARAMETER                   :: fseedling = 0.001
  !! Total biomass of seedlings in a cleared area \( ( g C \cdot m^{-2} ) \)
END MODULE landuse_constant