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

debugging lbpm_random_pp

Browse Source
This commit is contained in:
James E McClure 2015-07-08 16:12:14 -04:00
parent 62a7e9b9c4
commit 7d3e600417
1 changed files with 26 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
tests/lbpm_random_pp.cpp
View File

@ -181,26 +181,28 @@ int main(int argc, char **argv)
MPI_Bcast(&sizeZ,1,MPI_INT,0,MPI_COMM_WORLD);
if (rank==0) printf("Broadcast block at %i,%i,%i \n",x,y,z);
if (x-sizeX < (iproc+1)*(Nx-2) && y-sizeX < (jproc+1)*(Ny-2) && z-sizeX < (kproc+1)*(Nz-2) &&
x+sizeX > iproc*(Nx-2) && y+sizeY > jproc*(Ny-2) && z+sizeZ > kproc*(Nz-2) ){
x -= iproc*(Nx-2);
y -= jproc*(Ny-2);
z -= kproc*(Nz-2);
for (k=z;k<z+sizeZ;k++){
for (j=y;j<y+sizeY;j++){
for (i=x;i<x+sizeX;i++){
// Identify nodes in the domain (periodic BC)
ii = i;
jj = j;
kk = k;
if (ii < 1) ii+=(Nx-2);
if (jj < 1) jj+=(Ny-2);
if (kk < 1) kk+=(Nz-2);
if (!(ii < Nx-1)) ii-=(Nx-2);
if (!(jj < Ny-1)) jj-=(Ny-2);
if (!(kk < Nz-1)) kk-=(Nz-2);
if (ii>nprocx*(Nx-2)) ii-=nprocx*(Nx-2);
if (jj>nprocy*(Ny-2)) jj-=nprocy*(Ny-2);
if (kk>nprocz*(Nz-2)) kk-=nprocz*(Nz-2);
// Check if this is in the subdomain
if (ii < (iproc+1)*(Nx-2) && jj < (jproc+1)*(Ny-2) && kk < (kproc+1)*(Nz-2) &&
ii > iproc*(Nx-2) && jj > jproc*(Ny-2) && kk > kproc*(Nz-2) ){
// Map from global to local coordinates
ii -= iproc*(Nx-2);
jj -= jproc*(Ny-2);
kk -= kproc*(Nz-2);
n = kk*Nx*Ny+jj*Nx+ii;