m_cuda_kernels_fieldops

Uses

- cudafor
- m_cuda_common
- 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 copy(n, dst, src)

Arguments

Type	Intent	Attributes		Name
integer,	intent(in),	value	::	n
real(kind=dp),	intent(out),	device, dimension(:, :, :)	::	dst
real(kind=dp),	intent(in),	device, dimension(:, :, :)	::	src

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

Arguments

Type	Intent	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 pwmul(y, x, n)

Arguments

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

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

Arguments

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

public subroutine field_scale(f, alpha, n)

Arguments

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

public subroutine field_shift(f, const, n)

Arguments

Type	Intent	Attributes		Name
real(kind=dp),	intent(inout),	device, dimension(:, :, :)	::	f
real(kind=dp),	intent(in),	value	::	const
integer,	intent(in),	value	::	n

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

Arguments

Type	Intent	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
integer,	intent(in),	value	::	n_i_pad
integer,	intent(in),	value	::	n_j

public subroutine field_max_sum(max_f, sum_f, f, n, n_i_pad, n_j)

Arguments

Type	Intent	Attributes		Name
real(kind=dp),	intent(inout),	device	::	max_f
real(kind=dp),	intent(inout),	device	::	sum_f
real(kind=dp),	intent(in),	device, dimension(:, :, :)	::	f
integer,	intent(in),	value	::	n
integer,	intent(in),	value	::	n_i_pad
integer,	intent(in),	value	::	n_j

public subroutine field_set_y_face(f, c_start, c_end, flow_rate_diff, nx, ny, nz)

Set domain Y_FACE boundary values. c_start: Dirichlet value applied at the bottom face (j = 1) c_end: Dirichlet value applied at the top face (j = ny)

Arguments

Type	Intent	Attributes		Name
real(kind=dp),	intent(inout),	device, dimension(:, :, :)	::	f
real(kind=dp),	intent(in),	value	::	c_start
real(kind=dp),	intent(in),	value	::	c_end
real(kind=dp),	intent(in),	value	::	flow_rate_diff
integer,	intent(in),	value	::	nx
integer,	intent(in),	value	::	ny
integer,	intent(in),	value	::	nz

public subroutine field_set_x_face(f, c_start, c_end, bc_start, bc_end, flow_rate_diff, nx, ny, nz)

Set domain X_FACE boundary values. c_start: Dirichlet value applied at the left face (i = 1) c_end: convective velocity Uc = uxmax * gdt / dx, used as multiplier in the outflow scheme du/dt + Uc*du/dx = 0

Arguments

Type	Intent	Attributes		Name
real(kind=dp),	intent(inout),	device, dimension(:, :, :)	::	f
real(kind=dp),	intent(in),	value	::	c_start
real(kind=dp),	intent(in),	value	::	c_end
integer,	intent(in),	value	::	bc_start
integer,	intent(in),	value	::	bc_end
real(kind=dp),	intent(in),	value	::	flow_rate_diff
integer,	intent(in),	value	::	nx
integer,	intent(in),	value	::	ny
integer,	intent(in),	value	::	nz

public subroutine volume_integral(s, f, n, n_i_pad, n_j)

Arguments

Type	Intent	Attributes		Name
real(kind=dp),	intent(inout),	device	::	s
real(kind=dp),	intent(in),	device, dimension(:, :, :)	::	f
integer,	intent(in),	value	::	n
integer,	intent(in),	value	::	n_i_pad
integer,	intent(in),	value	::	n_j

m_cuda_kernels_fieldops Module

Contents

Subroutines

Uses

Used by

Subroutines

public subroutine copy(n, dst, src)

Arguments

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

Arguments

public subroutine pwmul(y, x, n)

Arguments

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

Arguments

public subroutine field_scale(f, alpha, n)

Arguments

public subroutine field_shift(f, const, n)

Arguments

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

Arguments

public subroutine field_max_sum(max_f, sum_f, f, n, n_i_pad, n_j)

Arguments

public subroutine field_set_y_face(f, c_start, c_end, flow_rate_diff, nx, ny, nz)

Arguments

public subroutine field_set_x_face(f, c_start, c_end, bc_start, bc_end, flow_rate_diff, nx, ny, nz)

Arguments

public subroutine volume_integral(s, f, n, n_i_pad, n_j)

Arguments