00001 { 00002 fvScalarMatrix hsEqn 00003 ( 00004 fvm::ddt(rho, hs) 00005 + mvConvection->fvmDiv(phi, hs) 00006 - fvm::laplacian(turbulence->alphaEff(), hs) 00007 == 00008 DpDt 00009 + coalParcels.Sh() 00010 + limestoneParcels.Sh() 00011 + enthalpySource.Su() 00012 + radiation->Shs(thermo) 00013 + chemistrySh 00014 ); 00015 00016 hsEqn.relax(); 00017 00018 hsEqn.solve(); 00019 00020 thermo.correct(); 00021 00022 radiation->correct(); 00023 00024 Info<< "T gas min/max = " << min(T).value() << ", " 00025 << max(T).value() << endl; 00026 }