mirror of
https://develop.openfoam.com/Development/openfoam.git
synced 2025-11-28 03:28:01 +00:00
ENH: cleaning chtMultiRegionFoam and chtMultiRegionSimpleFoam from
porous fluid and solid now incorporated into fluid and solid regions
This commit is contained in:
sergio
@ -60,14 +60,9 @@ int main(int argc, char *argv[])
|
|||||||
|
|
||||||
#include "createFluidMeshes.H"
|
#include "createFluidMeshes.H"
|
||||||
#include "createSolidMeshes.H"
|
#include "createSolidMeshes.H"
|
||||||
#include "createPorousFluidRegions.H"
|
|
||||||
#include "createPorousSolidMeshes.H"
|
|
||||||
|
|
||||||
#include "createFluidFields.H"
|
#include "createFluidFields.H"
|
||||||
#include "createSolidFields.H"
|
#include "createSolidFields.H"
|
||||||
#include "createPorousFluidFields.H"
|
|
||||||
#include "createPorousSolidFields.H"
|
|
||||||
|
|
||||||
|
|
||||||
#include "initContinuityErrs.H"
|
#include "initContinuityErrs.H"
|
||||||
#include "readTimeControls.H"
|
#include "readTimeControls.H"
|
||||||
@ -116,24 +111,6 @@ int main(int argc, char *argv[])
|
|||||||
#include "solveFluid.H"
|
#include "solveFluid.H"
|
||||||
}
|
}
|
||||||
|
|
||||||
forAll(porousFluidRegions, i)
|
|
||||||
{
|
|
||||||
Info<< "\nSolving for fluid porous region "
|
|
||||||
<< porousFluidRegions[i].name() << endl;
|
|
||||||
#include "setPorousFluidFields.H"
|
|
||||||
#include "readPorousFluidRegionPIMPLEControls.H"
|
|
||||||
#include "solvePorousFluid.H"
|
|
||||||
}
|
|
||||||
|
|
||||||
forAll(porousSolidRegions, i)
|
|
||||||
{
|
|
||||||
Info<< "\nSolving for porous solid region "
|
|
||||||
<< porousSolidRegions[i].name() << endl;
|
|
||||||
#include "setPorousRegionSolidFields.H"
|
|
||||||
#include "readPorousSolidMultiRegionPIMPLEControls.H"
|
|
||||||
#include "solvePorousSolid.H"
|
|
||||||
}
|
|
||||||
|
|
||||||
forAll(solidRegions, i)
|
forAll(solidRegions, i)
|
||||||
{
|
{
|
||||||
Info<< "\nSolving for solid region "
|
Info<< "\nSolving for solid region "
|
||||||
|
|||||||
@ -1,8 +1,7 @@
|
|||||||
EXE_INC = \
|
EXE_INC = \
|
||||||
-Ifluid \
|
-Ifluid \
|
||||||
-Isolid \
|
-Isolid \
|
||||||
-I./porousFluid \
|
-I../solid \
|
||||||
-I./porousSolid \
|
|
||||||
-I$(LIB_SRC)/finiteVolume/lnInclude \
|
-I$(LIB_SRC)/finiteVolume/lnInclude \
|
||||||
-I$(LIB_SRC)/meshTools/lnInclude \
|
-I$(LIB_SRC)/meshTools/lnInclude \
|
||||||
-I$(LIB_SRC)/finiteVolume/cfdTools \
|
-I$(LIB_SRC)/finiteVolume/cfdTools \
|
||||||
|
|||||||
@ -50,13 +50,9 @@ int main(int argc, char *argv[])
|
|||||||
|
|
||||||
#include "createFluidMeshes.H"
|
#include "createFluidMeshes.H"
|
||||||
#include "createSolidMeshes.H"
|
#include "createSolidMeshes.H"
|
||||||
#include "createPorousFluidRegions.H"
|
|
||||||
#include "createPorousSolidMeshes.H"
|
|
||||||
|
|
||||||
#include "createFluidFields.H"
|
#include "createFluidFields.H"
|
||||||
#include "createSolidFields.H"
|
#include "createSolidFields.H"
|
||||||
#include "createPorousFluidFields.H"
|
|
||||||
#include "createPorousSolidFields.H"
|
|
||||||
|
|
||||||
#include "initContinuityErrs.H"
|
#include "initContinuityErrs.H"
|
||||||
|
|
||||||
@ -74,24 +70,6 @@ int main(int argc, char *argv[])
|
|||||||
#include "solveFluid.H"
|
#include "solveFluid.H"
|
||||||
}
|
}
|
||||||
|
|
||||||
forAll(porousFluidRegions, i)
|
|
||||||
{
|
|
||||||
Info<< "\nSolving for fluid porous region "
|
|
||||||
<< porousFluidRegions[i].name() << endl;
|
|
||||||
#include "setPorousFluidFields.H"
|
|
||||||
#include "readPorousFluidRegionSIMPLEControls.H"
|
|
||||||
#include "solvePorousFluid.H"
|
|
||||||
}
|
|
||||||
|
|
||||||
forAll(porousSolidRegions, i)
|
|
||||||
{
|
|
||||||
Info<< "\nSolving for porous solid region "
|
|
||||||
<< porousSolidRegions[i].name() << endl;
|
|
||||||
#include "setPorousRegionSolidFields.H"
|
|
||||||
#include "readPorousSolidMultiRegionSIMPLEControls.H"
|
|
||||||
#include "solvePorousSolid.H"
|
|
||||||
}
|
|
||||||
|
|
||||||
forAll(solidRegions, i)
|
forAll(solidRegions, i)
|
||||||
{
|
{
|
||||||
Info<< "\nSolving for solid region "
|
Info<< "\nSolving for solid region "
|
||||||
|
|||||||
@ -1,11 +0,0 @@
|
|||||||
// Solve the Momentum equation
|
|
||||||
tmp<fvVectorMatrix> porousUEqn
|
|
||||||
(
|
|
||||||
fvm::div(porousPhi, porousU)
|
|
||||||
+ turbPorous.divDevRhoReff(porousU)
|
|
||||||
+ porousSources(porousRho, porousU)
|
|
||||||
);
|
|
||||||
|
|
||||||
porousUEqn().relax();
|
|
||||||
|
|
||||||
solve(porousUEqn() == -fvc::grad(porousP));
|
|
||||||
@ -1,181 +0,0 @@
|
|||||||
// Initialise porous field pointer lists
|
|
||||||
PtrList<rhoThermo> thermoPorous(porousFluidRegions.size());
|
|
||||||
PtrList<volScalarField> rhoPorous(porousFluidRegions.size());
|
|
||||||
PtrList<volScalarField> kappaPorous(porousFluidRegions.size());
|
|
||||||
PtrList<volVectorField> UPorous(porousFluidRegions.size());
|
|
||||||
PtrList<surfaceScalarField> phiPorous(porousFluidRegions.size());
|
|
||||||
PtrList<compressible::turbulenceModel> turbulencePorous
|
|
||||||
(
|
|
||||||
porousFluidRegions.size()
|
|
||||||
);
|
|
||||||
PtrList<volScalarField> pPorous(porousFluidRegions.size());
|
|
||||||
|
|
||||||
List<scalar> initialMassFluidPorous(porousFluidRegions.size());
|
|
||||||
List<label> pRefCellFluidPorous(porousFluidRegions.size(),0);
|
|
||||||
List<scalar> pRefValueFluidPorous(porousFluidRegions.size(),0.0);
|
|
||||||
|
|
||||||
PtrList<dimensionedScalar> rhoMaxPorous(fluidRegions.size());
|
|
||||||
PtrList<dimensionedScalar> rhoMinPorous(fluidRegions.size());
|
|
||||||
|
|
||||||
PtrList<IObasicSourceList> heatPorousSources
|
|
||||||
(
|
|
||||||
porousFluidRegions.size()
|
|
||||||
);
|
|
||||||
|
|
||||||
forAll(porousFluidRegions, i)
|
|
||||||
{
|
|
||||||
Info<< "Reading fluid mesh thermophysical properties for porous "
|
|
||||||
<< porousFluidRegions[i].name() << nl << endl;
|
|
||||||
|
|
||||||
Info<< " Adding to thermoFluid porous\n" << endl;
|
|
||||||
|
|
||||||
thermoPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
rhoThermo::New(porousFluidRegions[i]).ptr()
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to rhoPorous\n" << endl;
|
|
||||||
rhoPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volScalarField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"rho",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousFluidRegions[i],
|
|
||||||
IOobject::NO_READ,
|
|
||||||
IOobject::AUTO_WRITE
|
|
||||||
),
|
|
||||||
thermoPorous[i].rho()
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to UPorous\n" << endl;
|
|
||||||
UPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volVectorField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"U",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousFluidRegions[i],
|
|
||||||
IOobject::MUST_READ,
|
|
||||||
IOobject::AUTO_WRITE
|
|
||||||
),
|
|
||||||
porousFluidRegions[i]
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to phiPorous\n" << endl;
|
|
||||||
phiPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new surfaceScalarField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"phi",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousFluidRegions[i],
|
|
||||||
IOobject::READ_IF_PRESENT,
|
|
||||||
IOobject::AUTO_WRITE
|
|
||||||
),
|
|
||||||
linearInterpolate(rhoPorous[i]*UPorous[i])
|
|
||||||
& porousFluidRegions[i].Sf()
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding turbulence to porous\n" << endl;
|
|
||||||
turbulencePorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
compressible::turbulenceModel::New
|
|
||||||
(
|
|
||||||
rhoPorous[i],
|
|
||||||
UPorous[i],
|
|
||||||
phiPorous[i],
|
|
||||||
thermoPorous[i]
|
|
||||||
).ptr()
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to kappaFluid\n" << endl;
|
|
||||||
kappaPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volScalarField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"kappaPorous",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousFluidRegions[i],
|
|
||||||
IOobject::NO_READ,
|
|
||||||
IOobject::NO_WRITE
|
|
||||||
),
|
|
||||||
thermoPorous[i].Cp()*thermoPorous[i].alpha()
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
pPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volScalarField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"p",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousFluidRegions[i],
|
|
||||||
IOobject::MUST_READ,
|
|
||||||
IOobject::AUTO_WRITE
|
|
||||||
),
|
|
||||||
porousFluidRegions[i]
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
setRefCell
|
|
||||||
(
|
|
||||||
thermoPorous[i].p(),
|
|
||||||
pPorous[i],
|
|
||||||
porousFluidRegions[i].solutionDict().subDict("SIMPLE"),
|
|
||||||
pRefCellFluidPorous[i],
|
|
||||||
pRefValueFluidPorous[i]
|
|
||||||
);
|
|
||||||
|
|
||||||
rhoMaxPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new dimensionedScalar
|
|
||||||
(
|
|
||||||
porousFluidRegions[i].solutionDict().subDict("SIMPLE").lookup
|
|
||||||
(
|
|
||||||
"rhoMax"
|
|
||||||
)
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
rhoMinPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new dimensionedScalar
|
|
||||||
(
|
|
||||||
porousFluidRegions[i].solutionDict().subDict("SIMPLE").lookup
|
|
||||||
(
|
|
||||||
"rhoMin"
|
|
||||||
)
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
heatPorousSources.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new IObasicSourceList(porousFluidRegions[i])
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
@ -1,25 +0,0 @@
|
|||||||
const wordList porousFluidNames(rp["porousFluid"]);
|
|
||||||
|
|
||||||
PtrList<fvMesh> porousFluidRegions(porousFluidNames.size());
|
|
||||||
|
|
||||||
forAll (porousFluidNames, iPorous)
|
|
||||||
{
|
|
||||||
const word porousFluidName = porousFluidNames[iPorous];
|
|
||||||
Info<< "Create porous fluid region " << porousFluidName
|
|
||||||
<< nl << endl;
|
|
||||||
|
|
||||||
porousFluidRegions.set
|
|
||||||
(
|
|
||||||
iPorous,
|
|
||||||
new fvMesh
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
porousFluidName,
|
|
||||||
runTime.timeName(),
|
|
||||||
runTime,
|
|
||||||
IOobject::MUST_READ
|
|
||||||
)
|
|
||||||
)
|
|
||||||
);
|
|
||||||
}
|
|
||||||
@ -1,19 +0,0 @@
|
|||||||
{
|
|
||||||
fvScalarMatrix hPorousEqn
|
|
||||||
(
|
|
||||||
fvm::div(porousPhi, porousH)
|
|
||||||
- fvm::laplacian(turbPorous.alphaEff(), porousH)
|
|
||||||
==
|
|
||||||
- fvc::div(porousPhi, 0.5*magSqr(porousU), "div(phi,K)")
|
|
||||||
+ porousSources(porousRho, porousH)
|
|
||||||
);
|
|
||||||
|
|
||||||
hPorousEqn.relax();
|
|
||||||
hPorousEqn.solve();
|
|
||||||
|
|
||||||
porousThermo.correct();
|
|
||||||
|
|
||||||
Info<< "Min/max in the porous T:"
|
|
||||||
<< min(porousThermo.T()).value() << ' '
|
|
||||||
<< max(porousThermo.T()).value() << endl;
|
|
||||||
}
|
|
||||||
@ -1,53 +0,0 @@
|
|||||||
porousRho = porousThermo.rho();
|
|
||||||
porousRho = max(porousRho, rhoMin);
|
|
||||||
porousRho = min(porousRho, rhoMax);
|
|
||||||
porousRho.relax();
|
|
||||||
|
|
||||||
volScalarField rAUPorous(1.0/porousUEqn().A());
|
|
||||||
|
|
||||||
porousU = rAUPorous*porousUEqn().H();
|
|
||||||
porousUEqn.clear();
|
|
||||||
|
|
||||||
bool closedVolume = false;
|
|
||||||
|
|
||||||
porousPhi =
|
|
||||||
fvc::interpolate(porousRho)
|
|
||||||
*(fvc::interpolate(porousU) & porousMesh.Sf());
|
|
||||||
|
|
||||||
for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
|
|
||||||
{
|
|
||||||
fvScalarMatrix pEqn
|
|
||||||
(
|
|
||||||
fvm::laplacian(porousRho*rAUPorous, porousP) == fvc::div(porousPhi)
|
|
||||||
);
|
|
||||||
|
|
||||||
pEqn.setReference(pRefCell, pRefValue);
|
|
||||||
|
|
||||||
pEqn.solve();
|
|
||||||
|
|
||||||
if (nonOrth == nNonOrthCorr)
|
|
||||||
{
|
|
||||||
porousPhi -= pEqn.flux();
|
|
||||||
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
porousP.relax();
|
|
||||||
|
|
||||||
porousU -= rAUPorous*fvc::grad(porousP);
|
|
||||||
porousU.correctBoundaryConditions();
|
|
||||||
|
|
||||||
if (closedVolume)
|
|
||||||
{
|
|
||||||
porousP += (initialMass - fvc::domainIntegrate(porousPsi*porousP))
|
|
||||||
/fvc::domainIntegrate(porousPsi);
|
|
||||||
}
|
|
||||||
|
|
||||||
porousRho = porousThermo.rho();
|
|
||||||
porousRho = max(porousRho, rhoMin);
|
|
||||||
porousRho = min(porousRho, rhoMax);
|
|
||||||
porousRho.relax();
|
|
||||||
|
|
||||||
Info<< "rho max/min : "
|
|
||||||
<< max(porousRho).value() << " "
|
|
||||||
<< min(porousRho).value() << endl;
|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
const dictionary& simple = porousMesh.solutionDict().subDict("SIMPLE");
|
|
||||||
|
|
||||||
const int nNonOrthCorr =
|
|
||||||
simple.lookupOrDefault<int>("nNonOrthogonalCorrectors", 0);
|
|
||||||
@ -1,28 +0,0 @@
|
|||||||
const fvMesh& porousMesh = porousFluidRegions[i];
|
|
||||||
|
|
||||||
rhoThermo& porousThermo = thermoPorous[i];
|
|
||||||
volScalarField& porousRho = rhoPorous[i];
|
|
||||||
|
|
||||||
volVectorField& porousU = UPorous[i];
|
|
||||||
surfaceScalarField& porousPhi = phiPorous[i];
|
|
||||||
|
|
||||||
compressible::turbulenceModel& turbPorous = turbulencePorous[i];
|
|
||||||
|
|
||||||
volScalarField& porousP = porousThermo.p();
|
|
||||||
const volScalarField& porousPsi = porousThermo.psi();
|
|
||||||
volScalarField& porousH = porousThermo.he();
|
|
||||||
|
|
||||||
const dimensionedScalar initialMass
|
|
||||||
(
|
|
||||||
"initialMass",
|
|
||||||
dimMass,
|
|
||||||
initialMassFluidPorous[i]
|
|
||||||
);
|
|
||||||
|
|
||||||
IObasicSourceList& porousSources = heatPorousSources[i];
|
|
||||||
|
|
||||||
const label pRefCell = pRefCellFluidPorous[i];
|
|
||||||
const scalar pRefValue = pRefValueFluidPorous[i];
|
|
||||||
|
|
||||||
const scalar rhoMax = rhoMaxPorous[i].value();
|
|
||||||
const scalar rhoMin = rhoMinPorous[i].value();
|
|
||||||
@ -1,11 +0,0 @@
|
|||||||
// Pressure-velocity SIMPLE corrector
|
|
||||||
|
|
||||||
porousP.storePrevIter();
|
|
||||||
porousRho.storePrevIter();
|
|
||||||
{
|
|
||||||
#include "UPorousFluidEqn.H"
|
|
||||||
#include "hPorousFluidEqn.H"
|
|
||||||
#include "pPorousFluidEqn.H"
|
|
||||||
}
|
|
||||||
|
|
||||||
turbPorous.correct();
|
|
||||||
@ -1,43 +0,0 @@
|
|||||||
// Initialise solid field pointer lists
|
|
||||||
PtrList<solidThermo> porousSolidThermos(porousSolidRegions.size());
|
|
||||||
PtrList<IObasicSourceList> solidHeatSources(porousSolidRegions.size());
|
|
||||||
PtrList<volScalarField> betavSolid(porousSolidRegions.size());
|
|
||||||
|
|
||||||
// Populate solid field pointer lists
|
|
||||||
forAll(porousSolidRegions, i)
|
|
||||||
{
|
|
||||||
Info<< "*** Reading porous solid mesh thermophysical "
|
|
||||||
<< "properties for region "
|
|
||||||
<< porousSolidRegions[i].name() << nl << endl;
|
|
||||||
|
|
||||||
Info<< " Adding to thermos\n" << endl;
|
|
||||||
porousSolidThermos.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
solidThermo::New(porousSolidRegions[i])
|
|
||||||
);
|
|
||||||
Info<< " Adding sources\n" << endl;
|
|
||||||
solidHeatSources.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new IObasicSourceList(porousSolidRegions[i])
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to betavSolid\n" << endl;
|
|
||||||
betavSolid.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volScalarField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"betavSolid",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousSolidRegions[i],
|
|
||||||
IOobject::MUST_READ,
|
|
||||||
IOobject::AUTO_WRITE
|
|
||||||
),
|
|
||||||
porousSolidRegions[i]
|
|
||||||
)
|
|
||||||
);
|
|
||||||
}
|
|
||||||
@ -1,24 +0,0 @@
|
|||||||
const wordList porousSolidNames(rp["porousSolid"]);
|
|
||||||
|
|
||||||
PtrList<fvMesh> porousSolidRegions(porousSolidNames.size());
|
|
||||||
|
|
||||||
forAll(porousSolidNames, i)
|
|
||||||
{
|
|
||||||
Info<< "Create solid mesh for region " << porousSolidNames[i]
|
|
||||||
<< " for time = " << runTime.timeName() << nl << endl;
|
|
||||||
|
|
||||||
porousSolidRegions.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new fvMesh
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
porousSolidNames[i],
|
|
||||||
runTime.timeName(),
|
|
||||||
runTime,
|
|
||||||
IOobject::MUST_READ
|
|
||||||
)
|
|
||||||
)
|
|
||||||
);
|
|
||||||
}
|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
const dictionary& simple = mesh.solutionDict().subDict("SIMPLE");
|
|
||||||
|
|
||||||
const int nNonOrthCorr =
|
|
||||||
simple.lookupOrDefault<int>("nNonOrthogonalCorrectors", 0);
|
|
||||||
@ -1,23 +0,0 @@
|
|||||||
const fvMesh& mesh = porousSolidRegions[i];
|
|
||||||
|
|
||||||
solidThermo& thermo = porousSolidThermos[i];
|
|
||||||
const volScalarField& betav = betavSolid[i];
|
|
||||||
|
|
||||||
tmp<volScalarField> trho = thermo.rho();
|
|
||||||
const volScalarField& rho = trho();
|
|
||||||
|
|
||||||
tmp<volScalarField> tcp = thermo.Cp();
|
|
||||||
const volScalarField& cp = tcp();
|
|
||||||
|
|
||||||
tmp<volScalarField> tkappa = thermo.kappa();
|
|
||||||
//tmp<volSymmTensorField> tkappa = thermo.directionalKappa()*betav;
|
|
||||||
|
|
||||||
const volScalarField& kappa = tkappa();
|
|
||||||
//const volSymmTensorField& K = tK();
|
|
||||||
|
|
||||||
tmp<volScalarField> talpha = thermo.alpha();
|
|
||||||
const volScalarField& alpha = talpha();
|
|
||||||
|
|
||||||
volScalarField& h = thermo.he();
|
|
||||||
|
|
||||||
IObasicSourceList& sources = solidHeatSources[i];
|
|
||||||
@ -1,18 +0,0 @@
|
|||||||
scalar DiNum = -GREAT;
|
|
||||||
|
|
||||||
forAll(solidRegions, i)
|
|
||||||
{
|
|
||||||
# include "setRegionSolidFields.H"
|
|
||||||
|
|
||||||
DiNum = max
|
|
||||||
(
|
|
||||||
solidRegionDiffNo
|
|
||||||
(
|
|
||||||
solidRegions[i],
|
|
||||||
runTime,
|
|
||||||
rho*cp,
|
|
||||||
K
|
|
||||||
),
|
|
||||||
DiNum
|
|
||||||
);
|
|
||||||
}
|
|
||||||
@ -1,17 +0,0 @@
|
|||||||
{
|
|
||||||
for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
|
|
||||||
{
|
|
||||||
tmp<fvScalarMatrix> hEqn
|
|
||||||
(
|
|
||||||
- fvm::laplacian(betav*alpha, h, "laplacian(alpha,h)")
|
|
||||||
+ sources(rho, h)
|
|
||||||
);
|
|
||||||
|
|
||||||
hEqn().relax();
|
|
||||||
hEqn().solve();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
thermo.correct();
|
|
||||||
|
|
||||||
Info<< "Min/max T:" << min(thermo.T()) << ' ' << max(thermo.T()) << endl;
|
|
||||||
@ -1,20 +0,0 @@
|
|||||||
// Initialise solid field pointer lists
|
|
||||||
PtrList<solidThermo> thermos(solidRegions.size());
|
|
||||||
PtrList<radiation::radiationModel> radiations(solidRegions.size());
|
|
||||||
|
|
||||||
// Populate solid field pointer lists
|
|
||||||
forAll(solidRegions, i)
|
|
||||||
{
|
|
||||||
Info<< "*** Reading solid mesh thermophysical properties for region "
|
|
||||||
<< solidRegions[i].name() << nl << endl;
|
|
||||||
|
|
||||||
Info<< " Adding to thermos\n" << endl;
|
|
||||||
thermos.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
solidThermo::New(solidRegions[i])
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to radiations\n" << endl;
|
|
||||||
radiations.set(i, radiation::radiationModel::New(thermos[i].T()));
|
|
||||||
}
|
|
||||||
@ -1,24 +0,0 @@
|
|||||||
const wordList solidsNames(rp["solid"]);
|
|
||||||
|
|
||||||
PtrList<fvMesh> solidRegions(solidsNames.size());
|
|
||||||
|
|
||||||
forAll(solidsNames, i)
|
|
||||||
{
|
|
||||||
Info<< "Create solid mesh for region " << solidsNames[i]
|
|
||||||
<< " for time = " << runTime.timeName() << nl << endl;
|
|
||||||
|
|
||||||
solidRegions.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new fvMesh
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
solidsNames[i],
|
|
||||||
runTime.timeName(),
|
|
||||||
runTime,
|
|
||||||
IOobject::MUST_READ
|
|
||||||
)
|
|
||||||
)
|
|
||||||
);
|
|
||||||
}
|
|
||||||
@ -1,18 +0,0 @@
|
|||||||
fvMesh& mesh = solidRegions[i];
|
|
||||||
solidThermo& thermo = thermos[i];
|
|
||||||
const radiation::radiationModel& radiation = radiations[i];
|
|
||||||
|
|
||||||
tmp<volScalarField> trho = thermo.rho();
|
|
||||||
const volScalarField& rho = trho();
|
|
||||||
|
|
||||||
tmp<volScalarField> tcp = thermo.Cp();
|
|
||||||
const volScalarField& cp = tcp();
|
|
||||||
|
|
||||||
tmp<volScalarField> tkappa = thermo.kappa();
|
|
||||||
//tmp<volSymmTensorField> tkappa = thermo.directionalkappa();
|
|
||||||
const volScalarField& kappa = tkappa();
|
|
||||||
|
|
||||||
tmp<volScalarField> talpha = thermo.alpha();
|
|
||||||
const volScalarField& alpha = talpha();
|
|
||||||
|
|
||||||
volScalarField& h = thermo.he();
|
|
||||||
@ -3,7 +3,8 @@
|
|||||||
{
|
{
|
||||||
fvScalarMatrix hEqn
|
fvScalarMatrix hEqn
|
||||||
(
|
(
|
||||||
-fvm::laplacian(alpha, h)
|
- fvm::laplacian(betav*alpha, h, "laplacian(alpha,h)")
|
||||||
|
+ sources(rho, h)
|
||||||
);
|
);
|
||||||
hEqn.relax();
|
hEqn.relax();
|
||||||
hEqn.solve();
|
hEqn.solve();
|
||||||
|
|||||||
@ -14,7 +14,7 @@
|
|||||||
CoNum
|
CoNum
|
||||||
);
|
);
|
||||||
}
|
}
|
||||||
|
/*
|
||||||
forAll (porousFluidRegions, porousI)
|
forAll (porousFluidRegions, porousI)
|
||||||
{
|
{
|
||||||
CoNum = max
|
CoNum = max
|
||||||
@ -29,3 +29,4 @@
|
|||||||
CoNum
|
CoNum
|
||||||
);
|
);
|
||||||
}
|
}
|
||||||
|
*/
|
||||||
@ -1,24 +0,0 @@
|
|||||||
|
|
||||||
// Solve the Momentum equation
|
|
||||||
tmp<fvVectorMatrix> porousUEqn
|
|
||||||
(
|
|
||||||
fvm::ddt(porousRho, porousU)
|
|
||||||
+ fvm::div(porousPhi, porousU)
|
|
||||||
+ turbPorous.divDevRhoReff(porousU)
|
|
||||||
+ porousSources(porousRho, porousU)
|
|
||||||
);
|
|
||||||
|
|
||||||
porousUEqn().relax();
|
|
||||||
|
|
||||||
volScalarField rAUPorous(1.0/porousUEqn().A());
|
|
||||||
|
|
||||||
if (momentumPredictor)
|
|
||||||
{
|
|
||||||
solve(porousUEqn() == -fvc::grad(porousP));
|
|
||||||
}
|
|
||||||
else
|
|
||||||
{
|
|
||||||
porousU = rAUPorous*(porousUEqn().H() - fvc::grad(porousP));
|
|
||||||
porousU.correctBoundaryConditions();
|
|
||||||
}
|
|
||||||
|
|
||||||
@ -1,147 +0,0 @@
|
|||||||
// Initialise porous field pointer lists
|
|
||||||
PtrList<rhoThermo> thermoPorous(porousFluidRegions.size());
|
|
||||||
PtrList<volScalarField> rhoPorous(porousFluidRegions.size());
|
|
||||||
PtrList<volVectorField> UPorous(porousFluidRegions.size());
|
|
||||||
PtrList<surfaceScalarField> phiPorous(porousFluidRegions.size());
|
|
||||||
PtrList<volScalarField> KPorous(porousFluidRegions.size());
|
|
||||||
PtrList<volScalarField> dpdtPorous(fluidRegions.size());
|
|
||||||
|
|
||||||
PtrList<compressible::turbulenceModel> turbulencePorous
|
|
||||||
(
|
|
||||||
porousFluidRegions.size()
|
|
||||||
);
|
|
||||||
PtrList<volScalarField> pPorous(porousFluidRegions.size());
|
|
||||||
|
|
||||||
PtrList<IObasicSourceList> heatPorousSources
|
|
||||||
(
|
|
||||||
porousFluidRegions.size()
|
|
||||||
);
|
|
||||||
|
|
||||||
forAll(porousFluidRegions, i)
|
|
||||||
{
|
|
||||||
Info<< "Reading fluid mesh thermophysical properties for porous "
|
|
||||||
<< porousFluidRegions[i].name() << nl << endl;
|
|
||||||
|
|
||||||
Info<< " Adding to thermoFluid porous\n" << endl;
|
|
||||||
|
|
||||||
thermoPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
rhoThermo::New(porousFluidRegions[i]).ptr()
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to rhoPorous\n" << endl;
|
|
||||||
rhoPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volScalarField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"rho",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousFluidRegions[i],
|
|
||||||
IOobject::NO_READ,
|
|
||||||
IOobject::AUTO_WRITE
|
|
||||||
),
|
|
||||||
thermoPorous[i].rho()
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to UPorous\n" << endl;
|
|
||||||
UPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volVectorField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"U",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousFluidRegions[i],
|
|
||||||
IOobject::MUST_READ,
|
|
||||||
IOobject::AUTO_WRITE
|
|
||||||
),
|
|
||||||
porousFluidRegions[i]
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to phiPorous\n" << endl;
|
|
||||||
phiPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new surfaceScalarField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"phi",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousFluidRegions[i],
|
|
||||||
IOobject::READ_IF_PRESENT,
|
|
||||||
IOobject::AUTO_WRITE
|
|
||||||
),
|
|
||||||
linearInterpolate(rhoPorous[i]*UPorous[i])
|
|
||||||
& porousFluidRegions[i].Sf()
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding turbulence to porous\n" << endl;
|
|
||||||
turbulencePorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
compressible::turbulenceModel::New
|
|
||||||
(
|
|
||||||
rhoPorous[i],
|
|
||||||
UPorous[i],
|
|
||||||
phiPorous[i],
|
|
||||||
thermoPorous[i]
|
|
||||||
).ptr()
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to KPorous\n" << endl;
|
|
||||||
KPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volScalarField
|
|
||||||
(
|
|
||||||
"KPorous",
|
|
||||||
0.5*magSqr(UPorous[i])
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to dpdtPorous\n" << endl;
|
|
||||||
dpdtPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volScalarField
|
|
||||||
(
|
|
||||||
"dpdtPorous",
|
|
||||||
fvc::ddt(thermoPorous[i].p())
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
pPorous.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volScalarField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"p",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousFluidRegions[i],
|
|
||||||
IOobject::MUST_READ,
|
|
||||||
IOobject::AUTO_WRITE
|
|
||||||
),
|
|
||||||
porousFluidRegions[i]
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
heatPorousSources.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new IObasicSourceList(porousFluidRegions[i])
|
|
||||||
);
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
@ -1,25 +0,0 @@
|
|||||||
const wordList porousFluidNames(rp["porousFluid"]);
|
|
||||||
|
|
||||||
PtrList<fvMesh> porousFluidRegions(porousFluidNames.size());
|
|
||||||
|
|
||||||
forAll (porousFluidNames, iPorous)
|
|
||||||
{
|
|
||||||
const word porousFluidName = porousFluidNames[iPorous];
|
|
||||||
Info<< "Create porous fluid region " << porousFluidName
|
|
||||||
<< nl << endl;
|
|
||||||
|
|
||||||
porousFluidRegions.set
|
|
||||||
(
|
|
||||||
iPorous,
|
|
||||||
new fvMesh
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
porousFluidName,
|
|
||||||
runTime.timeName(),
|
|
||||||
runTime,
|
|
||||||
IOobject::MUST_READ
|
|
||||||
)
|
|
||||||
)
|
|
||||||
);
|
|
||||||
}
|
|
||||||
@ -1,21 +0,0 @@
|
|||||||
{
|
|
||||||
fvScalarMatrix hPorousEqn
|
|
||||||
(
|
|
||||||
fvm::ddt(porousRho, porousH)
|
|
||||||
+ fvm::div(porousPhi, porousH)
|
|
||||||
- fvm::laplacian(turbPorous.alphaEff(), porousH)
|
|
||||||
==
|
|
||||||
porousdpdt
|
|
||||||
- (fvc::ddt(porousRho, porousK) + fvc::div(porousPhi, porousK))
|
|
||||||
+ porousSources(porousRho, porousH)
|
|
||||||
);
|
|
||||||
|
|
||||||
hPorousEqn.relax();
|
|
||||||
hPorousEqn.solve();
|
|
||||||
|
|
||||||
porousThermo.correct();
|
|
||||||
|
|
||||||
Info<< "Min/max in the porous T:"
|
|
||||||
<< min(porousThermo.T()).value() << ' '
|
|
||||||
<< max(porousThermo.T()).value() << endl;
|
|
||||||
}
|
|
||||||
@ -1,63 +0,0 @@
|
|||||||
porousRho = porousThermo.rho();
|
|
||||||
|
|
||||||
porousU = rAUPorous*porousUEqn().H();
|
|
||||||
|
|
||||||
if (nCorr <= 1)
|
|
||||||
{
|
|
||||||
porousUEqn.clear();
|
|
||||||
}
|
|
||||||
|
|
||||||
porousPhi =
|
|
||||||
fvc::interpolate(porousRho)*
|
|
||||||
(
|
|
||||||
(fvc::interpolate(porousU) & porousMesh.Sf())
|
|
||||||
+ fvc::ddtPhiCorr(rAUPorous, porousRho, porousU, porousPhi)
|
|
||||||
);
|
|
||||||
|
|
||||||
for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
|
|
||||||
{
|
|
||||||
// Pressure corrector
|
|
||||||
fvScalarMatrix pEqn
|
|
||||||
(
|
|
||||||
fvm::ddt(porousPsi, porousP)
|
|
||||||
+ fvc::div(porousPhi)
|
|
||||||
- fvm::laplacian(porousRho*rAUPorous, porousP)
|
|
||||||
);
|
|
||||||
|
|
||||||
pEqn.solve
|
|
||||||
(
|
|
||||||
porousMesh.solver
|
|
||||||
(
|
|
||||||
porousP.select
|
|
||||||
(
|
|
||||||
oCorr == nOuterCorr-1
|
|
||||||
&& corr == nCorr-1
|
|
||||||
&& nonOrth == nNonOrthCorr
|
|
||||||
)
|
|
||||||
)
|
|
||||||
);
|
|
||||||
|
|
||||||
if (nonOrth == nNonOrthCorr)
|
|
||||||
{
|
|
||||||
porousPhi += pEqn.flux();
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
solve(fvm::ddt(porousRho) + fvc::div(porousPhi));
|
|
||||||
|
|
||||||
// Explicitly relax pressure for momentum corrector
|
|
||||||
porousP.relax();
|
|
||||||
|
|
||||||
// Recalculate density from the relaxed pressure
|
|
||||||
porousRho = porousThermo.rho();
|
|
||||||
|
|
||||||
|
|
||||||
porousU -= rAUPorous*fvc::grad(porousP);
|
|
||||||
porousU.correctBoundaryConditions();
|
|
||||||
porousK = 0.5*magSqr(porousU);
|
|
||||||
|
|
||||||
// Update pressure time derivative if needed
|
|
||||||
if (porousThermo.dpdt())
|
|
||||||
{
|
|
||||||
porousdpdt = fvc::ddt(porousP);
|
|
||||||
}
|
|
||||||
@ -1,11 +0,0 @@
|
|||||||
const dictionary& pimple = porousMesh.solutionDict().subDict("PIMPLE");
|
|
||||||
|
|
||||||
const int nCorr =
|
|
||||||
pimple.lookupOrDefault<int>("nCorrectors", 1);
|
|
||||||
|
|
||||||
const int nNonOrthCorr =
|
|
||||||
pimple.lookupOrDefault<int>("nNonOrthogonalCorrectors", 0);
|
|
||||||
|
|
||||||
const bool momentumPredictor =
|
|
||||||
pimple.lookupOrDefault("momentumPredictor", true);
|
|
||||||
|
|
||||||
@ -1,17 +0,0 @@
|
|||||||
fvMesh& porousMesh = porousFluidRegions[i];
|
|
||||||
|
|
||||||
rhoThermo& porousThermo = thermoPorous[i];
|
|
||||||
volScalarField& porousRho = rhoPorous[i];
|
|
||||||
|
|
||||||
volVectorField& porousU = UPorous[i];
|
|
||||||
surfaceScalarField& porousPhi = phiPorous[i];
|
|
||||||
|
|
||||||
compressible::turbulenceModel& turbPorous = turbulencePorous[i];
|
|
||||||
volScalarField& porousK = KPorous[i];
|
|
||||||
volScalarField& porousdpdt = dpdtPorous[i];
|
|
||||||
|
|
||||||
volScalarField& porousP = porousThermo.p();
|
|
||||||
const volScalarField& porousPsi = porousThermo.psi();
|
|
||||||
volScalarField& porousH = porousThermo.he();
|
|
||||||
|
|
||||||
IObasicSourceList& porousSources = heatPorousSources[i];
|
|
||||||
@ -1,28 +0,0 @@
|
|||||||
if (finalIter)
|
|
||||||
{
|
|
||||||
porousMesh.data::add("finalIteration", true);
|
|
||||||
}
|
|
||||||
|
|
||||||
if (oCorr == 0)
|
|
||||||
{
|
|
||||||
solve(fvm::ddt(porousRho) + fvc::div(porousPhi));
|
|
||||||
}
|
|
||||||
|
|
||||||
#include "UPorousFluidEqn.H"
|
|
||||||
|
|
||||||
#include "hPorousFluidEqn.H"
|
|
||||||
|
|
||||||
// --- PISO loop
|
|
||||||
for (int corr=0; corr<nCorr; corr++)
|
|
||||||
{
|
|
||||||
#include "pPorousFluidEqn.H"
|
|
||||||
}
|
|
||||||
|
|
||||||
turbPorous.correct();
|
|
||||||
|
|
||||||
porousRho = porousThermo.rho();
|
|
||||||
|
|
||||||
if (finalIter)
|
|
||||||
{
|
|
||||||
porousMesh.data::remove("finalIteration");
|
|
||||||
}
|
|
||||||
@ -1,43 +0,0 @@
|
|||||||
// Initialise solid field pointer lists
|
|
||||||
PtrList<solidThermo> porousSolidThermos(porousSolidRegions.size());
|
|
||||||
PtrList<IObasicSourceList> solidHeatSources(porousSolidRegions.size());
|
|
||||||
PtrList<volScalarField> betavSolid(porousSolidRegions.size());
|
|
||||||
|
|
||||||
// Populate solid field pointer lists
|
|
||||||
forAll(porousSolidRegions, i)
|
|
||||||
{
|
|
||||||
Info<< "*** Reading porous solid mesh thermophysical "
|
|
||||||
<< "properties for region "
|
|
||||||
<< porousSolidRegions[i].name() << nl << endl;
|
|
||||||
|
|
||||||
Info<< " Adding to thermos\n" << endl;
|
|
||||||
porousSolidThermos.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
solidThermo::New(porousSolidRegions[i])
|
|
||||||
);
|
|
||||||
Info<< " Adding sources\n" << endl;
|
|
||||||
solidHeatSources.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new IObasicSourceList(porousSolidRegions[i])
|
|
||||||
);
|
|
||||||
|
|
||||||
Info<< " Adding to betavSolid\n" << endl;
|
|
||||||
betavSolid.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new volScalarField
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
"betavSolid",
|
|
||||||
runTime.timeName(),
|
|
||||||
porousSolidRegions[i],
|
|
||||||
IOobject::MUST_READ,
|
|
||||||
IOobject::AUTO_WRITE
|
|
||||||
),
|
|
||||||
porousSolidRegions[i]
|
|
||||||
)
|
|
||||||
);
|
|
||||||
}
|
|
||||||
@ -1,24 +0,0 @@
|
|||||||
const wordList porousSolidNames(rp["porousSolid"]);
|
|
||||||
|
|
||||||
PtrList<fvMesh> porousSolidRegions(porousSolidNames.size());
|
|
||||||
|
|
||||||
forAll(porousSolidNames, i)
|
|
||||||
{
|
|
||||||
Info<< "Create solid mesh for region " << porousSolidNames[i]
|
|
||||||
<< " for time = " << runTime.timeName() << nl << endl;
|
|
||||||
|
|
||||||
porousSolidRegions.set
|
|
||||||
(
|
|
||||||
i,
|
|
||||||
new fvMesh
|
|
||||||
(
|
|
||||||
IOobject
|
|
||||||
(
|
|
||||||
porousSolidNames[i],
|
|
||||||
runTime.timeName(),
|
|
||||||
runTime,
|
|
||||||
IOobject::MUST_READ
|
|
||||||
)
|
|
||||||
)
|
|
||||||
);
|
|
||||||
}
|
|
||||||
@ -1,4 +0,0 @@
|
|||||||
const dictionary& pimple = mesh.solutionDict().subDict("PIMPLE");
|
|
||||||
|
|
||||||
int nNonOrthCorr =
|
|
||||||
pimple.lookupOrDefault<int>("nNonOrthogonalCorrectors", 0);
|
|
||||||
@ -1,26 +0,0 @@
|
|||||||
fvMesh& mesh = porousSolidRegions[i];
|
|
||||||
|
|
||||||
solidThermo& thermo = porousSolidThermos[i];
|
|
||||||
const volScalarField& betav = betavSolid[i];
|
|
||||||
|
|
||||||
tmp<volScalarField> trho = thermo.rho();
|
|
||||||
const volScalarField& rho = trho();
|
|
||||||
|
|
||||||
tmp<volScalarField> tcp = thermo.Cp();
|
|
||||||
const volScalarField& cp = tcp();
|
|
||||||
|
|
||||||
tmp<volScalarField> tkappa = thermo.kappa();
|
|
||||||
//tmp<volSymmTensorField> tkappa = thermo.directionalKappa()*betav;
|
|
||||||
|
|
||||||
const volScalarField& kappa = tkappa();
|
|
||||||
//const volSymmTensorField& K = tK();
|
|
||||||
|
|
||||||
//tmp<volScalarField> trhoCp = cp*rho;
|
|
||||||
//const volScalarField& rhoCp = trhoCp();
|
|
||||||
|
|
||||||
tmp<volScalarField> talpha = thermo.alpha();
|
|
||||||
const volScalarField& alpha = talpha();
|
|
||||||
|
|
||||||
volScalarField& h = thermo.he();
|
|
||||||
|
|
||||||
IObasicSourceList& sources = solidHeatSources[i];
|
|
||||||
@ -1,18 +0,0 @@
|
|||||||
scalar DiNum = -GREAT;
|
|
||||||
|
|
||||||
forAll(solidRegions, i)
|
|
||||||
{
|
|
||||||
# include "setRegionSolidFields.H"
|
|
||||||
|
|
||||||
DiNum = max
|
|
||||||
(
|
|
||||||
solidRegionDiffNo
|
|
||||||
(
|
|
||||||
solidRegions[i],
|
|
||||||
runTime,
|
|
||||||
rho*cp,
|
|
||||||
K
|
|
||||||
),
|
|
||||||
DiNum
|
|
||||||
);
|
|
||||||
}
|
|
||||||
@ -1,28 +0,0 @@
|
|||||||
if (finalIter)
|
|
||||||
{
|
|
||||||
mesh.data::add("finalIteration", true);
|
|
||||||
}
|
|
||||||
|
|
||||||
{
|
|
||||||
for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
|
|
||||||
{
|
|
||||||
tmp<fvScalarMatrix> hEqn
|
|
||||||
(
|
|
||||||
fvm::ddt(betav*rho, h)
|
|
||||||
- fvm::laplacian(betav*alpha, h, "laplacian(alpha,h)")
|
|
||||||
+ sources(rho, h)
|
|
||||||
);
|
|
||||||
|
|
||||||
hEqn().relax();
|
|
||||||
hEqn().solve(mesh.solver(h.select(finalIter)));
|
|
||||||
}
|
|
||||||
}
|
|
||||||
|
|
||||||
thermo.correct();
|
|
||||||
|
|
||||||
Info<< "Min/max T:" << min(thermo.T()) << ' ' << max(thermo.T()) << endl;
|
|
||||||
|
|
||||||
if (finalIter)
|
|
||||||
{
|
|
||||||
mesh.data::remove("finalIteration");
|
|
||||||
}
|
|
||||||
@ -1,6 +1,8 @@
|
|||||||
// Initialise solid field pointer lists
|
// Initialise solid field pointer lists
|
||||||
PtrList<solidThermo> thermos(solidRegions.size());
|
PtrList<solidThermo> thermos(solidRegions.size());
|
||||||
PtrList<radiation::radiationModel> radiations(solidRegions.size());
|
PtrList<radiation::radiationModel> radiations(solidRegions.size());
|
||||||
|
PtrList<IObasicSourceList> solidHeatSources(solidRegions.size());
|
||||||
|
PtrList<volScalarField> betavSolid(solidRegions.size());
|
||||||
|
|
||||||
// Populate solid field pointer lists
|
// Populate solid field pointer lists
|
||||||
forAll(solidRegions, i)
|
forAll(solidRegions, i)
|
||||||
@ -13,4 +15,49 @@
|
|||||||
|
|
||||||
Info<< " Adding to radiations\n" << endl;
|
Info<< " Adding to radiations\n" << endl;
|
||||||
radiations.set(i, radiation::radiationModel::New(thermos[i].T()));
|
radiations.set(i, radiation::radiationModel::New(thermos[i].T()));
|
||||||
|
|
||||||
|
Info<< " Adding sources\n" << endl;
|
||||||
|
solidHeatSources.set
|
||||||
|
(
|
||||||
|
i,
|
||||||
|
new IObasicSourceList(solidRegions[i])
|
||||||
|
);
|
||||||
|
|
||||||
|
IOobject betavSolidIO
|
||||||
|
(
|
||||||
|
"betavSolid",
|
||||||
|
runTime.timeName(),
|
||||||
|
solidRegions[i],
|
||||||
|
IOobject::MUST_READ,
|
||||||
|
IOobject::AUTO_WRITE
|
||||||
|
);
|
||||||
|
|
||||||
|
if (betavSolidIO.headerOk())
|
||||||
|
{
|
||||||
|
betavSolid.set
|
||||||
|
(
|
||||||
|
i,
|
||||||
|
new volScalarField(betavSolidIO, solidRegions[i])
|
||||||
|
);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
betavSolid.set
|
||||||
|
(
|
||||||
|
i,
|
||||||
|
new volScalarField
|
||||||
|
(
|
||||||
|
IOobject
|
||||||
|
(
|
||||||
|
"betavSolid",
|
||||||
|
runTime.timeName(),
|
||||||
|
solidRegions[i],
|
||||||
|
IOobject::NO_READ,
|
||||||
|
IOobject::NO_WRITE
|
||||||
|
),
|
||||||
|
solidRegions[i],
|
||||||
|
dimensionedScalar("1", dimless, scalar(1.0))
|
||||||
|
)
|
||||||
|
);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
|
|||||||
@ -14,3 +14,7 @@
|
|||||||
const volScalarField& kappa = tkappa();
|
const volScalarField& kappa = tkappa();
|
||||||
|
|
||||||
volScalarField& h = thermo.he();
|
volScalarField& h = thermo.he();
|
||||||
|
|
||||||
|
const volScalarField& betav = betavSolid[i];
|
||||||
|
|
||||||
|
IObasicSourceList& sources = solidHeatSources[i];
|
||||||
|
|||||||
@ -8,8 +8,9 @@ if (finalIter)
|
|||||||
{
|
{
|
||||||
tmp<fvScalarMatrix> hEqn
|
tmp<fvScalarMatrix> hEqn
|
||||||
(
|
(
|
||||||
fvm::ddt(rho, h)
|
fvm::ddt(betav*rho, h)
|
||||||
- fvm::laplacian(alpha, h)
|
- fvm::laplacian(betav*alpha, h, "laplacian(alpha,h)")
|
||||||
|
+ sources(rho, h)
|
||||||
);
|
);
|
||||||
hEqn().relax();
|
hEqn().relax();
|
||||||
hEqn().solve(mesh.solver(h.select(finalIter)));
|
hEqn().solve(mesh.solver(h.select(finalIter)));
|
||||||
|
|||||||
@ -19,8 +19,6 @@ regions
|
|||||||
(
|
(
|
||||||
fluid (bottomAir topAir)
|
fluid (bottomAir topAir)
|
||||||
solid (heater leftSolid rightSolid)
|
solid (heater leftSolid rightSolid)
|
||||||
porousFluid ()
|
|
||||||
porousSolid ()
|
|
||||||
);
|
);
|
||||||
|
|
||||||
// ************************************************************************* //
|
// ************************************************************************* //
|
||||||
|
|||||||
@ -19,8 +19,7 @@ regions
|
|||||||
(
|
(
|
||||||
fluid (bottomWater topAir)
|
fluid (bottomWater topAir)
|
||||||
solid (heater leftSolid rightSolid)
|
solid (heater leftSolid rightSolid)
|
||||||
porousFluid ()
|
|
||||||
porousSolid ()
|
|
||||||
);
|
);
|
||||||
|
|
||||||
// ************************************************************************* //
|
// ************************************************************************* //
|
||||||
|
|||||||
@ -19,8 +19,6 @@ regions
|
|||||||
(
|
(
|
||||||
fluid (bottomAir topAir)
|
fluid (bottomAir topAir)
|
||||||
solid (heater leftSolid rightSolid)
|
solid (heater leftSolid rightSolid)
|
||||||
porousFluid ()
|
|
||||||
porousSolid ()
|
|
||||||
);
|
);
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -19,8 +19,6 @@ regions
|
|||||||
(
|
(
|
||||||
fluid (bottomAir topAir)
|
fluid (bottomAir topAir)
|
||||||
solid (heater leftSolid rightSolid)
|
solid (heater leftSolid rightSolid)
|
||||||
porousFluid ()
|
|
||||||
porousSolid ()
|
|
||||||
);
|
);
|
||||||
|
|
||||||
// ************************************************************************* //
|
// ************************************************************************* //
|
||||||
|
|||||||
@ -19,8 +19,6 @@ regions
|
|||||||
(
|
(
|
||||||
fluid (bottomAir topAir)
|
fluid (bottomAir topAir)
|
||||||
solid (heater leftSolid rightSolid)
|
solid (heater leftSolid rightSolid)
|
||||||
porousFluid ()
|
|
||||||
porousSolid ()
|
|
||||||
);
|
);
|
||||||
|
|
||||||
// ************************************************************************* //
|
// ************************************************************************* //
|
||||||
|
|||||||
Reference in New Issue
Block a user