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 
32 namespace Opm
33 {
34 
43 template <class ScalarT,
44  class ParamsT = EclThcLawParams<ScalarT>>
45 class EclThcLaw
46 {
47 public:
48  using Params = ParamsT;
49  using Scalar = typename Params::Scalar;
50 
55  template <class FluidState, class Evaluation = typename FluidState::Scalar>
56  static Evaluation thermalConductivity(const Params& params,
57  const FluidState&)
58  {
59  // The thermal conductivity approach based on the THC* keywords.
60 
61  // let's assume that the porosity of the rock at standard condition is meant
62  Scalar poro = params.porosity();
63 
64  // IMO this approach is very questionable because the total thermal conductivity
65  // should at least depend on the current solution's phase saturation. Since ECL
66  // is king, let's follow their lead and throw ourselfs down the cliff of obvious
67  // incorrectness.
68  //
69  // TODO: also follow their fine leadership in the twophase case.
70  constexpr const Scalar numPhases = 3.0;
71  Scalar thconAvg =
72  poro*(params.thcoil() + params.thcgas() + params.thcwater()) / numPhases
73  + (1.0 - poro)*params.thcrock();
74 
75  return thconAvg;
76  }
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...
Implements the total thermal conductivity and rock enthalpy relations used by ECL.
Definition: EclThcLaw.hpp:46
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:56