AnalyticalDirichlet.cpp

Go to the documentation of this file.

/** \file AnalyticalDirichlet.cpp
 
  Enforce Dirichlet boundary condition for given analytical function,
 
*/
 
 
 
#include <MoFEM.hpp>
using namespace MoFEM;
#include <MethodForForceScaling.hpp>
#include <DirichletBC.hpp>
#include <boost/shared_ptr.hpp>
#include <boost/numeric/ublas/vector_proxy.hpp>
#include <AnalyticalDirichlet.hpp>
 
AnalyticalDirichletBC::ApproxField::OpLhs::OpLhs(const std::string field_name)
    : FaceElementForcesAndSourcesCore::UserDataOperator(
          field_name, ForcesAndSourcesCore::UserDataOperator::OPROWCOL) {}
 
MoFEMErrorCode AnalyticalDirichletBC::ApproxField::OpLhs::doWork(
    int row_side, int col_side, EntityType row_type, EntityType col_type,
    EntitiesFieldData::EntData &row_data,
    EntitiesFieldData::EntData &col_data) {
  MoFEMFunctionBegin;
 
  if (row_data.getIndices().size() == 0)
    MoFEMFunctionReturnHot(0);
  if (col_data.getIndices().size() == 0)
    MoFEMFunctionReturnHot(0);
 
  const auto &dof_ptr = row_data.getFieldDofs()[0];
  const int rank = dof_ptr->getNbOfCoeffs();
 
  int nb_row_dofs = row_data.getIndices().size() / rank;
  int nb_col_dofs = col_data.getIndices().size() / rank;
 
  NN.resize(nb_row_dofs, nb_col_dofs);
  NN.clear();
 
  unsigned int nb_gauss_pts = row_data.getN().size1();
  for (unsigned int gg = 0; gg < nb_gauss_pts; gg++) {
 
    double w = getGaussPts()(2, gg);
    // higher order element
    double area = norm_2(getNormalsAtGaussPts(gg)) * 0.5;
    w *= area;
 
    cblas_dger(CblasRowMajor, nb_row_dofs, nb_col_dofs, w,
               &row_data.getN()(gg, 0), 1, &col_data.getN()(gg, 0), 1,
               &*NN.data().begin(), nb_col_dofs);
  }
 
  if ((row_type != col_type) || (row_side != col_side)) {
    transNN.resize(nb_col_dofs, nb_row_dofs);
    ublas::noalias(transNN) = trans(NN);
  }
 
  double *data = &*NN.data().begin();
  double *trans_data = &*transNN.data().begin();
  VectorInt row_indices, col_indices;
  row_indices.resize(nb_row_dofs);
  col_indices.resize(nb_col_dofs);
 
  for (int rr = 0; rr < rank; rr++) {
 
    if ((row_data.getIndices().size() % rank) != 0) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "data inconsistency");
    }
 
    if ((col_data.getIndices().size() % rank) != 0) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "data inconsistency");
    }
 
    unsigned int nb_rows;
    unsigned int nb_cols;
    int *rows;
    int *cols;
 
    if (rank > 1) {
 
      ublas::noalias(row_indices) = ublas::vector_slice<VectorInt>(
          row_data.getIndices(),
          ublas::slice(rr, rank, row_data.getIndices().size() / rank));
      ublas::noalias(col_indices) = ublas::vector_slice<VectorInt>(
          col_data.getIndices(),
          ublas::slice(rr, rank, col_data.getIndices().size() / rank));
 
      nb_rows = row_indices.size();
      nb_cols = col_indices.size();
      rows = &*row_indices.data().begin();
      cols = &*col_indices.data().begin();
 
    } else {
 
      nb_rows = row_data.getIndices().size();
      nb_cols = col_data.getIndices().size();
      rows = &*row_data.getIndices().data().begin();
      cols = &*col_data.getIndices().data().begin();
    }
 
    if (nb_rows != NN.size1()) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "data inconsistency");
    }
    if (nb_cols != NN.size2()) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY, "data inconsistency");
    }
 
    CHKERR MatSetValues(getFEMethod()->snes_B, nb_rows, rows, nb_cols, cols,
                        data, ADD_VALUES);
    if ((row_type != col_type) || (row_side != col_side)) {
      if (nb_rows != transNN.size2()) {
        SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                "data inconsistency");
      }
      if (nb_cols != transNN.size1()) {
        SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
                "data inconsistency");
      }
      CHKERR MatSetValues(getFEMethod()->snes_B, nb_cols, cols, nb_rows, rows,
                          trans_data, ADD_VALUES);
    }
  }
 
  MoFEMFunctionReturn(0);
}
 
