cumulant_d3q27 Subroutine

public subroutine cumulant_d3q27(fieldProp, inState, outState, auxField, neigh, nElems, nSolve, level, layout, params, varSys, derVarPos)

No comment yet!

TODO Add comment!

This subroutine interface must match the abstract interface definition kernel in scheme/mus_scheme_type_module.f90 in order to be callable via compute function pointer.


type(mus_field_prop_type), intent(in) :: fieldProp(:)

Array of field properties (fluid or species)

real(kind=rk), intent(in) :: inState(nElems*varSys%nScalars)

input pdf vector

real(kind=rk), intent(out) :: outState(nElems*varSys%nScalars)

output pdf vector

real(kind=rk), intent(inout) :: auxField(nElems*varSys%nAuxScalars)

Auxiliary field computed from pre-collision state Is updated with correct velocity field for multicomponent models

integer, intent(in) :: neigh(nElems*layout%fStencil%QQ)

connectivity vector

integer, intent(in) :: nElems

number of elements in state Array

integer, intent(in) :: nSolve

number of elements solved in kernel

integer, intent(in) :: level

current level

type(mus_scheme_layout_type), intent(in) :: layout

current layout

type(mus_param_type), intent(in) :: params

global parameters

type(tem_varSys_type), intent(in) :: varSys

variable system definition

type(mus_derVarPos_type), intent(in) :: derVarPos(:)

position of derived quantities in varsys for all fields


proc~~cumulant_d3q27~~CallsGraph proc~cumulant_d3q27 cumulant_d3q27 proc~central_moment_split central_moment_split proc~cumulant_d3q27->proc~central_moment_split proc~cm_to_pdf cm_to_pdf proc~cumulant_d3q27->proc~cm_to_pdf



integer, private :: iElem
integer, private :: ii
integer, private :: jj
integer, private :: kk
integer, private :: nScalars
real(kind=rk), private :: ux
real(kind=rk), private :: uy
real(kind=rk), private :: uz
real(kind=rk), private :: rho
real(kind=rk), private :: inv_rho
real(kind=rk), private :: omega
real(kind=rk), private :: dxu
real(kind=rk), private :: dyv
real(kind=rk), private :: dzw
real(kind=rk), private :: AA
real(kind=rk), private :: BB
real(kind=rk), private :: CC
real(kind=rk), private :: com_omega
real(kind=rk), private :: f(-1:1,-1:1,-1:1)
real(kind=rk), private :: k(0:2,0:2,0:2)
real(kind=rk), private :: c(0:2,0:2,0:2)
integer, private :: dens_pos
integer, private :: vel_pos(3)
integer, private :: elemOff