Projected Recursive Regularized relaxation routine for the D3Q19 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. works for both d3q19 and d3q27
TODO:tr_SR = div2_3 * (gradU(1, 1, 1) + gradU(2, 2, 1) + gradU(3, 3, 1))
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
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 |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | private | :: | iElem | ||||
integer, | private | :: | iDir | ||||
type(mus_gradData_type), | private, | pointer | :: | gradData | gradient data |
||
type(mus_varSys_data_type), | private, | pointer | :: | fPtr | |||
type(mus_scheme_type), | private, | pointer | :: | scheme | |||
real(kind=rk), | private | :: | f(QQ) | TODO:, tr_SR |
|||
real(kind=rk), | private | :: | SR(6) | TODO:, tr_SR |
|||
real(kind=rk), | private | :: | gradU(3,3,1) | TODO:, tr_SR |
|||
real(kind=rk), | private | :: | rho | ||||
real(kind=rk), | private | :: | u_x | ||||
real(kind=rk), | private | :: | u_y | ||||
real(kind=rk), | private | :: | u_z | ||||
real(kind=rk), | private | :: | a12xx | ||||
real(kind=rk), | private | :: | a12xy | ||||
real(kind=rk), | private | :: | a12yy | ||||
real(kind=rk), | private | :: | a12zz | ||||
real(kind=rk), | private | :: | a12xz | ||||
real(kind=rk), | private | :: | a12yz | ||||
real(kind=rk), | private | :: | omega | ||||
real(kind=rk), | private | :: | taup | ||||
real(kind=rk), | private | :: | cmpl_o | ||||
real(kind=rk), | private | :: | feq(QQ) | ||||
real(kind=rk), | private | :: | f1(QQ) | ||||
integer, | private | :: | denspos | ||||
integer, | private | :: | velpos(3) | ||||
integer, | private | :: | elemOff | ||||
integer, | private | :: | nScalars |