AnalyticalDirichletBC::DirichletBC::DirichletBC(MoFEM::Interface &m_field,
                                                const std::string &field, Mat A,
                                                Vec X, Vec F)
    : DirichletDisplacementBc(m_field, field, A, X, F) {}
 
AnalyticalDirichletBC::DirichletBC::DirichletBC(MoFEM::Interface &m_field,
                                                const std::string &field)
    : DirichletDisplacementBc(m_field, field) {}
 
MoFEMErrorCode AnalyticalDirichletBC::DirichletBC::iNitialize() {
  MoFEMFunctionBegin;
  if (mapZeroRows.empty()) {
    if (!trisPtr) {
      SETERRQ(PETSC_COMM_SELF, MOFEM_DATA_INCONSISTENCY,
              "Need to initialized from AnalyticalDirichletBC::solveProblem");
    }
    CHKERR iNitialize(*trisPtr);
  }
  MoFEMFunctionReturn(0);
}
 
MoFEMErrorCode AnalyticalDirichletBC::DirichletBC::iNitialize(Range &tris) {
  MoFEMFunctionBegin;
  ParallelComm *pcomm =
      ParallelComm::get_pcomm(&mField.get_moab(), MYPCOMM_INDEX);
  Range ents;
  CHKERR mField.get_moab().get_connectivity(tris, ents, true);
  CHKERR mField.get_moab().get_adjacencies(tris, 1, false, ents,
                                           moab::Interface::UNION);
  ents.merge(tris);
 
  const auto bit_number = mField.get_field_bit_number(fieldName);
 
  for (auto eit = ents.pair_begin(); eit != ents.pair_end(); eit++) {
    const auto f = eit->first;
    const auto s = eit->second;
 
    auto &dofs = *problemPtr->getNumeredRowDofsPtr();
    auto dit = dofs.get<Unique_mi_tag>().lower_bound(
        DofEntity::getLoFieldEntityUId(bit_number, f));
    auto hi_dit = dofs.get<Unique_mi_tag>().upper_bound(
        DofEntity::getHiFieldEntityUId(bit_number, s));
    for (; dit != hi_dit; ++dit) {
      if ((*dit)->getPart() == mField.get_comm_rank()) {
        mapZeroRows[(*dit)->getPetscGlobalDofIdx()] = (*dit)->getFieldData();
      }
    }
  }
  
  dofsIndices.resize(mapZeroRows.size());
  dofsValues.resize(mapZeroRows.size());
  int ii = 0;
  std::map<DofIdx, FieldData>::iterator mit = mapZeroRows.begin();
  for (; mit != mapZeroRows.end(); mit++, ii++) {
    dofsIndices[ii] = mit->first;
    dofsValues[ii] = mit->second;
  }
  MoFEMFunctionReturn(0);
}
 
AnalyticalDirichletBC::AnalyticalDirichletBC(MoFEM::Interface &m_field)
    : approxField(m_field){};
 
