create_patch Subroutine

public subroutine create_patch(currentSite, new_patch, age, areap, label)

Arguments

Type	Intent	Optional	Attributes		Name
type(ed_site_type),	intent(inout),		target	::	currentSite
type(ed_patch_type),	intent(inout),		target	::	new_patch
real(kind=r8),	intent(in)			::	age
real(kind=r8),	intent(in)			::	areap
integer,	intent(in)			::	label