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

Updated TestCommD3Q19 to ensure clean MPI exit

Browse Source
This commit is contained in:
James E McClure 2016-01-08 12:57:42 -05:00
parent a043dd82c2
commit b03fa6dc16
1 changed files with 275 additions and 274 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
tests/TestCommD3Q19.cpp
View File

@ -161,6 +161,7 @@ int main(int argc, char **argv)
MPI_Comm comm = MPI_COMM_WORLD;
MPI_Comm_rank(comm,&rank);
MPI_Comm_size(comm,&nprocs);
{
// parallel domain size (# of sub-domains)
int nprocx,nprocy,nprocz;
int iproc,jproc,kproc;
@ -491,7 +492,7 @@ int main(int argc, char **argv)
// communication bandwidth includes both send and recieve
if (rank==0) printf("Communication bandwidth (per process)= %f Gbit/sec \n",ScaLBL_Comm.CommunicationCount*64*timestep/1e9);
if (rank==0) printf("Aggregated communication bandwidth = %f Gbit/sec \n",nprocs*ScaLBL_Comm.CommunicationCount*64*timestep/1e9);
}
// ****************************************************
MPI_Barrier(comm);
MPI_Finalize();