process_spectral_div_u Subroutine

public subroutine process_spectral_div_u(div_u, waves, nx_spec, ny_spec, y_sp_st, nx, ny, nz, ax, bx, ay, by, az, bz)

Post-processes the divergence of velocity in spectral space, including scaling w.r.t. grid size.

Ref. JCP 228 (2009), 5989–6015, Sec 4

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(inout),		device, dimension(:, :, :)	::	div_u	Divergence of velocity in spectral space
complex(kind=dp),	intent(in),		device, dimension(:, :, :)	::	waves	Spectral equivalence constants
integer,	intent(in),		value	::	nx_spec	Grid size in spectral space
integer,	intent(in),		value	::	ny_spec	Grid size in spectral space
integer,	intent(in),		value	::	y_sp_st	Offset in y direction in the permuted slabs in spectral space
integer,	intent(in),		value	::	nx	Grid size
integer,	intent(in),		value	::	ny	Grid size
integer,	intent(in),		value	::	nz	Grid size
real(kind=dp),	intent(in),		device, dimension(:)	::	ax
real(kind=dp),	intent(in),		device, dimension(:)	::	bx
real(kind=dp),	intent(in),		device, dimension(:)	::	ay
real(kind=dp),	intent(in),		device, dimension(:)	::	by
real(kind=dp),	intent(in),		device, dimension(:)	::	az
real(kind=dp),	intent(in),		device, dimension(:)	::	bz