landuse_mod Module

Subroutines

public subroutine newlitter(casabiome, frac_x, ifpre_x, frac_y, ifpre_y, cplant_x, nplant_x, pplant_x, cplant_y, nplant_y, pplant_y, clitter_x, nlitter_x, plitter_x, clitter_y, nlitter_y, plitter_y)

Arguments

Type	Intent	Optional	Attributes		Name
type(casa_biome),	intent(in)			::	casabiome
real,	intent(in),		DIMENSION(mvtype)	::	frac_x
logical,	intent(in),		DIMENSION(mvtype)	::	ifpre_x
real,	intent(in),		DIMENSION(mvtype)	::	frac_y
logical,	intent(in),		DIMENSION(mvtype)	::	ifpre_y
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mplant)	::	cplant_x
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mplant)	::	nplant_x
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mplant)	::	pplant_x
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mplant)	::	cplant_y
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mplant)	::	nplant_y
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mplant)	::	pplant_y
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mlitter)	::	clitter_x
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mlitter)	::	nlitter_x
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mlitter)	::	plitter_x
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mlitter)	::	clitter_y
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mlitter)	::	nlitter_y
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mlitter)	::	plitter_y

public subroutine newlitter_thin(casabiome, frac_x, ifpre_x, frac_y, ifpre_y, cplant_x, nplant_x, pplant_x, cplant_y, nplant_y, pplant_y, clitter_x, nlitter_x, plitter_x, clitter_y, nlitter_y, plitter_y, thinRatio)

Arguments

Type	Intent	Optional	Attributes		Name
type(casa_biome),	intent(in)			::	casabiome
real,	intent(in),		DIMENSION(mvtype)	::	frac_x
logical,	intent(in),		DIMENSION(mvtype)	::	ifpre_x
real,	intent(in),		DIMENSION(mvtype)	::	frac_y
logical,	intent(in),		DIMENSION(mvtype)	::	ifpre_y
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mplant)	::	cplant_x
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mplant)	::	nplant_x
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mplant)	::	pplant_x
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mplant)	::	cplant_y
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mplant)	::	nplant_y
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mplant)	::	pplant_y
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mlitter)	::	clitter_x
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mlitter)	::	nlitter_x
real(kind=r_2),	intent(in),		DIMENSION(mvtype,mlitter)	::	plitter_x
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mlitter)	::	clitter_y
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mlitter)	::	nlitter_y
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mlitter)	::	plitter_y
real,	intent(in),		DIMENSION(mvtype)	::	thinRatio

public subroutine newplant(cplant_x, frac_x, ifpre_x, cplant_y, frac_y, ifpre_y, logc)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mplant)	::	cplant_x
real,	intent(in),		DIMENSION(mvtype)	::	frac_x
logical,	intent(in),		DIMENSION(mvtype)	::	ifpre_x
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,mplant)	::	cplant_y
real,	intent(in),		DIMENSION(mvtype)	::	frac_y
logical,	intent(in),		DIMENSION(mvtype)	::	ifpre_y
real(kind=r_2),	intent(inout),		DIMENSION(mvtype)	::	logc

public subroutine newsoil(nd, csoil_x, frac_x, ifpre_x, csoil_y, frac_y, ifpre_y)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	nd
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,nd)	::	csoil_x
real,	intent(in),		DIMENSION(mvtype)	::	frac_x
logical,	intent(in),		DIMENSION(mvtype)	::	ifpre_x
real(kind=r_2),	intent(inout),		DIMENSION(mvtype,nd)	::	csoil_y
real,	intent(in),		DIMENSION(mvtype)	::	frac_y
logical,	intent(in),		DIMENSION(mvtype)	::	ifpre_y