calc_areaindex Function

public function calc_areaindex(cpatch, ai_type) result(ai)

Arguments

Type	Intent	Optional	Attributes		Name
type(ed_patch_type),	intent(in),		target	::	cpatch
character(len=*),	intent(in)			::	ai_type

Return Value real(kind=r8)