diff --git a/applications/solvers/multiphase/compressibleTwoPhaseEulerFoam/pEqn.H b/applications/solvers/multiphase/compressibleTwoPhaseEulerFoam/pEqn.H index 67717b0738..709d30c398 100644 --- a/applications/solvers/multiphase/compressibleTwoPhaseEulerFoam/pEqn.H +++ b/applications/solvers/multiphase/compressibleTwoPhaseEulerFoam/pEqn.H @@ -22,27 +22,29 @@ volVectorField HbyA2("HbyA2", U2); HbyA2 = rAU2*U2Eqn.H(); + surfaceScalarField ppDrag("ppDrag", 0.0*phi1); + + if (g0.value() > 0.0) + { + ppDrag -= ppMagf*fvc::snGrad(alpha1)*mesh.magSf(); + } + + if (kineticTheory.on()) + { + ppDrag -= + fvc::interpolate(1.0/rho1)*rAlphaAU1f + *fvc::snGrad(kineticTheory.pa())*mesh.magSf(); + } + surfaceScalarField phiHbyA1 ( "phiHbyA1", (fvc::interpolate(HbyA1) & mesh.Sf()) + fvc::ddtPhiCorr(rAU1, alpha1, U1, phi1) + fvc::interpolate((1.0/rho1)*rAU1*dragCoeff)*phi2 + + ppDrag + rAlphaAU1f*(g & mesh.Sf()) ); - - if (g0.value() > 0.0) - { - phiHbyA1 -= ppMagf*fvc::snGrad(alpha1)*mesh.magSf(); - } - - if (kineticTheory.on()) - { - phiHbyA1 -= - fvc::interpolate((1.0/rho1)*rAU1) - *fvc::snGrad(kineticTheory.pa())*mesh.magSf(); - } - mrfZones.relativeFlux(phiHbyA1); surfaceScalarField phiHbyA2 @@ -135,7 +137,8 @@ U1 = HbyA1 + fvc::reconstruct ( - rAlphaAU1f + ppDrag + + rAlphaAU1f *( (g & mesh.Sf()) + mSfGradp/fvc::interpolate(rho1) diff --git a/src/turbulenceModels/incompressible/LES/kOmegaSSTSAS/kOmegaSSTSAS.C b/src/turbulenceModels/incompressible/LES/kOmegaSSTSAS/kOmegaSSTSAS.C index 5e6890d016..2ab771ac73 100644 --- a/src/turbulenceModels/incompressible/LES/kOmegaSSTSAS/kOmegaSSTSAS.C +++ b/src/turbulenceModels/incompressible/LES/kOmegaSSTSAS/kOmegaSSTSAS.C @@ -388,7 +388,7 @@ void kOmegaSSTSAS::correct(const tmp& gradU) - fvm::Sp(fvc::div(phi()), omega_) - fvm::laplacian(DomegaEff(F1), omega_) == - gamma(F1)*0.5*S2 + gamma(F1)*S2 - fvm::Sp(beta(F1)*omega_, omega_) - fvm::SuSp // cross diffusion term (