create_cohort Subroutine

public subroutine create_cohort(currentSite, patchptr, pft, nn, hite, dbh, prt, laimemory, status, recruitstatus, ctrim, clayer, spread, bc_in)

***/ Define cohort state variable ***/

Arguments

Type	Intent	Optional	Attributes		Name
type(ed_site_type),	intent(inout),		target	::	currentSite
type(ed_patch_type),	intent(inout),		pointer	::	patchptr
integer,	intent(in)			::	pft
real(kind=r8),	intent(in)			::	nn
real(kind=r8),	intent(in)			::	hite
real(kind=r8),	intent(in)			::	dbh
class(prt_vartypes),			target	::	prt
real(kind=r8),	intent(in)			::	laimemory
integer,	intent(in)			::	status
integer,	intent(in)			::	recruitstatus
real(kind=r8),	intent(in)			::	ctrim
integer,	intent(in)			::	clayer
real(kind=r8),	intent(in)			::	spread
type(bc_in_type),	intent(in)			::	bc_in