field_plane_sums_reduce Subroutine

public subroutine field_plane_sums_reduce(sums, partial, ny, nz)

Second pass of field_plane_sums: sums(j) is the sum over z of partial(j, z), in a fixed order.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	sums(ny)
real(kind=dp),	intent(in)			::	partial(ny,nz)
integer,	intent(in)			::	ny
integer,	intent(in)			::	nz