terminate_cohorts Subroutine

public subroutine terminate_cohorts(currentSite, currentPatch, level, call_index)

Arguments

Type	Intent	Optional	Attributes		Name
type(ed_site_type),	intent(inout),		target	::	currentSite
type(ed_patch_type),	intent(inout),		target	::	currentPatch
integer,	intent(in)			::	level
integer				::	call_index