1370 {
1372
1374
1375 auto get_body_id = [&](auto fe_ent) {
1376 for (
auto &
m : contact_tree_ptr->bodyMap) {
1377 if (
m.second.find(fe_ent) !=
m.second.end()) {
1379 }
1380 }
1381 return -1;
1382 };
1383
1384 auto &moab_post_proc_mesh = contact_tree_ptr->getPostProcMesh();
1385 auto &post_proc_ents = contact_tree_ptr->getPostProcElements();
1386
1387 auto fe_ent = getNumeredEntFiniteElementPtr()->getEnt();
1389 auto body_id = get_body_id(fe_ent);
1390 auto &map_gauss_pts = contact_tree_ptr->getMapGaussPts();
1391
1392 CHKERR moab_post_proc_mesh.tag_clear_data(contact_tree_ptr->thEleId,
1393 post_proc_ents, &fe_id);
1394 CHKERR moab_post_proc_mesh.tag_clear_data(contact_tree_ptr->thBodyId,
1395 post_proc_ents, &body_id);
1396
1397 auto nb_gauss_pts = getGaussPts().size2();
1398 auto t_u_h1 = getFTensor1FromMat<3>(*
uH1Ptr);
1399 auto t_u_l2 = getFTensor1FromMat<3>(
commonDataPtr->contactDisp);
1400 auto t_coords = getFTensor1CoordsAtGaussPts();
1401
1403 auto t_x_h1 = getFTensor1FromPtr<3>(&x_h1(0, 0));
1405 auto t_x_l2 = getFTensor1FromPtr<3>(&x_l2(0, 0));
1408
1410
1411
1412 for (auto gg = 0; gg != nb_gauss_pts; ++gg) {
1413 t_x_h1(
i) = t_coords(
i) + t_u_h1(
i);
1414 t_x_l2(
i) = t_coords(
i) + t_u_l2(
i);
1415
1416 ++t_coords;
1417 ++t_u_h1;
1418 ++t_u_l2;
1419 ++t_x_h1;
1420 ++t_x_l2;
1421 }
1422
1423 CHKERR moab_post_proc_mesh.set_coords(
1424 &*map_gauss_pts.begin(), map_gauss_pts.size(), &*x_h1.data().begin());
1425 CHKERR moab_post_proc_mesh.tag_set_data(
1426 contact_tree_ptr->thSmallX, &*map_gauss_pts.begin(),
1427 map_gauss_pts.size(), &*x_h1.data().begin());
1428 CHKERR moab_post_proc_mesh.tag_set_data(
1429 contact_tree_ptr->thLargeX, &*map_gauss_pts.begin(),
1430 map_gauss_pts.size(), &*coords.data().begin());
1431 CHKERR moab_post_proc_mesh.tag_set_data(
1432 contact_tree_ptr->thTraction, &*map_gauss_pts.begin(),
1433 map_gauss_pts.size(), &*tractions.data().begin());
1434
1435 } else {
1437 "ContactTree pointer expired in OpMoveNode");
1438 }
1439
1441}
#define MoFEMFunctionBegin
First executable line of each MoFEM function, used for error handling. Final line of MoFEM functions ...
@ MOFEM_DATA_INCONSISTENCY
#define MoFEMFunctionReturn(a)
Last executable line of each PETSc function used for error handling. Replaces return()
#define CHKERR
Inline error check.
FTensor::Index< 'i', SPACE_DIM > i
auto id_from_handle(const EntityHandle h)
FTensor::Index< 'm', 3 > m
