adam_fnl_turbulence_kernels

ADAM, FNL device kernels of the dynamic eddy viscosity (issue #119, T1).

Device twins of adam_turbulence_kernels: see there. Device arrays are transposed, (b, i, j, k, v).

Source: src/lib/fnl/adam_fnl_turbulence_kernels.F90

Dependencies

Contents

• compute_mu_t_vreman_dev
• compute_mu_t_wale_dev
• compute_mu_t_sigma_dev

Subroutines

compute_mu_t_vreman_dev

Vreman.

subroutine compute_mu_t_vreman_dev(ir, iu, ni, nj, nk, ngc, blocks_number, c, dxyz_gpu, is_null, q_aux_gpu, mu_t_gpu)

Arguments

Name	Type	Intent	Attributes	Description
ir	integer(kind=I4P)	in		Auxiliary indexes of the density and of u.
iu	integer(kind=I4P)	in		Auxiliary indexes of the density and of u.
ni	integer(kind=I4P)	in		Grid dimensions.
nj	integer(kind=I4P)	in		Grid dimensions.
nk	integer(kind=I4P)	in		Grid dimensions.
ngc	integer(kind=I4P)	in		Grid dimensions.
blocks_number	integer(kind=I4P)	in		Actual blocks number.
c	real(kind=R8P)	in		Model constant.
dxyz_gpu	real(kind=R8P)	in		Blocks space steps [nb, 3].
is_null	logical	in		Null directions.
q_aux_gpu	real(kind=R8P)	in		Auxiliary variables.
mu_t_gpu	real(kind=R8P)	inout		Eddy viscosity, [nb, i, j, k, 1].

Call graph

compute_mu_t_wale_dev

WALE.

subroutine compute_mu_t_wale_dev(ir, iu, ni, nj, nk, ngc, blocks_number, c, dxyz_gpu, is_null, q_aux_gpu, mu_t_gpu)

Arguments

Name	Type	Intent	Attributes	Description
ir	integer(kind=I4P)	in		Auxiliary indexes of the density and of u.
iu	integer(kind=I4P)	in		Auxiliary indexes of the density and of u.
ni	integer(kind=I4P)	in		Grid dimensions.
nj	integer(kind=I4P)	in		Grid dimensions.
nk	integer(kind=I4P)	in		Grid dimensions.
ngc	integer(kind=I4P)	in		Grid dimensions.
blocks_number	integer(kind=I4P)	in		Actual blocks number.
c	real(kind=R8P)	in		Model constant.
dxyz_gpu	real(kind=R8P)	in		Blocks space steps [nb, 3].
is_null	logical	in		Null directions.
q_aux_gpu	real(kind=R8P)	in		Auxiliary variables.
mu_t_gpu	real(kind=R8P)	inout		Eddy viscosity, [nb, i, j, k, 1].

Call graph

compute_mu_t_sigma_dev

Sigma.

subroutine compute_mu_t_sigma_dev(ir, iu, ni, nj, nk, ngc, blocks_number, c, dxyz_gpu, is_null, q_aux_gpu, mu_t_gpu)

Arguments

Name	Type	Intent	Attributes	Description
ir	integer(kind=I4P)	in		Auxiliary indexes of the density and of u.
iu	integer(kind=I4P)	in		Auxiliary indexes of the density and of u.
ni	integer(kind=I4P)	in		Grid dimensions.
nj	integer(kind=I4P)	in		Grid dimensions.
nk	integer(kind=I4P)	in		Grid dimensions.
ngc	integer(kind=I4P)	in		Grid dimensions.
blocks_number	integer(kind=I4P)	in		Actual blocks number.
c	real(kind=R8P)	in		Model constant.
dxyz_gpu	real(kind=R8P)	in		Blocks space steps [nb, 3].
is_null	logical	in		Null directions.
q_aux_gpu	real(kind=R8P)	in		Auxiliary variables.
mu_t_gpu	real(kind=R8P)	inout		Eddy viscosity, [nb, i, j, k, 1].

Call graph