field_plane_partial_sums Subroutine

public subroutine field_plane_partial_sums(partial, f, n_f, nx, ny, nz, n_yb_pad)

First pass of field_plane_sums: partial(j, z) is the sum over x of y index j at z, summed in a fixed order.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout)			::	partial(ny,nz)
real(kind=dp),	intent(in)			::	f(SZ,n_f,n_yb_pad*nz)
integer,	intent(in)			::	n_f
integer,	intent(in)			::	nx
integer,	intent(in)			::	ny
integer,	intent(in)			::	nz
integer,	intent(in)			::	n_yb_pad