Panzer_IntrepidFieldPattern.cpp

Go to the documentation of this file.

// @HEADER
// ***********************************************************************
//
//           Panzer: A partial differential equation assembly
//       engine for strongly coupled complex multiphysics systems
//                 Copyright (2011) Sandia Corporation
//
// Under the terms of Contract DE-AC04-94AL85000 with Sandia Corporation,
// the U.S. Government retains certain rights in this software.
//
// Redistribution and use in source and binary forms, with or without
// modification, are permitted provided that the following conditions are
// met:
//
// 1. Redistributions of source code must retain the above copyright
// notice, this list of conditions and the following disclaimer.
//
// 2. Redistributions in binary form must reproduce the above copyright
// notice, this list of conditions and the following disclaimer in the
// documentation and/or other materials provided with the distribution.
//
// 3. Neither the name of the Corporation nor the names of the
// contributors may be used to endorse or promote products derived from
// this software without specific prior written permission.
//
// THIS SOFTWARE IS PROVIDED BY SANDIA CORPORATION "AS IS" AND ANY
// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
// PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL SANDIA CORPORATION OR THE
// CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
// EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
// PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
// PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
// LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
// NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
// SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
//
// Questions? Contact Roger P. Pawlowski (rppawlo@sandia.gov) and
// Eric C. Cyr (eccyr@sandia.gov)
// ***********************************************************************
// @HEADER
 
#include "Panzer_IntrepidFieldPattern.hpp"
 
#include "Teuchos_Assert.hpp"
#include "Intrepid2_CellTools.hpp"
#include "Shards_CellTopology.hpp"
 
namespace panzer {
 
  Intrepid2FieldPattern::
  Intrepid2FieldPattern(const Teuchos::RCP< Intrepid2::Basis<PHX::Device,double,double> > &intrepidBasis)
    : intrepidBasis_(intrepidBasis) {
    const auto dofOrd = intrepidBasis_->getAllDofOrdinal(); // rank 3 view
    const auto dofTag = intrepidBasis_->getAllDofTags(); // rank 2 view
    
    const int 
      iend = dofOrd.extent(0),
      jend = dofOrd.extent(1);
    
    subcellIndicies_.resize(iend);
    for (int i=0;i<iend;++i) {
      subcellIndicies_[i].resize(jend);
      for (int j=0;j<jend;++j) {
        const int ord = dofOrd(i, j, 0);
        if (ord >= 0) {
          const int ndofs = dofTag(ord, 3);
          subcellIndicies_[i][j].resize(ndofs); 
          for (int k=0;k<ndofs;++k) 
            subcellIndicies_[i][j][k] = dofOrd(i, j, k);
        } else {
          // if ordinal does not exist empty container.
          subcellIndicies_[i][j].clear();
        }
      }
    }
  }
  
  int 
  Intrepid2FieldPattern::
  getSubcellCount(int dim) const
  {
    const shards::CellTopology ct = intrepidBasis_->getBaseCellTopology();
    return ct.getSubcellCount(dim);
  }
 
  const std::vector<int> &
  Intrepid2FieldPattern::getSubcellIndices(int dim, int cellIndex) const
  {
    if ((dim       < static_cast<int>(subcellIndicies_.size()     ))  and 
        (cellIndex < static_cast<int>(subcellIndicies_[dim].size())))
      return subcellIndicies_[dim][cellIndex];
 
    return empty_;
  }
 
  void 
  Intrepid2FieldPattern::
  getSubcellClosureIndices(int dim,int cellIndex,std::vector<int> & indices) const
  {
    // wipe out previous values
    indices.clear(); 
    
    if (dim == 0) {
      indices = getSubcellIndices(dim,cellIndex);
    } else {
      // construct full topology
      const shards::CellTopology ct = intrepidBasis_->getBaseCellTopology();
 
      std::set<std::pair<unsigned,unsigned> > closure;
      Intrepid2FieldPattern::buildSubcellClosure(ct,dim,cellIndex,closure);
      
      // grab basis indices on the closure of the sub cell
      std::set<std::pair<unsigned,unsigned> >::const_iterator itr;
      for (itr=closure.begin();itr!=closure.end();++itr) {
        // grab indices for this sub cell
        const std::vector<int> & subcellIndices = getSubcellIndices(itr->first,itr->second);
 
        // concatenate the two vectors
        indices.insert(indices.end(),subcellIndices.begin(),subcellIndices.end());
      }
    }
  }
  
  int 
  Intrepid2FieldPattern::
  getDimension() const
  {
    return intrepidBasis_->getBaseCellTopology().getDimension();
  }
 
  shards::CellTopology 
  Intrepid2FieldPattern::
  getCellTopology() const
  {
    return intrepidBasis_->getBaseCellTopology();
  }
 
