{
  volScalarField& he = thermo.he();

  fvScalarMatrix EEqn
  (
      fvm::ddt(rho, he) + fvm::div(phi, he)
      + fvc::ddt(rho, K) + fvc::div(phi, K)
      + (
          he.name() == "e"
          ? fvc::div
          (
              fvc::absolute(phi/fvc::interpolate(rho), U),
              p,
              "div(phiv,p)"
          )
          : -dpdt
      )
      - fvm::laplacian(turb.alphaEff(), he)
      ==
      rho*(U&g)
      + rad.Sh(thermo, he)
      + fvOptions(rho, he)
  );

  EEqn.relax();

  fvOptions.constrain(EEqn);

//  EEqn.solve(he.select(finalIter));
  EEqn.solve();

  fvOptions.correct(he);

  thermo.correct();
  rad.correct();

  Info<< "Min/max T:" << min(thermo.T()).value() << ' '
  << max(thermo.T()).value() << endl;
}
