99 lines
2.3 KiB
C
99 lines
2.3 KiB
C
Info<< "Reading field pd\n" << endl;
|
|
volScalarField pd
|
|
(
|
|
IOobject
|
|
(
|
|
"pd",
|
|
runTime.timeName(),
|
|
mesh,
|
|
IOobject::MUST_READ,
|
|
IOobject::AUTO_WRITE
|
|
),
|
|
mesh
|
|
);
|
|
|
|
Info<< "Reading field alpha1\n" << endl;
|
|
volScalarField alpha1
|
|
(
|
|
IOobject
|
|
(
|
|
"alpha1",
|
|
runTime.timeName(),
|
|
mesh,
|
|
IOobject::MUST_READ,
|
|
IOobject::AUTO_WRITE
|
|
),
|
|
mesh
|
|
);
|
|
|
|
Info<< "Reading field U\n" << endl;
|
|
volVectorField U
|
|
(
|
|
IOobject
|
|
(
|
|
"U",
|
|
runTime.timeName(),
|
|
mesh,
|
|
IOobject::MUST_READ,
|
|
IOobject::AUTO_WRITE
|
|
),
|
|
mesh
|
|
);
|
|
|
|
# include "createPhi.H"
|
|
|
|
Info<< "Creating phaseChangeTwoPhaseMixture\n" << endl;
|
|
autoPtr<phaseChangeTwoPhaseMixture> twoPhaseProperties =
|
|
phaseChangeTwoPhaseMixture::New(U, phi);
|
|
|
|
const dimensionedScalar& rho1 = twoPhaseProperties->rho1();
|
|
const dimensionedScalar& rho2 = twoPhaseProperties->rho2();
|
|
const dimensionedScalar& pSat = twoPhaseProperties->pSat();
|
|
|
|
// Need to store rho for ddt(rho, U)
|
|
volScalarField rho
|
|
(
|
|
IOobject
|
|
(
|
|
"rho",
|
|
runTime.timeName(),
|
|
mesh,
|
|
IOobject::READ_IF_PRESENT
|
|
),
|
|
alpha1*rho1 + (scalar(1) - alpha1)*rho2,
|
|
alpha1.boundaryField().types()
|
|
);
|
|
rho.oldTime();
|
|
|
|
|
|
label pdRefCell = 0;
|
|
scalar pdRefValue = 0.0;
|
|
setRefCell(pd, mesh.solutionDict().subDict("PISO"), pdRefCell, pdRefValue);
|
|
|
|
Info<< "Calculating field g.h" << endl;
|
|
volScalarField gh("gh", g & mesh.C());
|
|
surfaceScalarField ghf("ghf", g & mesh.Cf());
|
|
|
|
volScalarField p
|
|
(
|
|
IOobject
|
|
(
|
|
"p",
|
|
runTime.timeName(),
|
|
mesh,
|
|
IOobject::NO_READ,
|
|
IOobject::AUTO_WRITE
|
|
),
|
|
pd + rho*gh
|
|
);
|
|
|
|
|
|
// Construct interface from alpha1 distribution
|
|
interfaceProperties interface(alpha1, U, twoPhaseProperties());
|
|
|
|
// Construct incompressible turbulence model
|
|
autoPtr<incompressible::turbulenceModel> turbulence
|
|
(
|
|
incompressible::turbulenceModel::New(U, phi, twoPhaseProperties())
|
|
);
|