m_cuda_kernels_reorder Module

Uses

- m_common
- cudafor
- m_cuda_common

Subroutines

public subroutine reorder_c2x(u_x, u_c, nz)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(out),		device, dimension(:, :, :)	::	u_x
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u_c
integer,	intent(in),		value	::	nz

public subroutine reorder_x2c(u_c, u_x, nz)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(out),		device, dimension(:, :, :)	::	u_c
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u_x
integer,	intent(in),		value	::	nz

public subroutine reorder_x2y(u_y, u_x, nz)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(out),		device, dimension(:, :, :)	::	u_y
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u_x
integer,	intent(in),		value	::	nz

public subroutine reorder_x2z(u_z, u_x, nz)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(out),		device, dimension(:, :, :)	::	u_z
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u_x
integer,	intent(in),		value	::	nz

public subroutine reorder_y2x(u_x, u_y, nz)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(out),		device, dimension(:, :, :)	::	u_x
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u_y
integer,	intent(in),		value	::	nz

public subroutine reorder_y2z(u_z, u_y, nx, nz)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(out),		device, dimension(:, :, :)	::	u_z
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u_y
integer,	intent(in),		value	::	nx
integer,	intent(in),		value	::	nz

public subroutine reorder_z2x(u_x, u_z, nz)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(out),		device, dimension(:, :, :)	::	u_x
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u_z
integer,	intent(in),		value	::	nz

public subroutine reorder_z2y(u_y, u_z, nx, nz)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(out),		device, dimension(:, :, :)	::	u_y
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u_z
integer,	intent(in),		value	::	nx
integer,	intent(in),		value	::	nz

public subroutine sum_yintox(u_x, u_y, nz)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout),		device, dimension(:, :, :)	::	u_x
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u_y
integer,	intent(in),		value	::	nz

public subroutine sum_zintox(u_x, u_z, nz)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout),		device, dimension(:, :, :)	::	u_x
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u_z
integer,	intent(in),		value	::	nz

public subroutine axpby(n, alpha, x, beta, y)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in),		value	::	n
real(kind=dp),	intent(in),		value	::	alpha
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	x
real(kind=dp),	intent(in),		value	::	beta
real(kind=dp),	intent(inout),		device, dimension(:, :, :)	::	y

public subroutine scalar_product(s, x, y, n)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout),		device	::	s
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	x
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	y
integer,	intent(in),		value	::	n

public subroutine buffer_copy(u_send_s, u_send_e, u, n, n_halo)

Arguments

Type	Intent	Optional	Attributes		Name
real(kind=dp),	intent(inout),		device, dimension(:, :, :)	::	u_send_s
real(kind=dp),	intent(inout),		device, dimension(:, :, :)	::	u_send_e
real(kind=dp),	intent(in),		device, dimension(:, :, :)	::	u
integer,	intent(in),		value	::	n
integer,	intent(in),		value	::	n_halo