m_cuda_spectral

Uses

- cudafor
- 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 memcpy3D(dst, src, nx, ny, nz)

Copy data between x3d2 padded arrays and cuFFTMp descriptors

Arguments

Type	Intent	Attributes		Name
real(kind=dp),	intent(inout),	device, dimension(:, :, :)	::	dst
real(kind=dp),	intent(in),	device, dimension(:, :, :)	::	src
integer,	intent(in),	value	::	nx
integer,	intent(in),	value	::	ny
integer,	intent(in),	value	::	nz

public subroutine process_spectral_000(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.

Arguments

Type	Intent	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

public subroutine process_spectral_010(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.

Arguments

Type	Intent	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

public subroutine process_spectral_010_fw(div_u, 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.

Arguments

Type	Intent	Attributes		Name
complex(kind=dp),	intent(inout),	device, dimension(:, :, :)	::	div_u	Divergence of velocity in spectral space
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	Spectral equivalence constants
real(kind=dp),	intent(in),	device, dimension(:)	::	bx	Spectral equivalence constants
real(kind=dp),	intent(in),	device, dimension(:)	::	ay	Spectral equivalence constants
real(kind=dp),	intent(in),	device, dimension(:)	::	by	Spectral equivalence constants
real(kind=dp),	intent(in),	device, dimension(:)	::	az	Spectral equivalence constants
real(kind=dp),	intent(in),	device, dimension(:)	::	bz	Spectral equivalence constants

public subroutine process_spectral_010_poisson(div_u, a_re, a_im, off, inc, nx_spec, n, nx, ny, nz)

Solve the Poisson equation at cell centres with non-perioic BC along y

Arguments

Type	Intent	Attributes		Name
complex(kind=dp),	intent(inout),	device, dimension(:, :, :)	::	div_u	Divergence of velocity in spectral space
real(kind=dp),	intent(inout),	device, dimension(:, :, :, :)	::	a_re	Spectral equivalence constants
real(kind=dp),	intent(inout),	device, dimension(:, :, :, :)	::	a_im	Spectral equivalence constants
integer,	intent(in),	value	::	off	offset and increment. increment is 2 when considering only odd or even
integer,	intent(in),	value	::	inc	offset and increment. increment is 2 when considering only odd or even
integer,	intent(in),	value	::	nx_spec	Grid size in spectral space
integer,	intent(in),	value	::	n	Grid size in spectral space
integer,	intent(in),	value	::	nx	Grid size in spectral space
integer,	intent(in),	value	::	ny	Grid size in spectral space
integer,	intent(in),	value	::	nz	Grid size in spectral space

public subroutine process_spectral_010_bw(div_u, 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.

Arguments

Type	Intent	Attributes		Name
complex(kind=dp),	intent(inout),	device, dimension(:, :, :)	::	div_u	Divergence of velocity in spectral space
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	Spectral equivalence constants
real(kind=dp),	intent(in),	device, dimension(:)	::	bx	Spectral equivalence constants
real(kind=dp),	intent(in),	device, dimension(:)	::	ay	Spectral equivalence constants
real(kind=dp),	intent(in),	device, dimension(:)	::	by	Spectral equivalence constants
real(kind=dp),	intent(in),	device, dimension(:)	::	az	Spectral equivalence constants
real(kind=dp),	intent(in),	device, dimension(:)	::	bz	Spectral equivalence constants

public subroutine enforce_periodicity_y(f_out, f_in, ny)

Arguments

Type	Intent	Attributes		Name
real(kind=dp),	intent(out),	device, dimension(:, :, :)	::	f_out
real(kind=dp),	intent(in),	device, dimension(:, :, :)	::	f_in
integer,	intent(in),	value	::	ny

public subroutine undo_periodicity_y(f_out, f_in, ny)

Arguments

Type	Intent	Attributes		Name
real(kind=dp),	intent(out),	device, dimension(:, :, :)	::	f_out
real(kind=dp),	intent(in),	device, dimension(:, :, :)	::	f_in
integer,	intent(in),	value	::	ny

m_cuda_spectral Module

Contents

Subroutines

Uses

Used by

Subroutines

public subroutine memcpy3D(dst, src, nx, ny, nz)

Arguments

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

Arguments

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

Arguments

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

Arguments

public subroutine process_spectral_010_poisson(div_u, a_re, a_im, off, inc, nx_spec, n, nx, ny, nz)

Arguments

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

Arguments

public subroutine enforce_periodicity_y(f_out, f_in, ny)

Arguments

public subroutine undo_periodicity_y(f_out, f_in, ny)

Arguments