equilVelFromMacroWTDF Function

  1. mus_derQuanMSLiquid_module.f90
  2. mus_derQuanMSLiquid_module
  3. equilVelFromMacroWTDF

private pure function equilVelFromMacroWTDF(iField, mass_dens, moleFraction, velocity, nFields, inv_thermodyn_fac, paramBInv, phi, resi_coeff) result(eqVel)

Equlibrium velocity from macro with thermodynamic factor

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: iField

current field
real(kind=rk), intent(in) :: mass_dens(nFields)

mass density of all species
real(kind=rk), intent(in) :: moleFraction(nFields)

mole fraction of all species
real(kind=rk), intent(in) :: velocity(3,nFields)

velocity 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) :: paramBInv

free parameter B
real(kind=rk), intent(in) :: phi(nFields)

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

resistivity coefficients

Return Value real(kind=rk)(3)

return equilibrium velocity


Called by

proc~~equilvelfrommacrowtdf~~CalledByGraph proc~equilvelfrommacrowtdf equilVelFromMacroWTDF proc~equilfrommacrowtdf equilFromMacroWTDF proc~equilfrommacrowtdf->proc~equilvelfrommacrowtdf proc~deriveequilvelwtdf_msliquid deriveEquilVelWTDF_MSLiquid proc~deriveequilvelwtdf_msliquid->proc~equilvelfrommacrowtdf proc~deriveequilwtdf_msliquid deriveEquilWTDF_MSLiquid proc~deriveequilwtdf_msliquid->proc~equilfrommacrowtdf

Contents

Variables


Variables

TypeVisibilityAttributesNameInitial
integer, private :: iField_2
integer, private :: iField_3