32 lines
705 B
C
32 lines
705 B
C
{
|
|
volScalarField& he = thermo.he();
|
|
|
|
fvScalarMatrix EEqn
|
|
(
|
|
mvConvection->fvmDiv(phi, he)
|
|
+ (
|
|
he.name() == "e"
|
|
? fvc::div(phi, volScalarField("Ekp", 0.5*magSqr(U) + p/rho))
|
|
: fvc::div(phi, volScalarField("K", 0.5*magSqr(U)))
|
|
)
|
|
- fvm::laplacian(turbulence->alphaEff(), he)
|
|
==
|
|
parcels.Sh(he)
|
|
+ radiation->Sh(thermo)
|
|
+ combustion->Sh()
|
|
+ fvOptions(rho, he)
|
|
);
|
|
|
|
EEqn.relax();
|
|
|
|
fvOptions.constrain(EEqn);
|
|
|
|
EEqn.solve();
|
|
|
|
fvOptions.correct(he);
|
|
thermo.correct();
|
|
radiation->correct();
|
|
|
|
Info<< "T gas min/max = " << min(T).value() << ", "
|
|
<< max(T).value() << endl;
|
|
}
|