75 lines
1.8 KiB
C
75 lines
1.8 KiB
C
{
|
|
surfaceScalarField phiAlpha
|
|
(
|
|
IOobject
|
|
(
|
|
"phiAlpha",
|
|
runTime.timeName(),
|
|
mesh
|
|
),
|
|
mesh,
|
|
dimensionedScalar("0", phi.dimensions(), 0)
|
|
);
|
|
|
|
surfaceScalarField phir
|
|
(
|
|
mesh.Sf() & fvc::interpolate(UdmModel.Udm())
|
|
);
|
|
|
|
if (nAlphaSubCycles > 1)
|
|
{
|
|
dimensionedScalar totalDeltaT = runTime.deltaT();
|
|
surfaceScalarField phiAlphaSum
|
|
(
|
|
IOobject
|
|
(
|
|
"phiAlphaSum",
|
|
runTime.timeName(),
|
|
mesh
|
|
),
|
|
mesh,
|
|
dimensionedScalar("0", phi.dimensions(), 0)
|
|
);
|
|
|
|
for
|
|
(
|
|
subCycle<volScalarField> alphaSubCycle(alpha1, nAlphaSubCycles);
|
|
!(++alphaSubCycle).end();
|
|
)
|
|
{
|
|
#include "alphaEqn.H"
|
|
phiAlphaSum += (runTime.deltaT()/totalDeltaT)*phiAlpha;
|
|
}
|
|
|
|
phiAlpha = phiAlphaSum;
|
|
}
|
|
else
|
|
{
|
|
#include "alphaEqn.H"
|
|
}
|
|
|
|
// Apply the diffusion term separately to allow implicit solution
|
|
// and boundedness of the explicit advection
|
|
if (!MULESCorr)
|
|
{
|
|
fvScalarMatrix alpha1Eqn
|
|
(
|
|
fvm::ddt(alpha1) - fvc::ddt(alpha1)
|
|
- fvm::laplacian(turbulence->nut(), alpha1)
|
|
);
|
|
|
|
alpha1Eqn.solve(mesh.solver("alpha1Diffusion"));
|
|
|
|
phiAlpha += alpha1Eqn.flux();
|
|
alpha2 = 1.0 - alpha1;
|
|
|
|
Info<< "Phase-1 volume fraction = "
|
|
<< alpha1.weightedAverage(mesh.Vsc()).value()
|
|
<< " Min(alpha1) = " << min(alpha1).value()
|
|
<< " Max(alpha1) = " << max(alpha1).value()
|
|
<< endl;
|
|
}
|
|
|
|
rhoPhi = phiAlpha*(rho1 - rho2) + phi*rho2;
|
|
rho = mixture.rho();
|
|
}
|