v0.13.1
simple_l2_only.cpp

Test iterating over boundary and skeleton elements only when L2 field is presents on the domain.

/**
* \file simple_l2_only.cpp
* \ingroup mofem_simple_interface
* \example simple_l2_only.cpp
*
* Test iterating over boundary and skeleton elements only when L2 field is
* presents on the domain.
*
*/
/* This file is part of MoFEM.
* MoFEM is free software: you can redistribute it and/or modify it under
* the terms of the GNU Lesser General Public License as published by the
* Free Software Foundation, either version 3 of the License, or (at your
* option) any later version.
*
* MoFEM is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
* FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public
* License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with MoFEM. If not, see <http://www.gnu.org/licenses/>. */
#include <MoFEM.hpp>
using namespace MoFEM;
static char help[] = "...\n\n";
constexpr int SPACE_DIM = 2;
template <int DIM> struct ElementsAndOps {};
template <> struct ElementsAndOps<2> {
};
int main(int argc, char *argv[]) {
// initialize petsc
MoFEM::Core::Initialize(&argc, &argv, (char *)0, help);
try {
// Create MoAB database
moab::Core moab_core;
moab::Interface &moab = moab_core;
// Create MoFEM database and link it to MoAB
MoFEM::Core mofem_core(moab);
MoFEM::Interface &m_field = mofem_core;
// Register DM Manager
DMType dm_name = "DMMOFEM";
// Simple interface
Simple *simple_interface;
CHKERR m_field.getInterface(simple_interface);
{
// get options from command line
CHKERR simple_interface->getOptions();
// load mesh file
CHKERR simple_interface->loadFile();
CHKERR simple_interface->addDomainField("FIELD", L2,
simple_interface->getAddBoundaryFE() = true;
simple_interface->getAddSkeletonFE() = true;
// set fields order
CHKERR simple_interface->setFieldOrder("FIELD", 1);
// setup problem
CHKERR simple_interface->setUp();
int count_fe;
int count_side_fe;
PipelineManager *pipeline_mng = m_field.getInterface<PipelineManager>();
// Create OP for side FE
auto op_side_fe = new DomainEleOp(NOSPACE, DomainEleOp::OPSPACE);
op_side_fe->doWorkRhsHook = [&](DataOperator *op_ptr, int side,
auto domain_op = static_cast<DomainEleOp *>(op_ptr);
MOFEM_LOG("SELF", Sev::verbose)
<< "Side element name [ " << count_side_fe << " ] "
<< domain_op->getFEName();
++count_side_fe;
};
// Create side FE
auto side_fe = boost::make_shared<DomainEle>(m_field);
side_fe->getOpPtrVector().push_back(op_side_fe);
// Create boundary FE OP
auto do_work_rhs = [&](DataOperator *op_ptr, int side, EntityType type,
auto bdy_op = static_cast<BoundaryEleOp *>(op_ptr);
MOFEM_LOG("SELF", Sev::verbose) << "Element name [ " << count_fe
<< " ] " << bdy_op->getFEName();
CHKERR bdy_op->loopSide(simple_interface->getDomainFEName(),
side_fe.get(), SPACE_DIM);
++count_fe;
};
auto op_bdy_fe = new BoundaryEleOp(NOSPACE, DomainEleOp::OPSPACE);
op_bdy_fe->doWorkRhsHook = do_work_rhs;
auto op_skeleton_fe = new BoundaryEleOp(NOSPACE, DomainEleOp::OPSPACE);
op_skeleton_fe->doWorkRhsHook = do_work_rhs;
// Count boundary
count_fe = 0;
count_side_fe = 0;
pipeline_mng->getOpBoundaryRhsPipeline().push_back(op_bdy_fe);
pipeline_mng->getOpSkeletonRhsPipeline().push_back(op_skeleton_fe);
pipeline_mng->loopFiniteElements();
MOFEM_LOG("SELF", Sev::inform) << "Number of elements " << count_fe;
MOFEM_LOG("SELF", Sev::inform)
<< "Number of side elements " << count_side_fe;
if (count_fe != 16)
SETERRQ(PETSC_COMM_SELF, MOFEM_ATOM_TEST_INVALID,
"Wrong numbers of FEs");
if (count_side_fe != 24)
SETERRQ(PETSC_COMM_SELF, MOFEM_ATOM_TEST_INVALID,
"Wrong numbers of side FEs");
}
}
// finish work cleaning memory, getting statistics, etc.
return 0;
}
ForcesAndSourcesCore::UserDataOperator UserDataOperator
MoFEM::FaceElementForcesAndSourcesCore FaceEle
ElementsAndOps< SPACE_DIM >::DomainEle DomainEle
ElementsAndOps< SPACE_DIM >::BoundaryEle BoundaryEle
MoFEM::EdgeElementForcesAndSourcesCore EdgeEle
#define CATCH_ERRORS
Catch errors.
Definition: definitions.h:385
@ AINSWORTH_LEGENDRE_BASE
Ainsworth Cole (Legendre) approx. base .
Definition: definitions.h:73
@ L2
field with C-1 continuity
Definition: definitions.h:101
@ NOSPACE
Definition: definitions.h:96
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
Definition: definitions.h:359
@ MOFEM_ATOM_TEST_INVALID
Definition: definitions.h:53
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
Definition: definitions.h:429
#define CHKERR
Inline error check.
Definition: definitions.h:548
PetscErrorCode DMRegister_MoFEM(const char sname[])
Register MoFEM problem.
Definition: DMMMoFEM.cpp:59
MoFEMErrorCode loopFiniteElements(SmartPetscObj< DM > dm=nullptr)
Iterate finite elements.
boost::ptr_vector< UserDataOperator > & getOpSkeletonRhsPipeline()
Get the Op Skeleton Rhs Pipeline object.
boost::ptr_vector< UserDataOperator > & getOpBoundaryRhsPipeline()
Get the Op Boundary Rhs Pipeline object.
#define MOFEM_LOG(channel, severity)
Log.
Definition: LogManager.hpp:311
implementation of Data Operators for Forces and Sources
Definition: Common.hpp:21
CoreTmp< 0 > Core
Definition: Core.hpp:1096
DeprecatedCoreInterface Interface
Definition: Interface.hpp:1965
int main(int argc, char *argv[])
EntitiesFieldData::EntData EntData
static char help[]
constexpr int SPACE_DIM
DomainEle::UserDataOperator DomainEleOp
BoundaryEle::UserDataOperator BoundaryEleOp
Core (interface) class.
Definition: Core.hpp:92
static MoFEMErrorCode Initialize(int *argc, char ***args, const char file[], const char help[])
Initializes the MoFEM database PETSc, MOAB and MPI.
Definition: Core.cpp:85
static MoFEMErrorCode Finalize()
Checks for options to be called at the conclusion of the program.
Definition: Core.cpp:125
base operator to do operations at Gauss Pt. level
Deprecated interface functions.
Data on single entity (This is passed as argument to DataOperator::doWork)
@ OPSPACE
operator do Work is execute on space data
PipelineManager interface.
Simple interface for fast problem set-up.
Definition: Simple.hpp:35
bool & getAddBoundaryFE()
Get the addSkeletonFE.
Definition: Simple.hpp:416
MoFEMErrorCode addDomainField(const std::string &name, const FieldSpace space, const FieldApproximationBase base, const FieldCoefficientsNumber nb_of_coefficients, const TagType tag_type=MB_TAG_SPARSE, const enum MoFEMTypes bh=MF_ZERO, int verb=-1)
Add field on domain.
Definition: Simple.cpp:378
MoFEMErrorCode getOptions()
get options
Definition: Simple.cpp:294
MoFEMErrorCode loadFile(const std::string options, const std::string mesh_file_name)
Load mesh file.
Definition: Simple.cpp:308
MoFEMErrorCode setFieldOrder(const std::string field_name, const int order, const Range *ents=NULL)
Set field order.
Definition: Simple.cpp:593
bool & getAddSkeletonFE()
Get the addSkeletonFE.
Definition: Simple.hpp:405
MoFEMErrorCode setUp(const PetscBool is_partitioned=PETSC_TRUE)
Setup problem.
Definition: Simple.cpp:753
const std::string getDomainFEName() const
Get the Domain FE Name.
Definition: Simple.hpp:321
MoFEMErrorCode getInterface(IFACE *&iface) const
Get interface refernce to pointer of interface.