area_burnt Subroutine

public subroutine area_burnt(currentSite)

---

currentPatch%AB !daily area burnt (m2) currentPatch%NF !Daily number of ignitions (lightning and human-caused), adjusted for size of patch.

Arguments

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