Appearance
adam_nasto_nvf_cns_kernels
ADAM, NASTO NVF Compressible-Navier-Stokes fluidyanmics application kernels.
Source: src/app/nasto/nvf/adam_nasto_nvf_cns_kernels.F90
Dependencies
Contents
- compute_conservatives_device
- compute_conservative_fluxes_device
- compute_max_eigenvalues_device
- compute_eigenvectors_device
- compute_q_aux_cuf
- compute_roe_average_device
Subroutines
compute_conservatives_device
Compute convervative variables from auxiliary ones.
fortran
subroutine compute_conservatives_device(b, i, j, k, ngc, q_aux_gpu, q)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
b | integer(kind=I4P) | in | value | Cell indexes. |
i | integer(kind=I4P) | in | value | Cell indexes. |
j | integer(kind=I4P) | in | value | Cell indexes. |
k | integer(kind=I4P) | in | value | Cell indexes. |
ngc | integer(kind=I4P) | in | value | Ghost cells number. |
q_aux_gpu | real(kind=R8P) | in | device | Auxiliary variables. |
q | real(kind=R8P) | inout | device | Conservative varibales. |
Call graph
compute_conservative_fluxes_device
Compute convervative fluxes from auxiliary variables.
fortran
subroutine compute_conservative_fluxes_device(sir, b, i, j, k, ngc, q_aux_gpu, f)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
sir | real(kind=R8P) | in | device | Directional (1=x,2=y,3=z) increment. |
b | integer(kind=I4P) | in | value | Cell indexes. |
i | integer(kind=I4P) | in | value | Cell indexes. |
j | integer(kind=I4P) | in | value | Cell indexes. |
k | integer(kind=I4P) | in | value | Cell indexes. |
ngc | integer(kind=I4P) | in | value | Ghost cells number. |
q_aux_gpu | real(kind=R8P) | in | device | Auxiliary variables. |
f | real(kind=R8P) | inout | device | Conservative fluxes. |
Call graph
compute_max_eigenvalues_device
fortran
subroutine compute_max_eigenvalues_device(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 | device | Stencil increment. |
sir | real(kind=R8P) | in | device | Stencil increment, real cast. |
weno_s | integer(kind=I4P) | in | value | Weno stencils number/dimension. |
b | integer(kind=I4P) | in | value | Cell indexes. |
i | integer(kind=I4P) | in | value | Cell indexes. |
j | integer(kind=I4P) | in | value | Cell indexes. |
k | integer(kind=I4P) | in | value | Cell indexes. |
ngc | integer(kind=I4P) | in | value | Ghost cells number. |
nv | integer(kind=I4P) | in | value | Number of conservative varibales. |
q_aux_gpu | real(kind=R8P) | in | device | Auxiliary variables. |
evmax | real(kind=R8P) | inout | device | Maximum eigenvalues in the big stencil. |
Call graph
compute_eigenvectors_device
fortran
subroutine compute_eigenvectors_device(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 | device | Stencil increment. |
sir | real(kind=R8P) | in | device | Stencil increment, real cast. |
b | integer(kind=I4P) | in | value | Cell indexes. |
i | integer(kind=I4P) | in | value | Cell indexes. |
j | integer(kind=I4P) | in | value | Cell indexes. |
k | integer(kind=I4P) | in | value | Cell indexes. |
ngc | integer(kind=I4P) | in | value | Ghost cells number. |
nv | integer(kind=I4P) | in | value | Number of conservative varibales. |
g | real(kind=R8P) | in | value | Specific heats ratio. |
q_aux_gpu | real(kind=R8P) | in | device | Auxiliary variables. |
el | real(kind=R8P) | inout | device | Left and right eigenvectors. |
er | real(kind=R8P) | inout | device | Left and right eigenvectors. |
Call graph
compute_q_aux_cuf
Compute auxiliary variables.
fortran
subroutine compute_q_aux_cuf(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 | device | Conservative variables. |
q_aux_gpu | real(kind=R8P) | out | device | Auxiliary variables. |
Call graph
compute_roe_average_device
Compute Roe averaged quantities.
fortran
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 | value | Number of ghost cells. |
b | integer(kind=I4P) | in | value | Left/right cells indexes. |
i | integer(kind=I4P) | in | value | Left/right cells indexes. |
j | integer(kind=I4P) | in | value | Left/right cells indexes. |
k | integer(kind=I4P) | in | value | Left/right cells indexes. |
ip | integer(kind=I4P) | in | value | Left/right cells indexes. |
jp | integer(kind=I4P) | in | value | Left/right cells indexes. |
kp | integer(kind=I4P) | in | value | Left/right cells indexes. |
g | real(kind=R8P) | in | value | Specific heats ratio. |
q_aux_gpu | real(kind=R8P) | in | device | 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