Patch_partial_disturb Subroutine

public subroutine Patch_partial_disturb(POP, idisturb, intensity, precip, frac_intensity1)

Arguments

Type	Intent	Optional	Attributes		Name
type(POP_TYPE),	intent(inout)			::	POP
integer(kind=i4b),	intent(in)			::	idisturb
real(kind=dp),	intent(in)			::	intensity(:,:)
real(kind=dp),	intent(in),	optional		::	precip(:)
real(kind=dp),	intent(in),	optional		::	frac_intensity1(:)