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" 59 #include "Panzer_DOFManagerFactory.hpp" 61 #include "Panzer_BlockedDOFManagerFactory.hpp" 63 #include "Panzer_EpetraLinearObjFactory.hpp" 64 #include "Panzer_TpetraLinearObjFactory.hpp" 106 #include "Thyra_EpetraModelEvaluator.hpp" 107 #include "Piro_ConfigDefs.hpp" 108 #include "Piro_NOXSolver.hpp" 109 #include "Piro_LOCASolver.hpp" 110 #include "Piro_RythmosSolver.hpp" 116 template<
typename ScalarT>
123 if(!paramList->
sublist(
"Initial Conditions").
isType<
bool>(
"Zero Initial Conditions"))
124 paramList->
sublist(
"Initial Conditions").
set<
bool>(
"Zero Initial Conditions",
false);
129 this->setMyParamList(paramList);
132 template<
typename ScalarT>
143 pl->
set<
bool>(
"Use Discrete Adjoint",
false);
147 pl->
sublist(
"Initial Conditions").
set<
bool>(
"Zero Initial Conditions",
false);
151 pl->
sublist(
"Initial Conditions").
sublist(
"Vector File").
set<
bool>(
"Enabled",
false);
154 pl->
sublist(
"Output").
set(
"File Name",
"panzer.exo");
155 pl->
sublist(
"Output").
set(
"Write to Exodus",
true);
165 p.
set<
int>(
"Workset Size", 1);
166 p.
set<
int>(
"Default Integration Order",-1);
167 p.
set<std::string>(
"Field Order",
"");
168 p.
set<std::string>(
"Auxiliary Field Order",
"");
169 p.
set<
bool>(
"Use DOFManager FEI",
false);
170 p.
set<
bool>(
"Load Balance DOFs",
false);
171 p.
set<
bool>(
"Use Tpetra",
false);
172 p.
set<
bool>(
"Use Epetra ME",
true);
173 p.
set<
bool>(
"Lump Explicit Mass",
false);
174 p.
set<
bool>(
"Constant Mass Matrix",
true);
175 p.
set<
bool>(
"Apply Mass Matrix Inverse in Explicit Evaluator",
true);
176 p.
set<
bool>(
"Use Conservative IMEX",
false);
177 p.
set<
bool>(
"Compute Real Time Derivative",
false);
178 p.
set<
bool>(
"Use Time Derivative in Explicit Model",
false);
179 p.
set<
bool>(
"Compute Time Derivative at Time Step",
false);
183 p.
set<std::string>(
"Excluded Blocks",
"");
201 bool hasInterfaceCondition(
const std::vector<panzer::BC>& bcs)
203 for (std::vector<panzer::BC>::const_iterator bcit = bcs.begin(); bcit != bcs.end(); ++bcit)
213 Teuchos::rcp_dynamic_cast<STKConnManager<int> >(conn_mgr);
215 "There are interface conditions, but the connection manager" 216 " does not support the necessary connections.");
220 void buildInterfaceConnections(
const std::vector<panzer::BC>& bcs,
224 for (std::vector<panzer::BC>::const_iterator bcit = bcs.begin(); bcit != bcs.end(); ++bcit)
226 stk_conn_mgr->associateElementsInSideset(bcit->sidesetID());
233 std::vector<std::string> sidesets = stk_conn_mgr->checkAssociateElementsInSidesets(*
comm);
234 if ( ! sidesets.empty()) {
235 std::stringstream ss;
237 for (std::size_t i = 0; i < sidesets.size(); ++i)
238 ss <<
" " << sidesets[i];
239 ss <<
" did not yield associations, but these sidesets correspond to BCT_Interface BCs.";
245 template<
typename ScalarT>
251 bool meConstructionOn)
254 "ParameterList must be set before objects can be built!");
288 std::size_t workset_size = Teuchos::as<std::size_t>(assembly_params.
get<
int>(
"Workset Size"));
289 std::string field_order = assembly_params.
get<std::string>(
"Field Order");
291 bool use_dofmanager_fei = assembly_params.
get<
bool>(
"Use DOFManager FEI");
292 bool use_load_balance = assembly_params.
get<
bool>(
"Load Balance DOFs");
293 bool useTpetra = assembly_params.
get<
bool>(
"Use Tpetra");
294 bool useThyraME = !assembly_params.
get<
bool>(
"Use Epetra ME");
298 bool is_transient = solncntl_params.
get<std::string>(
"Piro Solver") ==
"Rythmos" ?
true :
false;
300 if (solncntl_params.
get<std::string>(
"Piro Solver") ==
"NOX") {
301 if (solncntl_params.
sublist(
"NOX").
get<std::string>(
"Nonlinear Solver") ==
"Pseudo-Transient")
306 if (solncntl_params.
get<std::string>(
"Piro Solver") ==
"LOCA") {
307 if (solncntl_params.
sublist(
"LOCA").
sublist(
"Stepper").
get<
bool>(
"Compute Eigenvalues"))
310 m_is_transient = is_transient;
312 bool useDiscreteAdjoint = p.
get<
bool>(
"Use Discrete Adjoint");
324 Teuchos::rcp_dynamic_cast<
const Teuchos::MpiComm<int> >(
comm);
333 m_eqset_factory = eqset_factory;
338 std::vector<Teuchos::RCP<panzer::PhysicsBlock> > physicsBlocks;
341 std::map<std::string,std::string> block_ids_to_physics_ids;
345 std::map<std::string,Teuchos::RCP<const shards::CellTopology> > block_ids_to_cell_topo;
346 for(std::map<std::string,std::string>::const_iterator itr=block_ids_to_physics_ids.begin();
347 itr!=block_ids_to_physics_ids.end();++itr) {
348 block_ids_to_cell_topo[itr->first] = mesh->
getCellTopology(itr->first);
349 TEUCHOS_ASSERT(block_ids_to_cell_topo[itr->first]!=Teuchos::null);
354 panzer::buildPhysicsBlocks(block_ids_to_physics_ids,
355 block_ids_to_cell_topo,
357 assembly_params.
get<
int>(
"Default Integration Order"),
363 m_physics_blocks = physicsBlocks;
368 addUserFieldsToMesh(*mesh,output_list);
375 this->finalizeMeshConstruction(*mesh_factory,physicsBlocks,*mpi_comm,*mesh);
377 fout <<
"*****************************************\n\n";
378 fout <<
"Element block exception, could not finalize the mesh, printing block and sideset information:\n";
386 fout <<
"*****************************************\n\n";
387 fout <<
"Sideset exception, could not finalize the mesh, printing block and sideset information:\n";
397 if(p.
sublist(
"Output").
get<
bool>(
"Write to Exodus"))
403 if(m_user_wkst_factory==Teuchos::null)
406 wkstFactory = m_user_wkst_factory;
413 std::vector<panzer::BC> bcs;
424 m_conn_manager = conn_manager;
432 std::string loadBalanceString =
"";
433 bool blockedAssembly =
false;
440 blockedAssembly =
true;
446 = globalIndexerFactory.
buildUniqueGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager_int,field_order);
447 globalIndexer = dofManager;
454 const std::string excludedBlocks = assembly_params.
get<std::string>(
"Excluded Blocks");
455 std::vector<std::string> stringPairs;
457 for(std::size_t i=0;i<stringPairs.size();i++) {
458 std::vector<std::string> sPair;
459 std::vector<int> iPair;
464 "Input Error: The correct format for \"Excluded Blocks\" parameter in \"Assembly\" sub list is:\n" 465 " <int>,<int>; <int>,<int>; ...; <int>,<int>\n" 466 "Failure on string pair " << stringPairs[i] <<
"!");
468 bloLinObjFactory->addExcludedPair(iPair[0],iPair[1]);
471 linObjFactory = bloLinObjFactory;
481 blockedAssembly =
true;
488 = globalIndexerFactory.
buildUniqueGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager_long,field_order);
489 globalIndexer = dofManager;
496 const std::string excludedBlocks = assembly_params.
get<std::string>(
"Excluded Blocks");
497 std::vector<std::string> stringPairs;
499 for(std::size_t i=0;i<stringPairs.size();i++) {
500 std::vector<std::string> sPair;
501 std::vector<int> iPair;
506 "Input Error: The correct format for \"Excluded Blocks\" parameter in \"Assembly\" sub list is:\n" 507 " <int>,<int>; <int>,<int>; ...; <int>,<int>\n" 508 "Failure on string pair " << stringPairs[i] <<
"!");
510 bloLinObjFactory->addExcludedPair(iPair[0],iPair[1]);
513 linObjFactory = bloLinObjFactory;
529 = globalIndexerFactory.
buildUniqueGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager_long,field_order);
530 globalIndexer = dofManager;
539 const bool has_interface_condition = hasInterfaceCondition(bcs);
540 if (has_interface_condition)
541 buildInterfaceConnections(bcs, conn_manager);
549 globalIndexerFactory.setUseTieBreak(use_load_balance);
550 globalIndexerFactory.setUseNeighbors(has_interface_condition);
552 = globalIndexerFactory.buildUniqueGlobalIndexer(mpi_comm->getRawMpiComm(),physicsBlocks,conn_manager_int,
554 globalIndexer = dofManager;
556 if (has_interface_condition)
557 checkInterfaceConnections(conn_manager, dofManager->getComm());
567 m_global_indexer = globalIndexer;
568 m_lin_obj_factory = linObjFactory;
569 m_blockedAssembly = blockedAssembly;
572 fout <<
"Degree of freedom load balancing: " << loadBalanceString << std::endl;
580 m_wkstContainer = wkstContainer;
590 useDynamicCoordinates_ =
false;
591 for(std::size_t p=0;p<physicsBlocks.size();p++) {
592 if(physicsBlocks[p]->getCoordinateDOFs().size()>0) {
594 useDynamicCoordinates_ =
true;
595 wkstContainer->
clear();
604 panzer_data_params.
set(
"STK Mesh", mesh);
605 panzer_data_params.
set(
"DOF Manager", globalIndexer);
606 panzer_data_params.
set(
"Linear Object Factory", linObjFactory);
611 if(!meConstructionOn)
617 std::vector<Teuchos::RCP<Teuchos::Array<std::string> > > p_names;
618 std::vector<Teuchos::RCP<Teuchos::Array<double> > > p_values;
622 int num_param_vecs = active_params.
get<
int>(
"Number of Parameter Vectors",0);
623 p_names.resize(num_param_vecs);
624 p_values.resize(num_param_vecs);
625 for (
int i=0; i<num_param_vecs; i++) {
626 std::stringstream ss;
627 ss <<
"Parameter Vector " << i;
629 int numParameters = pList.
get<
int>(
"Number");
632 std::endl <<
"Error! panzer::ModelEvaluator::ModelEvaluator(): " <<
633 "Parameter vector " << i <<
" has zero parameters!" << std::endl);
638 for (
int j=0; j<numParameters; j++) {
639 std::stringstream ss2;
640 ss2 <<
"Parameter " << j;
641 (*p_names[i])[j] = pList.
get<std::string>(ss2.str());
644 ss2 <<
"Initial Value " << j;
645 (*p_values[i])[j] = pList.
get<
double>(ss2.str());
658 cm_factory.buildObjects(io_cm_builder);
665 bool write_dot_files = p.
sublist(
"Options").
get(
"Write Volume Assembly Graphs",
false);
666 std::string dot_file_prefix = p.
sublist(
"Options").
get(
"Volume Assembly Graph Prefix",
"Panzer_AssemblyGraph");
667 bool write_fm_files = p.
sublist(
"Options").
get(
"Write Field Manager Files",
false);
668 std::string fm_file_prefix = p.
sublist(
"Options").
get(
"Field Manager File Prefix",
"Panzer_AssemblyGraph");
670 fmb = buildFieldManagerBuilder(wkstContainer,physicsBlocks,bcs,*eqset_factory,bc_factory,cm_factory,
671 user_cm_factory,p.
sublist(
"Closure Models"),*linObjFactory,user_data_params,
672 write_dot_files,dot_file_prefix,
673 write_fm_files,fm_file_prefix);
682 bool write_dot_files =
false;
683 std::string prefix =
"Panzer_ResponseGraph_";
684 write_dot_files = p.
sublist(
"Options").
get(
"Write Volume Response Graphs",write_dot_files);
685 prefix = p.
sublist(
"Options").
get(
"Volume Response Graph Prefix",prefix);
688 user_data.
set<
int>(
"Workset Size",workset_size);
702 t_init = this->getInitialTime(p.
sublist(
"Initial Conditions").
sublist(
"Transient Parameters"), *mesh);
704 if(blockedAssembly || useTpetra)
708 = buildPhysicsModelEvaluator(useThyraME,
723 bool write_dot_files =
false;
724 std::string prefix =
"Panzer_AssemblyGraph_";
725 setupInitialConditions(*thyra_me,*wkstContainer,physicsBlocks,user_cm_factory,*linObjFactory,
726 p.
sublist(
"Initial Conditions"),
728 p.
sublist(
"Options").
get(
"Write Volume Assembly Graphs",write_dot_files),
729 p.
sublist(
"Options").
get(
"Volume Assembly Graph Prefix",prefix));
734 writeInitialConditions(*thyra_me,physicsBlocks,wkstContainer,globalIndexer,linObjFactory,mesh,user_cm_factory,
736 p.
sublist(
"User Data"),workset_size);
738 m_physics_me = thyra_me;
741 template<
typename ScalarT>
748 itr!=cellAvgQuants.
end();++itr) {
749 const std::string & blockId = itr->first;
750 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
751 std::vector<std::string> tokens;
756 for(std::size_t i=0;i<tokens.size();i++)
765 itr != cellAvgVectors.
end(); ++itr) {
766 const std::string & blockId = itr->first;
767 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
768 std::vector<std::string> tokens;
773 for(std::size_t i = 0; i < tokens.size(); i++) {
774 std::string d_mod[3] = {
"X",
"Y",
"Z"};
783 itr!=cellQuants.
end();++itr) {
784 const std::string & blockId = itr->first;
785 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
786 std::vector<std::string> tokens;
791 for(std::size_t i=0;i<tokens.size();i++)
798 itr!=nodalQuants.
end();++itr) {
799 const std::string & blockId = itr->first;
800 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
801 std::vector<std::string> tokens;
806 for(std::size_t i=0;i<tokens.size();i++)
812 itr!=allocNodalQuants.
end();++itr) {
813 const std::string & blockId = itr->first;
814 const std::string & fields = Teuchos::any_cast<std::string>(itr->second.getAny());
815 std::vector<std::string> tokens;
820 for(std::size_t i=0;i<tokens.size();i++)
825 template<
typename ScalarT>
834 bool write_dot_files,
const std::string & dot_file_prefix)
const 838 Thyra::ModelEvaluatorBase::InArgs<double> nomValues = model.getNominalValues();
841 if(initial_cond_pl.
get<
bool>(
"Zero Initial Conditions")) {
843 Thyra::assign(x_vec.
ptr(),0.0);
845 else if(!initial_cond_pl.
sublist(
"Vector File").
get<
bool>(
"Enabled")) {
848 std::map<std::string, Teuchos::RCP< PHX::FieldManager<panzer::Traits> > > phx_ic_field_managers;
857 phx_ic_field_managers);
862 tloc->set_x_th(x_vec);
867 const std::string & vectorFile = initial_cond_pl.
sublist(
"Vector File").
get<std::string>(
"File Name");
869 "If \"Read From Vector File\" is true, then parameter \"Vector File\" cannot be the empty string.");
874 tloc->set_x_th(x_vec);
881 template<
typename ScalarT>
892 int workset_size)
const 899 = initializeSolnWriterResponseLibrary(wc,ugi,lof,mesh);
903 user_data.
set<
int>(
"Workset Size",workset_size);
905 finalizeSolnWriterResponseLibrary(*solnWriter,physicsBlocks,cm_factory,closure_model_pl,workset_size,user_data);
912 ae_inargs.
alpha = 0.0;
913 ae_inargs.
beta = 1.0;
928 template<
typename ScalarT>
934 if (mesh_params.
get<std::string>(
"Source") ==
"Exodus File") {
935 mesh_factory =
Teuchos::rcp(
new panzer_stk::STK_ExodusReaderFactory());
938 else if (mesh_params.
get<std::string>(
"Source") ==
"Pamgen Mesh") {
939 mesh_factory =
Teuchos::rcp(
new panzer_stk::STK_PamgenReaderFactory());
942 else if (mesh_params.
get<std::string>(
"Source") ==
"Inline Mesh") {
945 std::string typeStr =
"";
947 typeStr = mesh_params.
sublist(
"Inline Mesh").
get<std::string>(
"Type");
952 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
955 else if (
dimension == 2 && typeStr==
"Tri") {
958 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
964 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
967 else if (
dimension == 3 && typeStr==
"Tet") {
970 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
976 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
982 *in_mesh = mesh_params.
sublist(
"Inline Mesh").
sublist(
"Mesh Factory Parameter List");
986 else if (mesh_params.
get<std::string>(
"Source") ==
"Custom Mesh") {
1000 bool enabled =
false;
1001 if(rebalance.
isType<
bool>(
"Enabled"))
1002 enabled = rebalance.
get<
bool>(
"Enabled");
1006 if(enabled && rebalance.
isSublist(
"Cycles"))
1013 return mesh_factory;
1016 template<
typename ScalarT>
1019 const Teuchos::MpiComm<int> mpi_comm,
1024 std::vector<Teuchos::RCP<panzer::PhysicsBlock> >::const_iterator physIter;
1025 for(physIter=physicsBlocks.begin();physIter!=physicsBlocks.end();++physIter) {
1027 double blockWeight = 0.0;
1030 const std::vector<panzer::StrPureBasisPair> & blockFields = pb->
getProvidedDOFs();
1031 const std::vector<std::vector<std::string> > & coordinateDOFs = pb->
getCoordinateDOFs();
1035 std::set<panzer::StrPureBasisPair,panzer::StrPureBasisComp> fieldNames;
1036 fieldNames.insert(blockFields.begin(),blockFields.end());
1041 std::set<std::string> fields_to_remove;
1045 for(std::size_t i=0;i<coordinateDOFs.size();i++) {
1047 for(std::size_t j=0;j<coordinateDOFs[i].size();j++)
1048 fields_to_remove.insert(coordinateDOFs[i][j]);
1052 std::set<std::string>::const_iterator rmItr;
1053 for (rmItr=fields_to_remove.begin();rmItr!=fields_to_remove.end();++rmItr)
1058 std::set<panzer::StrPureBasisPair,panzer::StrPureBasisComp>::const_iterator fieldItr;
1059 for (fieldItr=fieldNames.begin();fieldItr!=fieldNames.end();++fieldItr) {
1061 if(fieldItr->second->isScalarBasis() &&
1065 else if(fieldItr->second->isScalarBasis()) {
1068 else if(fieldItr->second->isVectorBasis()) {
1069 std::string d_mod[3] = {
"X",
"Y",
"Z"};
1070 for(
int d=0;d<fieldItr->second->dimension();d++)
1075 blockWeight += double(fieldItr->second->cardinality());
1088 template<
typename ScalarT>
1092 "Objects are not built yet! Please call buildObjects() member function.");
1093 return m_physics_me;
1096 template<
typename ScalarT>
1099 m_nox_observer_factory = nox_observer_factory;
1102 template<
typename ScalarT>
1105 m_rythmos_observer_factory = rythmos_observer_factory;
1108 template<
typename ScalarT>
1111 m_user_wkst_factory = user_wkst_factory;
1114 template<
typename ScalarT>
1117 if(m_rome_me==Teuchos::null)
1118 m_rome_me = buildResponseOnlyModelEvaluator(m_physics_me,m_global_data);
1123 template<
typename ScalarT>
1136 "Objects are not built yet! Please call buildObjects() member function.");
1138 "Objects are not built yet! Please call buildObjects() member function.");
1140 "Objects are not built yet! Please call buildObjects() member function.");
1142 =
is_null(in_nox_observer_factory) ? m_nox_observer_factory.ptr() : in_nox_observer_factory;
1144 =
is_null(in_rythmos_observer_factory) ? m_rythmos_observer_factory.ptr() : in_rythmos_observer_factory;
1151 std::string solver = solncntl_params.
get<std::string>(
"Piro Solver");
1153 = Teuchos::rcp_dynamic_cast<Thyra::ModelEvaluatorDefaultBase<double> >(thyra_me);
1154 if ( (solver==
"NOX") || (solver ==
"LOCA") ) {
1157 "No NOX obersver built! Please call setNOXObserverFactory() member function if you plan to use a NOX solver.");
1160 piro_params->
sublist(
"NOX").
sublist(
"Solver Options").
set(
"User Defined Pre/Post Operator", ppo);
1163 piro =
Teuchos::rcp(
new Piro::NOXSolver<double>(piro_params,
1164 Teuchos::rcp_dynamic_cast<Thyra::ModelEvaluatorDefaultBase<double> >(thyra_me_db)));
1165 else if (solver ==
"LOCA")
1166 piro =
Teuchos::rcp(
new Piro::LOCASolver<double>(piro_params,
1167 Teuchos::rcp_dynamic_cast<Thyra::ModelEvaluatorDefaultBase<double> >(thyra_me_db),
1176 else if (solver==
"Rythmos") {
1179 "No NOX obersver built! Please call setrythmosObserverFactory() member function if you plan to use a Rythmos solver.");
1184 piro_params->
sublist(
"NOX").
sublist(
"Solver Options").
set(
"User Defined Pre/Post Operator", ppo);
1194 if(rythmosSolver==Teuchos::null)
1197 piro_rythmos = rythmosSolver;
1201 const std::string stepper_type = piro_params->
sublist(
"Rythmos").
get<std::string>(
"Stepper Type");
1202 if(stepper_type==
"Explicit RK" || stepper_type==
"Forward Euler") {
1204 bool lumpExplicitMass = assembly_params.
get<
bool>(
"Lump Explicit Mass");
1208 piro_rythmos->initialize(piro_params, rythmos_me, rythmos_observer_factory->
buildRythmosObserver(m_mesh,m_global_indexer,m_lin_obj_factory));
1210 piro = piro_rythmos;
1214 "Error: Unknown Piro Solver : " << solver);
1219 template<
typename ScalarT>
1223 "Objects are not built yet! Please call buildObjects() member function.");
1225 return m_response_library;
1228 template<
typename ScalarT>
1232 "Objects are not built yet! Please call buildObjects() member function.");
1234 return m_physics_blocks;
1237 template<
typename ScalarT>
1242 const std::vector<panzer::BC> & bcs,
1250 bool writeGraph,
const std::string & graphPrefix,
1251 bool write_field_managers,
const std::string & field_manager_prefix)
const 1256 fmb->
setupBCFieldManagers(bcs,physicsBlocks,eqset_factory,bc_cm_factory,bc_factory,closure_models,lo_factory,user_data);
1263 if (write_field_managers){
1271 template<
typename ScalarT>
1279 bool is_transient,
bool is_explicit,
1290 std::vector<Teuchos::RCP<panzer::PhysicsBlock> > physicsBlocks;
1295 std::map<std::string,std::string> block_ids_to_physics_ids;
1299 std::map<std::string,Teuchos::RCP<const shards::CellTopology> > block_ids_to_cell_topo;
1300 for(std::map<std::string,std::string>::const_iterator itr=block_ids_to_physics_ids.begin();
1301 itr!=block_ids_to_physics_ids.end();++itr) {
1302 block_ids_to_cell_topo[itr->first] = m_mesh->getCellTopology(itr->first);
1303 TEUCHOS_ASSERT(block_ids_to_cell_topo[itr->first]!=Teuchos::null);
1306 std::size_t workset_size = Teuchos::as<std::size_t>(assembly_params.
get<
int>(
"Workset Size"));
1308 panzer::buildPhysicsBlocks(block_ids_to_physics_ids,
1309 block_ids_to_cell_topo,
1310 physics_block_plist,
1311 assembly_params.
get<
int>(
"Default Integration Order"),
1324 bool write_dot_files =
false;
1325 std::string prefix =
"Cloned_";
1327 std::vector<panzer::BC> bcs;
1328 if(bc_list==Teuchos::null) {
1329 panzer::buildBCs(bcs, p.
sublist(
"Boundary Conditions"), m_global_data);
1332 panzer::buildBCs(bcs, *bc_list, m_global_data);
1335 fmb = buildFieldManagerBuilder(
1348 write_dot_files,prefix,
1349 write_dot_files,prefix);
1355 m_lin_obj_factory));
1363 Thyra::ModelEvaluatorBase::InArgs<ScalarT> nomVals = physics_me->getNominalValues();
1368 bool useThyra =
true;
1369 if(ep_thyra_me!=Teuchos::null)
1373 std::vector<Teuchos::RCP<Teuchos::Array<std::string> > > p_names(physics_me->Np());
1374 std::vector<Teuchos::RCP<Teuchos::Array<double> > > p_values(physics_me->Np());
1375 for(std::size_t i=0;i<p_names.size();i++) {
1381 = buildPhysicsModelEvaluator(useThyra,
1393 thyra_me->getNominalValues() = nomVals;
1398 bool lumpExplicitMass = assembly_params.
get<
bool>(
"Lump Explicit Mass");
1406 template<
typename ScalarT>
1417 bool is_transient,
double t_init)
const 1428 thyra_me = Thyra::epetraModelEvaluator(ep_me,solverFactory);
1432 (fmb,rLibrary,lof,p_names,p_values,solverFactory,
global_data,is_transient,t_init));
1438 template<
typename ScalarT>
1445 Teuchos::setStringToIntegralParameter<int>(
1448 "Set the start time",
1449 Teuchos::tuple<std::string>(
"From Input File",
"From Exodus File"),
1453 validPL.
set<
double>(
"Start Time",0.0);
1458 std::string t_init_type = p.
get<std::string>(
"Start Time Type");
1459 double t_init = 10.0;
1461 if (t_init_type ==
"From Input File")
1462 t_init = p.
get<
double>(
"Start Time");
1464 if (t_init_type ==
"From Exodus File")
1472 template<
typename ScalarT>
1482 std::vector<std::string> eBlocks;
1486 builder.
mesh = mesh;
1487 stkIOResponseLibrary->addResponse(
"Main Field Output",eBlocks,builder);
1489 return stkIOResponseLibrary;
1492 template<
typename ScalarT>
1500 user_data.
set<
int>(
"Workset Size",workset_size);
1504 template<
typename ScalarT>
1510 const Teuchos::RCP<
const Teuchos::MpiComm<int> > & mpi_comm
1511 #ifdef PANZER_HAVE_TEKO
1522 sublist(
"Newton").
sublist(
"Stratimikos Linear Solver").
sublist(
"Stratimikos")));
1524 bool writeCoordinates =
false;
1526 writeCoordinates = p.
sublist(
"Options").
get<
bool>(
"Write Coordinates");
1528 bool writeTopo =
false;
1530 writeTopo = p.
sublist(
"Options").
get<
bool>(
"Write Topology");
1534 blockedAssembly,globalIndexer,conn_manager,
1535 Teuchos::as<int>(mesh->
getDimension()), mpi_comm, strat_params,
1536 #ifdef PANZER_HAVE_TEKO
1544 template<
typename ScalarT>
1547 const bool write_graphviz_file,
1548 const std::string& graphviz_file_prefix)
1560 if(thyra_me!=Teuchos::null && panzer_me==Teuchos::null) {
1563 thyra_me->uninitialize(&const_ep_me,&solveFactory);
1569 ep_panzer_me->
buildResponses(m_physics_blocks,*m_eqset_factory,cm_factory,closure_models,user_data,write_graphviz_file,graphviz_file_prefix);
1572 thyra_me->initialize(ep_me,solveFactory);
1576 else if(panzer_me!=Teuchos::null && thyra_me==Teuchos::null) {
1577 panzer_me->buildResponses(m_physics_blocks,*m_eqset_factory,cm_factory,closure_models,user_data,write_graphviz_file,graphviz_file_prefix);
Teuchos::RCP< panzer::ResponseLibrary< panzer::Traits > > initializeSolnWriterResponseLibrary(const Teuchos::RCP< panzer::WorksetContainer > &wc, const Teuchos::RCP< const panzer::UniqueGlobalIndexerBase > &ugi, const Teuchos::RCP< const panzer::LinearObjFactory< panzer::Traits > > &lof, const Teuchos::RCP< panzer_stk::STK_Interface > &mesh) const
void writeVolumeTextDependencyFiles(std::string filename_prefix, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks) 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::UniqueGlobalIndexerBase > &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 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 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.
bool evaluate_transient_terms
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
bool is_null(const boost::shared_ptr< T > &p)
Teuchos::RCP< Thyra::ModelEvaluator< ScalarT > > getPhysicsModelEvaluator()
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
Teuchos::RCP< panzer::ParamLib > pl
Sacado scalar parameter library.
ParameterList & disableRecursiveValidation()
virtual Teuchos::RCP< Rythmos::IntegrationObserverBase< double > > buildRythmosObserver(const Teuchos::RCP< panzer_stk::STK_Interface > &mesh, const Teuchos::RCP< const panzer::UniqueGlobalIndexerBase > &dof_manager, const Teuchos::RCP< const panzer::LinearObjFactory< panzer::Traits > > &lof) const =0
void setGlobalIndexer(const Teuchos::RCP< const panzer::UniqueGlobalIndexerBase > &ugi)
void writeVolumeGraphvizDependencyFiles(std::string filename_prefix, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks) const
void setUseDOFManagerFEI(bool flag)
ConstIterator begin() const
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)
Teuchos::RCP< const Teuchos::ParameterList > getValidParameters() const
bool is_null(const std::shared_ptr< T > &p)
#define TEUCHOS_TEST_FOR_EXCEPTION(throw_exception_test, Exception, msg)
virtual bool useNOXObserver() const =0
Use the NOX observer as well?
bool isSublist(const std::string &name) const
std::string elementBlockID() const
void addSolutionField(const std::string &fieldName, const std::string &blockId)
void setParameterList(Teuchos::RCP< Teuchos::ParameterList > const ¶mList)
void setUseTieBreak(bool flag)
Teuchos::RCP< panzer::LinearObjContainer > ghostedContainer_
Teuchos::RCP< panzer_stk::STK_Interface > mesh
Class that provides access to worksets on each element block and side set.
PHX::MDField< ScalarT > vector
Teuchos::RCP< panzer::GlobalData > global_data
void set_t_init(double t)
Set initial time value.
void getElementBlockNames(std::vector< std::string > &names) const
virtual Teuchos::RCP< panzer::UniqueGlobalIndexer< LO, std::pair< int, GO > > > buildUniqueGlobalIndexer(const Teuchos::RCP< const Teuchos::OpaqueWrapper< MPI_Comm > > &mpiComm, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const Teuchos::RCP< ConnManager< LO, GO > > &connMngr, const std::string &fieldOrder="") const
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 &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...
Teuchos::RCP< panzer::LinearObjContainer > container_
void writeBCTextDependencyFiles(std::string filename_prefix) const
ConstIterator end() const
void setWorksetContainer(const Teuchos::RCP< WorksetContainer > &wc)
virtual void setParameterList(const RCP< ParameterList > ¶mList)=0
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
unsigned getDimension() const
get the dimension
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)
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="")
void addUserFieldsToMesh(panzer_stk::STK_Interface &mesh, const Teuchos::ParameterList &output_list) const
Add the user fields specified by output_list to the mesh.
Teuchos::RCP< Thyra::ModelEvaluator< ScalarT > > getResponseOnlyModelEvaluator()
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
Teuchos::RCP< Teuchos::ParameterList > getValidParameters() const
TEUCHOS_DEPRECATED RCP< T > rcp(T *p, Dealloc_T dealloc, bool owns_mem)
void setUseFieldCoordinates(bool useFieldCoordinates)
void writeBCGraphvizDependencyFiles(std::string filename_prefix) const
void setNOXObserverFactory(const Teuchos::RCP< const panzer_stk::NOXObserverFactory > &nox_observer_factory)
params_t::ConstIterator ConstIterator
Teuchos::RCP< STK_MeshFactory > buildSTKMeshFactory(const Teuchos::ParameterList &mesh_params) const
build STK mesh factory from a mesh parameter list
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.
void setUseDOFManagerFEI(bool flag)
void setupTransientExodusFile(const std::string &filename)
virtual Teuchos::RCP< LinearObjContainer > buildLinearObjContainer() const =0
void validateParametersAndSetDefaults(ParameterList const &validParamList, int const depth=1000)
std::string printUGILoadBalancingInformation(const UniqueGlobalIndexer< LocalOrdinalT, GlobalOrdinalT > &ugi)
bool isType(const std::string &name) const
void printMetaData(std::ostream &os) const
double getInitialStateTime() const
const std::vector< std::vector< std::string > > & getCoordinateDOFs() const
void setBlockWeight(const std::string &blockId, double weight)
Teuchos::RCP< Thyra::LinearOpWithSolveFactoryBase< double > > buildLOWSFactory(bool blockedAssembly, const Teuchos::RCP< const panzer::UniqueGlobalIndexerBase > &globalIndexer, const Teuchos::RCP< panzer::ConnManagerBase< int > > &conn_manager, const Teuchos::RCP< panzer_stk::STK_Interface > &mesh, const Teuchos::RCP< const Teuchos::MpiComm< int > > &mpi_comm) const
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.
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)
const std::vector< StrPureBasisPair > & getProvidedDOFs() const
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.
Teuchos::RCP< const shards::CellTopology > getCellTopology(const std::string &eBlock) const
void buildResponses(const panzer::ClosureModelFactory_TemplateManager< panzer::Traits > &cm_factory, const bool write_graphviz_file=false, const std::string &graphviz_file_prefix="")
Teuchos::RCP< const Teuchos::Comm< int > > comm
virtual void setMesh(const Teuchos::RCP< const panzer_stk::STK_Interface > &mesh)
const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > & getPhysicsBlocks() const
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 enableRebalance(bool enable, const Teuchos::RCP< const Teuchos::ParameterList > &rebalanceList=Teuchos::null)
std::pair< std::string, Teuchos::RCP< panzer::PureBasis > > StrPureBasisPair
bool isParameter(const std::string &name) const
virtual Teuchos::RCP< panzer::UniqueGlobalIndexer< LO, GO > > buildUniqueGlobalIndexer(const Teuchos::RCP< const Teuchos::OpaqueWrapper< MPI_Comm > > &mpiComm, const std::vector< Teuchos::RCP< panzer::PhysicsBlock > > &physicsBlocks, const Teuchos::RCP< ConnManager< LO, GO > > &connMngr, const std::string &fieldOrder="") const
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.
void print(std::ostream &os) 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)
#define TEUCHOS_ASSERT(assertion_test)
void addCellField(const std::string &fieldName, const std::string &blockId)
virtual Teuchos::RCP< NOX::Abstract::PrePostOperator > buildNOXObserver(const Teuchos::RCP< panzer_stk::STK_Interface > &mesh, const Teuchos::RCP< const panzer::UniqueGlobalIndexerBase > &dof_manager, const Teuchos::RCP< const panzer::LinearObjFactory< panzer::Traits > > &lof) const =0
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)
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.
Teuchos::RCP< panzer::ResponseLibrary< panzer::Traits > > getResponseLibrary()
Teuchos::RCP< Thyra::LinearOpWithSolveFactoryBase< double > > buildLOWSFactory(bool blockedAssembly, const Teuchos::RCP< const panzer::UniqueGlobalIndexerBase > &globalIndexer, const Teuchos::RCP< panzer::ConnManagerBase< int > > &conn_manager, int spatialDim, const Teuchos::RCP< const Teuchos::MpiComm< int > > &mpi_comm, const Teuchos::RCP< Teuchos::ParameterList > &strat_params, bool writeCoordinates, bool writeTopo)