CapImplicit.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 CAPIMPLICIT_HPP
#define CAPIMPLICIT_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"

#include "Sacado.hpp"

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

  public:

    CapImplicit(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;
    // typedef typename Sacado::Fad::DFad<ScalarT> DFadType;
    // typedef typename Sacado::Fad::DFad<DFadType> D2FadType;
    typedef typename Sacado::mpl::apply<FadType,ScalarT>::type DFadType;
    typedef typename Sacado::mpl::apply<FadType,DFadType>::type D2FadType;

    // all local functions used in computing cap model stress:
    ScalarT
    compute_f(Intrepid::Tensor<ScalarT> & sigma,
        Intrepid::Tensor<ScalarT> & alpha,
        ScalarT & kappa);

    std::vector<ScalarT>
    initialize(Intrepid::Tensor<ScalarT> & sigmaVal,
        Intrepid::Tensor<ScalarT> & alphaVal, ScalarT & kappaVal,
        ScalarT & dgammaVal);

    void
    compute_ResidJacobian(std::vector<ScalarT> const & XXVal,
        std::vector<ScalarT> & R, std::vector<ScalarT> & dRdX,
        const Intrepid::Tensor<ScalarT> & sigmaVal,
        const Intrepid::Tensor<ScalarT> & alphaVal, const ScalarT & kappaVal,
        Intrepid::Tensor4<ScalarT> const & Celastic, bool kappa_flag);

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

    D2FadType
    compute_g(Intrepid::Tensor<D2FadType> & sigma,
        Intrepid::Tensor<D2FadType> & alpha, D2FadType & kappa);

    Intrepid::Tensor<DFadType>
    compute_dgdsigma(std::vector<DFadType> const & XX);

    DFadType
    compute_Galpha(DFadType J2_alpha);

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

    DFadType
    compute_dedkappa(DFadType const kappa);

    DFadType
    compute_hkappa(DFadType const I1_dgdsigma, DFadType const dedkappa);

    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;

  };
}

#endif