m_cuda_kernels_reorder Module

Uses

- m_common
- m_cuda_common
- cudafor

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