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