3c01cb164e
for consistency with the other multiphase solvers. Resolves bug-report http://www.openfoam.org/mantisbt/view.php?id=1192
89 lines
1.9 KiB
C
89 lines
1.9 KiB
C
Info<< "Reading field p\n" << endl;
|
|
volScalarField p
|
|
(
|
|
IOobject
|
|
(
|
|
"p",
|
|
runTime.timeName(),
|
|
mesh,
|
|
IOobject::MUST_READ,
|
|
IOobject::AUTO_WRITE
|
|
),
|
|
mesh
|
|
);
|
|
|
|
volScalarField rho
|
|
(
|
|
IOobject
|
|
(
|
|
"rho",
|
|
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"
|
|
|
|
// Mass flux (corrected by rhoEqn.H)
|
|
surfaceScalarField rhoPhi
|
|
(
|
|
IOobject
|
|
(
|
|
"rhoPhi",
|
|
runTime.timeName(),
|
|
mesh,
|
|
IOobject::NO_READ,
|
|
IOobject::NO_WRITE
|
|
),
|
|
fvc::interpolate(rho)*phi
|
|
);
|
|
|
|
Info<< "Reading transportProperties\n" << endl;
|
|
|
|
incompressibleTwoPhaseMixture twoPhaseProperties(U, phi);
|
|
|
|
volScalarField& alphav(twoPhaseProperties.alpha1());
|
|
alphav.oldTime();
|
|
|
|
volScalarField& alphal(twoPhaseProperties.alpha2());
|
|
|
|
Info<< "Creating compressibilityModel\n" << endl;
|
|
autoPtr<barotropicCompressibilityModel> psiModel =
|
|
barotropicCompressibilityModel::New
|
|
(
|
|
thermodynamicProperties,
|
|
alphav
|
|
);
|
|
|
|
const volScalarField& psi = psiModel->psi();
|
|
|
|
rho == max
|
|
(
|
|
psi*p
|
|
+ alphal*rhol0
|
|
+ ((alphav*psiv + alphal*psil) - psi)*pSat,
|
|
rhoMin
|
|
);
|
|
|
|
// Create incompressible turbulence model
|
|
autoPtr<incompressible::turbulenceModel> turbulence
|
|
(
|
|
incompressible::turbulenceModel::New(U, phi, twoPhaseProperties)
|
|
);
|