16 auto create_post_step_ksp = [&]() {
21 using DomainEle = VolumeElementForcesAndSourcesCore;
23 using OpDomainMass = FormsIntegrators<DomainEleOp>::Assembly<
25 using OpRhs = FormsIntegrators<DomainEleOp>::Assembly<
26 PETSC>::LinearForm<GAUSS>::OpBaseTimesVector<1, 3, 1>;
27 auto fe_lhs = boost::make_shared<DomainEle>(ep_ptr->mField);
28 auto fe_rhs = boost::make_shared<DomainEle>(ep_ptr->mField);
30 fe_lhs->getUserPolynomialBase() =
31 boost::shared_ptr<BaseFunction>(
new CGGUserPolynomialBase());
32 fe_rhs->getUserPolynomialBase() =
33 boost::shared_ptr<BaseFunction>(
new CGGUserPolynomialBase());
35 fe_lhs->getOpPtrVector().push_back(
36 new OpDomainMass(ep_ptr->spatialH1Disp, ep_ptr->spatialH1Disp));
37 auto w_ptr = boost::make_shared<MatrixDouble>();
38 fe_rhs->getOpPtrVector().push_back(
39 new OpCalculateVectorFieldValues<3>(ep_ptr->spatialL2Disp, w_ptr));
40 fe_rhs->getOpPtrVector().push_back(
41 new OpRhs(ep_ptr->spatialH1Disp, w_ptr));
44 ep_ptr->elementVolumeName, fe_lhs,
47 ep_ptr->elementVolumeName, fe_rhs,
57 CHKERR KSPAppendOptionsPrefix(ksp,
"prjspatial_");
58 CHKERR KSPSetFromOptions(ksp);
59 CHKERR KSPSetDM(ksp, ep_ptr->dmPrjSpatial);
69 prjKsp = create_post_step_ksp();
72 prjDM = ep_ptr->dmPrjSpatial;
89 MOFEM_LOG(
"EP", Sev::inform) <<
"Pre step";
92 CHKERR TSGetSolution(ts, &T);
94 auto zero_filed = [&](
auto name) {
96 auto is_mng =
epPtr->getInterface<ISManager>();
98 CHKERR is_mng->isCreateProblemFieldAndRankLocal(
100 const int *index_ptr;
101 CHKERR ISGetIndices(is, &index_ptr);
103 CHKERR ISGetLocalSize(is, &size);
106 for (
auto i = 0;
i != size;
i++) {
110 CHKERR ISRestoreIndices(is, &index_ptr);
114 switch (EshelbianCore::gradApperoximator) {
116 MOFEM_LOG(
"EP", Sev::verbose) <<
"Zeroing (large) fields";
121 MOFEM_LOG(
"EP", Sev::verbose) <<
"Zeroing (moderate) fields";
126 MOFEM_LOG(
"EP", Sev::verbose) <<
"Zeroing (small) fields";
137 MOFEM_LOG(
"EP", Sev::inform) <<
"Solve H1 post-step";
140 CHKERR VecGhostUpdateBegin(
prjD, INSERT_VALUES, SCATTER_FORWARD);
141 CHKERR VecGhostUpdateEnd(
prjD, INSERT_VALUES, SCATTER_FORWARD);
151 static SmartPetscObj<KSP>
prjKsp;
152 static SmartPetscObj<Vec>
prjD;
153 static SmartPetscObj<Vec>
prjF;