crown_scorching Subroutine

public subroutine crown_scorching(currentSite)

---

currentPatch%SH !average scorch height for the patch(m) currentPatch%FI average fire intensity of flaming front during day. kW/m.

Arguments

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