Go to the documentation of this file.00001
00002
00003
00004
00005
00006
00007 #if !defined(RIHMRModel_hpp)
00008 #define RIHMRModel_hpp
00009
00010 #include <Intrepid_MiniTensor.h>
00011 #include "Phalanx_ConfigDefs.hpp"
00012 #include "Phalanx_Evaluator_WithBaseImpl.hpp"
00013 #include "Phalanx_Evaluator_Derived.hpp"
00014 #include "Phalanx_MDField.hpp"
00015 #include "Albany_Layouts.hpp"
00016 #include "LCM/models/ConstitutiveModel.hpp"
00017
00018 namespace LCM
00019 {
00020
00022 template<typename EvalT, typename Traits>
00023 class RIHMRModel: public LCM::ConstitutiveModel<EvalT, Traits>
00024 {
00025 public:
00026
00027 typedef typename EvalT::ScalarT ScalarT;
00028 typedef typename EvalT::MeshScalarT MeshScalarT;
00029 typedef typename Sacado::mpl::apply<FadType, ScalarT>::type DFadType;
00030
00031 using ConstitutiveModel<EvalT, Traits>::num_dims_;
00032 using ConstitutiveModel<EvalT, Traits>::num_pts_;
00033 using ConstitutiveModel<EvalT, Traits>::field_name_map_;
00034
00038 RIHMRModel(Teuchos::ParameterList* p,
00039 const Teuchos::RCP<Albany::Layouts>& dl);
00040
00044 virtual
00045 ~RIHMRModel()
00046 {};
00047
00051 virtual
00052 void
00053 computeState(typename Traits::EvalData workset,
00054 std::map<std::string, Teuchos::RCP<PHX::MDField<ScalarT> > > dep_fields,
00055 std::map<std::string, Teuchos::RCP<PHX::MDField<ScalarT> > > eval_fields);
00056
00057 private:
00058
00062 RIHMRModel(const RIHMRModel&);
00063
00067 RIHMRModel& operator=(const RIHMRModel&);
00068
00072 RealType sat_mod_, sat_exp_;
00073
00077 void
00078 ResidualJacobian(std::vector<ScalarT> & X, std::vector<ScalarT> & R,
00079 std::vector<ScalarT> & dRdX, const ScalarT & es, const ScalarT & smag,
00080 const ScalarT & mubar, ScalarT & mu, ScalarT & kappa, ScalarT & K,
00081 ScalarT & Y, ScalarT & Rd);
00082 };
00083 }
00084
00085 #endif