1 /*---------------------------------------------------------------------------*\
3 \\ / F ield | OpenFOAM: The Open Source CFD Toolbox
5 \\ / A nd | Copyright (C) 2011 OpenFOAM Foundation
7 -------------------------------------------------------------------------------
9 This file is part of OpenFOAM.
11 OpenFOAM is free software: you can redistribute it and/or modify it
12 under the terms of the GNU General Public License as published by
13 the Free Software Foundation, either version 3 of the License, or
14 (at your option) any later version.
16 OpenFOAM is distributed in the hope that it will be useful, but WITHOUT
17 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
18 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
21 You should have received a copy of the GNU General Public License
22 along with OpenFOAM. If not, see <http://www.gnu.org/licenses/>.
24 \*---------------------------------------------------------------------------*/
26 #include "sequential.H"
27 #include "addToRunTimeSelectionTable.H"
29 // * * * * * * * * * * * * * * * * Constructors * * * * * * * * * * * * * * //
31 template<class ODEChemistryType>
32 Foam::sequential<ODEChemistryType>::sequential
35 const word& ODEModelName,
36 const word& thermoType
39 chemistrySolver<ODEChemistryType>(mesh, ODEModelName, thermoType),
40 coeffsDict_(this->subDict("sequentialCoeffs")),
41 cTauChem_(readScalar(coeffsDict_.lookup("cTauChem"))),
42 eqRateLimiter_(coeffsDict_.lookup("equilibriumRateLimiter"))
46 // * * * * * * * * * * * * * * * * Destructor * * * * * * * * * * * * * * * //
48 template<class ODEChemistryType>
49 Foam::sequential<ODEChemistryType>::~sequential()
53 // * * * * * * * * * * * * * * * Member Functions * * * * * * * * * * * * * //
55 template<class ODEChemistryType>
56 Foam::scalar Foam::sequential<ODEChemistryType>::solve
65 scalar tChemInv = SMALL;
67 scalar pf, cf, pb, cb;
70 forAll(this->reactions(), i)
72 scalar omega = this->omegaI(i, c, T, p, pf, cf, lRef, pb, cb, rRef);
86 tChemInv = max(tChemInv, mag(omega));
88 this->updateConcsInReactionI(i, dt, omega, c);
91 return cTauChem_/tChemInv;
95 // ************************************************************************* //