facet/cellcentered/mpfa/couplingmapper.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:
//
// SPDX-FileCopyrightInfo: Copyright © DuMux Project contributors, see AUTHORS.md in root folder
// SPDX-License-Identifier: GPL-3.0-or-later
//
#ifndef DUMUX_CCMPFA_FACETCOUPLING_MAPPER_HH
#define DUMUX_CCMPFA_FACETCOUPLING_MAPPER_HH
 
#include <dune/common/indices.hh>
#include <dune/common/float_cmp.hh>
 
#include <dumux/common/indextraits.hh>
#include <dumux/discretization/method.hh>
#include <dumux/multidomain/facet/couplingmapper.hh>
#include <dumux/multidomain/facet/couplingmapperbase.hh>
#include <dumux/multidomain/facet/codimonegridadapter.hh>
 
namespace Dumux {
 
template<class BulkFVG, class LowDimFVG, std::size_t bulkId, std::size_t lowDimId>
class FacetCouplingMapper<BulkFVG, LowDimFVG, bulkId, lowDimId, DiscretizationMethods::CCMpfa>
: public virtual FacetCouplingMapperBase<BulkFVG, LowDimFVG, bulkId, lowDimId>
{
    using ParentType = FacetCouplingMapperBase<BulkFVG, LowDimFVG, bulkId, lowDimId>;
 
    using BulkFVElementGeometry = typename BulkFVG::LocalView;
    using BulkSubControlVolumeFace = typename BulkFVG::SubControlVolumeFace;
 
    using BulkIndexType = typename IndexTraits<typename BulkFVG::GridView>::GridIndex;
    using LowDimIndexType = typename IndexTraits<typename LowDimFVG::GridView>::GridIndex;
 
    using LowDimElement = typename LowDimFVG::GridView::template Codim<0>::Entity;
    using GlobalPosition = typename LowDimElement::Geometry::GlobalCoordinate;
    static constexpr int lowDimDim = LowDimFVG::GridView::dimension;
 
public:
    using ParentType::bulkGridId;
    using ParentType::facetGridId;
 
    template< class Embeddings >
    void update(const BulkFVG& bulkFvGridGeometry,
                const LowDimFVG& lowDimFvGridGeometry,
                std::shared_ptr<const Embeddings> embeddings)
    {
        // forward to update function with instantiated vertex adapter
        using GridAdapter = CodimOneGridAdapter<Embeddings, bulkGridId, facetGridId>;
        update(bulkFvGridGeometry, lowDimFvGridGeometry, embeddings, GridAdapter(embeddings));
    }
 
    template< class Embeddings, class CodimOneGridAdapter >
    void update(const BulkFVG& bulkFvGridGeometry,
                const LowDimFVG& lowDimFvGridGeometry,
                std::shared_ptr<const Embeddings> embeddings,
                const CodimOneGridAdapter& codimOneGridAdapter)
    {
        // define the policy how to add map entries for given lowdim element and adjoined entity indices
        auto addCouplingEntryPolicy = [&] (auto&& adjoinedEntityIndices,
                                           const LowDimElement& lowDimElement,
                                           const LowDimFVG& lowDimFvGridGeometry,
                                           const BulkFVG& bulkFvGridGeometry)
        {
            const auto lowDimElemIdx = lowDimFvGridGeometry.elementMapper().index(lowDimElement);
            auto& lowDimData = this->couplingMap_(facetGridId, bulkGridId)[lowDimElemIdx];
 
            // determine corner indices (in bulk grid indices)
            const auto& lowDimGeometry = lowDimElement.geometry();
            const auto numElementCorners = lowDimElement.subEntities(lowDimDim);
            std::vector<BulkIndexType> elemCornerIndices(numElementCorners);
            for (int i = 0; i < numElementCorners; ++i)
                elemCornerIndices[i] = codimOneGridAdapter.bulkGridVertexIndex(lowDimElement.template subEntity<lowDimDim>(i));
 
            // Find the scvfs in the adjoined entities coinciding with the low dim element
            auto fvGeometry = localView(bulkFvGridGeometry);
            for (auto bulkElemIdx : adjoinedEntityIndices)
            {
                const auto bulkElement = bulkFvGridGeometry.element(bulkElemIdx);
                fvGeometry.bind(bulkElement);
 
                std::vector<BulkIndexType> embeddedScvfIndices;
                for (const auto& scvf : scvfs(fvGeometry))
                {
                    // for non-boundary faces, it suffices to check if one
                    // of the outside scv indices is in the set of embedments
                    if (!scvf.boundary())
                    {
                        if ( std::count(adjoinedEntityIndices.begin(), adjoinedEntityIndices.end(), scvf.outsideScvIdx()) )
                            embeddedScvfIndices.push_back(scvf.index());
                    }
 
                    // otherwise, do float comparison of element and scvf facet corner
                    else
                    {
                        const auto eps = lowDimGeometry.volume()*1e-8;
                        const auto diffVec = lowDimGeometry.center()-fvGeometry.facetCorner(scvf);
 
                        if ( Dune::FloatCmp::eq<GlobalPosition, Dune::FloatCmp::CmpStyle::absolute>(diffVec, GlobalPosition(0.0), eps) )
                            embeddedScvfIndices.push_back(scvf.index());
                    }
                }
 
                // Error tracking. The boundary scvf detection might has to be improved for very fine grids!?
                if ( embeddedScvfIndices.size() != numElementCorners )
                    DUNE_THROW(Dune::InvalidStateException, "Could not find all coupling scvfs in embedment");
 
                // add each dof in the low dim element to coupling stencil of the bulk element and vice versa
                auto& bulkData = this->couplingMap_(bulkGridId, facetGridId)[bulkElemIdx];
                const auto lowDimElementDofs = LowDimFVG::discMethod == DiscretizationMethods::box
                                               ? this->extractNodalDofs_(lowDimElement, lowDimFvGridGeometry)
                                               : std::vector<LowDimIndexType>( {lowDimElemIdx} );
 
                // add coupling info to all elements/scvfs in interaction volumes
                for (auto dofIdx : lowDimElementDofs)
                    for (auto scvfIdx : embeddedScvfIndices)
                        this->addCouplingsFromIV_(bulkFvGridGeometry, fvGeometry.scvf(scvfIdx), fvGeometry, lowDimElemIdx, dofIdx);
 
                // sort the scvfs according to the corners of the low dim element if box is used
                // that allows identifying which scvf flux enters which low dim scv later
                if (LowDimFVG::discMethod == DiscretizationMethods::box)
                {
                    const auto copy = embeddedScvfIndices;
 
                    for (unsigned int i = 0; i < numElementCorners; ++i)
                    {
                        const auto& scvf = fvGeometry.scvf(copy[i]);
                        auto it = std::find(elemCornerIndices.begin(), elemCornerIndices.end(), scvf.vertexIndex());
                        assert(it != elemCornerIndices.end());
                        embeddedScvfIndices[ std::distance(elemCornerIndices.begin(), it) ] = copy[i];
                    }
                }
 
                // add info on which scvfs coincide with which low dim element
                auto& elemToScvfMap = bulkData.elementToScvfMap[lowDimElemIdx];
                elemToScvfMap.insert(elemToScvfMap.end(), embeddedScvfIndices.begin(), embeddedScvfIndices.end());
 
                // add embedment
                lowDimData.embedments.emplace_back( bulkElemIdx, std::move(embeddedScvfIndices) );
            }
        };
 
        // let the parent do the update subject to the execution policy defined above
        ParentType::update_(bulkFvGridGeometry, lowDimFvGridGeometry, embeddings, addCouplingEntryPolicy);
 
        // lambda to make a container unique
        auto makeUnique = [] (auto& c)
        {
            std::sort(c.begin(), c.end());
            c.erase( std::unique(c.begin(), c.end()), c.end() );
        };
 
        // lambda to make bulk coupling map entry unique
        auto makeBulkMapEntryUnique = [&makeUnique] (auto& data)
        {
            makeUnique(data.second.couplingStencil);
            makeUnique(data.second.couplingElementStencil);
            std::for_each(data.second.dofToCouplingScvfMap.begin(),
                          data.second.dofToCouplingScvfMap.end(),
                          [&makeUnique] (auto& pair) { makeUnique(pair.second); });
        };
 
        // make bulk map unique
        auto& bulkCouplingData = this->couplingMap_(bulkGridId, facetGridId);
        std::for_each(bulkCouplingData.begin(), bulkCouplingData.end(), makeBulkMapEntryUnique);
 
        // coupling stencils might not be unique in lowdim domain
        auto& lowDimCouplingData = this->couplingMap_(facetGridId, bulkGridId);
        std::for_each(lowDimCouplingData.begin(),
                      lowDimCouplingData.end(),
                      [&makeUnique] (auto& pair) { makeUnique(pair.second.couplingStencil); });
    }
 
private:
    void addCouplingsFromIV_(const BulkFVG& bulkFvGridGeometry,
                             const BulkSubControlVolumeFace& scvf,
                             const BulkFVElementGeometry& fvGeometry,
                             LowDimIndexType lowDimElemIdx,
                             LowDimIndexType lowDimDofIdx)
    {
        const auto& gridIvIndexSets = bulkFvGridGeometry.gridInteractionVolumeIndexSets();
        if (bulkFvGridGeometry.vertexUsesSecondaryInteractionVolume(scvf.vertexIndex()))
            addCouplingsFromIVIndexSet_(gridIvIndexSets.secondaryIndexSet(scvf), fvGeometry, lowDimElemIdx, lowDimDofIdx);
        else
            addCouplingsFromIVIndexSet_(gridIvIndexSets.primaryIndexSet(scvf), fvGeometry, lowDimElemIdx, lowDimDofIdx);
    }
 
    template< class IVIndexSet >
    void addCouplingsFromIVIndexSet_(const IVIndexSet& indexSet,
                                     const BulkFVElementGeometry& fvGeometry,
                                     LowDimIndexType lowDimElemIdx,
                                     LowDimIndexType lowDimDofIdx)
    {
        auto& lowDimData = this->couplingMap_(facetGridId, bulkGridId)[lowDimElemIdx];
        for (auto bulkElemIdx : indexSet.gridScvIndices())
        {
            auto& bulkData = this->couplingMap_(bulkGridId, facetGridId)[bulkElemIdx];
 
            lowDimData.couplingStencil.push_back( bulkElemIdx );
            bulkData.couplingStencil.push_back( lowDimDofIdx );
            bulkData.couplingElementStencil.push_back( lowDimElemIdx );
        }
 
        // insert scvf couplings stemming from this interaction volume
        for (auto scvfIdx : indexSet.gridScvfIndices())
        {
            const auto& scvf = fvGeometry.scvf(scvfIdx);
            auto& bulkData = this->couplingMap_(bulkGridId, facetGridId)[scvf.insideScvIdx()];
            auto& couplingScvfs = bulkData.dofToCouplingScvfMap[lowDimDofIdx];
            couplingScvfs.insert(couplingScvfs.end(), scvfIdx);
        }
    }
};
 
} // end namespace Dumux
 
#endif