equilVelFromMacro Function

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

Equlibrium velocity from macro

Arguments

TypeIntentOptionalAttributesName
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~equilfrommacro equilFromMacro proc~equilfrommacro->proc~equilvelfrommacro proc~deriveequilvelmsliquid deriveEquilVelMSLiquid proc~deriveequilvelmsliquid->proc~equilvelfrommacro proc~deriveeqmsliquid_fromstate deriveEqMSLiquid_FromState proc~deriveeqmsliquid_fromstate->proc~equilfrommacro proc~deriveequilmsliquid deriveEquilMSLiquid proc~deriveequilmsliquid->proc~equilfrommacro proc~deriveequilmsliquid_frommacro deriveEquilMSLiquid_FromMacro proc~deriveequilmsliquid_frommacro->proc~equilfrommacro proc~deriveequilmsliquid_fromaux deriveEquilMSLiquid_fromAux proc~deriveequilmsliquid_fromaux->proc~equilfrommacro

Contents


Variables

TypeVisibilityAttributesNameInitial
integer, private :: ifld