  void 
  Intrepid2FieldPattern::
  getSubcellNodes(const shards::CellTopology & cellTopo,unsigned dim,unsigned subCell,
                  std::vector<unsigned> & nodes)
  {
    if(dim==0) {
      nodes.push_back(subCell);
      return;
    }
 
    // get all nodes on requested sub cell
    unsigned subCellNodeCount = cellTopo.getNodeCount(dim,subCell);
    for(unsigned node=0;node<subCellNodeCount;++node)
      nodes.push_back(cellTopo.getNodeMap(dim,subCell,node));
 
    // sort them so they are ordered correctly for "includes" call
    std::sort(nodes.begin(),nodes.end());
  }
 
  void 
  Intrepid2FieldPattern::
  findContainedSubcells(const shards::CellTopology & cellTopo,unsigned dim,
                        const std::vector<unsigned> & nodes,
                        std::set<std::pair<unsigned,unsigned> > & subCells)
  {
    unsigned subCellCount = cellTopo.getSubcellCount(dim); 
    for(unsigned subCellOrd=0;subCellOrd<subCellCount;++subCellOrd) {
      // get all nodes in sub cell
      std::vector<unsigned> subCellNodes;
      getSubcellNodes(cellTopo,dim,subCellOrd,subCellNodes);
 
      // if subCellNodes \subset nodes => add (dim,subCellOrd) to subCells
      bool isSubset = std::includes(       nodes.begin(),        nodes.end(),
                                           subCellNodes.begin(), subCellNodes.end());
      if(isSubset)
        subCells.insert(std::make_pair(dim,subCellOrd));
       
    }
 
    // stop recursion base case
    if (dim==0) return;
 
    // find subcells in next sub dimension
    findContainedSubcells(cellTopo,dim-1,nodes,subCells);
  }
 
  void 
  Intrepid2FieldPattern::
  buildSubcellClosure(const shards::CellTopology & cellTopo,unsigned dim,unsigned subCell,
                      std::set<std::pair<unsigned,unsigned> > & closure)
  {
    switch(dim) {
    case 0:
      closure.insert(std::make_pair(0,subCell));
      break;
    case 1:
      closure.insert(std::make_pair(0,cellTopo.getNodeMap(dim,subCell,0)));
      closure.insert(std::make_pair(0,cellTopo.getNodeMap(dim,subCell,1)));
      closure.insert(std::make_pair(1,subCell));
      break;
    case 2:
      {
        unsigned cnt = (shards::CellTopology(cellTopo.getCellTopologyData(dim,subCell))).getSubcellCount(dim-1);
        for(unsigned i=0;i<cnt;i++) {
          int edge = mapCellFaceEdge(cellTopo.getCellTopologyData(),subCell,i);
          buildSubcellClosure(cellTopo,dim-1,edge,closure);
        }
        closure.insert(std::make_pair(2,subCell));
      }
      break;
    default:
      // beyond a two dimension surface this thing crashes!
      TEUCHOS_ASSERT(false);
    };
  }
 
  bool 
  Intrepid2FieldPattern::
  supportsInterpolatoryCoordinates() const
  {
    // we no longer use CoordsInterface
    return true;
  }
  
  void 
  Intrepid2FieldPattern::
  getInterpolatoryCoordinates(Kokkos::DynRankView<double,PHX::Device> & coords) const
  {
    // this may not be efficient if coords is allocated every time this function is called
    coords = Kokkos::DynRankView<double,PHX::Device>("coords",intrepidBasis_->getCardinality(),getDimension());
    intrepidBasis_->getDofCoords(coords);
  }

  void 
  Intrepid2FieldPattern::
  getInterpolatoryCoordinates(const Kokkos::DynRankView<double,PHX::Device> & cellVertices,
                              Kokkos::DynRankView<double,PHX::Device> & coords) const
  {
    TEUCHOS_ASSERT(cellVertices.rank()==3);
 
    int numCells = cellVertices.extent(0);
 
    // grab the local coordinates
    Kokkos::DynRankView<double,PHX::Device> localCoords;
    getInterpolatoryCoordinates(localCoords);
 
    // resize the coordinates field container
    coords = Kokkos::DynRankView<double,PHX::Device>("coords",numCells,localCoords.extent(0),getDimension());
 
    if(numCells>0) {
      Intrepid2::CellTools<PHX::Device> cellTools;
      cellTools.mapToPhysicalFrame(coords,localCoords,cellVertices,intrepidBasis_->getBaseCellTopology());
    }
  }
 
  Teuchos::RCP< Intrepid2::Basis<PHX::Device,double,double> >
  Intrepid2FieldPattern::getIntrepidBasis() const
  { return intrepidBasis_; }
  
}