pftconMod Module


Uses


Variables

Type Visibility Attributes Name Initial
integer, public :: noveg
integer, public :: ndllf_evr_tmp_tree
integer, public :: ndllf_evr_brl_tree
integer, public :: ndllf_dcd_brl_tree
integer, public :: nbrdlf_evr_trp_tree
integer, public :: nbrdlf_evr_tmp_tree
integer, public :: nbrdlf_dcd_trp_tree
integer, public :: nbrdlf_dcd_tmp_tree
integer, public :: nbrdlf_dcd_brl_tree
integer, public :: ntree
integer, public :: nbrdlf_evr_shrub
integer, public :: nbrdlf_dcd_tmp_shrub
integer, public :: nbrdlf_dcd_brl_shrub
integer, public :: nc3_arctic_grass
integer, public :: nc3_nonarctic_grass
integer, public :: nc4_grass
integer, public :: npcropmin
integer, public :: ntmp_corn
integer, public :: nirrig_tmp_corn
integer, public :: nswheat
integer, public :: nirrig_swheat
integer, public :: nwwheat
integer, public :: nirrig_wwheat
integer, public :: ntmp_soybean
integer, public :: nirrig_tmp_soybean
integer, public :: nbarley
integer, public :: nirrig_barley
integer, public :: nwbarley
integer, public :: nirrig_wbarley
integer, public :: nrye
integer, public :: nirrig_rye
integer, public :: nwrye
integer, public :: nirrig_wrye
integer, public :: ncassava
integer, public :: nirrig_cassava
integer, public :: ncitrus
integer, public :: nirrig_citrus
integer, public :: ncocoa
integer, public :: nirrig_cocoa
integer, public :: ncoffee
integer, public :: nirrig_coffee
integer, public :: ncotton
integer, public :: nirrig_cotton
integer, public :: ndatepalm
integer, public :: nirrig_datepalm
integer, public :: nfoddergrass
integer, public :: nirrig_foddergrass
integer, public :: ngrapes
integer, public :: nirrig_grapes
integer, public :: ngroundnuts
integer, public :: nirrig_groundnuts
integer, public :: nmillet
integer, public :: nirrig_millet
integer, public :: noilpalm
integer, public :: nirrig_oilpalm
integer, public :: npotatoes
integer, public :: nirrig_potatoes
integer, public :: npulses
integer, public :: nirrig_pulses
integer, public :: nrapeseed
integer, public :: nirrig_rapeseed
integer, public :: nrice
integer, public :: nirrig_rice
integer, public :: nsorghum
integer, public :: nirrig_sorghum
integer, public :: nsugarbeet
integer, public :: nirrig_sugarbeet
integer, public :: nsugarcane
integer, public :: nirrig_sugarcane
integer, public :: nsunflower
integer, public :: nirrig_sunflower
integer, public :: nmiscanthus
integer, public :: nirrig_miscanthus
integer, public :: nswitchgrass
integer, public :: nirrig_switchgrass
integer, public :: ntrp_corn
integer, public :: nirrig_trp_corn
integer, public :: ntrp_soybean
integer, public :: nirrig_trp_soybean
integer, public :: npcropmax
integer, public :: nc3crop
integer, public :: nc3irrig
integer, public :: num_cfts_known_to_model
type(pftcon_type), public :: pftcon
integer, public, parameter :: pftname_len = 40
character(len=pftname_len), public :: pftname(0:mxpft)
real(kind=r8), public, parameter :: reinickerp = 1.6_r8
real(kind=r8), public, parameter :: dwood = 2.5e5_r8
real(kind=r8), public, parameter :: allom1 = 100.0_r8
real(kind=r8), public, parameter :: allom2 = 40.0_r8
real(kind=r8), public, parameter :: allom3 = 0.5_r8
real(kind=r8), public, parameter :: allom1s = 250.0_r8
real(kind=r8), public, parameter :: allom2s = 8.0_r8
real(kind=r8), public, parameter :: root_density = 0.31e06_r8
real(kind=r8), public, parameter :: root_radius = 0.29e-03_r8

Derived Types

type, public ::  pftcon_type

Components

Type Visibility Attributes Name Initial
integer, public, allocatable :: noveg(:)
integer, public, allocatable :: tree(:)
real(kind=r8), public, allocatable :: dleaf(:)
real(kind=r8), public, allocatable :: c3psn(:)
real(kind=r8), public, allocatable :: xl(:)
real(kind=r8), public, allocatable :: rhol(:,:)
real(kind=r8), public, allocatable :: rhos(:,:)
real(kind=r8), public, allocatable :: taul(:,:)
real(kind=r8), public, allocatable :: taus(:,:)
real(kind=r8), public, allocatable :: z0mr(:)
real(kind=r8), public, allocatable :: displar(:)
real(kind=r8), public, allocatable :: roota_par(:)
real(kind=r8), public, allocatable :: rootb_par(:)
real(kind=r8), public, allocatable :: crop(:)
real(kind=r8), public, allocatable :: irrigated(:)
real(kind=r8), public, allocatable :: smpso(:)
real(kind=r8), public, allocatable :: smpsc(:)
real(kind=r8), public, allocatable :: fnitr(:)
real(kind=r8), public, allocatable :: dwood(:)
real(kind=r8), public, allocatable :: slatop(:)
real(kind=r8), public, allocatable :: dsladlai(:)
real(kind=r8), public, allocatable :: leafcn(:)
real(kind=r8), public, allocatable :: flnr(:)
real(kind=r8), public, allocatable :: woody(:)
real(kind=r8), public, allocatable :: lflitcn(:)
real(kind=r8), public, allocatable :: frootcn(:)
real(kind=r8), public, allocatable :: livewdcn(:)
real(kind=r8), public, allocatable :: deadwdcn(:)
real(kind=r8), public, allocatable :: grperc(:)
real(kind=r8), public, allocatable :: grpnow(:)
real(kind=r8), public, allocatable :: rootprof_beta(:,:)
real(kind=r8), public, allocatable :: root_radius(:)
real(kind=r8), public, allocatable :: root_density(:)
integer, public, allocatable :: mergetoclmpft(:)
logical, public, allocatable :: is_pft_known_to_model(:)
real(kind=r8), public, allocatable :: graincn(:)
real(kind=r8), public, allocatable :: mxtmp(:)
real(kind=r8), public, allocatable :: baset(:)
real(kind=r8), public, allocatable :: declfact(:)
real(kind=r8), public, allocatable :: bfact(:)
real(kind=r8), public, allocatable :: aleaff(:)
real(kind=r8), public, allocatable :: arootf(:)
real(kind=r8), public, allocatable :: astemf(:)
real(kind=r8), public, allocatable :: arooti(:)
real(kind=r8), public, allocatable :: fleafi(:)
real(kind=r8), public, allocatable :: allconsl(:)
real(kind=r8), public, allocatable :: allconss(:)
real(kind=r8), public, allocatable :: ztopmx(:)
real(kind=r8), public, allocatable :: laimx(:)
real(kind=r8), public, allocatable :: gddmin(:)
real(kind=r8), public, allocatable :: hybgdd(:)
real(kind=r8), public, allocatable :: lfemerg(:)
real(kind=r8), public, allocatable :: grnfill(:)
integer, public, allocatable :: mxmat(:)
real(kind=r8), public, allocatable :: mbbopt(:)
real(kind=r8), public, allocatable :: medlynslope(:)
real(kind=r8), public, allocatable :: medlynintercept(:)
integer, public, allocatable :: mnNHplantdate(:)
integer, public, allocatable :: mxNHplantdate(:)
integer, public, allocatable :: mnSHplantdate(:)
integer, public, allocatable :: mxSHplantdate(:)
real(kind=r8), public, allocatable :: planttemp(:)
real(kind=r8), public, allocatable :: minplanttemp(:)
real(kind=r8), public, allocatable :: froot_leaf(:)
real(kind=r8), public, allocatable :: stem_leaf(:)
real(kind=r8), public, allocatable :: croot_stem(:)
real(kind=r8), public, allocatable :: flivewd(:)
real(kind=r8), public, allocatable :: fcur(:)
real(kind=r8), public, allocatable :: fcurdv(:)
real(kind=r8), public, allocatable :: lf_flab(:)
real(kind=r8), public, allocatable :: lf_fcel(:)
real(kind=r8), public, allocatable :: lf_flig(:)
real(kind=r8), public, allocatable :: fr_flab(:)
real(kind=r8), public, allocatable :: fr_fcel(:)
real(kind=r8), public, allocatable :: fr_flig(:)
real(kind=r8), public, allocatable :: leaf_long(:)
real(kind=r8), public, allocatable :: evergreen(:)
real(kind=r8), public, allocatable :: stress_decid(:)
real(kind=r8), public, allocatable :: season_decid(:)
real(kind=r8), public, allocatable :: pconv(:)
real(kind=r8), public, allocatable :: pprod10(:)
real(kind=r8), public, allocatable :: pprod100(:)
real(kind=r8), public, allocatable :: pprodharv10(:)
real(kind=r8), public, allocatable :: cc_leaf(:)
real(kind=r8), public, allocatable :: cc_lstem(:)
real(kind=r8), public, allocatable :: cc_dstem(:)
real(kind=r8), public, allocatable :: cc_other(:)
real(kind=r8), public, allocatable :: fm_leaf(:)
real(kind=r8), public, allocatable :: fm_lstem(:)
real(kind=r8), public, allocatable :: fm_dstem(:)
real(kind=r8), public, allocatable :: fm_other(:)
real(kind=r8), public, allocatable :: fm_root(:)
real(kind=r8), public, allocatable :: fm_lroot(:)
real(kind=r8), public, allocatable :: fm_droot(:)
real(kind=r8), public, allocatable :: fsr_pft(:)
real(kind=r8), public, allocatable :: fd_pft(:)
real(kind=r8), public, allocatable :: manunitro(:)
real(kind=r8), public, allocatable :: fleafcn(:)
real(kind=r8), public, allocatable :: ffrootcn(:)
real(kind=r8), public, allocatable :: fstemcn(:)
real(kind=r8), public, allocatable :: i_vcad(:)
real(kind=r8), public, allocatable :: s_vcad(:)
real(kind=r8), public, allocatable :: i_flnr(:)
real(kind=r8), public, allocatable :: s_flnr(:)
real(kind=r8), public, allocatable :: pftpar20(:)
real(kind=r8), public, allocatable :: pftpar28(:)
real(kind=r8), public, allocatable :: pftpar29(:)
real(kind=r8), public, allocatable :: pftpar30(:)
real(kind=r8), public, allocatable :: pftpar31(:)
real(kind=r8), public, allocatable :: a_fix(:)
real(kind=r8), public, allocatable :: b_fix(:)
real(kind=r8), public, allocatable :: c_fix(:)
real(kind=r8), public, allocatable :: s_fix(:)
real(kind=r8), public, allocatable :: akc_active(:)
real(kind=r8), public, allocatable :: akn_active(:)
real(kind=r8), public, allocatable :: ekc_active(:)
real(kind=r8), public, allocatable :: ekn_active(:)
real(kind=r8), public, allocatable :: kc_nonmyc(:)
real(kind=r8), public, allocatable :: kn_nonmyc(:)
real(kind=r8), public, allocatable :: kr_resorb(:)
real(kind=r8), public, allocatable :: perecm(:)
real(kind=r8), public, allocatable :: fun_cn_flex_a(:)
real(kind=r8), public, allocatable :: fun_cn_flex_b(:)
real(kind=r8), public, allocatable :: fun_cn_flex_c(:)
real(kind=r8), public, allocatable :: FUN_fracfixers(:)
real(kind=r8), public, allocatable :: root_dmx(:)

Type-Bound Procedures

procedure, public :: Init
procedure, public :: InitForTesting
procedure, public :: Clean

Subroutines

public subroutine Init(this)

Arguments

Type IntentOptional Attributes Name
class(pftcon_type) :: this

public subroutine InitForTesting(this)

Arguments

Type IntentOptional Attributes Name
class(pftcon_type) :: this

public subroutine InitAllocate(this)

Arguments

Type IntentOptional Attributes Name
class(pftcon_type) :: this

public subroutine InitRead(this)

Arguments

Type IntentOptional Attributes Name
class(pftcon_type) :: this

public subroutine set_is_pft_known_to_model(this)

Arguments

Type IntentOptional Attributes Name
class(pftcon_type), intent(inout) :: this

public subroutine set_num_cfts_known_to_model(this)

Arguments

Type IntentOptional Attributes Name
class(pftcon_type), intent(in) :: this

public subroutine Clean(this)

Arguments

Type IntentOptional Attributes Name
class(pftcon_type), intent(inout) :: this