FatesAllometryMod Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
integer,	public,	parameter	::	i_hydro_rootprof_context	=	1
integer,	public,	parameter	::	i_biomass_rootprof_context	=	2

Functions

public function tree_lai(leaf_c, pft, c_area, nplant, cl, canopy_lai, vcmax25top)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	leaf_c
integer,	intent(in)			::	pft
real(kind=r8),	intent(in)			::	c_area
real(kind=r8),	intent(in)			::	nplant
integer,	intent(in)			::	cl
real(kind=r8),	intent(in)			::	canopy_lai(nclmax)
real(kind=r8),	intent(in)			::	vcmax25top

Return Value real(kind=r8)

public function tree_sai(pft, dbh, canopy_trim, c_area, nplant, cl, canopy_lai, treelai, vcmax25top, call_id)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	pft
real(kind=r8),	intent(in)			::	dbh
real(kind=r8),	intent(in)			::	canopy_trim
real(kind=r8),	intent(in)			::	c_area
real(kind=r8),	intent(in)			::	nplant
integer,	intent(in)			::	cl
real(kind=r8),	intent(in)			::	canopy_lai(nclmax)
real(kind=r8),	intent(in)			::	treelai
real(kind=r8),	intent(in)			::	vcmax25top
integer,	intent(in)			::	call_id

Return Value real(kind=r8)

public function decay_coeff_kn(pft, vcmax25top)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	pft
real(kind=r8),	intent(in)			::	vcmax25top

Return Value real(kind=r8)

Subroutines

public subroutine CheckIntegratedAllometries(dbh, ipft, canopy_trim, bl, bfr, bsap, bstore, bdead, grow_leaf, grow_fr, grow_sap, grow_store, grow_dead, max_err, l_pass)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	dbh
integer,	intent(in)			::	ipft
real(kind=r8),	intent(in)			::	canopy_trim
real(kind=r8),	intent(in)			::	bl
real(kind=r8),	intent(in)			::	bfr
real(kind=r8),	intent(in)			::	bsap
real(kind=r8),	intent(in)			::	bstore
real(kind=r8),	intent(in)			::	bdead
logical,	intent(in)			::	grow_leaf
logical,	intent(in)			::	grow_fr
logical,	intent(in)			::	grow_sap
logical,	intent(in)			::	grow_store
logical,	intent(in)			::	grow_dead
real(kind=r8),	intent(in)			::	max_err
logical,	intent(out)			::	l_pass

public subroutine h2d_allom(h, ipft, d, dddh)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	h
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(out)			::	d
real(kind=r8),	intent(out),	optional		::	dddh

public subroutine h_allom(d, ipft, h, dhdd)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	d
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(out)			::	h
real(kind=r8),	intent(out),	optional		::	dhdd

public subroutine bagw_allom(d, ipft, bagw, dbagwdd)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	d
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(out)			::	bagw
real(kind=r8),	intent(out),	optional		::	dbagwdd

public subroutine blmax_allom(d, ipft, blmax, dblmaxdd)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	d
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(out)			::	blmax
real(kind=r8),	intent(out),	optional		::	dblmaxdd

public subroutine carea_allom(dbh, nplant, site_spread, ipft, c_area, inverse)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(inout)			::	dbh
real(kind=r8),	intent(in)			::	nplant
real(kind=r8),	intent(in)			::	site_spread
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(inout)			::	c_area
logical,	intent(in),	optional		::	inverse

public subroutine bleaf(d, ipft, canopy_trim, bl, dbldd)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	d
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(in)			::	canopy_trim
real(kind=r8),	intent(out)			::	bl
real(kind=r8),	intent(out),	optional		::	dbldd

public subroutine storage_fraction_of_target(b_leaf, bstore, frac)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	b_leaf
real(kind=r8),	intent(in)			::	bstore
real(kind=r8),	intent(out)			::	frac

public subroutine bsap_allom(d, ipft, canopy_trim, sapw_area, bsap, dbsapdd)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	d
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(in)			::	canopy_trim
real(kind=r8),	intent(out)			::	sapw_area
real(kind=r8),	intent(out)			::	bsap
real(kind=r8),	intent(out),	optional		::	dbsapdd

public subroutine bbgw_allom(d, ipft, bbgw, dbbgwdd)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	d
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(out)			::	bbgw
real(kind=r8),	intent(out),	optional		::	dbbgwdd

public subroutine bfineroot(d, ipft, canopy_trim, bfr, dbfrdd)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	d
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(in)			::	canopy_trim
real(kind=r8),	intent(out)			::	bfr
real(kind=r8),	intent(out),	optional		::	dbfrdd

public subroutine bstore_allom(d, ipft, canopy_trim, bstore, dbstoredd)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	d
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(in)			::	canopy_trim
real(kind=r8),	intent(out)			::	bstore
real(kind=r8),	intent(out),	optional		::	dbstoredd

public subroutine bdead_allom(bagw, bbgw, bsap, ipft, bdead, dbagwdd, dbbgwdd, dbsapdd, dbdeaddd)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	bagw
real(kind=r8),	intent(in)			::	bbgw
real(kind=r8),	intent(in)			::	bsap
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(out)			::	bdead
real(kind=r8),	intent(in),	optional		::	dbagwdd
real(kind=r8),	intent(in),	optional		::	dbbgwdd
real(kind=r8),	intent(in),	optional		::	dbsapdd
real(kind=r8),	intent(out),	optional		::	dbdeaddd

public subroutine CrownDepth(height, crown_depth)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(in)			::	height
real(kind=r8),	intent(out)			::	crown_depth

public subroutine set_root_fraction(root_fraction, ft, zi, icontext)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r8),	intent(inout)			::	root_fraction(:)
integer,	intent(in)			::	ft
real(kind=r8),	intent(in)			::	zi(0:)
integer,	intent(in)			::	icontext

public subroutine ForceDBH(ipft, canopy_trim, d, h, bdead, bl)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=i4),	intent(in)			::	ipft
real(kind=r8),	intent(in)			::	canopy_trim
real(kind=r8),	intent(inout)			::	d
real(kind=r8),	intent(out)			::	h
real(kind=r8),	intent(in),	optional		::	bdead
real(kind=r8),	intent(in),	optional		::	bl