casa_delplant Subroutine

public subroutine casa_delplant(veg, casabiome, casapool, casaflux, casamet, cleaf2met, cleaf2str, croot2met, croot2str, cwood2cwd, nleaf2met, nleaf2str, nroot2met, nroot2str, nwood2cwd, pleaf2met, pleaf2str, proot2met, proot2str, pwood2cwd)

revise turnover and NPP and dcplantdt to reflect above adjustments End of adjustments to avoid negative stores Ticket#108

Arguments

Type	Intent	Optional	Attributes		Name
type(veg_parameter_type),	intent(inout)			::	veg
type(casa_biome),	intent(inout)			::	casabiome
type(casa_pool),	intent(inout)			::	casapool
type(casa_flux),	intent(inout)			::	casaflux
type(casa_met),	intent(inout)			::	casamet
real,	intent(out),		DIMENSION(mp)	::	cleaf2met
real,	intent(out),		DIMENSION(mp)	::	cleaf2str
real,	intent(out),		DIMENSION(mp)	::	croot2met
real,	intent(out),		DIMENSION(mp)	::	croot2str
real,	intent(out),		DIMENSION(mp)	::	cwood2cwd
real,	intent(out),		DIMENSION(mp)	::	nleaf2met
real,	intent(out),		DIMENSION(mp)	::	nleaf2str
real,	intent(out),		DIMENSION(mp)	::	nroot2met
real,	intent(out),		DIMENSION(mp)	::	nroot2str
real,	intent(out),		DIMENSION(mp)	::	nwood2cwd
real,	intent(out),		DIMENSION(mp)	::	pleaf2met
real,	intent(out),		DIMENSION(mp)	::	pleaf2str
real,	intent(out),		DIMENSION(mp)	::	proot2met
real,	intent(out),		DIMENSION(mp)	::	proot2str
real,	intent(out),		DIMENSION(mp)	::	pwood2cwd