Commit a9938f46 authored by Thomas Witkowski's avatar Thomas Witkowski
Browse files

Update checker partitioner for 3D.

parent e633aa27
......@@ -23,12 +23,14 @@ namespace AMDiS {
int mpiRank = mpiComm->Get_rank();
int mpiSize = mpiComm->Get_size();
int nElementsPerBlock = (mesh->getDim() == 2 ? 2 : 6);
TraverseStack stack;
ElInfo *elInfo = stack.traverseFirst(mesh, 0, Mesh::CALL_EL_LEVEL);
while (elInfo) {
Element *el = elInfo->getElement();
int elIndex = el->getIndex();
int elInRank = elIndex / 2;
int elInRank = elIndex / nElementsPerBlock;
TEST_EXIT_DBG(elInRank < mpiSize)("Should not happen!\n");
elementInRank[elIndex] = (elInRank == mpiRank);
......
......@@ -130,9 +130,6 @@ namespace AMDiS {
{
FUNCNAME("PetscSolverFeti::updateDofData()");
TEST_EXIT(meshDistributor->getMesh()->getDim() == 2)
("Works for 2D problems only!");
TEST_EXIT(meshDistributor->getFeSpace()->getBasisFcts()->getDegree() == 1)
("Works for linear basis functions only!\n");
......@@ -189,7 +186,7 @@ namespace AMDiS {
it != globalPrimalIndex.end(); ++it)
it->second += rStartPrimals;
MSG_DBG("nRankPrimals = %d nOverallPrimals = %d\n",
MSG("nRankPrimals = %d nOverallPrimals = %d\n",
nRankPrimals, nOverallPrimals);
......@@ -335,7 +332,7 @@ namespace AMDiS {
int nOverallDuals = nRankDuals;
mpi::globalAdd(nOverallDuals);
MSG_DBG("nRankDuals = %d nOverallDuals = %d\n",
MSG("nRankDuals = %d nOverallDuals = %d\n",
nRankDuals, nOverallDuals);
}
......@@ -370,7 +367,7 @@ namespace AMDiS {
if (meshDistributor->getIsRankDof(*it))
dofFirstLagrange[*it] += rStartLagrange;
MSG_DBG("nRankLagrange = %d nOverallLagrange = %d\n",
MSG("nRankLagrange = %d nOverallLagrange = %d\n",
nRankLagrange, nOverallLagrange);
......@@ -1272,6 +1269,7 @@ namespace AMDiS {
// === Solve with FETI-DP operator. ===
MSG("START FETI SOLVE!\n");
KSPSolve(ksp_feti, vec_rhs, vec_rhs);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment