POPModule Module

Uses

Functions

public function Exponential(lambda, x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	lambda
integer(kind=i4b),	intent(in)			::	x

Return Value real(kind=dp)

public function REALExponential(lambda, x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	lambda
real(kind=dp),	intent(in)			::	x

Return Value real(kind=dp)

public function CumExponential(lambda, x)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	lambda
real(kind=dp),	intent(in)			::	x

Return Value real(kind=dp)

public function Factorial(n)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n

Return Value real(kind=dp)

public function GetHeight(precip, biomass, density)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	precip
real(kind=dp),	intent(in)			::	biomass
real(kind=dp),	intent(in)			::	density

Return Value real(kind=dp)

public function Area_Triangle(x1, y1, x2, y2, x3, y3)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	x1
real(kind=dp),	intent(in)			::	y1
real(kind=dp),	intent(in)			::	x2
real(kind=dp),	intent(in)			::	y2
real(kind=dp),	intent(in)			::	x3
real(kind=dp),	intent(in)			::	y3

Return Value real(kind=dp)

Subroutines

public subroutine ZeroPOP(POP, n)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer,	intent(in),	optional		::	n

public subroutine InitPOP2D_Poisson(POP, mean_disturbance_interval, m)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	mean_disturbance_interval(:,:)
integer(kind=i4b),	intent(in),	optional		::	m

public subroutine POPStep(POP, StemNPP, disturbance_interval, disturbance_intensity, LAI, Cleaf, Croot, NPPtoGPP, StemNPP_av, frac_intensity1, precip)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
real(kind=dp),	intent(in)			::	StemNPP(:,:)
integer(kind=i4b),	intent(in)			::	disturbance_interval(:,:)
real(kind=dp),	intent(in)			::	disturbance_intensity(:,:)
real(kind=dp),	intent(in)			::	LAI(:)
real(kind=dp),	intent(in)			::	Cleaf(:)
real(kind=dp),	intent(in)			::	Croot(:)
real(kind=dp),	intent(in)			::	NPPtoGPP(:)
real(kind=dp),	intent(in),	optional		::	StemNPP_av(:)
real(kind=dp),	intent(in),	optional		::	frac_intensity1(:)
real(kind=dp),	intent(in),	optional		::	precip(:)

public subroutine PatchAnnualDynamics(pop, StemNPP, NPPtoGPP, disturbance_interval, it, precip, StemNPP_av)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	pop
real(kind=dp),	intent(in)			::	StemNPP(:,:)
real(kind=dp),	intent(in)			::	NPPtoGPP(:)
integer(kind=i4b),	intent(in)			::	disturbance_interval(:,:)
integer(kind=i4b),	intent(in)			::	it(:)
real(kind=dp),	intent(in),	optional		::	precip(:)
real(kind=dp),	intent(in),	optional		::	StemNPP_av(:)

public subroutine GetUniqueAgeFrequencies(POP, disturbance_interval, idisturb, it)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	disturbance_interval(:,:)
integer(kind=i4b),	intent(in)			::	idisturb
integer(kind=i4b),	intent(in)			::	it(:)

public subroutine GetPatchFrequencies(POP, it)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	it(:)

public subroutine GetDiagnostics(POP, LAI, Cleaf, Croot, disturbance_interval, it, precip)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
real(kind=dp),	intent(in)			::	LAI(:)
real(kind=dp),	intent(in)			::	Cleaf(:)
real(kind=dp),	intent(in)			::	Croot(:)
integer(kind=i4b),	intent(in)			::	disturbance_interval(:,:)
integer(kind=i4b),	intent(in)			::	it(:)
real(kind=dp),	intent(in),	optional		::	precip(:)

public subroutine Patch_partial_disturb(POP, idisturb, intensity, precip, frac_intensity1)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	idisturb
real(kind=dp),	intent(in)			::	intensity(:,:)
real(kind=dp),	intent(in),	optional		::	precip(:)
real(kind=dp),	intent(in),	optional		::	frac_intensity1(:)

public subroutine Patch_partial_disturb2(POP, idisturb, precip)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	idisturb
real(kind=dp),	intent(in),	optional		::	precip(:)

public subroutine Patch_disturb(POP, idisturb, precip)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	idisturb
real(kind=dp),	intent(in),	optional		::	precip(:)

public subroutine layer_recruitment(POP, precip)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
real(kind=dp),	intent(in),	optional		::	precip(:)

public subroutine layer_recruitment_single_patch(POP, index, grid_index, precip)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	index
integer(kind=i4b),	intent(in)			::	grid_index
real(kind=dp),	intent(in),	optional		::	precip(:)

public subroutine GET_ALLOMETRY(ALLOM_SWITCH, biomass, density, ht, diam, basal, precip)

Arguments

Type	Intent	Optional	Attributes		Name
integer(kind=i4b),	intent(in)			::	ALLOM_SWITCH
real(kind=dp),	intent(in)			::	biomass
real(kind=dp),	intent(in)			::	density
real(kind=dp),	intent(out)			::	ht
real(kind=dp),	intent(out)			::	diam
real(kind=dp),	intent(out)			::	basal
real(kind=dp),	intent(in),	optional		::	precip

public subroutine INTERPOLATE_BIOMASS_1D(POP, disturbance_interval, it, g)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	disturbance_interval(:,:)
integer(kind=i4b),	intent(in)			::	it
integer(kind=i4b),	intent(in)			::	g

public subroutine INTERPOLATE_BIOMASS_2D(POP, disturbance_interval, it, g)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	disturbance_interval(:,:)
integer(kind=i4b),	intent(in)			::	it
integer(kind=i4b),	intent(in)			::	g

public subroutine SMOOTH_FLUX(POP, g, t)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	g
integer(kind=i4b),	intent(in)			::	t

public subroutine SMOOTH_FLUX_cat(POP, g, t)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	g
integer(kind=i4b),	intent(in)			::	t

public subroutine REGRESS(x, y, n, a, b, r)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	x(:)
real(kind=dp),	intent(in)			::	y(:)
integer(kind=i4b),	intent(in)			::	n
real(kind=dp),	intent(out)			::	a
real(kind=dp),	intent(out)			::	b
real(kind=dp),	intent(out)			::	r

public subroutine Allometry(height, biomass, density, diam, basal)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	height
real(kind=dp),	intent(in)			::	biomass
real(kind=dp),	intent(in)			::	density
real(kind=dp),	intent(out)			::	diam
real(kind=dp),	intent(out)			::	basal

public subroutine Williams_Allometry(agbiomass, density, height, dbh, basal)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(in)			::	agbiomass
real(kind=dp),	intent(in)			::	density
real(kind=dp),	intent(out)			::	height
real(kind=dp),	intent(out)			::	dbh
real(kind=dp),	intent(out)			::	basal

public subroutine POP_init(POP, disturbance_interval, np, Iwood, precip)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	disturbance_interval(:,:)
integer(kind=i4b),	intent(in)			::	np
integer(kind=i4b),	intent(in)			::	Iwood(:)
real(kind=dp),	intent(in),	optional		::	precip(:)

public subroutine POP_init_single(POP, disturbance_interval, n, precip)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	disturbance_interval(:,:)
integer(kind=i4b),	intent(in)			::	n
real(kind=dp),	intent(in),	optional		::	precip(:)

public subroutine alloc_POP(POP, arraysize)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer,	intent(in)			::	arraysize