40 lines
878 B
C
40 lines
878 B
C
{
|
|
volScalarField& he = thermo.he();
|
|
|
|
fvScalarMatrix EEqn
|
|
(
|
|
fvm::ddt(alphac,rho, he) + mvConvection->fvmDiv(alphacPhi, he)
|
|
+ fvc::ddt(alphac,rho, K) + fvc::div(alphacPhi, K)
|
|
+ (
|
|
he.name() == "e"
|
|
? fvc::div
|
|
(
|
|
fvc::absolute(phi/fvc::interpolate(rho), U),
|
|
p,
|
|
"div(phiv,p)"
|
|
)
|
|
: -dpdt
|
|
)
|
|
- fvm::laplacian(alphac*turbulence->alphaEff(), he)
|
|
==
|
|
alphac*rho*(U&g)
|
|
+ parcels.Sh(he)
|
|
+ radiation->Sh(thermo)
|
|
+ combustion->Sh()
|
|
+ fvOptions(alphac,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;
|
|
}
|