v0.14.0
Loading...
Searching...
No Matches
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.
*
*/
#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;
}
static char help[]
int main()
Definition: adol-c_atom.cpp:46
constexpr int SPACE_DIM
DomainEle::UserDataOperator DomainEleOp
Finire element operator type.
ElementsAndOps< SPACE_DIM >::DomainEle DomainEle
ElementsAndOps< SPACE_DIM >::BoundaryEle BoundaryEle
BoundaryEle::UserDataOperator BoundaryEleOp
#define CATCH_ERRORS
Catch errors.
Definition: definitions.h:372
@ AINSWORTH_LEGENDRE_BASE
Ainsworth Cole (Legendre) approx. base .
Definition: definitions.h:60
@ L2
field with C-1 continuity
Definition: definitions.h:88
@ NOSPACE
Definition: definitions.h:83
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
Definition: definitions.h:346
@ MOFEM_ATOM_TEST_INVALID
Definition: definitions.h:40
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
Definition: definitions.h:416
#define CHKERR
Inline error check.
Definition: definitions.h:535
PetscErrorCode DMRegister_MoFEM(const char sname[])
Register MoFEM problem.
Definition: DMMoFEM.cpp:47
MoFEMErrorCode loopFiniteElements(SmartPetscObj< DM > dm=nullptr)
Iterate finite elements.
boost::ptr_deque< UserDataOperator > & getOpBoundaryRhsPipeline()
Get the Op Boundary Rhs Pipeline object.
boost::ptr_deque< UserDataOperator > & getOpSkeletonRhsPipeline()
Get the Op Skeleton Rhs Pipeline object.
#define MOFEM_LOG(channel, severity)
Log.
Definition: LogManager.hpp:308
implementation of Data Operators for Forces and Sources
Definition: Common.hpp:10
Core (interface) class.
Definition: Core.hpp:82
static MoFEMErrorCode Initialize(int *argc, char ***args, const char file[], const char help[])
Initializes the MoFEM database PETSc, MOAB and MPI.
Definition: Core.cpp:72
static MoFEMErrorCode Finalize()
Checks for options to be called at the conclusion of the program.
Definition: Core.cpp:112
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:27
bool & getAddBoundaryFE()
Get the addSkeletonFE.
Definition: Simple.hpp:436
MoFEMErrorCode loadFile(const std::string options, const std::string mesh_file_name, LoadFileFunc loadFunc=defaultLoadFileFunc)
Load mesh file.
Definition: Simple.cpp:194
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:264
MoFEMErrorCode getOptions()
get options
Definition: Simple.cpp:180
MoFEMErrorCode setFieldOrder(const std::string field_name, const int order, const Range *ents=NULL)
Set field order.
Definition: Simple.cpp:473
bool & getAddSkeletonFE()
Get the addSkeletonFE.
Definition: Simple.hpp:425
MoFEMErrorCode setUp(const PetscBool is_partitioned=PETSC_TRUE)
Setup problem.
Definition: Simple.cpp:611
const std::string getDomainFEName() const
Get the Domain FE Name.
Definition: Simple.hpp:341
MoFEMErrorCode getInterface(IFACE *&iface) const
Get interface refernce to pointer of interface.