79 lines
1.6 KiB
C
79 lines
1.6 KiB
C
Info<< "Reading thermophysical properties\n" << endl;
|
|
|
|
Info<< "Reading field T\n" << endl;
|
|
volScalarField T
|
|
(
|
|
IOobject
|
|
(
|
|
"T",
|
|
runTime.timeName(),
|
|
mesh,
|
|
IOobject::MUST_READ,
|
|
IOobject::AUTO_WRITE
|
|
),
|
|
mesh
|
|
);
|
|
|
|
Info<< "Reading field p\n" << endl;
|
|
volScalarField p
|
|
(
|
|
IOobject
|
|
(
|
|
"p",
|
|
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"
|
|
|
|
# include "readTransportProperties.H"
|
|
|
|
Info<< "Creating turbulence model\n" << endl;
|
|
autoPtr<incompressible::RASModel> turbulence
|
|
(
|
|
incompressible::RASModel::New(U, phi, laminarTransport)
|
|
);
|
|
|
|
Info<< "Calculating field beta*(g.h)\n" << endl;
|
|
surfaceScalarField betaghf("betagh", beta*(g & mesh.Cf()));
|
|
|
|
label pRefCell = 0;
|
|
scalar pRefValue = 0.0;
|
|
setRefCell
|
|
(
|
|
p,
|
|
mesh.solutionDict().subDict("SIMPLE"),
|
|
pRefCell,
|
|
pRefValue
|
|
);
|
|
mesh.schemesDict().setFluxRequired(p.name());
|
|
|
|
// Kinematic density for buoyancy force
|
|
volScalarField rhok
|
|
(
|
|
IOobject
|
|
(
|
|
"rhok",
|
|
runTime.timeName(),
|
|
mesh
|
|
),
|
|
1.0 - beta*(T - TRef)
|
|
);
|