My Project
EclThconrLaw.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_THCONR_LAW_HPP
28 #define OPM_ECL_THCONR_LAW_HPP
29 
30 #include "EclThconrLawParams.hpp"
31 
33 
34 namespace Opm
35 {
41 template <class ScalarT,
42  class FluidSystem,
43  class ParamsT = EclThconrLawParams<ScalarT>>
45 {
46 public:
47  using Params = ParamsT;
48  using Scalar = typename Params::Scalar;
49 
54  template <class FluidState, class Evaluation = typename FluidState::Scalar>
55  static Evaluation thermalConductivity(const Params& params,
56  const FluidState& fluidState)
57  {
58  // THCONR + THCONSF approach.
59  Scalar lambdaRef = params.referenceTotalThermalConductivity();
60  static constexpr int gasPhaseIdx = FluidSystem::gasPhaseIdx;
61  if (FluidSystem::phaseIsActive(gasPhaseIdx)) {
62  Scalar alpha = params.dTotalThermalConductivity_dSg();
63  const Evaluation& Sg = decay<Evaluation>(fluidState.saturation(gasPhaseIdx));
64  return lambdaRef*(1.0 - alpha*Sg);
65  } else {
66  return lambdaRef;
67  }
68  }
69 };
70 
71 } // namespace Opm
72 
73 #endif
The default implementation of a parameter object for the thermal conduction law based on the THCONR k...
A number of commonly used algebraic functions for the localized OPM automatic differentiation (AD) fr...
Implements the total thermal conductivity relations specified by the ECL THCONR.
Definition: EclThconrLaw.hpp:45
static Evaluation thermalConductivity(const Params &params, const FluidState &fluidState)
Given a fluid state, return the total thermal conductivity [W/m^2 / (K/m)] of the porous medium.
Definition: EclThconrLaw.hpp:55