unpack_add Subroutine

private subroutine unpack_add(src, dst, nq, np)

Add a flattened 1-D correction to a (neq x n_pt) 2-D field in place.

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=wp),	intent(in)			::	src(nq*np)
real(kind=wp),	intent(inout)			::	dst(nq,np)
integer,	intent(in)			::	nq
integer,	intent(in)			::	np