SurfaceVectorResidual.hpp

Go to the documentation of this file.

//*****************************************************************//
//    Albany 2.0:  Copyright 2012 Sandia Corporation               //
//    This Software is released under the BSD license detailed     //
//    in the file "license.txt" in the top-level Albany directory  //
//*****************************************************************//

#ifndef SURFACE_VECTOR_RESIDUAL_HPP
#define SURFACE_VECTOR_RESIDUAL_HPP

#include "Phalanx_ConfigDefs.hpp"
#include "Phalanx_Evaluator_WithBaseImpl.hpp"
#include "Phalanx_Evaluator_Derived.hpp"
#include "Phalanx_MDField.hpp"
#include "Intrepid_CellTools.hpp"
#include "Intrepid_Cubature.hpp"

#include "Albany_Layouts.hpp"

namespace LCM
{
  template<typename EvalT, typename Traits>
  class SurfaceVectorResidual: public PHX::EvaluatorWithBaseImpl<Traits>,
      public PHX::EvaluatorDerived<EvalT, Traits>
  {

  public:

    SurfaceVectorResidual(Teuchos::ParameterList& p,
        const Teuchos::RCP<Albany::Layouts>& dl);

    void postRegistrationSetup(typename Traits::SetupData d,
        PHX::FieldManager<Traits>& vm);

    void evaluateFields(typename Traits::EvalData d);

  private:

    typedef typename EvalT::ScalarT ScalarT;
    typedef typename EvalT::MeshScalarT MeshScalarT;

    // Input:
    ScalarT thickness;
    Teuchos::RCP<Intrepid::Cubature<RealType> > cubature;
    Teuchos::RCP<Intrepid::Basis<RealType, Intrepid::FieldContainer<RealType> > > intrepidBasis;
    PHX::MDField<ScalarT, Cell, QuadPoint, Dim, Dim> stress;
    PHX::MDField<ScalarT, Cell, QuadPoint, Dim, Dim> currentBasis;
    PHX::MDField<MeshScalarT, Cell, QuadPoint, Dim, Dim> refDualBasis;
    PHX::MDField<MeshScalarT, Cell, QuadPoint, Dim> refNormal;
    PHX::MDField<MeshScalarT, Cell, QuadPoint, Dim> refArea;

    Intrepid::FieldContainer<RealType> refValues;
    Intrepid::FieldContainer<RealType> refGrads;
    Intrepid::FieldContainer<RealType> refPoints;
    Intrepid::FieldContainer<RealType> refWeights;

    PHX::MDField<ScalarT, Cell, QuadPoint, Dim> traction_;
    
    // Output:
    PHX::MDField<ScalarT, Cell, Node, Dim> force;

    unsigned int worksetSize;
    unsigned int numNodes;
    unsigned int numQPs;
    unsigned int numDims;
    unsigned int numPlaneNodes;
    unsigned int numPlaneDims;

    bool use_cohesive_traction_;

    bool compute_membrane_forces_;
  };
}

#endif