Panzer_ResponseEvaluatorFactory_ExtremeValue.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_ExtremeValue_hpp__
#define __Panzer_ResponseEvaluatorFactory_ExtremeValue_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_ExtremeValue : public ResponseEvaluatorFactory<EvalT> {
public:

   ResponseEvaluatorFactory_ExtremeValue(MPI_Comm comm, 
                               int cubatureDegree=1,
                               bool requiresCellReduction=true,
                               bool useMax=true,
                               const std::string & quadPointField="",
                               const Teuchos::RCP<const panzer::LinearObjFactory<panzer::Traits> > & linearObjFactory=Teuchos::null,
                               const Teuchos::RCP<const panzer::GlobalIndexer> & globalIndexer=Teuchos::null,
                               bool applyDirichletToDerivative=false,
                               std::string in_prefix="")
     : comm_(comm), cubatureDegree_(cubatureDegree), requiresCellExtreme_(requiresCellReduction), useMax_(useMax)
     , quadPointField_(quadPointField), linearObjFactory_(linearObjFactory), globalIndexer_(globalIndexer)
     , applyDirichletToDerivative_(applyDirichletToDerivative)
     , prefix_(in_prefix)
   {
     TEUCHOS_ASSERT((linearObjFactory==Teuchos::null && globalIndexer==Teuchos::null) ||
                    (linearObjFactory!=Teuchos::null && globalIndexer!=Teuchos::null));
   }

   virtual ~ResponseEvaluatorFactory_ExtremeValue() {}
 
   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_;
   int cubatureDegree_;
   bool requiresCellExtreme_;
   bool useMax_;
   std::string quadPointField_;
   Teuchos::RCP<const panzer::LinearObjFactory<panzer::Traits> > linearObjFactory_;
   Teuchos::RCP<const panzer::GlobalIndexer> globalIndexer_;
   bool applyDirichletToDerivative_;
   std::string prefix_;
};

template <typename LO,typename GO> 
struct ExtremeValueResponse_Builder : public ResponseMESupportBuilderBase {
  MPI_Comm comm;
  int cubatureDegree;
  bool requiresCellExtreme;
  bool useMax;
  std::string quadPointField;
  bool applyDirichletToDerivative; // if this is set to true, then the dirichlet values will be zerod out in
                                   // the DgDx vector

  std::string prefix;
  ExtremeValueResponse_Builder() : applyDirichletToDerivative(false) {}

  virtual ~ExtremeValueResponse_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_ExtremeValue<T,LO,GO>(comm,cubatureDegree,requiresCellExtreme,useMax,quadPointField,
                                                                         linearObjFactory,globalIndexer,applyDirichletToDerivative,prefix)); }

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

#ifdef Panzer_BUILD_HESSIAN_SUPPORT

  virtual Teuchos::RCP<panzer::ResponseEvaluatorFactoryBase> buildHessianFactory() const 
  { return build<panzer::Traits::Hessian>(); }
#endif
  
private:
  Teuchos::RCP<const panzer::LinearObjFactory<panzer::Traits> > linearObjFactory;
  Teuchos::RCP<const panzer::GlobalIndexer> globalIndexer;
};


}

#include "Panzer_ResponseEvaluatorFactory_ExtremeValue_impl.hpp"

#endif