foam-extend4.1-coherent-io/applications/solvers/compressible/rhoPorousSimpleFoam/hEqn.H

{
    fvScalarMatrix hEqn
    (
        fvm::div(phi, h)
      - fvm::Sp(fvc::div(phi), h)
      - fvm::laplacian(turbulence->alphaEff(), h)
     ==
        fvc::div(phi/fvc::interpolate(rho)*fvc::interpolate(p, "div(U,p)"))
      - p*fvc::div(phi/fvc::interpolate(rho))
    );

    hEqn.relax();

    hEqn.solve().initialResidual();

    thermo.correct();
}