applications/solvers/lagrangian/LTSReactingParcelFoam/hsEqn.H

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