My Project
EclThcLaw.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_ECL_THC_LAW_HPP
28 #define OPM_ECL_THC_LAW_HPP
29 
30 #include "EclThcLawParams.hpp"
31 
33 
34 namespace Opm
35 {
44 template <class ScalarT,
45  class ParamsT = EclThcLawParams<ScalarT> >
46 class EclThcLaw
47 {
48 public:
49  typedef ParamsT Params;
50  typedef typename Params::Scalar Scalar;
51 
56  template <class FluidState, class Evaluation = typename FluidState::Scalar>
57  static Evaluation thermalConductivity(const Params& params,
58  const FluidState&)
59  {
60  // The thermal conductivity approach based on the THC* keywords.
61 
62  // let's assume that the porosity of the rock at standard condition is meant
63  Scalar poro = params.porosity();
64 
65  // IMO this approach is very questionable because the total thermal conductivity
66  // should at least depend on the current solution's phase saturation. Since ECL
67  // is king, let's follow their lead and throw ourselfs down the cliff of obvious
68  // incorrectness.
69  //
70  // TODO: also follow their fine leadership in the twophase case.
71  Scalar numPhases = 3.0;
72  Scalar thconAvg =
73  poro*(params.thcoil() + params.thcgas() + params.thcwater()) / numPhases
74  + (1.0 - poro)*params.thcrock();
75 
76  return thconAvg;
77  }
78 };
79 } // namespace Opm
80 
81 #endif
The default implementation of a parameter object for the thermal conduction law based on the THC* key...
A number of commonly used algebraic functions for the localized OPM automatic differentiation (AD) fr...
Implements the total thermal conductivity and rock enthalpy relations used by ECL.
Definition: EclThcLaw.hpp:47
static Evaluation thermalConductivity(const Params &params, const FluidState &)
Given a fluid state, return the total thermal conductivity [W/m^2 / (K/m)] of the porous medium.
Definition: EclThcLaw.hpp:57