multiphasebaseproblem.hh

Go to the documentation of this file.

// -*- mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*-
// vi: set et ts=4 sw=4 sts=4:
/*
  This file is part of the Open Porous Media project (OPM).

  OPM 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.

  OPM 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 OPM.  If not, see <http://www.gnu.org/licenses/>.

  Consult the COPYING file in the top-level source directory of this
  module for the precise wording of the license and the list of
  copyright holders.
*/
#ifndef EWOMS_MULTI_PHASE_BASE_PROBLEM_HH
#define EWOMS_MULTI_PHASE_BASE_PROBLEM_HH

#include <dune/common/fmatrix.hh>
#include <dune/common/fvector.hh>

#include <dune/grid/common/partitionset.hh>

#include <opm/material/fluidmatrixinteractions/NullMaterial.hpp>
#include <opm/material/common/Means.hpp>
#include <opm/material/densead/Evaluation.hpp>

#include <opm/models/common/directionalmobility.hh>
#include <opm/models/common/multiphasebaseparameters.hh>
#include <opm/models/common/multiphasebaseproperties.hh>

#include <opm/models/discretization/common/fvbaseproblem.hh>
#include <opm/models/discretization/common/fvbaseproperties.hh>

#include <opm/utility/CopyablePtr.hpp>

#include <algorithm>
#include <array>
#include <stdexcept>

