deriveAuxMSLiquid_fromState_WTDF Subroutine

  1. mus_derQuanMSLiquid_module.f90
  2. mus_derQuanMSLiquid_module
  3. deriveAuxMSLiquid_fromState_WTDF

public subroutine deriveAuxMSLiquid_fromState_WTDF(derVarPos, state, neigh, iField, nElems, nSize, iLevel, stencil, varSys, auxField)

This routine computes auxField 'density and velocity' of given field from state array with thermodynamic factot. velocity of original PDF is computed in this routine by solving LSE.

This subroutine's interface must match the abstract interface definition derive_auxFromState in derived/mus_derVarPos_module.f90 in order to be callable via auxFieldFromState function pointer.

Arguments

TypeIntentOptionalAttributesName
class(mus_derVarPos_type), intent(in) :: derVarPos

Position of derive variable in variable system
real(kind=rk), intent(in) :: state(:)

Array of state n * layout%stencil(1)%QQ * nFields
integer, intent(in) :: neigh(:)

connectivity vector
integer, intent(in) :: iField

Current field
integer, intent(in) :: nElems

number of elements
integer, intent(in) :: nSize

number of elements in state array
integer, intent(in) :: iLevel

current level
type(tem_stencilHeader_type), intent(in) :: stencil

stencil header contains discrete velocity vectors
type(tem_varSys_type), intent(in) :: varSys

variable system which is required to access fieldProp information via variable method data c_ptr
real(kind=rk), intent(inout) :: auxField(:)

Output of this routine Size: nElems*nAuxScalars

Calls

proc~~deriveauxmsliquid_fromstate_wtdf~~CallsGraph proc~deriveauxmsliquid_fromstate_wtdf deriveAuxMSLiquid_fromState_WTDF proc~momentumfrommacrolse_wtdf momentumFromMacroLSE_WTDF proc~deriveauxmsliquid_fromstate_wtdf->proc~momentumfrommacrolse_wtdf interface~mus_calc_thermfactor mus_calc_thermFactor proc~deriveauxmsliquid_fromstate_wtdf->interface~mus_calc_thermfactor interface~mus_calc_ms_diffmatrix mus_calc_MS_DiffMatrix proc~deriveauxmsliquid_fromstate_wtdf->interface~mus_calc_ms_diffmatrix proc~invert_matrix invert_matrix proc~deriveauxmsliquid_fromstate_wtdf->proc~invert_matrix proc~momentumfrommacrolse_wtdf->proc~invert_matrix proc~mus_calc_thermfactor_single mus_calc_thermFactor_single interface~mus_calc_thermfactor->proc~mus_calc_thermfactor_single proc~mus_calc_ms_diffmatrix_single mus_calc_MS_DiffMatrix_single interface~mus_calc_ms_diffmatrix->proc~mus_calc_ms_diffmatrix_single interface~calc_ms_diff_matrix_from_moledens calc_ms_diff_matrix_from_moledens proc~mus_calc_ms_diffmatrix_single->interface~calc_ms_diff_matrix_from_moledens interface~calc_therm_factor_loc calc_therm_factor_loc proc~mus_calc_thermfactor_single->interface~calc_therm_factor_loc

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iElem
integer, private :: iDir
integer, private :: iFld
integer, private :: nFields
integer, private :: elemOff
integer, private :: dens_pos
integer, private :: mom_pos(3)
real(kind=rk), private :: mass_dens(varSys%nStateVars)
real(kind=rk), private :: num_dens(varSys%nStateVars)
real(kind=rk), private :: moleFraction(varSys%nStateVars)
real(kind=rk), private :: totNum_densInv
real(kind=rk), private :: press
real(kind=rk), private :: temp
real(kind=rk), private :: phy_moleDens_fac
real(kind=rk), private :: first_moments(3,varSys%nStateVars)
real(kind=rk), private :: momentum(3,varSys%nStateVars)
real(kind=rk), private, dimension(varSys%nStateVars):: phi
real(kind=rk), private, dimension(varSys%nStateVars, varSys%nStateVars):: resi_coeff
real(kind=rk), private, dimension(varSys%nStateVars, varSys%nStateVars):: thermodynamic_fac
real(kind=rk), private, dimension(varSys%nStateVars, varSys%nStateVars):: inv_thermodyn_fac
real(kind=rk), private, dimension(varSys%nStateVars, varSys%nStateVars):: diff_coeff
real(kind=rk), private :: omega_fac
real(kind=rk), private :: paramBInv
real(kind=rk), private :: pdf(stencil%QQ)
type(mus_varSys_data_type), private, pointer:: fPtr
type(mus_scheme_type), private, pointer:: scheme