Appearance
adam_flume_fnl_hybrid_kernels
ADAM, FLUME FNL device kernels of the hybrid central/WENO scheme (issue #119, T2).
Device twins of adam_flume_cpu_hybrid_kernels: see there. Device arrays are transposed, (b, i, j, k, v).
Source: src/app/flume/fnl/adam_flume_fnl_hybrid_kernels.F90
Dependencies
Contents
Subroutines
compute_hybrid_sensor_dev
Device twin of compute_hybrid_sensor.
fortran
subroutine compute_hybrid_sensor_dev(ni, nj, nk, ngc, blocks_number, floor, jump_max, dxyz_gpu, is_null, q_aux_gpu, psi_gpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
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. | |
floor | real(kind=R8P) | in | Dimensionless floor. | |
jump_max | real(kind=R8P) | in | Bound of the relative density jump. | |
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. | |
psi_gpu | real(kind=R8P) | inout | Sensor, [nb, i, j, k, 1]. |
Call graph
mask_mu_t_dev
Zero the eddy viscosity of the cells the sensor flags (issue #119, T2.6): there WENO supplies the dissipation.
fortran
subroutine mask_mu_t_dev(ni, nj, nk, ngc, blocks_number, threshold, is_null, psi_gpu, mu_t_gpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
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. | |
threshold | real(kind=R8P) | in | Sensor threshold. | |
is_null | logical | in | Null directions. | |
psi_gpu | real(kind=R8P) | in | Sensor, [nb, i, j, k, 1]. | |
mu_t_gpu | real(kind=R8P) | inout | Eddy viscosity, [nb, i, j, k, 1]. |
Call graph
overwrite_central_fluxes_dev
Device twin of overwrite_central_fluxes.
fortran
subroutine overwrite_central_fluxes_dev(d, di, dj, dk, ni, nj, nk, ngc, blocks_number, gamma, threshold, faces_gpu, q_aux_gpu, psi_gpu, fl_gpu)Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
d | integer(kind=I4P) | in | Direction, 1=x, 2=y, 3=z. | |
di | integer(kind=I4P) | in | Unit step along d. | |
dj | integer(kind=I4P) | in | Unit step along d. | |
dk | integer(kind=I4P) | in | Unit step along d. | |
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. | |
gamma | real(kind=R8P) | in | Specific heats ratio. | |
threshold | real(kind=R8P) | in | Sensor threshold. | |
faces_gpu | integer(kind=I4P) | in | Block faces not to read across [nb, 6]. | |
q_aux_gpu | real(kind=R8P) | in | Auxiliary variables. | |
psi_gpu | real(kind=R8P) | in | Sensor, [nb, i, j, k, 1]. | |
fl_gpu | real(kind=R8P) | inout | Face fluxes of direction d. |
Call graph