equilVelFromMacro Function

private pure function equilVelFromMacro(iField, moleFraction, velocity, nFields, paramBInv, phi, resi_coeff) result(eqVel)

Equlibrium velocity from macro

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: iField

current field
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) :: paramBInv

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

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

resistivity coefficients of iField

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

return equilibrium velocity


Called by

proc~~equilvelfrommacro~~CalledByGraph proc~equilvelfrommacro equilVelFromMacro proc~deriveequilvelmsliquid deriveEquilVelMSLiquid proc~deriveequilvelmsliquid->proc~equilvelfrommacro proc~equilfrommacro equilFromMacro proc~equilfrommacro->proc~equilvelfrommacro proc~deriveeqmsliquid_fromstate deriveEqMSLiquid_FromState proc~deriveeqmsliquid_fromstate->proc~equilfrommacro proc~deriveequilmsliquid deriveEquilMSLiquid proc~deriveequilmsliquid->proc~equilfrommacro proc~deriveequilmsliquid_fromaux deriveEquilMSLiquid_fromAux proc~deriveequilmsliquid_fromaux->proc~equilfrommacro proc~deriveequilmsliquid_frommacro deriveEquilMSLiquid_FromMacro proc~deriveequilmsliquid_frommacro->proc~equilfrommacro