momentumFromMacroLSE_WTDF Function

  1. mus_derQuanMSLiquid_module.f90
  2. mus_derQuanMSLiquid_module
  3. momentumFromMacroLSE_WTDF

public function momentumFromMacroLSE_WTDF(moleFraction, first_Moments, nFields, inv_thermodyn_fac, phi, resi_coeff, omega_fac, paramBInv) result(momentum)

derive untransformed pdf velocity of species by solving system of equations of nSpecies

Arguments

TypeIntentOptionalAttributesName
real(kind=rk), intent(in) :: moleFraction(nFields)

molefraction of all species
real(kind=rk), intent(in) :: first_Moments(3,nFields)

momentum from transformed pdf of all species
integer, intent(in) :: nFields

number of species
real(kind=rk), intent(in) :: inv_thermodyn_fac(nFields,nFields)

inverse of thermodynamic factor
real(kind=rk), intent(in) :: phi(nFields)

molecular weight ratio of all species
real(kind=rk), intent(in) :: resi_coeff(nFields,nFields)

resistivity coefficients
real(kind=rk), intent(in) :: omega_fac

relaxation parameter, omega_diff*0.5_rk
real(kind=rk), intent(in) :: paramBInv

free parameter B

Return Value real(kind=rk)(3,nFields)

return actual momentum


Calls

proc~~momentumfrommacrolse_wtdf~~CallsGraph proc~momentumfrommacrolse_wtdf momentumFromMacroLSE_WTDF proc~invert_matrix invert_matrix proc~momentumfrommacrolse_wtdf->proc~invert_matrix

Called by

proc~~momentumfrommacrolse_wtdf~~CalledByGraph proc~momentumfrommacrolse_wtdf momentumFromMacroLSE_WTDF proc~deriveauxmsliquid_fromstate_wtdf deriveAuxMSLiquid_fromState_WTDF proc~deriveauxmsliquid_fromstate_wtdf->proc~momentumfrommacrolse_wtdf

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: ifield
integer, private :: ifield_2
integer, private :: ifield_3
integer, private :: icomp
real(kind=rk), private :: matrixA(nFields,nFields)
real(kind=rk), private :: invA(nFields,nFields)