FullerMethod.hpp
Go to the documentation of this file.
1// -*- mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
2// vi: set et ts=4 sw=4 sts=4:
3/*
4 This file is part of the Open Porous Media project (OPM).
5
6 OPM is free software: you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation, either version 2 of the License, or
9 (at your option) any later version.
10
11 OPM is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with OPM. If not, see <http://www.gnu.org/licenses/>.
18
19 Consult the COPYING file in the top-level source directory of this
20 module for the precise wording of the license and the list of
21 copyright holders.
22*/
27#ifndef OPM_FULLERMETHOD_HPP
28#define OPM_FULLERMETHOD_HPP
29
32
33#include <cmath>
34
35namespace Opm {
36namespace BinaryCoeff {
37
55template <class Scalar, class Evaluation = Scalar>
56inline Evaluation fullerMethod(const Scalar* M, // molar masses [g/mol]
57 const Scalar* SigmaNu, // atomic diffusion volume
58 const Evaluation& temperature, // [K]
59 const Evaluation& pressure) // [Pa]
60{
61 // "effective" molar mass in [g/m^3]
62 Scalar Mab = harmonicMean(M[0], M[1]);
63
64 // Fuller's method
65 const Evaluation& tmp = std::pow(SigmaNu[0], 1./3) + std::pow(SigmaNu[1], 1./3);
66 return 1e-4 * (143.0*pow(temperature, 1.75))/(pressure*std::sqrt(Mab)*tmp*tmp);
67}
68
69} // namespace BinaryCoeff
70} // namespace Opm
71
72#endif
A traits class which provides basic mathematical functions for arbitrary scalar floating point values...
Implements some common averages.
Evaluation fullerMethod(const Scalar *M, const Scalar *SigmaNu, const Evaluation &temperature, const Evaluation &pressure)
Estimate binary diffusion coefficents in gases according to the method by Fuller.
Definition: FullerMethod.hpp:56
Definition: Air_Mesitylene.hpp:34
Scalar harmonicMean(Scalar x, Scalar y)
Computes the harmonic average of two values.
Definition: Means.hpp:74
Evaluation sqrt(const Evaluation &value)
Definition: MathToolbox.hpp:399
ReturnEval_< Evaluation1, Evaluation2 >::type pow(const Evaluation1 &base, const Evaluation2 &exp)
Definition: MathToolbox.hpp:416