foam-extend4.1-coherent-io/applications/solvers/compressible/steadyCompressibleSRFFoam/pEqn.H

{
    volScalarField rUrelA = 1.0/UrelEqn.A();

    surfaceScalarField psisf = fvc::interpolate(psis);
    surfaceScalarField rhof = fvc::interpolate(rho);

    // Needs to be outside of loop since p is changing, but psi and rho are not
    surfaceScalarField rhoReff = rhof - psisf*fvc::interpolate(p);

    // --- PISO loop
    for (int corr = 0; corr < nCorr; corr++)
    {
        Urel = rUrelA*UrelEqn.H();

        // Calculate phi for boundary conditions
        phi = rhof*fvc::interpolate(Urel) & mesh.Sf();

        surfaceScalarField phid2 = rhoReff/rhof*phi;

        surfaceScalarField phid("phid", psisf/rhof*phi);

        p.storePrevIter();

        volScalarField divPhid
        (
            "divPhid",
            fvc::div(phid)
        );

        for (int nonOrth = 0; nonOrth <= nNonOrthCorr; nonOrth++)
        {
            fvScalarMatrix pEqn
            (
                fvm::ddt(psis, p)
              + fvm::div(phid, p)
                // Convective flux relaxation terms
              + fvm::SuSp(-divPhid, p)
              + divPhid*p
              + fvc::div(phid2)
              - fvm::laplacian(rho*rUrelA, p)
            );

            // Retain the residual from the first pressure solution
            eqnResidual = pEqn.solve().initialResidual();

            if (corr == 0 && nonOrth == 0)
            {
                maxResidual = max(eqnResidual, maxResidual);
            }

            // Calculate the flux
            if (nonOrth == nNonOrthCorr)
            {
                phi = phid2 + pEqn.flux();
            }
        }

#       include "compressibleContinuityErrs.H"

        // Relax the pressure
        p.relax();

        Urel -= rUrelA*fvc::grad(p);
        Urel.correctBoundaryConditions();
    }

    // Bound the pressure
    if (min(p) < pMin || max(p) > pMax)
    {
        p.max(pMin);
        p.min(pMax);
        p.correctBoundaryConditions();
    }

    // Bound the velocity
    volScalarField magUrel = mag(Urel);

    if (max(magUrel) > UrelMax)
    {
        volScalarField Urellimiter =
            pos(magUrel - UrelMax)*UrelMax/(magUrel + smallUrel)
            + neg(magUrel - UrelMax);
        Urellimiter.max(scalar(0));
        Urellimiter.min(scalar(1));

        Urel *= Urellimiter;
        Urel.correctBoundaryConditions();
    }
}