crown_damage Subroutine

public subroutine crown_damage(currentSite)

---

Arguments

Type	Intent	Optional	Attributes		Name
type(ed_site_type),	intent(in),		target	::	currentSite