CapExplicit.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 CAPEXPLICIT_HPP
#define CAPEXPLICIT_HPP

#include <Intrepid_MiniTensor.h>
#include "Phalanx_ConfigDefs.hpp"
#include "Phalanx_Evaluator_WithBaseImpl.hpp"
#include "Phalanx_Evaluator_Derived.hpp"
#include "Phalanx_MDField.hpp"
#include "Albany_Layouts.hpp"

namespace LCM {

  template<typename EvalT, typename Traits>
  class CapExplicit: public PHX::EvaluatorWithBaseImpl<Traits>,
      public PHX::EvaluatorDerived<EvalT, Traits> {

  public:

    CapExplicit(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;

    ScalarT
    compute_f(Intrepid::Tensor<ScalarT> & sigma,
        Intrepid::Tensor<ScalarT> & alpha, ScalarT & kappa);

    Intrepid::Tensor<ScalarT>
    compute_dfdsigma(Intrepid::Tensor<ScalarT> & sigma,
        Intrepid::Tensor<ScalarT> & alpha, ScalarT & kappa);

    Intrepid::Tensor<ScalarT>
    compute_dgdsigma(Intrepid::Tensor<ScalarT> & sigma,
        Intrepid::Tensor<ScalarT> & alpha, ScalarT & kappa);

    ScalarT
    compute_dfdkappa(Intrepid::Tensor<ScalarT> & sigma,
        Intrepid::Tensor<ScalarT> & alpha, ScalarT & kappa);

    ScalarT
    compute_Galpha(ScalarT & J2_alpha);

    Intrepid::Tensor<ScalarT>
    compute_halpha(Intrepid::Tensor<ScalarT> & dgdsigma, ScalarT & J2_alpha);

    ScalarT compute_dedkappa(ScalarT & kappa);

    unsigned int numQPs;

    unsigned int numDims;

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

    PHX::MDField<ScalarT, Cell, QuadPoint> elasticModulus;

    PHX::MDField<ScalarT, Cell, QuadPoint> poissonsRatio;

    RealType A;
    RealType B;
    RealType C;
    RealType theta;
    RealType R;
    RealType kappa0;
    RealType W;
    RealType D1;
    RealType D2;
    RealType calpha;
    RealType psi;
    RealType N;
    RealType L;
    RealType phi;
    RealType Q;

    std::string strainName, stressName;
    std::string backStressName, capParameterName, eqpsName,volPlasticStrainName;

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

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

    PHX::MDField<ScalarT, Cell, QuadPoint> capParameter;

    //PHX::MDField<ScalarT, Cell, QuadPoint> friction;

    //PHX::MDField<ScalarT, Cell, QuadPoint> dilatancy;

    PHX::MDField<ScalarT, Cell, QuadPoint> eqps;

    PHX::MDField<ScalarT, Cell, QuadPoint> volPlasticStrain;

    //PHX::MDField<ScalarT, Cell, QuadPoint> hardeningModulus;

    Intrepid::Tensor4<ScalarT> Celastic, compliance, id1, id2, id3;
    Intrepid::Tensor<ScalarT> I;
    Intrepid::Tensor<ScalarT> depsilon, sigmaN, strainN, sigmaVal, alphaVal;
    Intrepid::Tensor<ScalarT> deps_plastic, sigmaTr, alphaTr;
    Intrepid::Tensor<ScalarT> dfdsigma, dgdsigma, dfdalpha, halpha;
    Intrepid::Tensor<ScalarT> dfdotCe, sigmaK, alphaK, dsigma, dev_plastic;
    Intrepid::Tensor<ScalarT> xi, sN, s, strainCurrent;
    Intrepid::Tensor<ScalarT> dJ3dsigma, eps_dev;


  };
}

#endif