mirror of
https://github.com/OPM/opm-simulators.git
synced 2025-02-25 18:55:30 -06:00
713d126e24
- make the methods of the fluid systems and components which just return a parameter constexpr. - don't use 'const' for call-by value parameters
88 lines
3.3 KiB
C++
88 lines
3.3 KiB
C++
// -*- mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
|
|
// vi: set et ts=4 sw=4 sts=4:
|
|
/*****************************************************************************
|
|
* Copyright (C) 2009 by Andreas Lauser *
|
|
* Institute for Modelling Hydraulic and Environmental Systems *
|
|
* University of Stuttgart, Germany *
|
|
* email: <givenname>.<name>@iws.uni-stuttgart.de *
|
|
* *
|
|
* This program 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 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
* This program 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 this program. If not, see <http://www.gnu.org/licenses/>. *
|
|
*****************************************************************************/
|
|
/*!
|
|
* \file
|
|
*
|
|
* \brief The IAPWS formulation of Henry coefficients in water.
|
|
*/
|
|
#ifndef DUMUX_HENRY_IAPWS_HH
|
|
#define DUMUX_HENRY_IAPWS_HH
|
|
|
|
#include <dumux/material/components/h2o.hh>
|
|
|
|
namespace Dumux
|
|
{
|
|
/*!
|
|
* \ingroup Binarycoefficients
|
|
* \brief The Henry constants in liquid water using the IAPWS 2004
|
|
* formulation.
|
|
*
|
|
* This function calculates \f$K_D\f$, see:
|
|
*
|
|
* IAPWS: "Guideline on the Henry's Constant and Vapor-Liquid
|
|
* Distribution Constant for Gases in H2O and D2O at High
|
|
* Temperatures"
|
|
* http://www.iapws.org/relguide/HenGuide.pdf
|
|
*/
|
|
template <class Scalar>
|
|
inline Scalar henryIAPWS(Scalar E,
|
|
Scalar F,
|
|
Scalar G,
|
|
Scalar H,
|
|
Scalar temperature)
|
|
{
|
|
typedef Dumux::H2O<Scalar> H2O;
|
|
|
|
Scalar Tr = temperature/H2O::criticalTemperature();
|
|
Scalar tau = 1 - Tr;
|
|
|
|
static constexpr Scalar c[6] = {
|
|
1.99274064, 1.09965342, -0.510839303,
|
|
-1.75493479,-45.5170352, -6.7469445e5
|
|
};
|
|
static constexpr Scalar d[6] = {
|
|
1/3.0, 2/3.0, 5/3.0,
|
|
16/3.0, 43/3.0, 110/3.0
|
|
};
|
|
static constexpr Scalar q = -0.023767;
|
|
|
|
Scalar f = 0;
|
|
for (int i = 0; i < 6; ++i) {
|
|
f += c[i]*std::pow(tau, d[i]);
|
|
}
|
|
|
|
Scalar exponent =
|
|
q*F +
|
|
E/temperature*f +
|
|
(F +
|
|
G*std::pow(tau, 2.0/3) +
|
|
H*tau)*
|
|
std::exp((H2O::tripleTemperature() - temperature)/100);
|
|
// CAUTION: K_D is formulated in mole fractions. We have to
|
|
// multiply it with the vapor pressure of water in order to get
|
|
// derivative of the partial pressure.
|
|
return std::exp(exponent)*H2O::vaporPressure(temperature);
|
|
}
|
|
}
|
|
|
|
#endif // DUMUX_HENRY_IAPWS_HH
|