Panzer_ClosureModel_Factory_Composite_impl.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_CLOSURE_MODEL_FACTORY_COMPOSITE_IMPL_HPP
#define PANZER_CLOSURE_MODEL_FACTORY_COMPOSITE_IMPL_HPP
 
#include <iostream>
#include <sstream>
#include <string>
#include <vector>
#include <list>
#include "Panzer_GlobalData.hpp"
#include "Teuchos_ParameterEntry.hpp"
#include "Teuchos_ParameterList.hpp"
#include "Teuchos_StandardParameterEntryValidators.hpp"
#include "Teuchos_TypeNameTraits.hpp"
#include "Panzer_String_Utilities.hpp"
 
// ********************************************************************
template<typename EvalT>
panzer::ClosureModelFactoryComposite<EvalT>::
ClosureModelFactoryComposite(const std::vector<Teuchos::RCP<panzer::ClosureModelFactory_TemplateManager<panzer::Traits> > >& factories) :
  m_factories(factories)
{ }
 
// ********************************************************************
template<typename EvalT>
Teuchos::RCP< std::vector< Teuchos::RCP<PHX::Evaluator<panzer::Traits> > > > 
panzer::ClosureModelFactoryComposite<EvalT>::
buildClosureModels(const std::string& model_id,
       const Teuchos::ParameterList& models, 
       const panzer::FieldLayoutLibrary& fl,
       const Teuchos::RCP<panzer::IntegrationRule>& ir,
       const Teuchos::ParameterList& default_params, 
       const Teuchos::ParameterList& user_data,
       const Teuchos::RCP<panzer::GlobalData>& global_data,
       PHX::FieldManager<panzer::Traits>& fm) const
{
 
  using std::string;
  using std::vector;
  using Teuchos::RCP;
  using Teuchos::rcp;
  using Teuchos::ParameterList;
  using PHX::Evaluator;
 
  RCP< vector< RCP<Evaluator<panzer::Traits> > > > evaluators = 
    rcp(new vector< RCP<Evaluator<panzer::Traits> > > );
 
  if (!models.isSublist(model_id)) {
    std::stringstream msg;
    msg << "Falied to find requested model, \"" << model_id 
  << "\" for equation set:\n" << std::endl;
    TEUCHOS_TEST_FOR_EXCEPTION(!models.isSublist(model_id), std::logic_error, msg.str());
  }
 
  const ParameterList& my_model = models.sublist(model_id);
 
  // pull out the nonlist (not associated with any model) parameters
  // this will be used by each stored closure model
  Teuchos::ParameterList nonlist_params(models.name()); // make sure it maintains the models name
  for (ParameterList::ConstIterator model_it = models.begin(); 
       model_it != models.end(); ++model_it) {
 
    std::string key = model_it->first;
    if(!model_it->second.isList())
      nonlist_params.setEntry(key,model_it->second);
  }
 
  // build a copy of parameter list containing only the closure model of current relevance
  // with any supplemental non-list information contained in the parameter list
  ParameterList copy_of_my_model = nonlist_params;
  copy_of_my_model.sublist(model_id) = my_model; // copy my_model into copy of models
 
  // Loop over factories
  for (std::vector<Teuchos::RCP<panzer::ClosureModelFactory_TemplateManager<panzer::Traits> > >::const_iterator factory = m_factories.begin(); factory != m_factories.end(); ++factory) {
    
    (*factory)->getAsObject<EvalT>()->setThrowOnModelNotFound(false);
    RCP< vector< RCP<Evaluator<panzer::Traits> > > > tmp_evaluators =
      (*factory)->getAsObject<EvalT>()->buildClosureModels(model_id,copy_of_my_model,fl,ir,default_params,user_data,global_data,fm);
 
    if (tmp_evaluators->size() > 0) {
      for (vector< RCP<Evaluator<panzer::Traits> > >::const_iterator eval = tmp_evaluators->begin(); eval != tmp_evaluators->end(); ++eval)
        evaluators->push_back(*eval);
    }
 
  }
 
/*
  // for each model, try each factory until you get a nonnull
  // return, meaning you have built the evaluators for that model
  for (ParameterList::ConstIterator model_it = my_model.begin(); 
       model_it != my_model.end(); ++model_it) {
    
    std::string model_key = model_it->first;
    
    // Duplicate models sublist with just the particular model you
    // want to build
    ParameterList copy_of_models = nonlist_params;
    // Teuchos::ParameterList* tmp;
    // copy_of_models.sublist(model_id).sublist(model_key) = model_it->second.getValue(tmp);
    copy_of_models.sublist(model_id).setEntry(model_key,model_it->second);
 
    std::cout << "COPY OF MODELS = " << model_id << std::endl;
    copy_of_models.print(std::cout);
    
    // Loop over factories
    for (std::vector<Teuchos::RCP<panzer::ClosureModelFactory_TemplateManager<panzer::Traits> > >::const_iterator factory = m_factories.begin(); factory != m_factories.end(); ++factory) {
 
      RCP< vector< RCP<Evaluator<panzer::Traits> > > > tmp_evaluators =
  (*factory)->getAsObject<EvalT>()->buildClosureModels(model_id,set,copy_of_models,default_params,user_data,global_data,fm);
 
      if (tmp_evaluators->size() > 0) {
  
  for (vector< RCP<Evaluator<panzer::Traits> > >::const_iterator eval = tmp_evaluators->begin(); eval != tmp_evaluators->end(); ++eval)
    evaluators->push_back(*eval);
 
      }
      
    }
 
  }
  */
 
  return evaluators;
}
 
#endif