42 lines
903 B
C
42 lines
903 B
C
{
|
|
tmp<fv::convectionScheme<scalar> > mvConvection
|
|
(
|
|
fv::convectionScheme<scalar>::New
|
|
(
|
|
mesh,
|
|
fields,
|
|
phi,
|
|
mesh.divScheme("div(phi,Yi_h)")
|
|
)
|
|
);
|
|
|
|
volScalarField& he = thermo.he();
|
|
|
|
fvScalarMatrix EEqn
|
|
(
|
|
mvConvection->fvmDiv(phi, he)
|
|
+ (
|
|
he.name() == "ea"
|
|
? 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)
|
|
==
|
|
rho*(U&g)
|
|
+ radiation->Sh(thermo)
|
|
+ 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;
|
|
}
|