namespace Opm {

template<class TypeTag>
class MultiPhaseBaseProblem
    : public FvBaseProblem<TypeTag>
    , public GetPropType<TypeTag, Properties::FluxModule>::FluxBaseProblem
{
    using ParentType = FvBaseProblem<TypeTag>;

    using Implementation = GetPropType<TypeTag, Properties::Problem>;
    using Scalar = GetPropType<TypeTag, Properties::Scalar>;
    using Evaluation = GetPropType<TypeTag, Properties::Evaluation>;
    using GridView = GetPropType<TypeTag, Properties::GridView>;
    using ElementContext = GetPropType<TypeTag, Properties::ElementContext>;
    using Simulator = GetPropType<TypeTag, Properties::Simulator>;
    using SolidEnergyLawParams = GetPropType<TypeTag, Properties::SolidEnergyLawParams>;
    using ThermalConductionLawParams = GetPropType<TypeTag, Properties::ThermalConductionLawParams>;
    using MaterialLawParams = typename GetPropType<TypeTag, Properties::MaterialLaw>::Params;
    using DirectionalMobilityPtr = Utility::CopyablePtr<DirectionalMobility<TypeTag>>;

    enum { dimWorld = GridView::dimensionworld };
    enum { numPhases = getPropValue<TypeTag, Properties::NumPhases>() };

    using DimVector = Dune::FieldVector<Scalar, dimWorld>;
    using DimMatrix = Dune::FieldMatrix<Scalar, dimWorld, dimWorld>;

public:
    explicit MultiPhaseBaseProblem(Simulator& simulator)
        : ParentType(simulator)
    { init_(); }

    static void registerParameters()
    {
        ParentType::registerParameters();

        Parameters::Register<Parameters::EnableGravity>
            ("Use the gravity correction for the pressure gradients.");
    }

    template <class Context>
    void intersectionIntrinsicPermeability(DimMatrix& result,
                                           const Context& context,
                                           unsigned intersectionIdx,
                                           unsigned timeIdx) const
    {
        const auto& scvf = context.stencil(timeIdx).interiorFace(intersectionIdx);

        const DimMatrix& K1 = asImp_().intrinsicPermeability(context, scvf.interiorIndex(), timeIdx);
        const DimMatrix& K2 = asImp_().intrinsicPermeability(context, scvf.exteriorIndex(), timeIdx);

        // entry-wise harmonic mean. this is almost certainly wrong if
        // you have off-main diagonal entries in your permeabilities!
        for (unsigned i = 0; i < dimWorld; ++i) {
            for (unsigned j = 0; j < dimWorld; ++j) {
                result[i][j] = harmonicMean(K1[i][j], K2[i][j]);
            }
        }
    }

    // \{

    template <class Context>
    const DimMatrix& intrinsicPermeability(const Context&,
                                           unsigned,
                                           unsigned) const
    {
        throw std::logic_error("Not implemented: Problem::intrinsicPermeability()");
    }

    template <class Context>
    Scalar porosity(const Context&,
                    unsigned,
                    unsigned) const
    {
        throw std::logic_error("Not implemented: Problem::porosity()");
    }

    template <class Context>
    const SolidEnergyLawParams&
    solidEnergyParams(const Context&,
                      unsigned,
                      unsigned) const
    {
        throw std::logic_error("Not implemented: Problem::solidEnergyParams()");
    }

    template <class Context>
    const ThermalConductionLawParams&
    thermalConductionParams(const Context&,
                         unsigned,
                         unsigned) const
    {
        throw std::logic_error("Not implemented: Problem::thermalConductionParams()");
    }

    template <class Context>
    Scalar tortuosity(const Context&,
                      unsigned,
                      unsigned) const
    {
        throw std::logic_error("Not implemented: Problem::tortuosity()");
    }

    template <class Context>
    Scalar dispersivity(const Context&,
                        unsigned,
                        unsigned) const
    {
        throw std::logic_error("Not implemented: Problem::dispersivity()");
    }

    template <class Context>
    const MaterialLawParams &
    materialLawParams(const Context&,
                      unsigned,
                      unsigned) const
    {
        static MaterialLawParams dummy;
        return dummy;
    }

    template <class FluidState>
    void updateRelperms([[maybe_unused]] std::array<Evaluation,numPhases>& mobility,
                        [[maybe_unused]] DirectionalMobilityPtr& dirMob,
                        [[maybe_unused]] FluidState& fluidState,
                        [[maybe_unused]] unsigned globalSpaceIdx) const
    {}

    template <class Context>
    Scalar temperature(const Context&,
                       unsigned,
                       unsigned) const
    { return asImp_().temperature(); }

    Scalar temperature() const
    { throw std::logic_error("Not implemented:temperature() method not implemented by the actual problem"); }


    template <class Context>
    const DimVector& gravity(const Context&,
                             unsigned,
                             unsigned) const
    { return asImp_().gravity(); }

    const DimVector& gravity() const
    { return gravity_; }

    unsigned markForGridAdaptation()
    {
        using Toolbox = MathToolbox<Evaluation>;

        unsigned numMarked = 0;
        ElementContext elemCtx( this->simulator() );
        auto gridView = this->simulator().vanguard().gridView();
        auto& grid = this->simulator().vanguard().grid();
        for (const auto& element : elements(gridView, Dune::Partitions::interior)) {
            elemCtx.updateAll(element);

            // HACK: this should better be part of an AdaptionCriterion class
            for (unsigned phaseIdx = 0; phaseIdx < numPhases; ++phaseIdx) {
                Scalar minSat = 1e100 ;
                Scalar maxSat = -1e100;
                size_t nDofs = elemCtx.numDof(/*timeIdx=*/0);
                for (unsigned dofIdx = 0; dofIdx < nDofs; ++dofIdx) {
                    const auto& intQuant = elemCtx.intensiveQuantities( dofIdx, /*timeIdx=*/0);
                    minSat = std::min(minSat,
                                      Toolbox::value(intQuant.fluidState().saturation(phaseIdx)));
                    maxSat = std::max(maxSat,
                                      Toolbox::value(intQuant.fluidState().saturation(phaseIdx)));
                }

                const Scalar indicator =
                    (maxSat - minSat) / (std::max<Scalar>(0.01, maxSat + minSat) / 2);
                if (indicator > 0.2 && element.level() < 2) {
                    grid.mark(1, element);
                    ++numMarked;
                }
                else if (indicator < 0.025) {
                    grid.mark(-1, element);
                    ++numMarked;
                }
                else {
                    grid.mark(0, element);
                }
            }
        }

        // get global sum so that every proc is on the same page
        return this->simulator().vanguard().grid().comm().sum(numMarked);
    }

    // \}

protected:
    DimMatrix toDimMatrix_(Scalar val) const
    {
        DimMatrix ret(0.0);
        for (unsigned i = 0; i < DimMatrix::rows; ++i) {
            ret[i][i] = val;
        }
        return ret;
    }

    DimVector gravity_;

private:
    Implementation& asImp_()
    { return *static_cast<Implementation *>(this); }

    const Implementation& asImp_() const
    { return *static_cast<const Implementation *>(this); }

    void init_()
    {
        gravity_ = 0.0;
        if (Parameters::Get<Parameters::EnableGravity>()) {
            gravity_[dimWorld-1]  = -9.81;
        }
    }
};

} // namespace Opm

#endif