58 lines
1.3 KiB
C
58 lines
1.3 KiB
C
|
{
|
||
|
|
wordList pcorrTypes(p.boundaryField().types());
|
||
|
|
|
||
|
|
for (label i=0; i<p.boundaryField().size(); i++)
|
||
|
|
{
|
||
|
|
if (p.boundaryField()[i].fixesValue())
|
||
|
|
{
|
||
|
|
pcorrTypes[i] = fixedValueFvPatchScalarField::typeName;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
volScalarField pcorr
|
||
|
|
(
|
||
|
|
IOobject
|
||
|
|
(
|
||
|
|
"pcorr",
|
||
|
|
runTime.timeName(),
|
||
|
|
mesh,
|
||
|
|
IOobject::NO_READ,
|
||
|
|
IOobject::NO_WRITE
|
||
|
|
),
|
||
|
|
mesh,
|
||
|
|
dimensionedScalar("pcorr", p.dimensions(), 0.0),
|
||
|
|
pcorrTypes
|
||
|
|
);
|
||
|
|
|
||
|
|
// Initialise flux with interpolated velocity
|
||
|
|
phi = fvc::interpolate(U) & mesh.Sf();
|
||
|
|
|
||
|
|
if (pcorr.needReference())
|
||
|
|
{
|
||
|
|
fvc::makeRelative(phi, U);
|
||
|
|
adjustPhi(phi, U, pcorr);
|
||
|
|
fvc::makeAbsolute(phi, U);
|
||
|
|
}
|
||
|
|
|
||
|
|
for(int nonOrth = 0; nonOrth <= nNonOrthCorr; nonOrth++)
|
||
|
|
{
|
||
|
|
fvScalarMatrix pcorrEqn
|
||
|
|
(
|
||
|
|
fvm::laplacian(rAU, pcorr) == fvc::div(phi)
|
||
|
|
);
|
||
|
|
|
||
|
|
pcorrEqn.setReference(pRefCell, pRefValue);
|
||
|
|
pcorrEqn.solve();
|
||
|
|
|
||
|
|
if (nonOrth == nNonOrthCorr)
|
||
|
|
{
|
||
|
|
phi -= pcorrEqn.flux();
|
||
|
|
}
|
||
|
|
|
||
|
|
// Fluxes are corrected to absolute velocity and further corrected
|
||
|
|
// later. HJ, 6/Feb/2009
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#include "continuityErrs.H"
|