Panzer_ResponseEvaluatorFactory_Probe.hpp

Go to the documentation of this file.

// @HEADER
// *****************************************************************************
//           Panzer: A partial differential equation assembly
//       engine for strongly coupled complex multiphysics systems
//
// Copyright 2011 NTESS and the Panzer contributors.
// SPDX-License-Identifier: BSD-3-Clause
// *****************************************************************************
// @HEADER
 
#ifndef __Panzer_ResponseEvaluatorFactory_Probe_hpp__
#define __Panzer_ResponseEvaluatorFactory_Probe_hpp__
 
#include <string>
 
#include "PanzerDiscFE_config.hpp"
#include "Panzer_PhysicsBlock.hpp"
#include "Panzer_BC.hpp"
#include "Panzer_Traits.hpp"
#include "Panzer_ResponseEvaluatorFactory.hpp"
#include "Panzer_LinearObjFactory.hpp"
#include "Panzer_ResponseMESupportBuilderBase.hpp"
 
#include <mpi.h>
 
namespace panzer {
 
template <typename EvalT,typename LO,typename GO>
class ResponseEvaluatorFactory_Probe : public ResponseEvaluatorFactory<EvalT> {
public:
 
  ResponseEvaluatorFactory_Probe(
    MPI_Comm comm,
    const Teuchos::Array<double>& point,
    int fieldComponent = 0,
    int cubatureDegree=1,
    const std::string & fieldName="",
    const Teuchos::RCP<const panzer::LinearObjFactory<panzer::Traits> > & linearObjFactory=Teuchos::null,
    const Teuchos::RCP<const panzer::GlobalIndexer> & globalIndexer=Teuchos::null,
    bool applyDirichletToDerivative=false)
    : comm_(comm), point_(point), fieldComponent_(fieldComponent), cubatureDegree_(cubatureDegree)
    , fieldName_(fieldName), linearObjFactory_(linearObjFactory), globalIndexer_(globalIndexer)
    , applyDirichletToDerivative_(applyDirichletToDerivative)
    {
      TEUCHOS_ASSERT((linearObjFactory==Teuchos::null && globalIndexer==Teuchos::null) ||
                     (linearObjFactory!=Teuchos::null && globalIndexer!=Teuchos::null));
    }
 
  virtual ~ResponseEvaluatorFactory_Probe() {}
 
  virtual Teuchos::RCP<ResponseBase> buildResponseObject(const std::string & responseName) const;
 
  virtual Teuchos::RCP<ResponseBase> buildResponseObject(const std::string & responseName,
                                                         const std::vector<WorksetDescriptor> & wkstDesc) const
    { return buildResponseObject(responseName); }
 
  virtual void buildAndRegisterEvaluators(const std::string & responseName,
                                          PHX::FieldManager<panzer::Traits> & fm,
                                          const panzer::PhysicsBlock & physicsBlock,
                                          const Teuchos::ParameterList & user_data) const;
 
  virtual bool typeSupported() const;
 
protected:
  int getCubatureDegree() const { return cubatureDegree_; }
 
private:
  MPI_Comm comm_;
  Teuchos::Array<double> point_;
  int fieldComponent_;
  int cubatureDegree_;
  std::string fieldName_;
  Teuchos::RCP<const panzer::LinearObjFactory<panzer::Traits> > linearObjFactory_;
  Teuchos::RCP<const panzer::GlobalIndexer> globalIndexer_;
  bool applyDirichletToDerivative_; // do we need this???
};
 
template <typename LO,typename GO>
struct ProbeResponse_Builder : public ResponseMESupportBuilderBase {
  MPI_Comm comm;
  Teuchos::Array<double> point;
  int fieldComponent;
  int cubatureDegree;
  std::string fieldName;
  bool applyDirichletToDerivative; // if this is set to true, then the dirichlet values will be zerod out in
                                   // the DgDx vector
 
  ProbeResponse_Builder() : applyDirichletToDerivative(false) {}
 
  virtual ~ProbeResponse_Builder() {}
 
  void setDerivativeInformation(const Teuchos::RCP<const panzer::LinearObjFactory<panzer::Traits> > & in_linearObjFactory,
                                const Teuchos::RCP<const panzer::GlobalIndexer> & in_globalIndexer)
  {
    linearObjFactory = in_linearObjFactory;
    globalIndexer = in_globalIndexer;
 
    TEUCHOS_ASSERT((linearObjFactory==Teuchos::null && globalIndexer==Teuchos::null) ||
                   (linearObjFactory!=Teuchos::null && globalIndexer!=Teuchos::null));
  }
 
  virtual void setDerivativeInformation(const Teuchos::RCP<const panzer::LinearObjFactory<panzer::Traits> > & in_linearObjFactory)
  {
    using Teuchos::rcp_dynamic_cast;
 
    setDerivativeInformation(in_linearObjFactory,
                             rcp_dynamic_cast<const panzer::GlobalIndexer>(in_linearObjFactory->getDomainGlobalIndexer(),true));
  }
 
  template <typename T>
  Teuchos::RCP<panzer::ResponseEvaluatorFactoryBase> build() const
  { return Teuchos::rcp(new ResponseEvaluatorFactory_Probe<T,LO,GO>(comm,point,fieldComponent,cubatureDegree,fieldName,
                                                                    linearObjFactory,globalIndexer,
                                                                    applyDirichletToDerivative)); }
 
  virtual Teuchos::RCP<panzer::ResponseEvaluatorFactoryBase> buildValueFactory() const
  { return build<panzer::Traits::Residual>(); }
 
  virtual Teuchos::RCP<panzer::ResponseEvaluatorFactoryBase> buildDerivativeFactory() const
  { return build<panzer::Traits::Jacobian>(); }
 
  virtual Teuchos::RCP<panzer::ResponseEvaluatorFactoryBase> buildTangentFactory() const
  { return build<panzer::Traits::Tangent>(); }
 
private:
  Teuchos::RCP<const panzer::LinearObjFactory<panzer::Traits> > linearObjFactory;
  Teuchos::RCP<const panzer::GlobalIndexer> globalIndexer;
};
 
 
}
 
#include "Panzer_ResponseEvaluatorFactory_Probe_impl.hpp"
 
#endif