Appearance
adam_nasto_fnl_kernels
ADAM, NASTO FNL application kernels.
Source: src/app/nasto/fnl/adam_nasto_fnl_kernels.F90
Dependencies
Contents
- compute_fluxes_convective_dev
- compute_fluxes_difference_dev
- compute_fluxes_diffusive_dev
- compute_umax_dev
- set_bc_q_gpu_dev
- compute_fluxes_convective_ri_dev
- decompose_fluxes_convective_device
Subroutines
compute_fluxes_convective_dev
Compute convective fluxes along x direction.
fortran
subroutine compute_fluxes_convective_dev(dir, blocks_number, ni, nj, nk, ngc, nv, weno_s, weno_a_gpu, weno_p_gpu, weno_d_gpu, weno_zeps, ror_number, ror_schemes_gpu, ror_threshold, ror_ivar_gpu, ror_stats_gpu, g, q_aux_gpu, fluxes_gpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
dir | integer(kind=I4P) | in | Direction, 1=X, 2=Y, 3=Z. | |
blocks_number | integer(kind=I4P) | in | Number of blocks. | |
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. | |
nv | integer(kind=I4P) | in | Number of conservative varibales. | |
weno_s | integer(kind=I4P) | in | Weno stencils number/dimension. | |
weno_a_gpu | real(kind=R8P) | in | Optimal weights. | |
weno_p_gpu | real(kind=R8P) | in | Polinomials coefficients. | |
weno_d_gpu | real(kind=R8P) | in | Smoothness indicators coefficients. | |
weno_zeps | real(kind=R8P) | in | Parameter to avoid division by zero. | |
ror_number | integer(kind=I4P) | in | Number of ROR iterations. | |
ror_schemes_gpu | integer(kind=I4P) | in | Scheme (S value) for each ROR step. | |
ror_threshold | real(kind=R8P) | in | ROR threshold triggering. | |
ror_ivar_gpu | integer(kind=I4P) | in | Index variables to check in ROR. | |
ror_stats_gpu | integer(kind=I4P) | inout | Scheme (S value) for each ROR step. | |
g | real(kind=R8P) | in | Specific heats ratio. | |
q_aux_gpu | real(kind=R8P) | in | Auxiliary variables. | |
fluxes_gpu | real(kind=R8P) | inout | Fluxes. |
Call graph
compute_fluxes_difference_dev
Compute fluxes difference.
fortran
subroutine compute_fluxes_difference_dev(null_x, null_y, null_z, blocks_number, ni, nj, nk, ngc, nv, ib_eps, dx_gpu, dy_gpu, dz_gpu, flx_gpu, fly_gpu, flz_gpu, phi_gpu, dq_gpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
null_x | logical | in | Nullified directions tags. | |
null_y | logical | in | Nullified directions tags. | |
null_z | logical | in | Nullified directions tags. | |
blocks_number | integer(kind=I4P) | in | Number of blocks. | |
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. | |
nv | integer(kind=I4P) | in | Number of conservative varibales. | |
ib_eps | real(kind=R8P) | in | Tolerance IB delta ratio. | |
dx_gpu | real(kind=R8P) | in | Space steps. | |
dy_gpu | real(kind=R8P) | in | Space steps. | |
dz_gpu | real(kind=R8P) | in | Space steps. | |
flx_gpu | real(kind=R8P) | in | X direction fluxes. | |
fly_gpu | real(kind=R8P) | in | Y direction fluxes. | |
flz_gpu | real(kind=R8P) | in | Z direction fluxes. | |
phi_gpu | real(kind=R8P) | in | optional | IB distance function. |
dq_gpu | real(kind=R8P) | inout | Fluxes differences. |
Call graph
compute_fluxes_diffusive_dev
Compute diffusive fluxes.
fortran
subroutine compute_fluxes_diffusive_dev(null_x, null_y, null_z, blocks_number, ni, nj, nk, ngc, nv, mu, kd, q_aux_gpu, dx_gpu, dy_gpu, dz_gpu, flx_gpu, fly_gpu, flz_gpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
null_x | logical | in | Nullified directions tags. | |
null_y | logical | in | Nullified directions tags. | |
null_z | logical | in | Nullified directions tags. | |
blocks_number | integer(kind=I4P) | in | Blocks number. | |
ni | integer(kind=I4P) | in | Grid dimensionns. | |
nj | integer(kind=I4P) | in | Grid dimensionns. | |
nk | integer(kind=I4P) | in | Grid dimensionns. | |
ngc | integer(kind=I4P) | in | Number of ghost cells. | |
nv | integer(kind=I4P) | in | Number of conservative variables. | |
mu | real(kind=R8P) | in | Viscosity. | |
kd | real(kind=R8P) | in | Thermal diffusivity. | |
q_aux_gpu | real(kind=R8P) | in | Auxiliary varibales | |
dx_gpu | real(kind=R8P) | in | Space steps. | |
dy_gpu | real(kind=R8P) | in | Space steps. | |
dz_gpu | real(kind=R8P) | in | Space steps. | |
flx_gpu | real(kind=R8P) | inout | Fluxes along x. | |
fly_gpu | real(kind=R8P) | inout | Fluxes along y. | |
flz_gpu | real(kind=R8P) | inout | Fluxes along z. |
Call graph
compute_umax_dev
Compute maximum speed.
fortran
subroutine compute_umax_dev(ni, nj, nk, ngc, blocks_number, mu, dx_gpu, dy_gpu, dz_gpu, q_aux_gpu, umax)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. | |
mu | real(kind=R8P) | in | Dynamic viscosity. | |
dx_gpu | real(kind=R8P) | in | X space step. | |
dy_gpu | real(kind=R8P) | in | Y space step. | |
dz_gpu | real(kind=R8P) | in | Z space step. | |
q_aux_gpu | real(kind=R8P) | in | Auxiliary varibales. | |
umax | real(kind=R8P) | out | Maximum speed. |
Call graph
set_bc_q_gpu_dev
Set BC over q.
fortran
subroutine set_bc_q_gpu_dev(BC_EXTRAPOLATION, BC_INFLOW, nv, ngc, cv, R, l_map_bc_gpu, fec_1_6_array_gpu, q_bc_vars_gpu, q_gpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
BC_EXTRAPOLATION | integer(kind=I4P) | in | Extrapolation BC parameter. | |
BC_INFLOW | integer(kind=I4P) | in | Inflow BC parameter. | |
nv | integer(kind=I4P) | in | Number of variables. | |
ngc | integer(kind=I4P) | in | Ghost cells number. | |
cv | real(kind=R8P) | in | Constant volume specific heat. | |
R | real(kind=R8P) | in | Gas constant. | |
l_map_bc_gpu | integer(kind=I8P) | in | Local map for BC ghost cells. | |
fec_1_6_array_gpu | integer(kind=I4P) | in | Local map for BC ghost cells. | |
q_bc_vars_gpu | real(kind=R8P) | in | Boundary variables. | |
q_gpu | real(kind=R8P) | inout | Conservative variables. |
Call graph
compute_fluxes_convective_ri_dev
Compute convective fluxes at right interface of b,i,j,k.
fortran
subroutine compute_fluxes_convective_ri_dev(dir, si, sir, b, i, j, k, ngc, nv, weno_s, weno_a_gpu, weno_p_gpu, weno_d_gpu, weno_zeps, ror_number, ror_schemes_gpu, ror_threshold, ror_ivar_gpu, ror_stats_gpu, g, q_aux_gpu, fluxes_gpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
dir | integer(kind=I4P) | in | Direction, 1=X, 2=Y, 3=Z. | |
si | integer(kind=I4P) | in | Stencil increment. | |
sir | real(kind=R8P) | in | Stencil increment, real cast. | |
b | integer(kind=I4P) | in | Counter. | |
i | integer(kind=I4P) | in | Counter. | |
j | integer(kind=I4P) | in | Counter. | |
k | integer(kind=I4P) | in | Counter. | |
ngc | integer(kind=I4P) | in | Ghost cells number. | |
nv | integer(kind=I4P) | in | Number of conservative varibales. | |
weno_s | integer(kind=I4P) | in | Weno stencils number/dimension. | |
weno_a_gpu | real(kind=R8P) | in | Optimal weights. | |
weno_p_gpu | real(kind=R8P) | in | Polinomials coefficients. | |
weno_d_gpu | real(kind=R8P) | in | Smoothness indicators coefficients. | |
weno_zeps | real(kind=R8P) | in | Parameter to avoid division by zero. | |
ror_number | integer(kind=I4P) | in | Number of ROR iterations. | |
ror_schemes_gpu | integer(kind=I4P) | in | Scheme (S value) for each ROR step. | |
ror_threshold | real(kind=R8P) | in | ROR threshold triggering. | |
ror_ivar_gpu | integer(kind=I4P) | in | Index variables to check in ROR. | |
ror_stats_gpu | integer(kind=I4P) | inout | Scheme (S value) for each ROR step. | |
g | real(kind=R8P) | in | Specific heats ratio. | |
q_aux_gpu | real(kind=R8P) | in | Auxiliary variables. | |
fluxes_gpu | real(kind=R8P) | inout | Fluxes. |
Call graph
decompose_fluxes_convective_device
Decompose convective fluxes. Flux vector splitting by local-Lax-Friedrics (Rusanov) with projection in pseudo-characteristics psace.
fortran
subroutine decompose_fluxes_convective_device(si, sir, el, weno_s, b, i, j, k, ngc, nv, g, q_aux_gpu, fmpc)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
si | integer(kind=I4P) | in | Stencil increment. | |
sir | real(kind=R8P) | in | Stencil increment, real cast. | |
el | real(kind=R8P) | in | Left eigeinvectors. | |
weno_s | integer(kind=I4P) | in | Weno stencils number/dimension. | |
b | integer(kind=I4P) | in | Counter. | |
i | integer(kind=I4P) | in | Counter. | |
j | integer(kind=I4P) | in | Counter. | |
k | integer(kind=I4P) | in | Counter. | |
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. | |
fmpc | real(kind=R8P) | inout | Fluxes -+ decomposition in characteristics space. |
Call graph