POPLUC_Module Module

Uses

Functions

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)

Subroutines

public subroutine ZeroPOPLUC(POPLUC)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(inout)			::	POPLUC

public subroutine execute_luc_event(from_state, to_state, frac_change_grid, g, POPLUC)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=5),	intent(in)			::	from_state
character(len=5),	intent(in)			::	to_state
real(kind=dp),	intent(inout)			::	frac_change_grid
integer(kind=i4b),	intent(in)			::	g
type(POPLUC_TYPE),	intent(inout)			::	POPLUC

public subroutine CALCULATE_WEIGHTS(POPLUC, g)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(inout)			::	POPLUC
integer(kind=i4b),	intent(in)			::	g

public subroutine INCREMENT_AGE(POPLUC, g)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(inout)			::	POPLUC
integer(kind=i4b),	intent(in)			::	g

public subroutine POPLUCStep(POPLUC, year)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(inout)			::	POPLUC
integer(kind=i4b),	intent(in)			::	year

public subroutine POPLUC_weights_transfer(POPLUC, POP, LUC_EXPT)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(in)			::	POPLUC
type(POP_TYPE),	intent(inout)			::	POP
type(LUC_EXPT_TYPE),	intent(in)			::	LUC_EXPT

public subroutine POP_LUC_CASA_transfer(POPLUC, POP, LUC_EXPT, casapool, casabal, casaflux, ktauday)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(inout)			::	POPLUC
type(POP_TYPE),	intent(in)			::	POP
type(LUC_EXPT_TYPE),	intent(in)			::	LUC_EXPT
type(casa_pool),	intent(inout)			::	casapool
type(casa_balance),	intent(inout)			::	casabal
type(casa_flux),	intent(inout)			::	casaflux
integer,	intent(in)			::	ktauday

public subroutine POPLUC_Init(POPLUC, LUC_EXPT, casapool, casaflux, casabiome, veg, POP, np)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(inout)			::	POPLUC
type(LUC_EXPT_TYPE),	intent(in)			::	LUC_EXPT
type(casa_pool),	intent(inout)			::	casapool
type(casa_flux),	intent(inout)			::	casaflux
type(casa_biome),	intent(in)			::	casabiome
type(veg_parameter_type),	intent(in)			::	veg
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	np

public subroutine POPLUC_set_patchfrac(POPLUC, LUC_EXPT)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(in)			::	POPLUC
type(LUC_EXPT_TYPE),	intent(in)			::	LUC_EXPT

public subroutine POPLUC_set_params(POPLUC, LUC_EXPT)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(inout)			::	POPLUC
type(LUC_EXPT_TYPE),	intent(in)			::	LUC_EXPT

public subroutine alloc_POPLUC(POPLUC, arraysize)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(inout)			::	POPLUC
integer,	intent(in)			::	arraysize

public subroutine WRITE_LUC_OUTPUT_NC(POPLUC, ctime, FINAL)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(in)			::	POPLUC
integer,	intent(in)			::	ctime
logical,	intent(in)			::	FINAL

public subroutine WRITE_LUC_RESTART_NC(POPLUC, ctime)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(in)			::	POPLUC
integer,	intent(in)			::	ctime

public subroutine READ_LUC_RESTART_NC(POPLUC)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(inout)			::	POPLUC

public subroutine WRITE_LUC_OUTPUT_GRID_NC(POPLUC, ctime, FINAL)

Arguments

Type	Intent	Optional	Attributes		Name
type(POPLUC_TYPE),	intent(in)			::	POPLUC
integer,	intent(in)			::	ctime
logical,	intent(in)			::	FINAL