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

fixed bug in juanes bench pp

Browse Source
This commit is contained in:
James E McClure 2017-08-16 16:02:10 -04:00
parent 0342f0acd3
commit b1adbef4c8
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
tests/lbpm_juanes_bench_disc_pp.cpp
View File

@ -230,9 +230,7 @@ int main(int argc, char **argv)
rank_yz, rank_YZ, rank_yZ, rank_Yz ); rank_yz, rank_YZ, rank_yZ, rank_Yz );
MPI_Barrier(comm); MPI_Barrier(comm);
Nx += 2; Ny += 2; Nz += 2;
Nz += 2;
Nx = Ny = Nz; // Cubic domain
int N = Nx*Ny*Nz; int N = Nx*Ny*Nz;
int dist_mem_size = N*sizeof(double); int dist_mem_size = N*sizeof(double);
@ -398,6 +396,11 @@ int main(int argc, char **argv)
WriteLocalSolidDistance(LocalRankFilename, SignDist.data(), N); WriteLocalSolidDistance(LocalRankFilename, SignDist.data(), N);
//...................................................................... //......................................................................
sprintf(LocalRankFilename,"ID.%05i",rank);
FILE *ID = fopen(LocalRankFilename,"wb");
fwrite(id,1,N,ID);
fclose(ID);
// **************************************************** // ****************************************************
MPI_Barrier(comm); MPI_Barrier(comm);
MPI_Finalize(); MPI_Finalize();