SurfaceHDiffusionDefResidual.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_H_DIFFUSION_DEF_RESIDUAL_HPP
#define SURFACE_H_DIFFUSION_DEF_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 SurfaceHDiffusionDefResidual : public PHX::EvaluatorWithBaseImpl<Traits>,
                              public PHX::EvaluatorDerived<EvalT, Traits>  {

public:

  SurfaceHDiffusionDefResidual(const 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> scalarGrad;
  PHX::MDField<MeshScalarT,Cell,Node,QuadPoint,Dim> surface_Grad_BF;
   PHX::MDField<ScalarT,Cell,QuadPoint> scalarJump;
  PHX::MDField<MeshScalarT,Cell,QuadPoint,Dim, Dim> refDualBasis;
  PHX::MDField<MeshScalarT,Cell,QuadPoint,Dim> refNormal;
  PHX::MDField<MeshScalarT,Cell,QuadPoint,Dim> refArea;
  PHX::MDField<ScalarT,Cell,QuadPoint> J;
  PHX::MDField<ScalarT,Cell,QuadPoint> transport_;
  PHX::MDField<ScalarT,Cell,Node> nodal_transport_;

  PHX::MDField<ScalarT,Cell,QuadPoint> dL_;
  PHX::MDField<ScalarT,Cell,QuadPoint> eff_diff_;
  PHX::MDField<ScalarT,Cell,QuadPoint> strain_rate_factor_;
  PHX::MDField<ScalarT,Cell,QuadPoint> convection_coefficient_;
  PHX::MDField<ScalarT,Cell,QuadPoint, Dim> hydro_stress_gradient_;
  PHX::MDField<ScalarT,Cell,QuadPoint> eqps_;
  PHX::MDField<ScalarT,Cell,QuadPoint> element_length_;


  PHX::MDField<ScalarT,Cell,QuadPoint,Dim, Dim> defGrad;

//  // weight times basis function value at integration point
//  PHX::MDField<MeshScalarT,Cell,Node,QuadPoint> wBF;

  //Data from previous time step
   std::string transportName, JName, CLGradName, eqpsName;

   // Time
   PHX::MDField<ScalarT,Dummy> deltaTime;

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



  Intrepid::FieldContainer<ScalarT> artificalDL;
  Intrepid::FieldContainer<ScalarT> stabilizedDL;

  Intrepid::FieldContainer<ScalarT> pterm;

  // Temporary FieldContainers
  Intrepid::FieldContainer<ScalarT> flux;

  ScalarT trialPbar;

  // Stabilization Parameter
  RealType stab_param_;

  // Output:
  PHX::MDField<ScalarT,Cell,Node> transport_residual_;

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

  bool haveMech;
};
}

#endif