mirror of
https://develop.openfoam.com/Development/openfoam.git
synced 2025-11-28 03:28:01 +00:00
ENH: laminarFlameSpeed: added RaviPetersen flame speed for Hydrogen
This commit is contained in:
william
@ -3,5 +3,6 @@ laminarFlameSpeed/laminarFlameSpeedNew.C
|
||||
constant/constant.C
|
||||
Gulders/Gulders.C
|
||||
GuldersEGR/GuldersEGR.C
|
||||
RaviPetersen/RaviPetersen.C
|
||||
|
||||
LIB = $(FOAM_LIBBIN)/liblaminarFlameSpeedModels
|
||||
|
||||
@ -0,0 +1,365 @@
|
||||
/*---------------------------------------------------------------------------*\
|
||||
========= |
|
||||
\\ / F ield | OpenFOAM: The Open Source CFD Toolbox
|
||||
\\ / O peration |
|
||||
\\ / A nd | Copyright (C) 2013 OpenFOAM Foundation
|
||||
\\/ M anipulation |
|
||||
-------------------------------------------------------------------------------
|
||||
License
|
||||
This file is part of OpenFOAM.
|
||||
|
||||
OpenFOAM is free software: you can redistribute it and/or modify it
|
||||
under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
|
||||
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
||||
for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
\*---------------------------------------------------------------------------*/
|
||||
|
||||
#include "RaviPetersen.H"
|
||||
#include "addToRunTimeSelectionTable.H"
|
||||
|
||||
// * * * * * * * * * * * * * * Static Data Members * * * * * * * * * * * * * //
|
||||
|
||||
namespace Foam
|
||||
{
|
||||
namespace laminarFlameSpeedModels
|
||||
{
|
||||
defineTypeNameAndDebug(RaviPetersen, 0);
|
||||
|
||||
addToRunTimeSelectionTable
|
||||
(
|
||||
laminarFlameSpeed,
|
||||
RaviPetersen,
|
||||
dictionary
|
||||
);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
// * * * * * * * * * * * * * * * * Constructors * * * * * * * * * * * * * * //
|
||||
|
||||
Foam::laminarFlameSpeedModels::RaviPetersen::RaviPetersen
|
||||
(
|
||||
const dictionary& dict,
|
||||
const psiuReactionThermo& ct
|
||||
)
|
||||
:
|
||||
laminarFlameSpeed(dict, ct),
|
||||
coeffsDict_(dict.subDict(typeName + "Coeffs").subDict(fuel_)),
|
||||
pPoints_(coeffsDict_.lookup("pPoints")),
|
||||
EqRPoints_(coeffsDict_.lookup("EqRPoints")),
|
||||
alpha_(coeffsDict_.lookup("alpha")),
|
||||
beta_(coeffsDict_.lookup("beta")),
|
||||
TRef_(readScalar(coeffsDict_.lookup("TRef")))
|
||||
{
|
||||
checkPointsMonotonicity("equivalenceRatio", EqRPoints_);
|
||||
checkPointsMonotonicity("pressure", pPoints_);
|
||||
checkCoefficientArrayShape("alpha", alpha_);
|
||||
checkCoefficientArrayShape("beta", beta_);
|
||||
}
|
||||
|
||||
|
||||
// * * * * * * * * * * * * * * * * Destructor * * * * * * * * * * * * * * * //
|
||||
|
||||
Foam::laminarFlameSpeedModels::RaviPetersen::~RaviPetersen()
|
||||
{}
|
||||
|
||||
|
||||
// * * * * * * * * * * * * * Private Member Functions * * * * * * * * * * * //
|
||||
|
||||
void Foam::laminarFlameSpeedModels::RaviPetersen::checkPointsMonotonicity
|
||||
(
|
||||
const word& name,
|
||||
const List<scalar>& x
|
||||
) const
|
||||
{
|
||||
for (label i = 1; i < x.size(); i ++)
|
||||
{
|
||||
if (x[i] <= x[i-1])
|
||||
{
|
||||
FatalIOErrorIn
|
||||
(
|
||||
"laminarFlameSpeedModels::RaviPetersen::checkPointsMonotonicity"
|
||||
"("
|
||||
"const word&, "
|
||||
"const List<scalar>&"
|
||||
") const",
|
||||
coeffsDict_
|
||||
) << "Data points for the " << name
|
||||
<< " do not increase monotonically" << endl
|
||||
<< exit(FatalIOError);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
void Foam::laminarFlameSpeedModels::RaviPetersen::checkCoefficientArrayShape
|
||||
(
|
||||
const word& name,
|
||||
const List<List<List<scalar> > >& x
|
||||
) const
|
||||
{
|
||||
bool ok = true;
|
||||
|
||||
ok &= x.size() == EqRPoints_.size() - 1;
|
||||
|
||||
forAll(x, i)
|
||||
{
|
||||
ok &= x[i].size() == pPoints_.size();
|
||||
|
||||
forAll(x[i], j)
|
||||
{
|
||||
ok &= x[i][j].size() == x[i][0].size();
|
||||
}
|
||||
}
|
||||
|
||||
if (!ok)
|
||||
{
|
||||
FatalIOErrorIn
|
||||
(
|
||||
"laminarFlameSpeedModels::RaviPetersen::checkCoefficientArrayShape"
|
||||
"("
|
||||
"const word&, "
|
||||
"const List<List<List<scalar> > >&"
|
||||
") const",
|
||||
coeffsDict_
|
||||
) << "Inconsistent size of " << name << " coefficients array" << endl
|
||||
<< exit(FatalIOError);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
inline bool Foam::laminarFlameSpeedModels::RaviPetersen::interval
|
||||
(
|
||||
const List<scalar>& xPoints,
|
||||
const scalar x,
|
||||
label& xIndex,
|
||||
scalar& xXi,
|
||||
scalar& xLim
|
||||
) const
|
||||
{
|
||||
if (x < xPoints.first())
|
||||
{
|
||||
xIndex = 0;
|
||||
xXi = 0.0;
|
||||
xLim = xPoints.first();
|
||||
return false;
|
||||
}
|
||||
|
||||
else if (x > xPoints.last())
|
||||
{
|
||||
xIndex = xPoints.size() - 2;
|
||||
xXi = 1.0;
|
||||
xLim = xPoints.last();
|
||||
return false;
|
||||
}
|
||||
|
||||
for (xIndex = 0; x > xPoints[xIndex+1]; xIndex ++)
|
||||
{
|
||||
// increment xIndex until xPoints[xIndex] < x < xPoints[xIndex+1]
|
||||
}
|
||||
|
||||
xXi = (x - xPoints[xIndex])/(xPoints[xIndex+1] - xPoints[xIndex]);
|
||||
xLim = x;
|
||||
|
||||
return true;
|
||||
}
|
||||
|
||||
|
||||
inline Foam::scalar Foam::laminarFlameSpeedModels::RaviPetersen::polynomial
|
||||
(
|
||||
const List<scalar>& coeffs,
|
||||
const scalar x
|
||||
) const
|
||||
{
|
||||
scalar xPow = 1.0;
|
||||
scalar y = 0.0;
|
||||
forAll(coeffs, i)
|
||||
{
|
||||
y += coeffs[i]*xPow;
|
||||
xPow *= x;
|
||||
}
|
||||
return y;
|
||||
}
|
||||
|
||||
|
||||
inline Foam::scalar Foam::laminarFlameSpeedModels::RaviPetersen::dPolynomial
|
||||
(
|
||||
const List<scalar>& coeffs,
|
||||
const scalar x
|
||||
) const
|
||||
{
|
||||
scalar xPow = 1.0;
|
||||
scalar y = 0.0;
|
||||
for (label i = 1; i < coeffs.size(); i++)
|
||||
{
|
||||
y += i*coeffs[i]*xPow;
|
||||
xPow *= x;
|
||||
}
|
||||
return y;
|
||||
}
|
||||
|
||||
|
||||
inline Foam::scalar Foam::laminarFlameSpeedModels::RaviPetersen::THatPowB
|
||||
(
|
||||
const label EqRIndex,
|
||||
const label pIndex,
|
||||
const scalar EqR,
|
||||
const scalar Tu
|
||||
) const
|
||||
{
|
||||
return pow
|
||||
(
|
||||
Tu/TRef_,
|
||||
polynomial(beta_[EqRIndex][pIndex],EqR)
|
||||
);
|
||||
}
|
||||
|
||||
|
||||
inline Foam::scalar
|
||||
Foam::laminarFlameSpeedModels::RaviPetersen::correlationInRange
|
||||
(
|
||||
const label EqRIndex,
|
||||
const label pIndex,
|
||||
const scalar EqR,
|
||||
const scalar Tu
|
||||
) const
|
||||
{
|
||||
// standard correlation
|
||||
return
|
||||
polynomial(alpha_[EqRIndex][pIndex],EqR)
|
||||
*THatPowB(EqRIndex, pIndex, EqR, Tu);
|
||||
}
|
||||
|
||||
|
||||
inline Foam::scalar
|
||||
Foam::laminarFlameSpeedModels::RaviPetersen::correlationOutOfRange
|
||||
(
|
||||
const label EqRIndex,
|
||||
const label pIndex,
|
||||
const scalar EqR,
|
||||
const scalar EqRLim,
|
||||
const scalar Tu
|
||||
) const
|
||||
{
|
||||
scalar A = polynomial(alpha_[EqRIndex][pIndex], EqRLim);
|
||||
scalar dA = dPolynomial(alpha_[EqRIndex][pIndex], EqRLim);
|
||||
scalar dB = dPolynomial(beta_[EqRIndex][pIndex], EqRLim);
|
||||
scalar TB = THatPowB(EqRIndex, pIndex, EqRLim, Tu);
|
||||
|
||||
// linear extrapolation from the bounds of the correlation
|
||||
return max(TB*(A + (dA + A*log(Tu/TRef_)*dB)*(EqR - EqRLim)), 0.0);
|
||||
}
|
||||
|
||||
|
||||
inline Foam::scalar Foam::laminarFlameSpeedModels::RaviPetersen::speed
|
||||
(
|
||||
const scalar EqR,
|
||||
const scalar p,
|
||||
const scalar Tu
|
||||
) const
|
||||
{
|
||||
scalar Su = 0, s;
|
||||
|
||||
label EqRIndex, pIndex;
|
||||
scalar EqRXi, pXi;
|
||||
scalar EqRLim, pLim;
|
||||
bool EqRInRange;
|
||||
|
||||
EqRInRange = interval(EqRPoints_, EqR, EqRIndex, EqRXi, EqRLim);
|
||||
|
||||
interval(pPoints_, p, pIndex, pXi, pLim);
|
||||
|
||||
for (label pI = 0; pI < 2; pI ++)
|
||||
{
|
||||
if (EqRInRange)
|
||||
{
|
||||
s = correlationInRange(EqRIndex, pIndex + pI, EqR, Tu);
|
||||
}
|
||||
else
|
||||
{
|
||||
s = correlationOutOfRange(EqRIndex, pIndex + pI, EqR, EqRLim, Tu);
|
||||
}
|
||||
|
||||
Su += (1 - pXi)*s;
|
||||
pXi = 1 - pXi;
|
||||
}
|
||||
|
||||
return Su;
|
||||
}
|
||||
|
||||
|
||||
// * * * * * * * * * * * * * * Member Functions * * * * * * * * * * * * * * //
|
||||
|
||||
Foam::tmp<Foam::volScalarField>
|
||||
Foam::laminarFlameSpeedModels::RaviPetersen::operator()() const
|
||||
{
|
||||
const volScalarField& p = psiuReactionThermo_.p();
|
||||
const volScalarField& Tu = psiuReactionThermo_.Tu();
|
||||
|
||||
volScalarField EqR
|
||||
(
|
||||
IOobject
|
||||
(
|
||||
"EqR",
|
||||
p.time().timeName(),
|
||||
p.db(),
|
||||
IOobject::NO_READ,
|
||||
IOobject::NO_WRITE
|
||||
),
|
||||
p.mesh(),
|
||||
dimensionedScalar("EqR", dimless, 0.0)
|
||||
);
|
||||
|
||||
if (psiuReactionThermo_.composition().contains("ft"))
|
||||
{
|
||||
const volScalarField& ft = psiuReactionThermo_.composition().Y("ft");
|
||||
|
||||
EqR =
|
||||
dimensionedScalar
|
||||
(
|
||||
psiuReactionThermo_.lookup("stoichiometricAirFuelMassRatio")
|
||||
)*ft/max(1 - ft, SMALL);
|
||||
}
|
||||
else
|
||||
{
|
||||
EqR = equivalenceRatio_;
|
||||
}
|
||||
|
||||
tmp<volScalarField> tSu0
|
||||
(
|
||||
new volScalarField
|
||||
(
|
||||
IOobject
|
||||
(
|
||||
"Su0",
|
||||
p.time().timeName(),
|
||||
p.db(),
|
||||
IOobject::NO_READ,
|
||||
IOobject::NO_WRITE
|
||||
),
|
||||
p.mesh(),
|
||||
dimensionedScalar("Su0", dimVelocity, 0.0)
|
||||
)
|
||||
);
|
||||
|
||||
volScalarField& Su0 = tSu0();
|
||||
|
||||
forAll(Su0, cellI)
|
||||
{
|
||||
Su0[cellI] = speed(EqR[cellI], p[cellI], Tu[cellI]);
|
||||
}
|
||||
|
||||
return tSu0;
|
||||
}
|
||||
|
||||
|
||||
// ************************************************************************* //
|
||||
@ -0,0 +1,203 @@
|
||||
/*---------------------------------------------------------------------------*\
|
||||
========= |
|
||||
\\ / F ield | OpenFOAM: The Open Source CFD Toolbox
|
||||
\\ / O peration |
|
||||
\\ / A nd | Copyright (C) 2013 OpenFOAM Foundation
|
||||
\\/ M anipulation |
|
||||
-------------------------------------------------------------------------------
|
||||
License
|
||||
This file is part of OpenFOAM.
|
||||
|
||||
OpenFOAM is free software: you can redistribute it and/or modify it
|
||||
under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 3 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
|
||||
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
||||
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
||||
for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
|
||||
|
||||
Class
|
||||
Foam::laminarFlameSpeedModels::RaviPetersen
|
||||
|
||||
Description
|
||||
Laminar flame speed obtained from Ravi and Petersen's correlation.
|
||||
|
||||
The correlation for the laminar flame speed \f$Su\f$ is of the following
|
||||
form:
|
||||
\f[
|
||||
Su = \left( \sum \alpha_i \phi^i \right)
|
||||
\left( \frac{T}{T_{ref}} \right)^{\left( \sum \beta_j \phi^j \right)}
|
||||
\f]
|
||||
|
||||
Where \f$\phi\f$ is the equivalence ratio, and \f$\alpha\f$ and \f$\beta\f$
|
||||
are polynomial coefficients given for a number of pressure and equivalence
|
||||
ratio points.
|
||||
|
||||
SourceFiles
|
||||
RaviPetersen.C
|
||||
|
||||
\*---------------------------------------------------------------------------*/
|
||||
|
||||
#ifndef RaviPetersen_H
|
||||
#define RaviPetersen_H
|
||||
|
||||
#include "laminarFlameSpeed.H"
|
||||
|
||||
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
|
||||
|
||||
namespace Foam
|
||||
{
|
||||
namespace laminarFlameSpeedModels
|
||||
{
|
||||
|
||||
/*---------------------------------------------------------------------------*\
|
||||
Class RaviPetersen Declaration
|
||||
\*---------------------------------------------------------------------------*/
|
||||
|
||||
class RaviPetersen
|
||||
:
|
||||
public laminarFlameSpeed
|
||||
{
|
||||
// Private Data
|
||||
|
||||
dictionary coeffsDict_;
|
||||
|
||||
//- Correlation pressure values
|
||||
List<scalar> pPoints_;
|
||||
|
||||
//- Correlation equivalence ratios
|
||||
List<scalar> EqRPoints_;
|
||||
|
||||
//- Correlation alpha coefficients
|
||||
List<List<List<scalar> > > alpha_;
|
||||
|
||||
//- Correlation beta coefficients
|
||||
List<List<List<scalar> > > beta_;
|
||||
|
||||
//- Reference temperature
|
||||
scalar TRef_;
|
||||
|
||||
|
||||
// Private Member Functions
|
||||
|
||||
//- Check that input points are ordered
|
||||
void checkPointsMonotonicity
|
||||
(
|
||||
const word& name,
|
||||
const List<scalar>& x
|
||||
) const;
|
||||
|
||||
//- Check that the coefficient arrays are of the correct shape
|
||||
void checkCoefficientArrayShape
|
||||
(
|
||||
const word& name,
|
||||
const List<List<List<scalar> > >& x
|
||||
) const;
|
||||
|
||||
//- Find and interpolate a value in the data point arrays
|
||||
inline bool interval
|
||||
(
|
||||
const List<scalar>& xPoints,
|
||||
const scalar x,
|
||||
label& xIndex,
|
||||
scalar& xXi,
|
||||
scalar& xLim
|
||||
) const;
|
||||
|
||||
//- Evaluate a polynomial
|
||||
inline scalar polynomial
|
||||
(
|
||||
const List<scalar>& coeffs,
|
||||
const scalar x
|
||||
) const;
|
||||
|
||||
//- Evaluate a polynomial differential
|
||||
inline scalar dPolynomial
|
||||
(
|
||||
const List<scalar>& coeffs,
|
||||
const scalar x
|
||||
) const;
|
||||
|
||||
//- Calculate normalised temperature to the power of the B polynomial
|
||||
inline scalar THatPowB
|
||||
(
|
||||
const label EqRIndex,
|
||||
const label pIndex,
|
||||
const scalar EqR,
|
||||
const scalar Tu
|
||||
) const;
|
||||
|
||||
//- Return the flame speed within the correlation range
|
||||
inline scalar correlationInRange
|
||||
(
|
||||
const label EqRIndex,
|
||||
const label pIndex,
|
||||
const scalar EqR,
|
||||
const scalar Tu
|
||||
) const;
|
||||
|
||||
//- Extrapolate the flame speed correlation outside its range
|
||||
inline scalar correlationOutOfRange
|
||||
(
|
||||
const label EqRIndex,
|
||||
const label pIndex,
|
||||
const scalar EqR,
|
||||
const scalar EqRLim,
|
||||
const scalar Tu
|
||||
) const;
|
||||
|
||||
//- Return the laminar flame speed [m/s]
|
||||
inline scalar speed
|
||||
(
|
||||
const scalar EqR,
|
||||
const scalar p,
|
||||
const scalar Tu
|
||||
) const;
|
||||
|
||||
|
||||
//- Construct as copy (not implemented)
|
||||
RaviPetersen(const RaviPetersen&);
|
||||
void operator=(const RaviPetersen&);
|
||||
|
||||
|
||||
public:
|
||||
|
||||
//- Runtime type information
|
||||
TypeName("RaviPetersen");
|
||||
|
||||
// Constructors
|
||||
|
||||
//- Construct from dictionary and psiuReactionThermo
|
||||
RaviPetersen
|
||||
(
|
||||
const dictionary&,
|
||||
const psiuReactionThermo&
|
||||
);
|
||||
|
||||
|
||||
//- Destructor
|
||||
virtual ~RaviPetersen();
|
||||
|
||||
|
||||
// Member functions
|
||||
|
||||
//- Return the laminar flame speed [m/s]
|
||||
tmp<volScalarField> operator()() const;
|
||||
};
|
||||
|
||||
|
||||
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
|
||||
|
||||
} // End laminarFlameSpeedModels
|
||||
} // End namespace Foam
|
||||
|
||||
// * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * //
|
||||
|
||||
#endif
|
||||
|
||||
// ************************************************************************* //
|
||||
Reference in New Issue
Block a user