23 #ifndef EXECUTABLE_DIMENSION
24 #define EXECUTABLE_DIMENSION 2
32 using namespace MoFEM;
50 GAUSS>::OpGradSymTensorGrad<1, SPACE_DIM, SPACE_DIM, 0>;
64 GAUSS>::OpGradTensorGrad<1, SPACE_DIM, SPACE_DIM, 1>;
96 GAUSS>::OpMixDivTimesScalar<SPACE_DIM>;
155 GAUSS>::OpEssentialRhs<HeatFluxCubitBcData, 3, SPACE_DIM>;
158 GAUSS>::OpEssentialLhs<HeatFluxCubitBcData, 3, SPACE_DIM>;
175 CHKERR moab.add_entities(*out_meshset,
r);
176 CHKERR moab.write_file(name.c_str(),
"VTK",
"", out_meshset->get_ptr(), 1);
203 :
public boost::enable_shared_from_this<BlockedParameters> {
208 return boost::shared_ptr<MatrixDouble>(shared_from_this(), &mD);
212 return boost::shared_ptr<double>(shared_from_this(), &fluidConductivity);
217 boost::ptr_deque<ForcesAndSourcesCore::UserDataOperator> &pipeline,
218 std::string block_elastic_name, std::string block_thermal_name,
219 boost::shared_ptr<BlockedParameters> blockedParamsPtr,
Sev sev);
223 boost::ptr_deque<ForcesAndSourcesCore::UserDataOperator> &pipeline,
224 std::string block_elastic_name, std::string block_thermal_name,
225 boost::shared_ptr<BlockedParameters> blockedParamsPtr,
Sev sev) {
229 OpMatElasticBlocks(boost::shared_ptr<MatrixDouble>
m,
double bulk_modulus_K,
232 std::vector<const CubitMeshSets *> meshset_vec_ptr)
237 "Can not get data from block");
244 for (
auto &b : blockData) {
246 if (b.blockEnts.find(getFEEntityHandle()) != b.blockEnts.end()) {
247 CHKERR getMatDPtr(matDPtr, b.bulkModulusK, b.shearModulusG);
252 CHKERR getMatDPtr(matDPtr, bulkModulusKDefault, shearModulusGDefault);
257 boost::shared_ptr<MatrixDouble> matDPtr;
261 double shearModulusG;
265 double bulkModulusKDefault;
266 double shearModulusGDefault;
267 std::vector<BlockData> blockData;
271 std::vector<const CubitMeshSets *> meshset_vec_ptr,
275 for (
auto m : meshset_vec_ptr) {
277 std::vector<double> block_data;
278 CHKERR m->getAttributes(block_data);
279 if (block_data.size() < 2) {
281 "Expected that block has two attributes");
283 auto get_block_ents = [&]() {
286 m_field.
get_moab().get_entities_by_handle(
m->meshset, ents,
true);
306 MoFEMErrorCode getMatDPtr(boost::shared_ptr<MatrixDouble> mat_D_ptr,
310 auto set_material_stiffness = [&]() {
320 auto t_D = getFTensor4DdgFromMat<SPACE_DIM, SPACE_DIM, 0>(*mat_D_ptr);
329 set_material_stiffness();
334 double default_bulk_modulus_K =
336 double default_shear_modulus_G =
339 pipeline.push_back(
new OpMatElasticBlocks(
340 blockedParamsPtr->getDPtr(), default_bulk_modulus_K,
341 default_bulk_modulus_K, mField, sev,
346 (boost::format(
"%s(.*)") % block_elastic_name).str()
353 OpMatFluidBlocks(boost::shared_ptr<double> conductivity_ptr,
355 std::vector<const CubitMeshSets *> meshset_vec_ptr)
357 conductivityPtr(conductivity_ptr) {
359 "Can not get data from block");
366 for (
auto &b : blockData) {
368 if (b.blockEnts.find(getFEEntityHandle()) != b.blockEnts.end()) {
369 *conductivityPtr = b.conductivity;
385 std::vector<BlockData> blockData;
389 std::vector<const CubitMeshSets *> meshset_vec_ptr,
393 for (
auto m : meshset_vec_ptr) {
395 std::vector<double> block_data;
396 CHKERR m->getAttributes(block_data);
397 if (block_data.size() < 1) {
399 "Expected that block has two attributes");
401 auto get_block_ents = [&]() {
404 m_field.
get_moab().get_entities_by_handle(
m->meshset, ents,
true);
409 <<
m->getName() <<
": conductivity = " << block_data[0];
411 blockData.push_back({block_data[0], get_block_ents()});
417 boost::shared_ptr<double> expansionPtr;
418 boost::shared_ptr<double> conductivityPtr;
419 boost::shared_ptr<double> capacityPtr;
422 pipeline.push_back(
new OpMatFluidBlocks(
423 blockedParamsPtr->getConductivityPtr(), mField, sev,
428 (boost::format(
"%s(.*)") % block_thermal_name).str()
441 CHKERR createCommonData();
480 auto get_command_line_parameters = [&]() {
501 fieldEvalCoords.data(), &coords_dim,
507 CHKERR get_command_line_parameters();
524 simple->getProblemName(),
"U");
526 simple->getProblemName(),
"FLUX",
false);
528 auto get_skin = [&]() {
530 CHKERR mField.get_moab().get_entities_by_dimension(0,
SPACE_DIM, body_ents);
531 Skinner skin(&mField.get_moab());
533 CHKERR skin.find_skin(0, body_ents,
false, skin_ents);
537 auto filter_flux_blocks = [&](
auto skin) {
538 auto remove_cubit_blocks = [&](
auto c) {
546 CHKERR mField.get_moab().get_entities_by_dimension(
548 skin = subtract(skin, ents);
553 auto remove_named_blocks = [&](
auto n) {
558 (boost::format(
"%s(.*)") %
n).str()
564 CHKERR mField.get_moab().get_entities_by_dimension(
566 skin = subtract(skin, ents);
572 "remove_cubit_blocks");
574 "remove_cubit_blocks");
581 auto filter_true_skin = [&](
auto skin) {
583 ParallelComm *pcomm =
585 CHKERR pcomm->filter_pstatus(skin, PSTATUS_SHARED | PSTATUS_MULTISHARED,
586 PSTATUS_NOT, -1, &boundary_ents);
587 return boundary_ents;
590 auto remove_flux_ents = filter_true_skin(filter_flux_blocks(get_skin()));
595 MOFEM_LOG(
"SYNC", Sev::noisy) << remove_flux_ents << endl;
602 (boost::format(
"flux_remove_%d.vtk") % mField.get_comm_rank()).str(),
608 simple->getProblemName(),
"FLUX", remove_flux_ents);
621 auto boundary_marker =
622 bc_mng->getMergedBlocksMarker(vector<string>{
"FLUIDFLUX"});
624 auto u_grad_ptr = boost::make_shared<MatrixDouble>();
625 auto dot_u_grad_ptr = boost::make_shared<MatrixDouble>();
626 auto trace_dot_u_grad_ptr = boost::make_shared<VectorDouble>();
627 auto h_ptr = boost::make_shared<VectorDouble>();
628 auto dot_h_ptr = boost::make_shared<VectorDouble>();
629 auto flux_ptr = boost::make_shared<MatrixDouble>();
630 auto div_flux_ptr = boost::make_shared<VectorDouble>();
631 auto strain_ptr = boost::make_shared<MatrixDouble>();
632 auto stress_ptr = boost::make_shared<MatrixDouble>();
634 auto time_scale = boost::make_shared<TimeScale>();
636 auto block_params = boost::make_shared<BlockedParameters>();
637 auto mDPtr = block_params->getDPtr();
638 auto conductivity_ptr = block_params->getConductivityPtr();
649 auto add_domain_base_ops = [&](
auto &pip) {
660 "U", dot_u_grad_ptr));
662 trace_dot_u_grad_ptr));
668 "FLUX", div_flux_ptr));
673 auto add_domain_ops_lhs_mechanical = [&](
auto &pip) {
675 pip.push_back(
new OpKCauchy(
"U",
"U", mDPtr));
678 [](
const double,
const double,
const double) {
return -9.81; },
true,
683 auto add_domain_ops_rhs_mechanical = [&](
auto &pip) {
687 pip, mField,
"U", {time_scale},
"BODY_FORCE", Sev::inform);
691 "U", strain_ptr, stress_ptr, mDPtr));
699 auto add_domain_ops_lhs_seepage = [&](
auto &pip,
auto &fe) {
701 auto resistance = [conductivity_ptr](
const double,
const double,
703 return (1. / *(conductivity_ptr));
706 auto unity = []() constexpr {
return -1; };
707 pip.push_back(
new OpHdivHdiv(
"FLUX",
"FLUX", resistance));
708 pip.push_back(
new OpHdivQ(
"FLUX",
"H", unity,
true));
710 "H",
"U", [](
double,
double,
double) constexpr {
return -1; },
false,
712 op_base_div_u->feScalingFun = [](
const FEMethod *fe_ptr) {
715 pip.push_back(op_base_div_u);
720 auto add_domain_ops_rhs_seepage = [&](
auto &pip) {
723 return (1. / (*conductivity_ptr));
727 pip.push_back(
new OpHdivFlux(
"FLUX", flux_ptr, resistance));
728 pip.push_back(
new OpHDivH(
"FLUX", h_ptr, minus_one));
729 pip.push_back(
new OpBaseDotH(
"H", trace_dot_u_grad_ptr, minus_one));
730 pip.push_back(
new OpBaseDivFlux(
"H", div_flux_ptr, minus_one));
735 auto add_boundary_rhs_ops = [&](
auto &pip) {
740 pip.push_back(
new OpSetBc(
"FLUX",
true, boundary_marker));
743 pipeline_mng->getOpBoundaryRhsPipeline(), mField,
"U", {time_scale},
744 "FORCE", Sev::inform);
747 pipeline_mng->getOpBoundaryRhsPipeline(), mField,
"FLUX", {time_scale},
748 "PRESSURE", Sev::inform);
752 auto mat_flux_ptr = boost::make_shared<MatrixDouble>();
757 mField, pip,
simple->getProblemName(),
"FLUX", mat_flux_ptr,
763 auto add_boundary_lhs_ops = [&](
auto &pip) {
770 mField, pip,
simple->getProblemName(),
"FLUX");
776 CHKERR add_domain_base_ops(pipeline_mng->getOpDomainLhsPipeline());
777 CHKERR add_domain_ops_lhs_mechanical(pipeline_mng->getOpDomainLhsPipeline());
778 CHKERR add_domain_ops_lhs_seepage(pipeline_mng->getOpDomainLhsPipeline(),
779 pipeline_mng->getDomainLhsFE());
782 CHKERR add_domain_base_ops(pipeline_mng->getOpDomainRhsPipeline());
783 CHKERR add_domain_ops_rhs_mechanical(pipeline_mng->getOpDomainRhsPipeline());
784 CHKERR add_domain_ops_rhs_seepage(pipeline_mng->getOpDomainRhsPipeline());
786 CHKERR add_boundary_rhs_ops(pipeline_mng->getOpBoundaryRhsPipeline());
787 CHKERR add_boundary_lhs_ops(pipeline_mng->getOpBoundaryLhsPipeline());
800 auto dm =
simple->getDM();
801 auto solver = pipeline_mng->createTSIM();
804 auto set_section_monitor = [&](
auto solver) {
807 CHKERR TSGetSNES(solver, &snes);
808 CHKERR SNESMonitorSet(snes,
811 (
void *)(snes_ctx_ptr.get()),
nullptr);
815 auto create_post_process_element = [&]() {
816 auto post_proc_fe = boost::make_shared<PostProcEle>(mField);
818 auto block_params = boost::make_shared<BlockedParameters>();
819 auto mDPtr = block_params->getDPtr();
821 "MAT_FLUID", block_params, Sev::verbose);
823 post_proc_fe->getOpPtrVector(), {H1, HDIV});
825 auto mat_grad_ptr = boost::make_shared<MatrixDouble>();
826 auto mat_strain_ptr = boost::make_shared<MatrixDouble>();
827 auto mat_stress_ptr = boost::make_shared<MatrixDouble>();
829 auto h_ptr = boost::make_shared<VectorDouble>();
830 auto mat_flux_ptr = boost::make_shared<MatrixDouble>();
832 post_proc_fe->getOpPtrVector().push_back(
834 post_proc_fe->getOpPtrVector().push_back(
837 auto u_ptr = boost::make_shared<MatrixDouble>();
838 post_proc_fe->getOpPtrVector().push_back(
840 post_proc_fe->getOpPtrVector().push_back(
843 post_proc_fe->getOpPtrVector().push_back(
845 post_proc_fe->getOpPtrVector().push_back(
847 "U", mat_strain_ptr, mat_stress_ptr, mDPtr));
851 post_proc_fe->getOpPtrVector().push_back(
855 post_proc_fe->getPostProcMesh(), post_proc_fe->getMapGaussPts(),
859 {{
"U", u_ptr}, {
"FLUX", mat_flux_ptr}},
863 {{
"STRAIN", mat_strain_ptr}, {
"STRESS", mat_stress_ptr}}
872 auto create_creaction_fe = [&]() {
873 auto fe_ptr = boost::make_shared<DomainEle>(mField);
874 fe_ptr->getRuleHook = [](
int,
int,
int o) {
return 2 * o; };
876 auto &pip = fe_ptr->getOpPtrVector();
878 auto block_params = boost::make_shared<BlockedParameters>();
879 auto mDPtr = block_params->getDPtr();
884 auto u_grad_ptr = boost::make_shared<MatrixDouble>();
885 auto strain_ptr = boost::make_shared<MatrixDouble>();
886 auto stress_ptr = boost::make_shared<MatrixDouble>();
894 "U", strain_ptr, stress_ptr, mDPtr));
897 fe_ptr->postProcessHook =
903 auto monitor_ptr = boost::make_shared<FEMethod>();
904 auto post_proc_fe = create_post_process_element();
906 auto rections_fe = create_creaction_fe();
908 auto set_time_monitor = [&](
auto dm,
auto solver) {
910 monitor_ptr->preProcessHook = [&]() {
915 monitor_ptr->getCacheWeakPtr());
916 CHKERR post_proc_fe->writeFile(
917 "out_" + boost::lexical_cast<std::string>(monitor_ptr->ts_step) +
920 rections_fe->f = res;
923 monitor_ptr->getCacheWeakPtr());
926 CHKERR VecNorm(res, NORM_2, &nrm);
928 <<
"Residual norm " << nrm <<
" at time step "
929 << monitor_ptr->ts_step;
933 auto scalar_field_ptr = boost::make_shared<VectorDouble>();
934 auto vector_field_ptr = boost::make_shared<MatrixDouble>();
935 auto tensor_field_ptr = boost::make_shared<MatrixDouble>();
938 ->getData<DomainEle>();
942 field_eval_data,
simple->getDomainFEName());
945 field_eval_data,
simple->getDomainFEName());
948 field_eval_data->setEvalPoints(fieldEvalCoords.data(), 1);
949 auto no_rule = [](
int,
int,
int) {
return -1; };
951 auto field_eval_ptr = field_eval_data->feMethodPtr.lock();
952 field_eval_ptr->getRuleHook = no_rule;
954 auto u_grad_ptr = boost::make_shared<MatrixDouble>();
955 auto strain_ptr = boost::make_shared<MatrixDouble>();
956 auto stress_ptr = boost::make_shared<MatrixDouble>();
957 auto h_ptr = boost::make_shared<VectorDouble>();
959 auto block_params = boost::make_shared<BlockedParameters>();
960 auto mDPtr = block_params->getDPtr();
962 "MAT_FLUID", block_params, Sev::noisy);
964 field_eval_ptr->getOpPtrVector(), {H1, HDIV});
965 field_eval_ptr->getOpPtrVector().push_back(
968 field_eval_ptr->getOpPtrVector().push_back(
970 field_eval_ptr->getOpPtrVector().push_back(
972 field_eval_ptr->getOpPtrVector().push_back(
974 "U", strain_ptr, stress_ptr, mDPtr));
978 ->evalFEAtThePoint3D(
979 fieldEvalCoords.data(), 1e-12,
simple->getProblemName(),
980 simple->getDomainFEName(), field_eval_data,
981 mField.get_comm_rank(), mField.get_comm_rank(),
nullptr,
985 ->evalFEAtThePoint2D(
986 fieldEvalCoords.data(), 1e-12,
simple->getProblemName(),
987 simple->getDomainFEName(), field_eval_data,
988 mField.get_comm_rank(), mField.get_comm_rank(),
nullptr,
993 <<
"Eval point hydrostatic hight: " << *h_ptr;
995 <<
"Eval point skeleton stress pressure: " << *stress_ptr;
1001 auto null = boost::shared_ptr<FEMethod>();
1007 auto set_fieldsplit_preconditioner = [&](
auto solver) {
1011 CHKERR TSGetSNES(solver, &snes);
1013 CHKERR SNESGetKSP(snes, &ksp);
1015 CHKERR KSPGetPC(ksp, &pc);
1016 PetscBool is_pcfs = PETSC_FALSE;
1017 PetscObjectTypeCompare((PetscObject)pc, PCFIELDSPLIT, &is_pcfs);
1020 if (is_pcfs == PETSC_TRUE) {
1021 auto bc_mng = mField.getInterface<
BcManager>();
1023 auto name_prb =
simple->getProblemName();
1026 CHKERR is_mng->isCreateProblemFieldAndRank(name_prb,
ROW,
"U", 0,
1029 CHKERR is_mng->isCreateProblemFieldAndRank(name_prb,
ROW,
"FLUX", 0, 0,
1032 CHKERR is_mng->isCreateProblemFieldAndRank(name_prb,
ROW,
"H", 0, 0,
1035 CHKERR ISExpand(is_H, is_flux, &is_tmp);
1038 auto is_all_bc = bc_mng->getBlockIS(name_prb,
"FLUIDFLUX",
"FLUX", 0, 0);
1040 CHKERR ISGetSize(is_all_bc, &is_all_bc_size);
1042 <<
"Field split block size " << is_all_bc_size;
1043 if (is_all_bc_size) {
1045 CHKERR ISDifference(is_Flux, is_all_bc, &is_tmp2);
1047 CHKERR PCFieldSplitSetIS(pc, PETSC_NULL,
1053 CHKERR PCFieldSplitSetIS(pc, PETSC_NULL, is_Flux);
1054 CHKERR PCFieldSplitSetIS(pc, PETSC_NULL, is_u);
1060 auto pre_proc_ptr = boost::make_shared<FEMethod>();
1061 auto post_proc_rhs_ptr = boost::make_shared<FEMethod>();
1062 auto post_proc_lhs_ptr = boost::make_shared<FEMethod>();
1063 auto time_scale = boost::make_shared<TimeScale>();
1065 auto get_bc_hook_rhs = [
this, pre_proc_ptr, time_scale]() {
1067 {time_scale},
false);
1071 auto get_post_proc_hook_rhs = [
this, post_proc_rhs_ptr]() {
1074 mField, post_proc_rhs_ptr,
nullptr, Sev::verbose)();
1076 mField, post_proc_rhs_ptr, 1.)();
1079 auto get_post_proc_hook_lhs = [
this, post_proc_lhs_ptr]() {
1081 post_proc_lhs_ptr, 1.);
1084 pre_proc_ptr->preProcessHook = get_bc_hook_rhs();
1085 post_proc_rhs_ptr->postProcessHook = get_post_proc_hook_rhs;
1086 post_proc_lhs_ptr->postProcessHook = get_post_proc_hook_lhs();
1089 ts_ctx_ptr->getPreProcessIFunction().push_front(pre_proc_ptr);
1090 ts_ctx_ptr->getPreProcessIJacobian().push_front(pre_proc_ptr);
1091 ts_ctx_ptr->getPostProcessIFunction().push_back(post_proc_rhs_ptr);
1092 ts_ctx_ptr->getPostProcessIJacobian().push_back(post_proc_lhs_ptr);
1095 CHKERR TSSetSolution(solver,
D);
1096 CHKERR TSSetFromOptions(solver);
1098 CHKERR set_section_monitor(solver);
1099 CHKERR set_fieldsplit_preconditioner(solver);
1100 CHKERR set_time_monitor(dm, solver);
1103 CHKERR TSSolve(solver, NULL);
1114 const char param_file[] =
"param_file.petsc";
1118 auto core_log = logging::core::get();
1120 LogManager::createSink(LogManager::getStrmWorld(),
"Seepage"));
1121 LogManager::setLog(
"Seepage");
1124 LogManager::createSink(LogManager::getStrmSync(),
"SeepageSync"));
1125 LogManager::setLog(
"SeepageSync");
1131 DMType dm_name =
"DMMOFEM";