MoFEMErrorCode
AnalyticalDirichletBC::setFiniteElement(MoFEM::Interface &m_field, string fe,
                                        string field, Range &tris,
                                        string nodals_positions) {
  MoFEMFunctionBegin;
 
  CHKERR m_field.add_finite_element(fe, MF_ZERO);
  CHKERR m_field.modify_finite_element_add_field_row(fe, field);
  CHKERR m_field.modify_finite_element_add_field_col(fe, field);
  CHKERR m_field.modify_finite_element_add_field_data(fe, field);
  if (m_field.check_field(nodals_positions)) {
    CHKERR m_field.modify_finite_element_add_field_data(fe, nodals_positions);
  }
  CHKERR m_field.add_ents_to_finite_element_by_type(tris, MBTRI, fe);
  MoFEMFunctionReturn(0);
}
 
MoFEMErrorCode AnalyticalDirichletBC::setUpProblem(MoFEM::Interface &m_field,
                                                   string problem) {
  MoFEMFunctionBegin;
  CHKERR m_field.getInterface<VecManager>()->vecCreateGhost(problem, ROW, &F);
  CHKERR m_field.getInterface<VecManager>()->vecCreateGhost(problem, COL, &D);
  CHKERR m_field.getInterface<MatrixManager>()
      ->createMPIAIJWithArrays<PetscGlobalIdx_mi_tag>(problem, &A);
 
  CHKERR KSPCreate(PETSC_COMM_WORLD, &kspSolver);
  CHKERR KSPSetOperators(kspSolver, A, A);
  CHKERR KSPSetFromOptions(kspSolver);
  MoFEMFunctionReturn(0);
}
 
MoFEMErrorCode AnalyticalDirichletBC::solveProblem(MoFEM::Interface &m_field,
                                                   string problem, string fe,
                                                   DirichletBC &bc,
                                                   Range &tris) {
  MoFEMFunctionBegin;
 
  CHKERR VecZeroEntries(F);
  CHKERR MatZeroEntries(A);
 
  approxField.getLoopFeApprox().snes_B = A;
  approxField.getLoopFeApprox().snes_f = F;
  CHKERR m_field.loop_finite_elements(problem, fe,
                                      approxField.getLoopFeApprox());
  CHKERR VecGhostUpdateBegin(F, ADD_VALUES, SCATTER_REVERSE);
  CHKERR VecGhostUpdateEnd(F, ADD_VALUES, SCATTER_REVERSE);
  CHKERR VecAssemblyBegin(F);
  CHKERR VecAssemblyEnd(F);
  CHKERR MatAssemblyBegin(A, MAT_FINAL_ASSEMBLY);
  CHKERR MatAssemblyEnd(A, MAT_FINAL_ASSEMBLY);
 
  CHKERR KSPSolve(kspSolver, F, D);
  CHKERR VecGhostUpdateBegin(D, INSERT_VALUES, SCATTER_FORWARD);
  CHKERR VecGhostUpdateEnd(D, INSERT_VALUES, SCATTER_FORWARD);
 
  CHKERR m_field.getInterface<VecManager>()->setGlobalGhostVector(
      problem, ROW, D, INSERT_VALUES, SCATTER_REVERSE);
 
  bc.trisPtr = boost::shared_ptr<Range>(new Range(tris));
  bc.mapZeroRows.clear();
  bc.dofsIndices.clear();
  bc.dofsValues.clear();
 
  MoFEMFunctionReturn(0);
}
 
MoFEMErrorCode AnalyticalDirichletBC::solveProblem(MoFEM::Interface &m_field,
                                                   string problem, string fe,
                                                   DirichletBC &bc) {
  MoFEMFunctionBegin;
  EntityHandle fe_meshset = m_field.get_finite_element_meshset("BC_FE");
  Range bc_tris;
  CHKERR m_field.get_moab().get_entities_by_type(fe_meshset, MBTRI, bc_tris);
  CHKERR solveProblem(m_field, problem, fe, bc, bc_tris);
  MoFEMFunctionReturn(0);
}
 
MoFEMErrorCode AnalyticalDirichletBC::destroyProblem() {
  MoFEMFunctionBegin;
  CHKERR KSPDestroy(&kspSolver);
  CHKERR MatDestroy(&A);
  CHKERR VecDestroy(&F);
  CHKERR VecDestroy(&D);
  MoFEMFunctionReturn(0);
}