pEqn.H

Go to the documentation of this file.

{
    rho = thermo.rho();

    volScalarField rAU = 1.0/UEqn.A();
    U = rAU*UEqn.H();

    if (pZones.size() > 0)
    {
        // ddtPhiCorr not well defined for cases with porosity
        phi = fvc::interpolate(rho)*(fvc::interpolate(U) & mesh.Sf());
    }
    else
    {
        phi =
            fvc::interpolate(rho)
           *(
                (fvc::interpolate(U) & mesh.Sf())
              + fvc::ddtPhiCorr(rAU, rho, U, phi)
            );
    }

    {
        fvScalarMatrix pDDtEqn
        (
            fvc::ddt(rho) + psi*correction(fvm::ddt(p))
          + fvc::div(phi)
        );

        // Thermodynamic density needs to be updated by psi*d(p) after the
        // pressure solution - done in 2 parts. Part 1:
        thermo.rho() -= psi*p;

        for (int nonOrth=0; nonOrth<=nNonOrthCorr; nonOrth++)
        {
            fvScalarMatrix pEqn
            (
                pDDtEqn - fvm::laplacian(rho*rAU, p)
             ==
                parcels.Srho()
              + massSource.SuTot()
            );

            if (corr == nCorr-1 && nonOrth == nNonOrthCorr)
            {
                pEqn.solve(mesh.solver("pFinal"));
            }
            else
            {
                pEqn.solve();
            }

            if (nonOrth == nNonOrthCorr)
            {
                phi += pEqn.flux();
            }
        }

        // Second part of thermodynamic density update
        thermo.rho() += psi*p;
    }

    #include "rhoEqn.H"
    #include <finiteVolume/compressibleContinuityErrs.H>

    U -= rAU*fvc::grad(p);
    U.correctBoundaryConditions();
}