m_omp_spectral Module

Uses

- m_common
Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Used by

Help

Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.
Where possible, edges connecting nodes are given different colours to make them easier to distinguish in large graphs.

Subroutines

public subroutine process_spectral_000(div_u, waves, nx_spec, ny_spec, nz_spec, x_sp_st, y_sp_st, z_sp_st, nx, ny, nz, ax, bx, ay, by, az, bz)

Post-process div U* in spectral space for all periodic BCs.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(inout),		dimension(:, :, :)	::	div_u	Divergence of velocity in spectral space
complex(kind=dp),	intent(in),		dimension(:, :, :)	::	waves	Spectral equivalence constants
integer,	intent(in)			::	nx_spec	Grid size in spectral space
integer,	intent(in)			::	ny_spec	Grid size in spectral space
integer,	intent(in)			::	nz_spec	Grid size in spectral space
integer,	intent(in)			::	x_sp_st	Offsets in the permuted pencils in spectral space
integer,	intent(in)			::	y_sp_st	Offsets in the permuted pencils in spectral space
integer,	intent(in)			::	z_sp_st	Offsets in the permuted pencils in spectral space
integer,	intent(in)			::	nx	Global cell size
integer,	intent(in)			::	ny	Global cell size
integer,	intent(in)			::	nz	Global cell size
real(kind=dp),	intent(in),		dimension(:)	::	ax
real(kind=dp),	intent(in),		dimension(:)	::	bx
real(kind=dp),	intent(in),		dimension(:)	::	ay
real(kind=dp),	intent(in),		dimension(:)	::	by
real(kind=dp),	intent(in),		dimension(:)	::	az
real(kind=dp),	intent(in),		dimension(:)	::	bz

public subroutine process_spectral_010(div_u, waves, nx_spec, ny_spec, nz_spec, x_sp_st, y_sp_st, z_sp_st, nx, ny, nz, ax, bx, ay, by, az, bz)

Post-process div U* in spectral space, for non-periodic BC in y-dir.

Arguments

Type	Intent	Optional	Attributes		Name
complex(kind=dp),	intent(inout),		dimension(:, :, :)	::	div_u	Divergence of velocity in spectral space
complex(kind=dp),	intent(in),		dimension(:, :, :)	::	waves	Spectral equivalence constants
integer,	intent(in)			::	nx_spec	Grid size in spectral space
integer,	intent(in)			::	ny_spec	Grid size in spectral space
integer,	intent(in)			::	nz_spec	Grid size in spectral space
integer,	intent(in)			::	x_sp_st	Offsets in the permuted pencils in spectral space
integer,	intent(in)			::	y_sp_st	Offsets in the permuted pencils in spectral space
integer,	intent(in)			::	z_sp_st	Offsets in the permuted pencils in spectral space
integer,	intent(in)			::	nx	Global cell size
integer,	intent(in)			::	ny	Global cell size
integer,	intent(in)			::	nz	Global cell size
real(kind=dp),	intent(in),		dimension(:)	::	ax
real(kind=dp),	intent(in),		dimension(:)	::	bx
real(kind=dp),	intent(in),		dimension(:)	::	ay
real(kind=dp),	intent(in),		dimension(:)	::	by
real(kind=dp),	intent(in),		dimension(:)	::	az
real(kind=dp),	intent(in),		dimension(:)	::	bz