set_patchno Subroutine

public subroutine set_patchno(currentSite)

Arguments

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