Appearance
adam_turbulence_kernels
ADAM, CPU kernels of the dynamic eddy viscosity (issue #119, T1).
mu_t = rho nu_t on the interior cells and on 2 ghost layers per active direction: the 4th-order dissipative fluxes read it at the cells -1 ... 2 along their direction. 2nd-order central velocity gradients, so ngc >= 3. The filter width is the geometric mean of the active steps of the block, and so it jumps at a 2:1 face. One kernel per model (the same body), selected on the host; the app passes the auxiliary indexes of the density and of the first velocity component.
Source: src/lib/common/adam_turbulence_kernels.F90
Dependencies
Contents
Subroutines
compute_mu_t_vreman
Vreman.
fortran
subroutine compute_mu_t_vreman(ir, iu, ni, nj, nk, ngc, blocks_number, c, dxyz, is_null, q_aux, mu_t)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 | real(kind=R8P) | in | Blocks space steps [3, nb]. | |
is_null | logical | in | Null directions. | |
q_aux | real(kind=R8P) | in | Auxiliary variables. | |
mu_t | real(kind=R8P) | inout | Eddy viscosity. |
Call graph
compute_mu_t_wale
WALE.
fortran
subroutine compute_mu_t_wale(ir, iu, ni, nj, nk, ngc, blocks_number, c, dxyz, is_null, q_aux, mu_t)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 | real(kind=R8P) | in | Blocks space steps [3, nb]. | |
is_null | logical | in | Null directions. | |
q_aux | real(kind=R8P) | in | Auxiliary variables. | |
mu_t | real(kind=R8P) | inout | Eddy viscosity. |
Call graph
compute_mu_t_sigma
Sigma.
fortran
subroutine compute_mu_t_sigma(ir, iu, ni, nj, nk, ngc, blocks_number, c, dxyz, is_null, q_aux, mu_t)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 | real(kind=R8P) | in | Blocks space steps [3, nb]. | |
is_null | logical | in | Null directions. | |
q_aux | real(kind=R8P) | in | Auxiliary variables. | |
mu_t | real(kind=R8P) | inout | Eddy viscosity. |
Call graph