CapImplicitModel.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  //
//*****************************************************************//
#if !defined(CapImplicitModel_hpp)
#define CapImplicitModel_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 "LCM/models/ConstitutiveModel.hpp"

#include "Sacado.hpp"

namespace LCM
{
  
  template<typename EvalT, typename Traits>
  class CapImplicitModel: public LCM::ConstitutiveModel<EvalT,Traits>
  {

  public:

    typedef typename EvalT::ScalarT ScalarT;
    typedef typename EvalT::MeshScalarT MeshScalarT;
    typedef typename Sacado::mpl::apply<FadType,ScalarT>::type DFadType;
    typedef typename Sacado::mpl::apply<FadType,DFadType>::type D2FadType;
      
      
    using ConstitutiveModel<EvalT, Traits>::num_dims_;
    using ConstitutiveModel<EvalT, Traits>::num_pts_;
    using ConstitutiveModel<EvalT, Traits>::field_name_map_;
  CapImplicitModel(Teuchos::ParameterList* p,
    const Teuchos::RCP<Albany::Layouts>& dl);
      
  virtual
  ~CapImplicitModel()
  {};
      
  virtual
  void
  computeState(typename Traits::EvalData workset,
    std::map<std::string, Teuchos::RCP<PHX::MDField<ScalarT> > > dep_fields,
    std::map<std::string, Teuchos::RCP<PHX::MDField<ScalarT> > > eval_fields);
 
  private:
      
    CapImplicitModel(const CapImplicitModel&);
      
    CapImplicitModel& operator=(const CapImplicitModel&);
      
    // 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);

    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;
    
  };
}

#endif