zcy
/
openEMS
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

MPI: check if multigrid and MPI setup is compatible

pull/1/head
Thorsten Liebig 2011-03-21 15:09:33 +01:00
parent 43177a2237
commit 46230f63c7
2 changed files with 12 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
FDTD/operator_cylindermultigrid.cpp
View File

@ -148,12 +148,24 @@ void Operator_CylinderMultiGrid::SetTag(int tag)
void Operator_CylinderMultiGrid::SetNeighborUp(int ny, int id) void Operator_CylinderMultiGrid::SetNeighborUp(int ny, int id)
{ {
if (ny==0)
{
cerr << "Operator_CylinderMultiGrid::SetNeighborUp: Error: MPI segregation in radial direction not supported for a cylindircal multigrid. Exit!";
MPI_Barrier(MPI_COMM_WORLD);
exit(-1);
}
Operator_Cylinder::SetNeighborUp(ny,id); Operator_Cylinder::SetNeighborUp(ny,id);
m_InnerOp->SetNeighborUp(ny,id); m_InnerOp->SetNeighborUp(ny,id);
} }
void Operator_CylinderMultiGrid::SetNeighborDown(int ny, int id) void Operator_CylinderMultiGrid::SetNeighborDown(int ny, int id)
{ {
if (ny==0)
{
cerr << "Operator_CylinderMultiGrid::SetNeighborDown: Error: MPI segregation in radial direction not supported for a cylindircal multigrid. Exit!";
MPI_Barrier(MPI_COMM_WORLD);
exit(-1);
}
Operator_Cylinder::SetNeighborDown(ny,id); Operator_Cylinder::SetNeighborDown(ny,id);
m_InnerOp->SetNeighborDown(ny,id); m_InnerOp->SetNeighborDown(ny,id);
} }

1
FDTD/operator_mpi.cpp
View File

@ -60,7 +60,6 @@ double Operator_MPI::CalcTimestep()
return ret; return ret;
} }
void Operator_MPI::SetBoundaryCondition(int* BCs) void Operator_MPI::SetBoundaryCondition(int* BCs)
{ {
if (!m_MPI_Enabled) if (!m_MPI_Enabled)