1368 {
1370
1372
1373 auto get_body_id = [&](auto fe_ent) {
1374 for (
auto &
m : contact_tree_ptr->bodyMap) {
1375 if (
m.second.find(fe_ent) !=
m.second.end()) {
1377 }
1378 }
1379 return -1;
1380 };
1381
1382 auto &moab_post_proc_mesh = contact_tree_ptr->getPostProcMesh();
1383 auto &post_proc_ents = contact_tree_ptr->getPostProcElements();
1384
1385 auto fe_ent = getNumeredEntFiniteElementPtr()->getEnt();
1387 auto body_id = get_body_id(fe_ent);
1388 auto &map_gauss_pts = contact_tree_ptr->getMapGaussPts();
1389
1390 CHKERR moab_post_proc_mesh.tag_clear_data(contact_tree_ptr->thEleId,
1391 post_proc_ents, &fe_id);
1392 CHKERR moab_post_proc_mesh.tag_clear_data(contact_tree_ptr->thBodyId,
1393 post_proc_ents, &body_id);
1394
1395 auto nb_gauss_pts = getGaussPts().size2();
1396 auto t_u_h1 = getFTensor1FromMat<3>(*
uH1Ptr);
1397 auto t_u_l2 = getFTensor1FromMat<3>(
commonDataPtr->contactDisp);
1398 auto t_coords = getFTensor1CoordsAtGaussPts();
1399
1401 auto t_x_h1 = getFTensor1FromPtr<3>(&x_h1(0, 0));
1403 auto t_x_l2 = getFTensor1FromPtr<3>(&x_l2(0, 0));
1406
1408
1409
1410 for (auto gg = 0; gg != nb_gauss_pts; ++gg) {
1411 t_x_h1(
i) = t_coords(
i) + t_u_h1(
i);
1412 t_x_l2(
i) = t_coords(
i) + t_u_l2(
i);
1413
1414 ++t_coords;
1415 ++t_u_h1;
1416 ++t_u_l2;
1417 ++t_x_h1;
1418 ++t_x_l2;
1419 }
1420
1421 CHKERR moab_post_proc_mesh.set_coords(
1422 &*map_gauss_pts.begin(), map_gauss_pts.size(), &*x_h1.data().begin());
1423 CHKERR moab_post_proc_mesh.tag_set_data(
1424 contact_tree_ptr->thSmallX, &*map_gauss_pts.begin(),
1425 map_gauss_pts.size(), &*x_h1.data().begin());
1426 CHKERR moab_post_proc_mesh.tag_set_data(
1427 contact_tree_ptr->thLargeX, &*map_gauss_pts.begin(),
1428 map_gauss_pts.size(), &*coords.data().begin());
1429 CHKERR moab_post_proc_mesh.tag_set_data(
1430 contact_tree_ptr->thTraction, &*map_gauss_pts.begin(),
1431 map_gauss_pts.size(), &*tractions.data().begin());
1432
1433 } else {
1435 "ContactTree pointer expired in OpMoveNode");
1436 }
1437
1439}
#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
