OilfieldToolsNet/LBPM
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Updated TestCommD3Q19 to ensure clean MPI exit -- fixed bug

Browse Source
This commit is contained in:
James E McClure 2016-01-08 12:58:53 -05:00
parent b03fa6dc16
commit 091e69cd7a
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/TestCommD3Q19.cpp
View File

@ -161,6 +161,8 @@ int main(int argc, char **argv)
MPI_Comm comm = MPI_COMM_WORLD; MPI_Comm comm = MPI_COMM_WORLD;
MPI_Comm_rank(comm,&rank); MPI_Comm_rank(comm,&rank);
MPI_Comm_size(comm,&nprocs); MPI_Comm_size(comm,&nprocs);
int check;
{ {
// parallel domain size (# of sub-domains) // parallel domain size (# of sub-domains)
int nprocx,nprocy,nprocz; int nprocx,nprocy,nprocz;
@ -432,7 +434,6 @@ int main(int argc, char **argv)
//************************************************************************* //*************************************************************************
//........................................................................... //...........................................................................
int check;
CopyToHost(f_even_host,f_even,10*N*sizeof(double)); CopyToHost(f_even_host,f_even,10*N*sizeof(double));
CopyToHost(f_odd_host,f_odd,9*N*sizeof(double)); CopyToHost(f_odd_host,f_odd,9*N*sizeof(double));
check = GlobalCheckDebugDist(f_even_host, f_odd_host, Nx-2, Ny-2, Nz-2,iproc,jproc,kproc,nprocx,nprocy,nprocz); check = GlobalCheckDebugDist(f_even_host, f_odd_host, Nx-2, Ny-2, Nz-2,iproc,jproc,kproc,nprocx,nprocy,nprocz);