Panzer_ProjectToFaces_decl.hpp

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

#ifndef PANZER_EVALUATOR_PROJECT_TO_FACES_DECL_HPP
#define PANZER_EVALUATOR_PROJECT_TO_FACES_DECL_HPP

#include "Phalanx_Evaluator_Macros.hpp"
#include "Phalanx_MDField.hpp"

#include "Teuchos_ParameterList.hpp"

#include "Panzer_Dimension.hpp"
#include "Panzer_Traits.hpp"
#include "Panzer_CloneableEvaluator.hpp"

namespace panzer {

template<typename EvalT, typename Traits> 
class ProjectToFaces
  : public PHX::EvaluatorWithBaseImpl<Traits>,
    public PHX::EvaluatorDerived<EvalT, Traits>,
    public CloneableEvaluator  {
   
public:
  
  ProjectToFaces(const Teuchos::ParameterList& p);
  
  void postRegistrationSetup(typename Traits::SetupData d,
           PHX::FieldManager<Traits>& vm);
  
  void evaluateFields(typename Traits::EvalData d);

  virtual Teuchos::RCP<CloneableEvaluator> clone(const Teuchos::ParameterList & pl) const
  {return Teuchos::rcp(new ProjectToFaces<EvalT,Traits>(pl));}
  
private:

  typedef typename EvalT::ScalarT ScalarT;

  std::string dof_name;
  Teuchos::RCP<const PureBasis> basis;
  int num_pts;
  int num_dim;
  int quad_degree;
  bool use_fast_method_on_rectangular_hex_mesh;

  PHX::MDField<const ScalarT,Cell,BASIS,Dim> normals;
  std::vector<PHX::MDField<const ScalarT,Cell,BASIS,Dim> > vector_values;
  PHX::MDField<ScalarT,Cell,BASIS> result;

  ProjectToFaces();

  PHX::MDField<ScalarT,Cell,NODE,Dim> gatherFieldNormals;

  Teuchos::RCP<const std::vector<Intrepid2::Orientation> > orientations;

  // Caching values instead of creating temporaries in loops. Also
  // moved intrepid calculations to use host space to avoid UVM
  // allocation of internal temporaries created in interpid calls that
  // are made per cell.
  using ProjectionSpace = Kokkos::HostSpace;
  Kokkos::DynRankView<ScalarT,ProjectionSpace> refEdges;
  Kokkos::DynRankView<ScalarT,ProjectionSpace> phyEdges;
  std::vector<Teuchos::RCP< Intrepid2::Cubature<ProjectionSpace::execution_space,double,double>>> faceQuads;
  Kokkos::DynRankView<double,ProjectionSpace> quadWts;
  Kokkos::DynRankView<double,ProjectionSpace> quadPts;
  Kokkos::DynRankView<double,ProjectionSpace> physicalNodes;
  Kokkos::DynRankView<double,ProjectionSpace> refQuadPts;
  Kokkos::DynRankView<double,ProjectionSpace> jacobianSide;
  Kokkos::DynRankView<double,ProjectionSpace> weighted_measure;
  Kokkos::DynRankView<double,ProjectionSpace> scratch_space;
};

}

// **************************************************************
#endif