mus_turbVisc_WALE_2D Subroutine

public subroutine mus_turbVisc_WALE_2D(turbVisc, turbConfig, gradData, auxField, velPos, nSolve, nAuxScalars, dxL, dtL, Grad)

Calculate eddy viscosity with WALE (Wall-Adapting Local Eddy-viscosity) model \todo add reference and formula

gradient of velocity


real(kind=rk), intent(out) :: turbVisc(:)

output: turbulent viscosity

type(mus_turbulence_config_type), intent(in) :: turbConfig

Contains turbulenct coefficients

type(mus_gradData_type), intent(in) :: gradData

gradient data

real(kind=rk), intent(in) :: auxField(:)

Auxiliary field variable array

integer, intent(in) :: velPos(3)

position of velocity components in auxField

integer, intent(in) :: nSolve

Number of element to solve in this level

integer, intent(in) :: nAuxScalars

number of scalars in auxField array

real(kind=rk), intent(in) :: dxL

current level lattice element size

real(kind=rk), intent(in) :: dtL

current level lattice time step size

type(mus_Grad_type), intent(in) :: Grad

Object that contains pointers to calculate gradients



integer, private :: iElem
real(kind=rk), private :: gradU(2,2,vlen)
real(kind=rk), private :: gradU_sqr(2,2,vlen)
real(kind=rk), private :: SR(3)
real(kind=rk), private :: Sd(3)
real(kind=rk), private :: onehalf_trSd
real(kind=rk), private :: Sd_sqr
real(kind=rk), private :: SR_sqr
real(kind=rk), private :: OP1
real(kind=rk), private :: OP2
integer, private :: ndims
integer, private :: nChunks
integer, private :: iChunks
integer, private :: nChunkElems
integer, private :: low_bound
integer, private :: elemPos
real(kind=rk), private :: visc_coeff