adam_nasto_fnl_cns_kernels

ADAM, NASTO FNL Compressible-Navier-Stokes fluidyanmics application kernels.

Source: src/app/nasto/fnl/adam_nasto_fnl_cns_kernels.F90

Dependencies

Contents

• compute_conservatives_dev
• compute_conservative_fluxes_dev
• compute_max_eigenvalues_dev
• compute_eigenvectors_dev
• compute_q_aux_dev
• compute_roe_average_device

Subroutines

compute_conservatives_dev

Compute convervative variables from auxiliary ones.

subroutine compute_conservatives_dev(b, i, j, k, ngc, q_aux_gpu, q)

Arguments

Name	Type	Intent	Attributes	Description
b	integer(kind=I4P)	in		Cell indexes.
i	integer(kind=I4P)	in		Cell indexes.
j	integer(kind=I4P)	in		Cell indexes.
k	integer(kind=I4P)	in		Cell indexes.
ngc	integer(kind=I4P)	in		Ghost cells number.
q_aux_gpu	real(kind=R8P)	in		Auxiliary variables.
q	real(kind=R8P)	inout		Conservative varibales.

Call graph

compute_conservative_fluxes_dev

Compute convervative fluxes from auxiliary variables.

subroutine compute_conservative_fluxes_dev(sir, b, i, j, k, ngc, q_aux_gpu, f)

Arguments

Name	Type	Intent	Attributes	Description
sir	real(kind=R8P)	in		Directional (1=x,2=y,3=z) increment.
b	integer(kind=I4P)	in		Cell indexes.
i	integer(kind=I4P)	in		Cell indexes.
j	integer(kind=I4P)	in		Cell indexes.
k	integer(kind=I4P)	in		Cell indexes.
ngc	integer(kind=I4P)	in		Ghost cells number.
q_aux_gpu	real(kind=R8P)	in		Auxiliary variables.
f	real(kind=R8P)	inout		Conservative fluxes.

Call graph

compute_max_eigenvalues_dev

subroutine compute_max_eigenvalues_dev(si, sir, weno_s, b, i, j, k, ngc, nv, q_aux_gpu, evmax)

Arguments

Name	Type	Intent	Attributes	Description
si	integer(kind=I4P)	in		Stencil increment.
sir	real(kind=R8P)	in		Stencil increment, real cast.
weno_s	integer(kind=I4P)	in		Weno stencils number/dimension.
b	integer(kind=I4P)	in		Cell indexes.
i	integer(kind=I4P)	in		Cell indexes.
j	integer(kind=I4P)	in		Cell indexes.
k	integer(kind=I4P)	in		Cell indexes.
ngc	integer(kind=I4P)	in		Ghost cells number.
nv	integer(kind=I4P)	in		Number of conservative varibales.
q_aux_gpu	real(kind=R8P)	in		Auxiliary variables.
evmax	real(kind=R8P)	inout		Maximum eigenvalues in the big stencil.

Call graph

compute_eigenvectors_dev

subroutine compute_eigenvectors_dev(si, sir, b, i, j, k, ngc, nv, g, q_aux_gpu, el, er)

Arguments

Name	Type	Intent	Attributes	Description
si	integer(kind=I4P)	in		Stencil increment.
sir	real(kind=R8P)	in		Stencil increment, real cast.
b	integer(kind=I4P)	in		Cell indexes.
i	integer(kind=I4P)	in		Cell indexes.
j	integer(kind=I4P)	in		Cell indexes.
k	integer(kind=I4P)	in		Cell indexes.
ngc	integer(kind=I4P)	in		Ghost cells number.
nv	integer(kind=I4P)	in		Number of conservative varibales.
g	real(kind=R8P)	in		Specific heats ratio.
q_aux_gpu	real(kind=R8P)	in		Auxiliary variables.
el	real(kind=R8P)	inout		Left and right eigenvectors.
er	real(kind=R8P)	inout		Left and right eigenvectors.

Call graph

compute_q_aux_dev

Compute auxiliary variables.

subroutine compute_q_aux_dev(ni, nj, nk, ngc, blocks_number, R, cv, g, q_gpu, q_aux_gpu)

Arguments

Name	Type	Intent	Attributes	Description
ni	integer(kind=I4P)	in		Grid cells number in I direction.
nj	integer(kind=I4P)	in		Grid cells number in J direction.
nk	integer(kind=I4P)	in		Grid cells number in K direction.
ngc	integer(kind=I4P)	in		Ghost cells number.
blocks_number	integer(kind=I4P)	in		Number of blocks.
R	real(kind=R8P)	in		Fluid constant, specific heats difference.
cv	real(kind=R8P)	in		Specific heat at constant volume.
g	real(kind=R8P)	in		Specific heats ratio.
q_gpu	real(kind=R8P)	in		Conservative variables.
q_aux_gpu	real(kind=R8P)	out		Auxiliary variables.

Call graph

compute_roe_average_device

Compute Roe averaged quantities.

subroutine compute_roe_average_device(ngc, b, i, j, k, ip, jp, kp, g, q_aux_gpu, uu, vv, ww, h, qq, c, ci, b1, b2)

Arguments

Name	Type	Intent	Attributes	Description
ngc	integer(kind=I4P)	in		Number of ghost cells.
b	integer(kind=I4P)	in		Left/right cells indexes.
i	integer(kind=I4P)	in		Left/right cells indexes.
j	integer(kind=I4P)	in		Left/right cells indexes.
k	integer(kind=I4P)	in		Left/right cells indexes.
ip	integer(kind=I4P)	in		Left/right cells indexes.
jp	integer(kind=I4P)	in		Left/right cells indexes.
kp	integer(kind=I4P)	in		Left/right cells indexes.
g	real(kind=R8P)	in		Specific heats ratio.
q_aux_gpu	real(kind=R8P)	in		Auxiliary variables.
uu	real(kind=R8P)	out		Roe state average variables.
vv	real(kind=R8P)	out		Roe state average variables.
ww	real(kind=R8P)	out		Roe state average variables.
h	real(kind=R8P)	out		Roe state average variables.
qq	real(kind=R8P)	out		Roe state average variables.
c	real(kind=R8P)	out		Roe state average variables.
ci	real(kind=R8P)	out		Roe state average variables.
b1	real(kind=R8P)	out		Roe state average variables.
b2	real(kind=R8P)	out		Roe state average variables.

Call graph