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"
104 #include "Thyra_EpetraModelEvaluator.hpp"
105 #include "Piro_ConfigDefs.hpp"
106 #include "Piro_NOXSolver.hpp"
107 #include "Piro_LOCASolver.hpp"
108 #include "Piro_RythmosSolver.hpp"
112 namespace panzer_stk {
114 template<
typename ScalarT>
121 if(!paramList->
sublist(
"Initial Conditions").
isType<
bool>(
"Zero Initial Conditions"))
122 paramList->
sublist(
"Initial Conditions").
set<
bool>(
"Zero Initial Conditions",
false);
125 getValidParameters()->sublist(
"Initial Conditions").sublist(
"Vector File"));
127 this->setMyParamList(paramList);
130 template<
typename ScalarT>
141 pl->
set<
bool>(
"Use Discrete Adjoint",
false);
145 pl->
sublist(
"Initial Conditions").
set<
bool>(
"Zero Initial Conditions",
false);
149 pl->
sublist(
"Initial Conditions").
sublist(
"Vector File").
set<
bool>(
"Enabled",
false);
152 pl->
sublist(
"Output").
set(
"File Name",
"panzer.exo");
153 pl->
sublist(
"Output").
set(
"Write to Exodus",
true);
163 p.
set<
int>(
"Workset Size", 1);
164 p.
set<
int>(
"Default Integration Order",-1);
165 p.
set<std::string>(
"Field Order",
"");
166 p.
set<std::string>(
"Auxiliary Field Order",
"");
167 p.
set<
bool>(
"Use DOFManager FEI",
false);
168 p.
set<
bool>(
"Load Balance DOFs",
false);
169 p.
set<
bool>(
"Use Tpetra",
false);
170 p.
set<
bool>(
"Use Epetra ME",
true);
171 p.
set<
bool>(
"Lump Explicit Mass",
false);
172 p.
set<
bool>(
"Constant Mass Matrix",
true);
173 p.
set<
bool>(
"Apply Mass Matrix Inverse in Explicit Evaluator",
true);
174 p.
set<
bool>(
"Use Conservative IMEX",
false);
175 p.
set<
bool>(
"Compute Real Time Derivative",
false);
176 p.
set<
bool>(
"Use Time Derivative in Explicit Model",
false);
177 p.
set<
bool>(
"Compute Time Derivative at Time Step",
false);
181 p.
set<std::string>(
"Excluded Blocks",
"");
199 bool hasInterfaceCondition(
const std::vector<panzer::BC>& bcs)
201 for (std::vector<panzer::BC>::const_iterator bcit = bcs.begin(); bcit != bcs.end(); ++bcit)
211 Teuchos::rcp_dynamic_cast<STKConnManager>(conn_mgr);
213 "There are interface conditions, but the connection manager"
214 " does not support the necessary connections.");
218 void buildInterfaceConnections(
const std::vector<panzer::BC>& bcs,
222 for (std::vector<panzer::BC>::const_iterator bcit = bcs.begin(); bcit != bcs.end(); ++bcit)
232 if ( ! sidesets.empty()) {
233 std::stringstream ss;
235 for (std::size_t i = 0; i < sidesets.size(); ++i)
236 ss <<
" " << sidesets[i];
237 ss <<
" did not yield associations, but these sidesets correspond to BCT_Interface BCs.";
243 template<
typename ScalarT>
249 bool meConstructionOn)
252 "ParameterList must be set before objects can be built!");
260 m_global_data = global_data;
286 std::size_t workset_size = Teuchos::as<std::size_t>(assembly_params.
get<
int>(
"Workset Size"));
287 std::string field_order = assembly_params.
get<std::string>(
"Field Order");
289 bool use_dofmanager_fei = assembly_params.
get<
bool>(
"Use DOFManager FEI");
290 bool use_load_balance = assembly_params.
get<
bool>(
"Load Balance DOFs");
291 bool useTpetra = assembly_params.
get<
bool>(
"Use Tpetra");
292 bool useThyraME = !assembly_params.
get<
bool>(
"Use Epetra ME");
296 bool is_transient = solncntl_params.
get<std::string>(
"Piro Solver") ==
"Rythmos" ?
true :
false;
298 if (solncntl_params.
get<std::string>(
"Piro Solver") ==
"NOX") {
299 if (solncntl_params.
sublist(
"NOX").
get<std::string>(
"Nonlinear Solver") ==
"Pseudo-Transient")
304 if (solncntl_params.
get<std::string>(
"Piro Solver") ==
"LOCA") {
305 if (solncntl_params.
sublist(
"LOCA").
sublist(
"Stepper").
get<
bool>(
"Compute Eigenvalues"))
308 m_is_transient = is_transient;
310 useDiscreteAdjoint = p.
get<
bool>(
"Use Discrete Adjoint");
331 m_eqset_factory = eqset_factory;
336 std::vector<Teuchos::RCP<panzer::PhysicsBlock> > physicsBlocks;
339 std::map<std::string,std::string> block_ids_to_physics_ids;
343 std::map<std::string,Teuchos::RCP<const shards::CellTopology> > block_ids_to_cell_topo;
344 for(std::map<std::string,std::string>::const_iterator itr=block_ids_to_physics_ids.begin();
345 itr!=block_ids_to_physics_ids.end();++itr) {
346 block_ids_to_cell_topo[itr->first] = mesh->
getCellTopology(itr->first);
347 TEUCHOS_ASSERT(block_ids_to_cell_topo[itr->first]!=Teuchos::null);
352 panzer::buildPhysicsBlocks(block_ids_to_physics_ids,
353 block_ids_to_cell_topo,
355 assembly_params.
get<
int>(
"Default Integration Order"),
361 m_physics_blocks = physicsBlocks;
366 addUserFieldsToMesh(*mesh,output_list);
373 this->finalizeMeshConstruction(*mesh_factory,physicsBlocks,*mpi_comm,*mesh);
375 fout <<
"*****************************************\n\n";
376 fout <<
"Element block exception, could not finalize the mesh, printing block and sideset information:\n";
384 fout <<
"*****************************************\n\n";
385 fout <<
"Sideset exception, could not finalize the mesh, printing block and sideset information:\n";
395 if(p.
sublist(
"Output").
get<
bool>(
"Write to Exodus"))
401 if(m_user_wkst_factory==Teuchos::null)
404 wkstFactory = m_user_wkst_factory;
411 std::vector<panzer::BC> bcs;
412 panzer::buildBCs(bcs, p.
sublist(
"Boundary Conditions"), global_data);
417 m_conn_manager = conn_manager;
425 std::string loadBalanceString =
"";
426 bool blockedAssembly =
false;
431 blockedAssembly =
true;
437 = globalIndexerFactory.
buildGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager,field_order);
438 globalIndexer = dofManager;
442 Teuchos::rcp_dynamic_cast<panzer::BlockedDOFManager>(dofManager)));
445 const std::string excludedBlocks = assembly_params.
get<std::string>(
"Excluded Blocks");
446 std::vector<std::string> stringPairs;
448 for(std::size_t i=0;i<stringPairs.size();i++) {
449 std::vector<std::string> sPair;
450 std::vector<int> iPair;
455 "Input Error: The correct format for \"Excluded Blocks\" parameter in \"Assembly\" sub list is:\n"
456 " <int>,<int>; <int>,<int>; ...; <int>,<int>\n"
457 "Failure on string pair " << stringPairs[i] <<
"!");
459 bloLinObjFactory->addExcludedPair(iPair[0],iPair[1]);
462 linObjFactory = bloLinObjFactory;
470 blockedAssembly =
true;
477 = globalIndexerFactory.
buildGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager,field_order);
478 globalIndexer = dofManager;
482 Teuchos::rcp_dynamic_cast<panzer::BlockedDOFManager>(dofManager)));
485 const std::string excludedBlocks = assembly_params.
get<std::string>(
"Excluded Blocks");
486 std::vector<std::string> stringPairs;
488 for(std::size_t i=0;i<stringPairs.size();i++) {
489 std::vector<std::string> sPair;
490 std::vector<int> iPair;
495 "Input Error: The correct format for \"Excluded Blocks\" parameter in \"Assembly\" sub list is:\n"
496 " <int>,<int>; <int>,<int>; ...; <int>,<int>\n"
497 "Failure on string pair " << stringPairs[i] <<
"!");
499 bloLinObjFactory->addExcludedPair(iPair[0],iPair[1]);
502 linObjFactory = bloLinObjFactory;
515 = globalIndexerFactory.
buildGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager,field_order);
516 globalIndexer = dofManager;
525 const bool has_interface_condition = hasInterfaceCondition(bcs);
526 if (has_interface_condition)
527 buildInterfaceConnections(bcs, conn_manager);
535 = globalIndexerFactory.
buildGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager,
537 globalIndexer = dofManager;
539 if (has_interface_condition)
540 checkInterfaceConnections(conn_manager, dofManager->
getComm());
550 m_global_indexer = globalIndexer;
551 m_lin_obj_factory = linObjFactory;
552 m_blockedAssembly = blockedAssembly;
555 fout <<
"Degree of freedom load balancing: " << loadBalanceString << std::endl;
561 std::map<std::string,panzer::WorksetNeeds> needs;
562 for(std::size_t i=0;i<physicsBlocks.size();i++)
563 needs[physicsBlocks[i]->elementBlockID()] = physicsBlocks[i]->getWorksetNeeds();
571 m_wkstContainer = wkstContainer;
574 std::size_t max_wksets = 0;
575 for(std::size_t pb=0;pb<physicsBlocks.size();pb++) {
578 max_wksets = std::max(max_wksets,works->size());
580 user_data_params.
set<std::size_t>(
"Max Worksets",max_wksets);
581 wkstContainer->
clear();
588 useDynamicCoordinates_ =
false;
589 for(std::size_t pb=0;pb<physicsBlocks.size();pb++) {
590 if(physicsBlocks[pb]->getCoordinateDOFs().size()>0) {
592 useDynamicCoordinates_ =
true;
593 wkstContainer->
clear();
602 panzer_data_params.
set(
"STK Mesh", mesh);
603 panzer_data_params.
set(
"DOF Manager", globalIndexer);
604 panzer_data_params.
set(
"Linear Object Factory", linObjFactory);
609 if(!meConstructionOn)
615 std::vector<Teuchos::RCP<Teuchos::Array<std::string> > > p_names;
616 std::vector<Teuchos::RCP<Teuchos::Array<double> > > p_values;
620 int num_param_vecs = active_params.
get<
int>(
"Number of Parameter Vectors",0);
621 p_names.resize(num_param_vecs);
622 p_values.resize(num_param_vecs);
623 for (
int i=0; i<num_param_vecs; i++) {
624 std::stringstream ss;
625 ss <<
"Parameter Vector " << i;
627 int numParameters = pList.
get<
int>(
"Number");
630 std::endl <<
"Error! panzer::ModelEvaluator::ModelEvaluator(): " <<
631 "Parameter vector " << i <<
" has zero parameters!" << std::endl);
636 for (
int j=0; j<numParameters; j++) {
637 std::stringstream ss2;
638 ss2 <<
"Parameter " << j;
639 (*p_names[i])[j] = pList.
get<std::string>(ss2.str());
642 ss2 <<
"Initial Value " << j;
643 (*p_values[i])[j] = pList.
get<
double>(ss2.str());
656 cm_factory.buildObjects(io_cm_builder);
663 bool write_dot_files = p.
sublist(
"Options").
get(
"Write Volume Assembly Graphs",
false);
664 std::string dot_file_prefix = p.
sublist(
"Options").
get(
"Volume Assembly Graph Prefix",
"Panzer_AssemblyGraph");
665 bool write_fm_files = p.
sublist(
"Options").
get(
"Write Field Manager Files",
false);
666 std::string fm_file_prefix = p.
sublist(
"Options").
get(
"Field Manager File Prefix",
"Panzer_AssemblyGraph");
668 fmb = buildFieldManagerBuilder(wkstContainer,physicsBlocks,bcs,*eqset_factory,bc_factory,cm_factory,
669 user_cm_factory,p.
sublist(
"Closure Models"),*linObjFactory,user_data_params,
670 write_dot_files,dot_file_prefix,
671 write_fm_files,fm_file_prefix);
680 bool write_dot_files =
false;
681 std::string prefix =
"Panzer_ResponseGraph_";
682 write_dot_files = p.
sublist(
"Options").
get(
"Write Volume Response Graphs",write_dot_files);
683 prefix = p.
sublist(
"Options").
get(
"Volume Response Graph Prefix",prefix);
686 user_data.
set<
int>(
"Workset Size",workset_size);
700 t_init = this->getInitialTime(p.
sublist(
"Initial Conditions").
sublist(
"Transient Parameters"), *mesh);
702 if(blockedAssembly || useTpetra)
706 = buildPhysicsModelEvaluator(useThyraME,
726 model_it!=models.
end(); ++model_it) {
727 std::string key = model_it->first;
728 if (model_it->first !=
"Global MMS Parameters")
729 cl_models.
setEntry(key,model_it->second);
731 bool write_dot_files =
false;
732 std::string prefix =
"Panzer_AssemblyGraph_";
733 setupInitialConditions(*thyra_me,*wkstContainer,physicsBlocks,user_cm_factory,*linObjFactory,
735 p.
sublist(
"Initial Conditions"),
737 p.
sublist(
"Options").
get(
"Write Volume Assembly Graphs",write_dot_files),
738 p.
sublist(
"Options").
get(
"Volume Assembly Graph Prefix",prefix));
743 writeInitialConditions(*thyra_me,physicsBlocks,wkstContainer,globalIndexer,linObjFactory,mesh,user_cm_factory,
745 p.
sublist(
"User Data"),workset_size);
747 m_physics_me = thyra_me;
750 template<
typename ScalarT>
757 itr!=cellAvgQuants.
end();++itr) {
758 const std::string & blockId = itr->first;
759 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
760 std::vector<std::string> tokens;
765 for(std::size_t i=0;i<tokens.size();i++)
774 itr != cellAvgVectors.
end(); ++itr) {
775 const std::string & blockId = itr->first;
776 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
777 std::vector<std::string> tokens;
782 for(std::size_t i = 0; i < tokens.size(); i++) {
783 std::string d_mod[3] = {
"X",
"Y",
"Z"};
792 itr!=cellQuants.
end();++itr) {
793 const std::string & blockId = itr->first;
794 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
795 std::vector<std::string> tokens;
800 for(std::size_t i=0;i<tokens.size();i++)
807 itr!=nodalQuants.
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++)
821 itr!=allocNodalQuants.
end();++itr) {
822 const std::string & blockId = itr->first;
823 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
824 std::vector<std::string> tokens;
829 for(std::size_t i=0;i<tokens.size();i++)
834 template<
typename ScalarT>
844 bool write_dot_files,
const std::string & dot_file_prefix)
const
848 Thyra::ModelEvaluatorBase::InArgs<double> nomValues = model.getNominalValues();
851 if(initial_cond_pl.
get<
bool>(
"Zero Initial Conditions")) {
853 Thyra::assign(x_vec.
ptr(),0.0);
855 else if(!initial_cond_pl.
sublist(
"Vector File").
get<
bool>(
"Enabled")) {
858 std::map<std::string, Teuchos::RCP< PHX::FieldManager<panzer::Traits> > > phx_ic_field_managers;
869 phx_ic_field_managers);
885 tloc->set_x_th(x_vec);
890 const std::string & vectorFile = initial_cond_pl.
sublist(
"Vector File").
get<std::string>(
"File Name");
892 "If \"Read From Vector File\" is true, then parameter \"Vector File\" cannot be the empty string.");
897 tloc->set_x_th(x_vec);
904 template<
typename ScalarT>
915 int workset_size)
const
922 = initializeSolnWriterResponseLibrary(wc,ugi,lof,mesh);
926 user_data.
set<
int>(
"Workset Size",workset_size);
928 finalizeSolnWriterResponseLibrary(*solnWriter,physicsBlocks,cm_factory,closure_model_pl,workset_size,user_data);
935 ae_inargs.
alpha = 0.0;
936 ae_inargs.
beta = 1.0;
951 template<
typename ScalarT>
957 if (mesh_params.
get<std::string>(
"Source") ==
"Exodus File") {
958 mesh_factory =
Teuchos::rcp(
new panzer_stk::STK_ExodusReaderFactory());
961 else if (mesh_params.
get<std::string>(
"Source") ==
"Pamgen Mesh") {
962 mesh_factory =
Teuchos::rcp(
new panzer_stk::STK_ExodusReaderFactory());
964 pamgenList->
set(
"File Type",
"Pamgen");
967 else if (mesh_params.
get<std::string>(
"Source") ==
"Inline Mesh") {
969 int dimension = mesh_params.
sublist(
"Inline Mesh").
get<
int>(
"Mesh Dimension");
970 std::string typeStr =
"";
972 typeStr = mesh_params.
sublist(
"Inline Mesh").
get<std::string>(
"Type");
974 if (dimension == 1) {
977 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
980 else if (dimension == 2 && typeStr==
"Tri") {
983 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
986 else if (dimension == 2) {
989 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
992 else if (dimension == 3 && typeStr==
"Tet") {
995 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
998 else if(dimension == 3) {
1001 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
1004 else if(dimension==4) {
1007 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
1011 else if (mesh_params.
get<std::string>(
"Source") ==
"Custom Mesh") {
1021 if(mesh_params.
isSublist(
"Rebalance")) {
1025 bool enabled =
false;
1026 if(rebalance.
isType<
bool>(
"Enabled"))
1027 enabled = rebalance.
get<
bool>(
"Enabled");
1031 if(enabled && rebalance.
isSublist(
"Cycles"))
1038 return mesh_factory;
1041 template<
typename ScalarT>
1049 std::vector<Teuchos::RCP<panzer::PhysicsBlock> >::const_iterator physIter;
1050 for(physIter=physicsBlocks.begin();physIter!=physicsBlocks.end();++physIter) {
1052 double blockWeight = 0.0;
1055 const std::vector<panzer::StrPureBasisPair> & blockFields = pb->
getProvidedDOFs();
1056 const std::vector<std::vector<std::string> > & coordinateDOFs = pb->
getCoordinateDOFs();
1060 std::set<panzer::StrPureBasisPair,panzer::StrPureBasisComp> fieldNames;
1061 fieldNames.insert(blockFields.begin(),blockFields.end());
1066 std::set<std::string> fields_to_remove;
1070 for(std::size_t i=0;i<coordinateDOFs.size();i++) {
1072 for(std::size_t j=0;j<coordinateDOFs[i].size();j++)
1073 fields_to_remove.insert(coordinateDOFs[i][j]);
1077 std::set<std::string>::const_iterator rmItr;
1078 for (rmItr=fields_to_remove.begin();rmItr!=fields_to_remove.end();++rmItr)
1083 std::set<panzer::StrPureBasisPair,panzer::StrPureBasisComp>::const_iterator fieldItr;
1084 for (fieldItr=fieldNames.begin();fieldItr!=fieldNames.end();++fieldItr) {
1086 if(fieldItr->second->isScalarBasis() &&
1090 else if(fieldItr->second->isScalarBasis()) {
1093 else if(fieldItr->second->isVectorBasis()) {
1094 std::string d_mod[3] = {
"X",
"Y",
"Z"};
1095 for(
int d=0;d<fieldItr->second->dimension();d++)
1100 blockWeight += double(fieldItr->second->cardinality());
1113 template<
typename ScalarT>
1117 "Objects are not built yet! Please call buildObjects() member function.");
1118 return m_physics_me;
1121 template<
typename ScalarT>
1124 m_nox_observer_factory = nox_observer_factory;
1127 template<
typename ScalarT>
1130 m_rythmos_observer_factory = rythmos_observer_factory;
1133 template<
typename ScalarT>
1136 m_user_wkst_factory = user_wkst_factory;
1139 template<
typename ScalarT>
1142 if(m_rome_me==Teuchos::null)
1143 m_rome_me = buildResponseOnlyModelEvaluator(m_physics_me,m_global_data);
1148 template<
typename ScalarT>
1161 "Objects are not built yet! Please call buildObjects() member function.");
1163 "Objects are not built yet! Please call buildObjects() member function.");
1165 "Objects are not built yet! Please call buildObjects() member function.");
1167 =
is_null(in_nox_observer_factory) ? m_nox_observer_factory.ptr() : in_nox_observer_factory;
1169 =
is_null(in_rythmos_observer_factory) ? m_rythmos_observer_factory.ptr() : in_rythmos_observer_factory;
1176 std::string solver = solncntl_params.
get<std::string>(
"Piro Solver");
1178 = Teuchos::rcp_dynamic_cast<Thyra::ModelEvaluatorDefaultBase<double> >(thyra_me);
1179 if ( (solver==
"NOX") || (solver ==
"LOCA") ) {
1182 "No NOX obersver built! Please call setNOXObserverFactory() member function if you plan to use a NOX solver.");
1185 piro_params->
sublist(
"NOX").
sublist(
"Solver Options").
set(
"User Defined Pre/Post Operator", ppo);
1188 piro =
Teuchos::rcp(
new Piro::NOXSolver<double>(piro_params,
1189 Teuchos::rcp_dynamic_cast<Thyra::ModelEvaluatorDefaultBase<double> >(thyra_me_db)));
1190 else if (solver ==
"LOCA")
1191 piro =
Teuchos::rcp(
new Piro::LOCASolver<double>(piro_params,
1192 Teuchos::rcp_dynamic_cast<Thyra::ModelEvaluatorDefaultBase<double> >(thyra_me_db),
1201 else if (solver==
"Rythmos") {
1204 "No NOX obersver built! Please call setrythmosObserverFactory() member function if you plan to use a Rythmos solver.");
1209 piro_params->
sublist(
"NOX").
sublist(
"Solver Options").
set(
"User Defined Pre/Post Operator", ppo);
1219 if(rythmosSolver==Teuchos::null)
1222 piro_rythmos = rythmosSolver;
1226 const std::string stepper_type = piro_params->
sublist(
"Rythmos").
get<std::string>(
"Stepper Type");
1227 if(stepper_type==
"Explicit RK" || stepper_type==
"Forward Euler") {
1229 bool lumpExplicitMass = assembly_params.
get<
bool>(
"Lump Explicit Mass");
1233 piro_rythmos->initialize(piro_params, rythmos_me, rythmos_observer_factory->
buildRythmosObserver(m_mesh,m_global_indexer,m_lin_obj_factory));
1235 piro = piro_rythmos;
1239 "Error: Unknown Piro Solver : " << solver);
1244 template<
typename ScalarT>
1248 "Objects are not built yet! Please call buildObjects() member function.");
1250 return m_response_library;
1253 template<
typename ScalarT>
1257 "Objects are not built yet! Please call buildObjects() member function.");
1259 return m_physics_blocks;
1262 template<
typename ScalarT>
1267 const std::vector<panzer::BC> & bcs,
1275 bool writeGraph,
const std::string & graphPrefix,
1276 bool write_field_managers,
const std::string & field_manager_prefix)
const
1281 fmb->
setupBCFieldManagers(bcs,physicsBlocks,eqset_factory,bc_cm_factory,bc_factory,closure_models,lo_factory,user_data);
1288 if (write_field_managers){
1296 template<
typename ScalarT>
1304 bool is_transient,
bool is_explicit,
1315 std::vector<Teuchos::RCP<panzer::PhysicsBlock> > physicsBlocks;
1320 std::map<std::string,std::string> block_ids_to_physics_ids;
1324 std::map<std::string,Teuchos::RCP<const shards::CellTopology> > block_ids_to_cell_topo;
1325 for(std::map<std::string,std::string>::const_iterator itr=block_ids_to_physics_ids.begin();
1326 itr!=block_ids_to_physics_ids.end();++itr) {
1327 block_ids_to_cell_topo[itr->first] = m_mesh->getCellTopology(itr->first);
1328 TEUCHOS_ASSERT(block_ids_to_cell_topo[itr->first]!=Teuchos::null);
1331 std::size_t workset_size = Teuchos::as<std::size_t>(assembly_params.
get<
int>(
"Workset Size"));
1333 panzer::buildPhysicsBlocks(block_ids_to_physics_ids,
1334 block_ids_to_cell_topo,
1335 physics_block_plist,
1336 assembly_params.
get<
int>(
"Default Integration Order"),
1349 bool write_dot_files =
false;
1350 std::string prefix =
"Cloned_";
1352 std::vector<panzer::BC> bcs;
1353 if(bc_list==Teuchos::null) {
1354 panzer::buildBCs(bcs, p.
sublist(
"Boundary Conditions"), m_global_data);
1357 panzer::buildBCs(bcs, *bc_list, m_global_data);
1360 fmb = buildFieldManagerBuilder(
1373 write_dot_files,prefix,
1374 write_dot_files,prefix);
1380 m_lin_obj_factory));
1388 Thyra::ModelEvaluatorBase::InArgs<ScalarT> nomVals = physics_me->getNominalValues();
1393 bool useThyra =
true;
1394 if(ep_thyra_me!=Teuchos::null)
1398 std::vector<Teuchos::RCP<Teuchos::Array<std::string> > > p_names(physics_me->Np());
1399 std::vector<Teuchos::RCP<Teuchos::Array<double> > > p_values(physics_me->Np());
1400 for(std::size_t i=0;i<p_names.size();i++) {
1406 = buildPhysicsModelEvaluator(useThyra,
1418 thyra_me->getNominalValues() = nomVals;
1423 bool lumpExplicitMass = assembly_params.
get<
bool>(
"Lump Explicit Mass");
1431 template<
typename ScalarT>
1442 bool is_transient,
double t_init)
const
1453 thyra_me = Thyra::epetraModelEvaluator(ep_me,solverFactory);
1457 (fmb,rLibrary,lof,p_names,p_values,solverFactory,global_data,is_transient,t_init));
1463 template<
typename ScalarT>
1470 Teuchos::setStringToIntegralParameter<int>(
1473 "Set the start time",
1474 Teuchos::tuple<std::string>(
"From Input File",
"From Exodus File"),
1478 validPL.
set<
double>(
"Start Time",0.0);
1483 std::string t_init_type = p.
get<std::string>(
"Start Time Type");
1484 double t_init = 10.0;
1486 if (t_init_type ==
"From Input File")
1487 t_init = p.
get<
double>(
"Start Time");
1489 if (t_init_type ==
"From Exodus File")
1497 template<
typename ScalarT>
1507 std::vector<std::string> eBlocks;
1511 builder.
mesh = mesh;
1512 stkIOResponseLibrary->addResponse(
"Main Field Output",eBlocks,builder);
1514 return stkIOResponseLibrary;
1517 template<
typename ScalarT>
1525 user_data.
set<
int>(
"Workset Size",workset_size);
1529 template<
typename ScalarT>
1536 #ifdef PANZER_HAVE_TEKO
1547 sublist(
"Newton").
sublist(
"Stratimikos Linear Solver").
sublist(
"Stratimikos")));
1549 bool writeCoordinates =
false;
1551 writeCoordinates = p.
sublist(
"Options").
get<
bool>(
"Write Coordinates");
1553 bool writeTopo =
false;
1555 writeTopo = p.
sublist(
"Options").
get<
bool>(
"Write Topology");
1559 blockedAssembly,globalIndexer,conn_manager,
1560 Teuchos::as<int>(mesh->
getDimension()), mpi_comm, strat_params,
1561 #ifdef PANZER_HAVE_TEKO
1569 template<
typename ScalarT>
1572 const bool write_graphviz_file,
1573 const std::string& graphviz_file_prefix)
1585 if(thyra_me!=Teuchos::null && panzer_me==Teuchos::null) {
1588 thyra_me->uninitialize(&const_ep_me,&solveFactory);
1594 ep_panzer_me->
buildResponses(m_physics_blocks,*m_eqset_factory,cm_factory,closure_models,user_data,write_graphviz_file,graphviz_file_prefix);
1597 thyra_me->initialize(ep_me,solveFactory);
1601 else if(panzer_me!=Teuchos::null && thyra_me==Teuchos::null) {
1602 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.
void setRythmosObserverFactory(const Teuchos::RCP< const panzer_stk::RythmosObserverFactory > &rythmos_observer_factory)
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
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
virtual bool useNOXObserver() const =0
Use the NOX observer as well?
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_
ParameterList & setEntry(const std::string &name, const ParameterEntry &entry)
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="")
Teuchos::RCP< Thyra::ModelEvaluator< ScalarT > > buildResponseOnlyModelEvaluator(const Teuchos::RCP< Thyra::ModelEvaluator< ScalarT > > &thyra_me, const Teuchos::RCP< panzer::GlobalData > &global_data, const Teuchos::RCP< Piro::RythmosSolver< ScalarT > > rythmosSolver=Teuchos::null, const Teuchos::Ptr< const panzer_stk::NOXObserverFactory > &in_nox_observer_factory=Teuchos::null, const Teuchos::Ptr< const panzer_stk::RythmosObserverFactory > &in_rythmos_observer_factory=Teuchos::null)
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()
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)
double getInitialStateTime() const
virtual void readVector(const std::string &identifier, LinearObjContainer &loc, int id) const =0
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
virtual Teuchos::RCP< Rythmos::IntegrationObserverBase< double > > buildRythmosObserver(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 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.
void setupExodusFile(const std::string &filename)
Set up an output Exodus file for writing results.
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)
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