applications/solvers/lagrangian/reactingParcelFoam/hsEqn.H

   1 {
   2     fvScalarMatrix hEqn
   3     (
   4         fvm::ddt(rho, hs)
   5       + mvConvection->fvmDiv(phi, hs)
   6       - fvm::laplacian(turbulence->alphaEff(), hs)
   7      ==
   8         DpDt
   9      +  parcels.Sh()
  10      +  radiation->Shs(thermo)
  11      +  chemistrySh
  12     );
  13
  14     hEqn.relax();
  15
  16     hEqn.solve();
  17
  18     thermo.correct();
  19
  20     radiation->correct();
  21
  22     Info<< "T gas min/max   = " << min(T).value() << ", "
  23         << max(T).value() << endl;
  24 }