Info<< "Reading field alpha\n" << endl;
volScalarField alpha
(
IOobject
"alpha",
runTime.timeName(),
mesh,
IOobject::MUST_READ,
IOobject::AUTO_WRITE
),
mesh
);
volScalarField beta
"beta",
IOobject::NO_READ,
IOobject::NO_WRITE
scalar(1) - alpha
//,alpha.boundaryField().types()
Info<< "Reading field p\n" << endl;
volScalarField p
"p",
Info<< "Reading field Ua\n" << endl;
volVectorField Ua
"Ua",
Info<< "Reading field Ub\n" << endl;
volVectorField Ub
"Ub",
volVectorField U
"U",
alpha*Ua + beta*Ub
Info<< "Reading transportProperties\n" << endl;
IOdictionary transportProperties
"transportProperties",
runTime.constant(),
IOobject::MUST_READ_IF_MODIFIED,
)
dimensionedScalar rhoa
transportProperties.lookup("rhoa")
dimensionedScalar rhob
transportProperties.lookup("rhob")
dimensionedScalar nua
transportProperties.lookup("nua")
dimensionedScalar nub
transportProperties.lookup("nub")
dimensionedScalar da
transportProperties.lookup("da")
dimensionedScalar db
transportProperties.lookup("db")
dimensionedScalar Cvm
transportProperties.lookup("Cvm")
dimensionedScalar Cl
transportProperties.lookup("Cl")
dimensionedScalar Ct
transportProperties.lookup("Ct")
# include "createPhia.H"
# include "createPhib.H"
surfaceScalarField phi
"phi",
fvc::interpolate(alpha)*phia
+ fvc::interpolate(beta)*phib
# include "createRASTurbulence.H"
Info<< "Calculating field DDtUa and DDtUb\n" << endl;
volVectorField DDtUa =
fvc::ddt(Ua)
+ fvc::div(phia, Ua)
- fvc::div(phia)*Ua;
volVectorField DDtUb =
fvc::ddt(Ub)
+ fvc::div(phib, Ub)
- fvc::div(phib)*Ub;
Info<< "Calculating field g.h\n" << endl;
volScalarField gh("gh", g & mesh.C());
label pRefCell = 0;
scalar pRefValue = 0.0;
setRefCell(p, piso.dict(), pRefCell, pRefValue);
mesh.schemesDict().setFluxRequired(p.name());