43 #ifndef PANZER_STK_MODEL_EVALUATOR_FACTORY_T_HPP
44 #define PANZER_STK_MODEL_EVALUATOR_FACTORY_T_HPP
46 #include "Thyra_ModelEvaluator.hpp"
47 #include "Teuchos_Assert.hpp"
50 #include "Teuchos_AbstractFactoryStd.hpp"
52 #include "PanzerAdaptersSTK_config.hpp"
63 #include "Panzer_TpetraLinearObjFactory.hpp"
92 #ifdef PANZER_HAVE_TEMPUS
107 #include "Thyra_EpetraModelEvaluator.hpp"
108 #include "Piro_ConfigDefs.hpp"
109 #include "Piro_NOXSolver.hpp"
110 #include "Piro_LOCASolver.hpp"
111 #ifdef PANZER_HAVE_TEMPUS
112 #include "Piro_TempusSolverForwardOnly.hpp"
117 namespace panzer_stk {
119 template<
typename ScalarT>
126 if(!paramList->
sublist(
"Initial Conditions").
isType<
bool>(
"Zero Initial Conditions"))
127 paramList->
sublist(
"Initial Conditions").
set<
bool>(
"Zero Initial Conditions",
false);
130 getValidParameters()->sublist(
"Initial Conditions").sublist(
"Vector File"));
132 this->setMyParamList(paramList);
135 template<
typename ScalarT>
146 pl->
set<
bool>(
"Use Discrete Adjoint",
false);
150 pl->
sublist(
"Initial Conditions").
set<
bool>(
"Zero Initial Conditions",
false);
154 pl->
sublist(
"Initial Conditions").
sublist(
"Vector File").
set<
bool>(
"Enabled",
false);
157 pl->
sublist(
"Output").
set(
"File Name",
"panzer.exo");
158 pl->
sublist(
"Output").
set(
"Write to Exodus",
true);
168 p.
set<
int>(
"Workset Size", 1);
169 p.
set<
int>(
"Default Integration Order",-1);
170 p.
set<std::string>(
"Field Order",
"");
171 p.
set<std::string>(
"Auxiliary Field Order",
"");
172 p.
set<
bool>(
"Use DOFManager FEI",
false);
173 p.
set<
bool>(
"Load Balance DOFs",
false);
174 p.
set<
bool>(
"Use Tpetra",
false);
175 p.
set<
bool>(
"Use Epetra ME",
true);
176 p.
set<
bool>(
"Lump Explicit Mass",
false);
177 p.
set<
bool>(
"Constant Mass Matrix",
true);
178 p.
set<
bool>(
"Apply Mass Matrix Inverse in Explicit Evaluator",
true);
179 p.
set<
bool>(
"Use Conservative IMEX",
false);
180 p.
set<
bool>(
"Compute Real Time Derivative",
false);
181 p.
set<
bool>(
"Use Time Derivative in Explicit Model",
false);
182 p.
set<
bool>(
"Compute Time Derivative at Time Step",
false);
186 p.
set<std::string>(
"Excluded Blocks",
"");
204 bool hasInterfaceCondition(
const std::vector<panzer::BC>& bcs)
206 for (std::vector<panzer::BC>::const_iterator bcit = bcs.begin(); bcit != bcs.end(); ++bcit)
216 Teuchos::rcp_dynamic_cast<STKConnManager>(conn_mgr);
218 "There are interface conditions, but the connection manager"
219 " does not support the necessary connections.");
223 void buildInterfaceConnections(
const std::vector<panzer::BC>& bcs,
227 for (std::vector<panzer::BC>::const_iterator bcit = bcs.begin(); bcit != bcs.end(); ++bcit)
237 if ( ! sidesets.empty()) {
238 std::stringstream ss;
240 for (std::size_t i = 0; i < sidesets.size(); ++i)
241 ss <<
" " << sidesets[i];
242 ss <<
" did not yield associations, but these sidesets correspond to BCT_Interface BCs.";
248 template<
typename ScalarT>
254 bool meConstructionOn)
257 "ParameterList must be set before objects can be built!");
265 m_global_data = global_data;
291 std::size_t workset_size = Teuchos::as<std::size_t>(assembly_params.
get<
int>(
"Workset Size"));
292 std::string field_order = assembly_params.
get<std::string>(
"Field Order");
294 bool use_dofmanager_fei = assembly_params.
get<
bool>(
"Use DOFManager FEI");
295 bool use_load_balance = assembly_params.
get<
bool>(
"Load Balance DOFs");
296 bool useTpetra = assembly_params.
get<
bool>(
"Use Tpetra");
297 bool useThyraME = !assembly_params.
get<
bool>(
"Use Epetra ME");
301 bool is_transient = (solncntl_params.
get<std::string>(
"Piro Solver") ==
"Tempus") ?
true :
false;
303 if (solncntl_params.
get<std::string>(
"Piro Solver") ==
"NOX") {
304 if (solncntl_params.
sublist(
"NOX").
get<std::string>(
"Nonlinear Solver") ==
"Pseudo-Transient")
309 if (solncntl_params.
get<std::string>(
"Piro Solver") ==
"LOCA") {
310 if (solncntl_params.
sublist(
"LOCA").
sublist(
"Stepper").
get<
bool>(
"Compute Eigenvalues"))
313 m_is_transient = is_transient;
315 useDiscreteAdjoint = p.
get<
bool>(
"Use Discrete Adjoint");
336 m_eqset_factory = eqset_factory;
341 std::vector<Teuchos::RCP<panzer::PhysicsBlock> > physicsBlocks;
344 std::map<std::string,std::string> block_ids_to_physics_ids;
348 std::map<std::string,Teuchos::RCP<const shards::CellTopology> > block_ids_to_cell_topo;
349 for(std::map<std::string,std::string>::const_iterator itr=block_ids_to_physics_ids.begin();
350 itr!=block_ids_to_physics_ids.end();++itr) {
351 block_ids_to_cell_topo[itr->first] = mesh->
getCellTopology(itr->first);
352 TEUCHOS_ASSERT(block_ids_to_cell_topo[itr->first]!=Teuchos::null);
357 panzer::buildPhysicsBlocks(block_ids_to_physics_ids,
358 block_ids_to_cell_topo,
360 assembly_params.
get<
int>(
"Default Integration Order"),
366 m_physics_blocks = physicsBlocks;
371 addUserFieldsToMesh(*mesh,output_list);
378 this->finalizeMeshConstruction(*mesh_factory,physicsBlocks,*mpi_comm,*mesh);
380 fout <<
"*****************************************\n\n";
381 fout <<
"Element block exception, could not finalize the mesh, printing block and sideset information:\n";
389 fout <<
"*****************************************\n\n";
390 fout <<
"Sideset exception, could not finalize the mesh, printing block and sideset information:\n";
400 if(p.
sublist(
"Output").
get<
bool>(
"Write to Exodus"))
406 if(m_user_wkst_factory==Teuchos::null)
409 wkstFactory = m_user_wkst_factory;
416 std::vector<panzer::BC> bcs;
417 panzer::buildBCs(bcs, p.
sublist(
"Boundary Conditions"), global_data);
422 m_conn_manager = conn_manager;
430 std::string loadBalanceString =
"";
431 bool blockedAssembly =
false;
433 const bool has_interface_condition = hasInterfaceCondition(bcs);
440 "ERROR: Blocked Epetra systems cannot handle interface conditions.");
443 blockedAssembly =
true;
449 = globalIndexerFactory.
buildGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager,field_order);
450 globalIndexer = dofManager;
454 Teuchos::rcp_dynamic_cast<panzer::BlockedDOFManager>(dofManager)));
457 const std::string excludedBlocks = assembly_params.
get<std::string>(
"Excluded Blocks");
458 std::vector<std::string> stringPairs;
460 for(std::size_t i=0;i<stringPairs.size();i++) {
461 std::vector<std::string> sPair;
462 std::vector<int> iPair;
467 "Input Error: The correct format for \"Excluded Blocks\" parameter in \"Assembly\" sub list is:\n"
468 " <int>,<int>; <int>,<int>; ...; <int>,<int>\n"
469 "Failure on string pair " << stringPairs[i] <<
"!");
471 bloLinObjFactory->addExcludedPair(iPair[0],iPair[1]);
474 linObjFactory = bloLinObjFactory;
484 "ERROR: Blocked Tpetra system cannot handle interface conditions.");
487 blockedAssembly =
true;
494 = globalIndexerFactory.
buildGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager,field_order);
495 globalIndexer = dofManager;
499 Teuchos::rcp_dynamic_cast<panzer::BlockedDOFManager>(dofManager)));
502 const std::string excludedBlocks = assembly_params.
get<std::string>(
"Excluded Blocks");
503 std::vector<std::string> stringPairs;
505 for(std::size_t i=0;i<stringPairs.size();i++) {
506 std::vector<std::string> sPair;
507 std::vector<int> iPair;
512 "Input Error: The correct format for \"Excluded Blocks\" parameter in \"Assembly\" sub list is:\n"
513 " <int>,<int>; <int>,<int>; ...; <int>,<int>\n"
514 "Failure on string pair " << stringPairs[i] <<
"!");
516 bloLinObjFactory->addExcludedPair(iPair[0],iPair[1]);
519 linObjFactory = bloLinObjFactory;
526 if (has_interface_condition)
527 buildInterfaceConnections(bcs, conn_manager);
536 = globalIndexerFactory.
buildGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager,field_order);
537 globalIndexer = dofManager;
539 if (has_interface_condition)
540 checkInterfaceConnections(conn_manager, dofManager->
getComm());
550 if (has_interface_condition)
551 buildInterfaceConnections(bcs, conn_manager);
559 = globalIndexerFactory.
buildGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager,
561 globalIndexer = dofManager;
563 if (has_interface_condition)
564 checkInterfaceConnections(conn_manager, dofManager->
getComm());
574 m_global_indexer = globalIndexer;
575 m_lin_obj_factory = linObjFactory;
576 m_blockedAssembly = blockedAssembly;
579 fout <<
"Degree of freedom load balancing: " << loadBalanceString << std::endl;
585 std::map<std::string,panzer::WorksetNeeds> needs;
586 for(std::size_t i=0;i<physicsBlocks.size();i++)
587 needs[physicsBlocks[i]->elementBlockID()] = physicsBlocks[i]->getWorksetNeeds();
595 m_wkstContainer = wkstContainer;
598 std::size_t max_wksets = 0;
599 for(std::size_t pb=0;pb<physicsBlocks.size();pb++) {
602 max_wksets = std::max(max_wksets,works->size());
604 user_data_params.
set<std::size_t>(
"Max Worksets",max_wksets);
605 wkstContainer->
clear();
612 useDynamicCoordinates_ =
false;
613 for(std::size_t pb=0;pb<physicsBlocks.size();pb++) {
614 if(physicsBlocks[pb]->getCoordinateDOFs().size()>0) {
616 useDynamicCoordinates_ =
true;
617 wkstContainer->
clear();
626 panzer_data_params.
set(
"STK Mesh", mesh);
627 panzer_data_params.
set(
"DOF Manager", globalIndexer);
628 panzer_data_params.
set(
"Linear Object Factory", linObjFactory);
633 if(!meConstructionOn)
639 std::vector<Teuchos::RCP<Teuchos::Array<std::string> > > p_names;
640 std::vector<Teuchos::RCP<Teuchos::Array<double> > > p_values;
644 int num_param_vecs = active_params.
get<
int>(
"Number of Parameter Vectors",0);
645 p_names.resize(num_param_vecs);
646 p_values.resize(num_param_vecs);
647 for (
int i=0; i<num_param_vecs; i++) {
648 std::stringstream ss;
649 ss <<
"Parameter Vector " << i;
651 int numParameters = pList.
get<
int>(
"Number");
654 std::endl <<
"Error! panzer::ModelEvaluator::ModelEvaluator(): " <<
655 "Parameter vector " << i <<
" has zero parameters!" << std::endl);
660 for (
int j=0; j<numParameters; j++) {
661 std::stringstream ss2;
662 ss2 <<
"Parameter " << j;
663 (*p_names[i])[j] = pList.
get<std::string>(ss2.str());
666 ss2 <<
"Initial Value " << j;
667 (*p_values[i])[j] = pList.
get<
double>(ss2.str());
687 bool write_dot_files = p.
sublist(
"Options").
get(
"Write Volume Assembly Graphs",
false);
688 std::string dot_file_prefix = p.
sublist(
"Options").
get(
"Volume Assembly Graph Prefix",
"Panzer_AssemblyGraph");
689 bool write_fm_files = p.
sublist(
"Options").
get(
"Write Field Manager Files",
false);
690 std::string fm_file_prefix = p.
sublist(
"Options").
get(
"Field Manager File Prefix",
"Panzer_AssemblyGraph");
694 auto check_write_dag = std::getenv(
"PANZER_WRITE_DAG");
695 if (check_write_dag !=
nullptr) {
696 write_dot_files =
true;
697 write_fm_files =
true;
701 fmb = buildFieldManagerBuilder(wkstContainer,physicsBlocks,bcs,*eqset_factory,bc_factory,cm_factory,
702 user_cm_factory,p.
sublist(
"Closure Models"),*linObjFactory,user_data_params,
703 write_dot_files,dot_file_prefix,
704 write_fm_files,fm_file_prefix);
713 bool write_dot_files =
false;
714 std::string prefix =
"Panzer_ResponseGraph_";
715 write_dot_files = p.
sublist(
"Options").
get(
"Write Volume Response Graphs",write_dot_files);
716 prefix = p.
sublist(
"Options").
get(
"Volume Response Graph Prefix",prefix);
719 user_data.
set<
int>(
"Workset Size",workset_size);
733 t_init = this->getInitialTime(p.
sublist(
"Initial Conditions").
sublist(
"Transient Parameters"), *mesh);
735 if(blockedAssembly || useTpetra)
739 = buildPhysicsModelEvaluator(useThyraME,
759 model_it!=models.
end(); ++model_it) {
760 std::string key = model_it->first;
761 if (model_it->first !=
"Global MMS Parameters")
762 cl_models.
setEntry(key,model_it->second);
764 bool write_dot_files =
false;
765 std::string prefix =
"Panzer_AssemblyGraph_";
766 setupInitialConditions(*thyra_me,*wkstContainer,physicsBlocks,user_cm_factory,*linObjFactory,
768 p.
sublist(
"Initial Conditions"),
770 p.
sublist(
"Options").
get(
"Write Volume Assembly Graphs",write_dot_files),
771 p.
sublist(
"Options").
get(
"Volume Assembly Graph Prefix",prefix));
776 writeInitialConditions(*thyra_me,physicsBlocks,wkstContainer,globalIndexer,linObjFactory,mesh,user_cm_factory,
778 p.
sublist(
"User Data"),workset_size);
780 m_physics_me = thyra_me;
783 template<
typename ScalarT>
790 itr!=cellAvgQuants.
end();++itr) {
791 const std::string & blockId = itr->first;
792 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
793 std::vector<std::string> tokens;
798 for(std::size_t i=0;i<tokens.size();i++)
807 itr != cellAvgVectors.
end(); ++itr) {
808 const std::string & blockId = itr->first;
809 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
810 std::vector<std::string> tokens;
815 for(std::size_t i = 0; i < tokens.size(); i++) {
816 std::string d_mod[3] = {
"X",
"Y",
"Z"};
825 itr!=cellQuants.
end();++itr) {
826 const std::string & blockId = itr->first;
827 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
828 std::vector<std::string> tokens;
833 for(std::size_t i=0;i<tokens.size();i++)
840 itr!=nodalQuants.
end();++itr) {
841 const std::string & blockId = itr->first;
842 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
843 std::vector<std::string> tokens;
848 for(std::size_t i=0;i<tokens.size();i++)
854 itr!=allocNodalQuants.
end();++itr) {
855 const std::string & blockId = itr->first;
856 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
857 std::vector<std::string> tokens;
862 for(std::size_t i=0;i<tokens.size();i++)
867 template<
typename ScalarT>
877 bool write_dot_files,
const std::string & dot_file_prefix)
const
881 Thyra::ModelEvaluatorBase::InArgs<double> nomValues = model.getNominalValues();
884 if(initial_cond_pl.
get<
bool>(
"Zero Initial Conditions")) {
886 Thyra::assign(x_vec.
ptr(),0.0);
888 else if(!initial_cond_pl.
sublist(
"Vector File").
get<
bool>(
"Enabled")) {
891 std::map<std::string, Teuchos::RCP< PHX::FieldManager<panzer::Traits> > > phx_ic_field_managers;
902 phx_ic_field_managers);
918 tloc->set_x_th(x_vec);
923 const std::string & vectorFile = initial_cond_pl.
sublist(
"Vector File").
get<std::string>(
"File Name");
925 "If \"Read From Vector File\" is true, then parameter \"Vector File\" cannot be the empty string.");
930 tloc->set_x_th(x_vec);
937 template<
typename ScalarT>
948 int workset_size)
const
955 = initializeSolnWriterResponseLibrary(wc,ugi,lof,mesh);
959 user_data.
set<
int>(
"Workset Size",workset_size);
961 finalizeSolnWriterResponseLibrary(*solnWriter,physicsBlocks,cm_factory,closure_model_pl,workset_size,user_data);
968 ae_inargs.
alpha = 0.0;
969 ae_inargs.
beta = 1.0;
984 template<
typename ScalarT>
990 if (mesh_params.
get<std::string>(
"Source") ==
"Exodus File") {
991 mesh_factory =
Teuchos::rcp(
new panzer_stk::STK_ExodusReaderFactory());
994 else if (mesh_params.
get<std::string>(
"Source") ==
"Pamgen Mesh") {
995 mesh_factory =
Teuchos::rcp(
new panzer_stk::STK_ExodusReaderFactory());
997 pamgenList->
set(
"File Type",
"Pamgen");
1000 else if (mesh_params.
get<std::string>(
"Source") ==
"Inline Mesh") {
1002 int dimension = mesh_params.
sublist(
"Inline Mesh").
get<
int>(
"Mesh Dimension");
1003 std::string typeStr =
"";
1005 typeStr = mesh_params.
sublist(
"Inline Mesh").
get<std::string>(
"Type");
1007 if (dimension == 1) {
1010 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
1013 else if (dimension == 2 && typeStr==
"Tri") {
1016 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
1019 else if (dimension == 2) {
1022 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
1025 else if (dimension == 3 && typeStr==
"Tet") {
1028 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
1031 else if(dimension == 3) {
1034 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
1037 else if(dimension==4) {
1040 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
1044 else if (mesh_params.
get<std::string>(
"Source") ==
"Custom Mesh") {
1054 if(mesh_params.
isSublist(
"Rebalance")) {
1058 bool enabled =
false;
1059 if(rebalance.
isType<
bool>(
"Enabled"))
1060 enabled = rebalance.
get<
bool>(
"Enabled");
1064 if(enabled && rebalance.
isSublist(
"Cycles"))
1071 return mesh_factory;
1074 template<
typename ScalarT>
1082 std::vector<Teuchos::RCP<panzer::PhysicsBlock> >::const_iterator physIter;
1083 for(physIter=physicsBlocks.begin();physIter!=physicsBlocks.end();++physIter) {
1085 double blockWeight = 0.0;
1088 const std::vector<panzer::StrPureBasisPair> & blockFields = pb->
getProvidedDOFs();
1089 const std::vector<std::vector<std::string> > & coordinateDOFs = pb->
getCoordinateDOFs();
1093 std::set<panzer::StrPureBasisPair,panzer::StrPureBasisComp> fieldNames;
1094 fieldNames.insert(blockFields.begin(),blockFields.end());
1099 std::set<std::string> fields_to_remove;
1103 for(std::size_t i=0;i<coordinateDOFs.size();i++) {
1105 for(std::size_t j=0;j<coordinateDOFs[i].size();j++)
1106 fields_to_remove.insert(coordinateDOFs[i][j]);
1110 std::set<std::string>::const_iterator rmItr;
1111 for (rmItr=fields_to_remove.begin();rmItr!=fields_to_remove.end();++rmItr)
1116 std::set<panzer::StrPureBasisPair,panzer::StrPureBasisComp>::const_iterator fieldItr;
1117 for (fieldItr=fieldNames.begin();fieldItr!=fieldNames.end();++fieldItr) {
1119 if(fieldItr->second->isScalarBasis() &&
1123 else if(fieldItr->second->isScalarBasis()) {
1126 else if(fieldItr->second->isVectorBasis()) {
1127 std::string d_mod[3] = {
"X",
"Y",
"Z"};
1128 for(
int d=0;d<fieldItr->second->dimension();d++)
1133 blockWeight += double(fieldItr->second->cardinality());
1146 template<
typename ScalarT>
1150 "Objects are not built yet! Please call buildObjects() member function.");
1151 return m_physics_me;
1154 template<
typename ScalarT>
1157 m_nox_observer_factory = nox_observer_factory;
1160 #ifdef PANZER_HAVE_TEMPUS
1161 template<
typename ScalarT>
1164 m_tempus_observer_factory = tempus_observer_factory;
1168 template<
typename ScalarT>
1171 m_user_wkst_factory = user_wkst_factory;
1174 template<
typename ScalarT>
1177 if(m_rome_me==Teuchos::null)
1178 m_rome_me = buildResponseOnlyModelEvaluator(m_physics_me,m_global_data);
1183 template<
typename ScalarT>
1187 #ifdef PANZER_HAVE_TEMPUS
1188 const Teuchos::RCP<Piro::TempusSolverForwardOnly<ScalarT> > tempusSolver,
1191 #ifdef PANZER_HAVE_TEMPUS
1200 "Objects are not built yet! Please call buildObjects() member function.");
1202 "Objects are not built yet! Please call buildObjects() member function.");
1204 "Objects are not built yet! Please call buildObjects() member function.");
1206 =
is_null(in_nox_observer_factory) ? m_nox_observer_factory.ptr() : in_nox_observer_factory;
1207 #ifdef PANZER_HAVE_TEMPUS
1209 =
is_null(in_tempus_observer_factory) ? m_tempus_observer_factory.ptr() : in_tempus_observer_factory;
1217 std::string solver = solncntl_params.
get<std::string>(
"Piro Solver");
1219 = Teuchos::rcp_dynamic_cast<Thyra::ModelEvaluatorDefaultBase<double> >(thyra_me);
1220 if ( (solver==
"NOX") || (solver ==
"LOCA") ) {
1223 "No NOX obersver built! Please call setNOXObserverFactory() member function if you plan to use a NOX solver.");
1226 piro_params->
sublist(
"NOX").
sublist(
"Solver Options").
set(
"User Defined Pre/Post Operator", ppo);
1229 piro =
Teuchos::rcp(
new Piro::NOXSolver<double>(piro_params,
1230 Teuchos::rcp_dynamic_cast<Thyra::ModelEvaluatorDefaultBase<double> >(thyra_me_db)));
1231 else if (solver ==
"LOCA")
1232 piro =
Teuchos::rcp(
new Piro::LOCASolver<double>(piro_params,
1233 Teuchos::rcp_dynamic_cast<Thyra::ModelEvaluatorDefaultBase<double> >(thyra_me_db),
1242 #ifdef PANZER_HAVE_TEMPUS
1243 else if (solver==
"Tempus") {
1246 "No Tempus observer built! Please call setTempusObserverFactory() member function if you plan to use a Tempus solver.");
1251 piro_params->
sublist(
"NOX").
sublist(
"Solver Options").
set(
"User Defined Pre/Post Operator", ppo);
1262 if(tempusSolver==Teuchos::null)
1265 Teuchos::rcp(
new Piro::TempusSolverForwardOnly<double>(piro_params, thyra_me,
1266 tempus_observer_factory->
buildTempusObserver(m_mesh,m_global_indexer,m_lin_obj_factory)));
1270 piro_tempus = tempusSolver;
1271 piro_tempus->initialize(piro_params, thyra_me,
1280 "Error: Unknown Piro Solver : " << solver);
1285 template<
typename ScalarT>
1289 "Objects are not built yet! Please call buildObjects() member function.");
1291 return m_response_library;
1294 template<
typename ScalarT>
1298 "Objects are not built yet! Please call buildObjects() member function.");
1300 return m_physics_blocks;
1303 template<
typename ScalarT>
1308 const std::vector<panzer::BC> & bcs,
1316 bool writeGraph,
const std::string & graphPrefix,
1317 bool write_field_managers,
const std::string & field_manager_prefix)
const
1322 fmb->
setupBCFieldManagers(bcs,physicsBlocks,eqset_factory,bc_cm_factory,bc_factory,closure_models,lo_factory,user_data);
1329 if (write_field_managers){
1337 template<
typename ScalarT>
1345 bool is_transient,
bool is_explicit,
1356 std::vector<Teuchos::RCP<panzer::PhysicsBlock> > physicsBlocks;
1361 std::map<std::string,std::string> block_ids_to_physics_ids;
1365 std::map<std::string,Teuchos::RCP<const shards::CellTopology> > block_ids_to_cell_topo;
1366 for(std::map<std::string,std::string>::const_iterator itr=block_ids_to_physics_ids.begin();
1367 itr!=block_ids_to_physics_ids.end();++itr) {
1368 block_ids_to_cell_topo[itr->first] = m_mesh->getCellTopology(itr->first);
1369 TEUCHOS_ASSERT(block_ids_to_cell_topo[itr->first]!=Teuchos::null);
1372 std::size_t workset_size = Teuchos::as<std::size_t>(assembly_params.
get<
int>(
"Workset Size"));
1374 panzer::buildPhysicsBlocks(block_ids_to_physics_ids,
1375 block_ids_to_cell_topo,
1376 physics_block_plist,
1377 assembly_params.
get<
int>(
"Default Integration Order"),
1390 bool write_dot_files =
false;
1391 std::string prefix =
"Cloned_";
1393 std::vector<panzer::BC> bcs;
1394 if(bc_list==Teuchos::null) {
1395 panzer::buildBCs(bcs, p.
sublist(
"Boundary Conditions"), m_global_data);
1398 panzer::buildBCs(bcs, *bc_list, m_global_data);
1401 fmb = buildFieldManagerBuilder(
1414 write_dot_files,prefix,
1415 write_dot_files,prefix);
1421 m_lin_obj_factory));
1429 Thyra::ModelEvaluatorBase::InArgs<ScalarT> nomVals = physics_me->getNominalValues();
1434 bool useThyra =
true;
1435 if(ep_thyra_me!=Teuchos::null)
1439 std::vector<Teuchos::RCP<Teuchos::Array<std::string> > > p_names(physics_me->Np());
1440 std::vector<Teuchos::RCP<Teuchos::Array<double> > > p_values(physics_me->Np());
1441 for(std::size_t i=0;i<p_names.size();i++) {
1447 = buildPhysicsModelEvaluator(useThyra,
1459 thyra_me->getNominalValues() = nomVals;
1464 bool lumpExplicitMass = assembly_params.
get<
bool>(
"Lump Explicit Mass");
1472 template<
typename ScalarT>
1483 bool is_transient,
double t_init)
const
1494 thyra_me = Thyra::epetraModelEvaluator(ep_me,solverFactory);
1498 (fmb,rLibrary,lof,p_names,p_values,solverFactory,global_data,is_transient,t_init));
1504 template<
typename ScalarT>
1511 validPL.
set<std::string>(
"Start Time Type",
"From Input File",
"Set the start time",
1514 validPL.
set<
double>(
"Start Time",0.0);
1519 std::string t_init_type = p.
get<std::string>(
"Start Time Type");
1520 double t_init = 10.0;
1522 if (t_init_type ==
"From Input File")
1523 t_init = p.
get<
double>(
"Start Time");
1525 if (t_init_type ==
"From Exodus File")
1533 template<
typename ScalarT>
1543 std::vector<std::string> eBlocks;
1547 builder.
mesh = mesh;
1548 stkIOResponseLibrary->addResponse(
"Main Field Output",eBlocks,builder);
1550 return stkIOResponseLibrary;
1553 template<
typename ScalarT>
1561 user_data.
set<
int>(
"Workset Size",workset_size);
1565 template<
typename ScalarT>
1572 #ifdef PANZER_HAVE_TEKO
1583 sublist(
"Newton").
sublist(
"Stratimikos Linear Solver").
sublist(
"Stratimikos")));
1585 bool writeCoordinates =
false;
1587 writeCoordinates = p.
sublist(
"Options").
get<
bool>(
"Write Coordinates");
1589 bool writeTopo =
false;
1591 writeTopo = p.
sublist(
"Options").
get<
bool>(
"Write Topology");
1595 blockedAssembly,globalIndexer,conn_manager,
1596 Teuchos::as<int>(mesh->
getDimension()), mpi_comm, strat_params,
1597 #ifdef PANZER_HAVE_TEKO
1605 template<
typename ScalarT>
1608 const bool write_graphviz_file,
1609 const std::string& graphviz_file_prefix)
1621 if(thyra_me!=Teuchos::null && panzer_me==Teuchos::null) {
1624 thyra_me->uninitialize(&const_ep_me,&solveFactory);
1630 ep_panzer_me->
buildResponses(m_physics_blocks,*m_eqset_factory,cm_factory,closure_models,user_data,write_graphviz_file,graphviz_file_prefix);
1633 thyra_me->initialize(ep_me,solveFactory);
1637 else if(panzer_me!=Teuchos::null && thyra_me==Teuchos::null) {
1638 panzer_me->buildResponses(m_physics_blocks,*m_eqset_factory,cm_factory,closure_models,user_data,write_graphviz_file,graphviz_file_prefix);
const std::string & name() const
virtual Teuchos::RCP< panzer::GlobalIndexer > buildGlobalIndexer(const Teuchos::RCP< const Teuchos::OpaqueWrapper< MPI_Comm > > &mpiComm, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const Teuchos::RCP< ConnManager > &connMngr, const std::string &fieldOrder="") const
void TokensToInts(std::vector< int > &values, const std::vector< std::string > &tokens)
Turn a vector of tokens into a vector of ints.
Interface for constructing a BCStrategy_TemplateManager.
virtual Teuchos::RCP< Teuchos::Comm< int > > getComm() const =0
virtual void completeMeshConstruction(STK_Interface &mesh, stk::ParallelMachine parallelMach) const =0
void setupVolumeFieldManagers(const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, const Teuchos::ParameterList &closure_models, const LinearObjFactory< panzer::Traits > &lo_factory, const Teuchos::ParameterList &user_data)
Allocates and initializes an equation set template manager.
void print(std::ostream &os) const
ParameterList & setEntry(const std::string &name, U &&entry)
bool evaluate_transient_terms
ConstIterator end() const
bool is_null(const boost::shared_ptr< T > &p)
Teuchos::RCP< Thyra::ModelEvaluator< ScalarT > > getPhysicsModelEvaluator()
void setGlobalIndexer(const Teuchos::RCP< const panzer::GlobalIndexer > &ugi)
Teuchos::RCP< panzer::ParamLib > pl
Sacado scalar parameter library.
ParameterList & disableRecursiveValidation()
static bool requiresBlocking(const std::string &fieldorder)
void getElementBlockNames(std::vector< std::string > &names) const
void setUseTieBreak(bool flag)
T & get(const std::string &name, T def_value)
Teuchos::RCP< Teuchos::FancyOStream > os
ostream for redirecting all panzer output for a particular instantiation.
void buildBlockIdToPhysicsIdMap(std::map< std::string, std::string > &b_to_p, const Teuchos::ParameterList &p)
ParameterList & set(std::string const &name, T const &value, std::string const &docString="", RCP< const ParameterEntryValidator > const &validator=null)
bool is_null(const std::shared_ptr< T > &p)
void writeVolumeGraphvizDependencyFiles(std::string filename_prefix, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks) const
Teuchos::RCP< Thyra::LinearOpWithSolveFactoryBase< double > > buildLOWSFactory(bool blockedAssembly, const Teuchos::RCP< const panzer::GlobalIndexer > &globalIndexer, const Teuchos::RCP< panzer::ConnManager > &conn_manager, const Teuchos::RCP< panzer_stk::STK_Interface > &mesh, const Teuchos::RCP< const Teuchos::MpiComm< int > > &mpi_comm) const
#define TEUCHOS_TEST_FOR_EXCEPTION(throw_exception_test, Exception, msg)
void finalizeSolnWriterResponseLibrary(panzer::ResponseLibrary< panzer::Traits > &rl, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, const Teuchos::ParameterList &closure_models, int workset_size, Teuchos::ParameterList &user_data) const
void printMetaData(std::ostream &os) const
void addSolutionField(const std::string &fieldName, const std::string &blockId)
Teuchos::RCP< STK_MeshFactory > buildSTKMeshFactory(const Teuchos::ParameterList &mesh_params) const
build STK mesh factory from a mesh parameter list
void writeBCGraphvizDependencyFiles(std::string filename_prefix) const
void setParameterList(Teuchos::RCP< Teuchos::ParameterList > const ¶mList)
Teuchos::RCP< panzer::LinearObjContainer > ghostedContainer_
Teuchos::RCP< panzer_stk::STK_Interface > mesh
virtual Teuchos::RCP< NOX::Abstract::PrePostOperator > buildNOXObserver(const Teuchos::RCP< panzer_stk::STK_Interface > &mesh, const Teuchos::RCP< const panzer::GlobalIndexer > &dof_manager, const Teuchos::RCP< const panzer::LinearObjFactory< panzer::Traits > > &lof) const =0
std::vector< std::string > checkAssociateElementsInSidesets(const Teuchos::Comm< int > &comm) const
void setWorksetSize(std::size_t worksetSize)
set the workset size
Class that provides access to worksets on each element block and side set.
void set_t_init(double t)
Set initial time value.
void writeBCTextDependencyFiles(std::string filename_prefix) const
Teuchos::RCP< panzer::LinearObjContainer > container_
void setWorksetContainer(const Teuchos::RCP< WorksetContainer > &wc)
bool isParameter(const std::string &name) const
virtual void setParameterList(const RCP< ParameterList > ¶mList)=0
void buildResponseEvaluators(const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, const Teuchos::ParameterList &closure_models, const Teuchos::ParameterList &user_data, const bool write_graphviz_file=false, const std::string &graphviz_file_prefix="")
unsigned getDimension() const
get the dimension
void buildResponses(const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const panzer::EquationSetFactory &eqset_factory, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, const Teuchos::ParameterList &closure_models, const Teuchos::ParameterList &user_data, const bool write_graphviz_file=false, const std::string &graphviz_file_prefix="")
Teuchos::RCP< Thyra::ModelEvaluator< ScalarT > > getResponseOnlyModelEvaluator()
void setupExodusFile(const std::string &filename, const bool append=false, const bool append_after_restart_time=false, const double restart_time=0.0)
Set up an output Exodus file for writing results.
TEUCHOS_DEPRECATED RCP< T > rcp(T *p, Dealloc_T dealloc, bool owns_mem)
void setUseFieldCoordinates(bool useFieldCoordinates)
void writeVolumeTextDependencyFiles(std::string filename_prefix, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks) const
Teuchos::RCP< Thyra::ModelEvaluator< double > > cloneWithNewPhysicsBlocks(const Teuchos::RCP< Thyra::LinearOpWithSolveFactoryBase< ScalarT > > &solverFactory, const Teuchos::RCP< Teuchos::ParameterList > &physics_block_plist, const Teuchos::RCP< const panzer::EquationSetFactory > &eqset_factory, const panzer::BCStrategyFactory &bc_factory, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &user_cm_factory, bool is_transient, bool is_explicit, const Teuchos::Ptr< const Teuchos::ParameterList > &bc_list=Teuchos::null, const Teuchos::RCP< Thyra::ModelEvaluator< ScalarT > > &physics_me=Teuchos::null) const
bool isSublist(const std::string &name) const
void setUseNeighbors(bool flag)
std::string elementBlockID() const
const std::vector< std::vector< std::string > > & getCoordinateDOFs() const
void addUserFieldsToMesh(panzer_stk::STK_Interface &mesh, const Teuchos::ParameterList &output_list) const
Add the user fields specified by output_list to the mesh.
void setNOXObserverFactory(const Teuchos::RCP< const panzer_stk::NOXObserverFactory > &nox_observer_factory)
params_t::ConstIterator ConstIterator
virtual Teuchos::RCP< panzer::GlobalIndexer > buildGlobalIndexer(const Teuchos::RCP< const Teuchos::OpaqueWrapper< MPI_Comm > > &mpiComm, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const Teuchos::RCP< ConnManager > &connMngr, const std::string &fieldOrder="") const
void buildObjects(const Teuchos::RCP< const Teuchos::Comm< int > > &comm, const Teuchos::RCP< panzer::GlobalData > &global_data, const Teuchos::RCP< const panzer::EquationSetFactory > &eqset_factory, const panzer::BCStrategyFactory &bc_factory, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, bool meConstructionOn=true)
Builds the model evaluators for a panzer assembly.
Teuchos::RCP< std::vector< Workset > > getWorksets(const WorksetDescriptor &wd)
Access to volume worksets.
virtual Teuchos::RCP< LinearObjContainer > buildLinearObjContainer() const =0
void validateParametersAndSetDefaults(ParameterList const &validParamList, int const depth=1000)
ConstIterator begin() const
int getOutputToRootOnly() const
void setBlockWeight(const std::string &blockId, double weight)
Teuchos::RCP< Thyra::LinearOpWithSolveFactoryBase< double > > buildLOWSFactory(bool blockedAssembly, const Teuchos::RCP< const panzer::GlobalIndexer > &globalIndexer, const Teuchos::RCP< panzer_stk::STKConnManager > &stkConn_manager, int spatialDim, const Teuchos::RCP< const Teuchos::MpiComm< int > > &mpi_comm, const Teuchos::RCP< Teuchos::ParameterList > &strat_params, bool writeCoordinates, bool writeTopo, const Teuchos::RCP< const panzer::GlobalIndexer > &auxGlobalIndexer, bool useCoordinates)
Teuchos::RCP< Thyra::ModelEvaluator< ScalarT > > buildResponseOnlyModelEvaluator(const Teuchos::RCP< Thyra::ModelEvaluator< ScalarT > > &thyra_me, const Teuchos::RCP< panzer::GlobalData > &global_data, const Teuchos::Ptr< const panzer_stk::NOXObserverFactory > &in_nox_observer_factory=Teuchos::null)
double getInitialStateTime() const
virtual void readVector(const std::string &identifier, LinearObjContainer &loc, int id) const =0
virtual bool useNOXObserver() const =0
Use the NOX observer as well?
void buildObjects(const BuilderOpT &builder)
bool nonnull(const boost::shared_ptr< T > &p)
void addMeshCoordFields(const std::string &blockId, const std::vector< std::string > &coordField, const std::string &dispPrefix)
void setupInitialConditionFieldManagers(WorksetContainer &wkstContainer, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, const Teuchos::ParameterList &ic_block_closure_models, const panzer::LinearObjFactory< panzer::Traits > &lo_factory, const Teuchos::ParameterList &user_data, const bool write_graphviz_file, const std::string &graphviz_file_prefix, std::map< std::string, Teuchos::RCP< PHX::FieldManager< panzer::Traits > > > &phx_ic_field_managers)
Builds PHX::FieldManager objects for inital conditions and registers evaluators.
void buildResponses(const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, const bool write_graphviz_file=false, const std::string &graphviz_file_prefix="")
virtual void setMesh(const Teuchos::RCP< const panzer_stk::STK_Interface > &mesh)
const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > & getPhysicsBlocks() const
bool isType(const std::string &name) const
void enableRebalance(bool enable, const Teuchos::RCP< const Teuchos::ParameterList > &rebalanceList=Teuchos::null)
std::pair< std::string, Teuchos::RCP< panzer::PureBasis > > StrPureBasisPair
void finalizeMeshConstruction(const STK_MeshFactory &mesh_factory, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const Teuchos::MpiComm< int > mpi_comm, STK_Interface &mesh) const
void writeInitialConditions(const Thyra::ModelEvaluator< ScalarT > &model, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const Teuchos::RCP< panzer::WorksetContainer > &wc, const Teuchos::RCP< const panzer::GlobalIndexer > &ugi, const Teuchos::RCP< const panzer::LinearObjFactory< panzer::Traits > > &lof, const Teuchos::RCP< panzer_stk::STK_Interface > &mesh, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, const Teuchos::ParameterList &closure_model_pl, const Teuchos::ParameterList &user_data_pl, int workset_size) const
Write the initial conditions to exodus. Note that this is entirely self contained.
WorksetDescriptor blockDescriptor(const std::string &eBlock)
ParameterList & sublist(const std::string &name, bool mustAlreadyExist=false, const std::string &docString="")
void StringTokenizer(std::vector< std::string > &tokens, const std::string &str, const std::string delimiters, bool trim)
Tokenize a string, put tokens in a vector.
Teuchos::RCP< panzer::ResponseLibrary< panzer::Traits > > initializeSolnWriterResponseLibrary(const Teuchos::RCP< panzer::WorksetContainer > &wc, const Teuchos::RCP< const panzer::GlobalIndexer > &ugi, const Teuchos::RCP< const panzer::LinearObjFactory< panzer::Traits > > &lof, const Teuchos::RCP< panzer_stk::STK_Interface > &mesh) const
void setupBCFieldManagers(const std::vector< panzer::BC > &bcs, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const panzer::EquationSetFactory &eqset_factory, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, const panzer::BCStrategyFactory &bc_factory, const Teuchos::ParameterList &closure_models, const LinearObjFactory< panzer::Traits > &lo_factory, const Teuchos::ParameterList &user_data)
void setUseDOFManagerFEI(bool flag)
#define TEUCHOS_ASSERT(assertion_test)
void setupInitialConditions(Thyra::ModelEvaluator< ScalarT > &model, panzer::WorksetContainer &wkstContainer, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, const panzer::LinearObjFactory< panzer::Traits > &lof, const Teuchos::ParameterList &closure_pl, const Teuchos::ParameterList &initial_cond_pl, const Teuchos::ParameterList &user_data_pl, bool write_dot_files, const std::string &dot_file_prefix) const
Setup the initial conditions in a model evaluator. Note that this is entirely self contained...
void addCellField(const std::string &fieldName, const std::string &blockId)
Teuchos::RCP< panzer::FieldManagerBuilder > buildFieldManagerBuilder(const Teuchos::RCP< panzer::WorksetContainer > &wc, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const std::vector< panzer::BC > &bcs, const panzer::EquationSetFactory &eqset_factory, const panzer::BCStrategyFactory &bc_factory, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &volume_cm_factory, const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &bc_cm_factory, const Teuchos::ParameterList &closure_models, const panzer::LinearObjFactory< panzer::Traits > &lo_factory, const Teuchos::ParameterList &user_data, bool writeGraph, const std::string &graphPrefix, bool write_field_managers, const std::string &field_manager_prefix) const
void evaluateInitialCondition(WorksetContainer &wkstContainer, const std::map< std::string, Teuchos::RCP< PHX::FieldManager< panzer::Traits > > > &phx_ic_field_managers, Teuchos::RCP< panzer::LinearObjContainer > loc, const panzer::LinearObjFactory< panzer::Traits > &lo_factory, const double time_stamp)
Teuchos::RCP< const Teuchos::ParameterList > getValidParameters() const
void registerScalarParameter(const std::string name, panzer::ParamLib &pl, double realValue)
virtual Teuchos::RCP< Tempus::IntegratorObserver< double > > buildTempusObserver(const Teuchos::RCP< panzer_stk::STK_Interface > &mesh, const Teuchos::RCP< const panzer::GlobalIndexer > &dof_manager, const Teuchos::RCP< const panzer::LinearObjFactory< panzer::Traits > > &lof) const =0
void setUserWorksetFactory(Teuchos::RCP< panzer_stk::WorksetFactory > &user_wkst_factory)
Set user defined workset factory.
void setUseDOFManagerFEI(bool flag)
double getInitialTime(Teuchos::ParameterList &transient_ic_params, const panzer_stk::STK_Interface &mesh) const
Gets the initial time from either the input parameter list or an exodus file.
Teuchos::RCP< panzer::ResponseLibrary< panzer::Traits > > getResponseLibrary()
Teuchos::RCP< const shards::CellTopology > getCellTopology(const std::string &eBlock) const
const std::vector< StrPureBasisPair > & getProvidedDOFs() const
void associateElementsInSideset(const std::string sideset_id)
std::string printUGILoadBalancingInformation(const GlobalIndexer &ugi)
Teuchos::RCP< Thyra::ModelEvaluatorDefaultBase< double > > buildPhysicsModelEvaluator(bool buildThyraME, const Teuchos::RCP< panzer::FieldManagerBuilder > &fmb, const Teuchos::RCP< panzer::ResponseLibrary< panzer::Traits > > &rLibrary, const Teuchos::RCP< panzer::LinearObjFactory< panzer::Traits > > &lof, const std::vector< Teuchos::RCP< Teuchos::Array< std::string > > > &p_names, const std::vector< Teuchos::RCP< Teuchos::Array< double > > > &p_values, const Teuchos::RCP< Thyra::LinearOpWithSolveFactoryBase< ScalarT > > &solverFactory, const Teuchos::RCP< panzer::GlobalData > &global_data, bool is_transient, double t_init) const