get_upar Subroutine

private subroutine get_upar(g, fld)

Arguments

Type	Intent	Optional	Attributes		Name
complex,	intent(in),		dimension(:, :, kxkyz_lo%llim_proc:)	::	g
complex,	intent(out),		dimension(:, :, -nzgrid:, :, :)	::	fld