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

Debugging tests/BlobAnalyzeParallel.cpp

Browse Source
This commit is contained in:
James E McClure
2015-06-02 18:04:03 -04:00
parent b9d907a642
commit 0e155faa7c
1 changed files with 59 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
tests/BlobAnalyzeParallel.cpp
View File

@@ -194,8 +194,11 @@ int main(int argc, char **argv)
// Compute porosity
double porosity,sum,sum_global;
sum=0.0;
for (int n=0; n<(nx+2)*(ny+2)*(nz+2); n++){
for (int k=0; k<nz+2; k++){
for (int j=0; j<ny+2; j++){
for (int i=0; i<nx+2; i++){
double phi,da,db,press,vx,vy,vz;
int n = k*(nx+2)*(ny+2)+j*(nx+2)+i;
double f0,f1,f2,f3,f4,f5,f6,f7,f8,f9,f10,f11,f12,f13,f14,f15,f16,f17,f18;
da = Den[n];
db = Den[N+n];
@@ -225,20 +228,23 @@ int main(int argc, char **argv)
vx = f1-f2+f7-f8+f9-f10+f11-f12+f13-f14;
vy = f3-f4+f7-f8-f9+f10+f15-f16+f17-f18;
vz = f5-f6+f11-f12-f13+f14+f15-f16-f17+f18;
Averages.SDs(n)=SignDist.data[n];
Averages.Phase(n)=(da-db)/(da+db);
Averages.Phase_tplus(n)=(da-db)/(da+db);
Averages.Phase_tminus(n)=(da-db)/(da+db);
Averages.Press(n)=press;
Averages.Vel_x(n)=vx;
Averages.Vel_y(n)=vy;
Averages.Vel_z(n)=vz;
if (Averages.SDs(n) > 0.0){
// Assign array components needed for averaging
Averages.SDs(i,j,k)=SignDist(i,j,k);
Averages.Phase(i,j,k)=(da-db)/(da+db);
Averages.Phase_tplus(i,j,k)=(da-db)/(da+db);
Averages.Phase_tminus(i,j,k)=(da-db)/(da+db);
Averages.Press(i,j,k)=press;
Averages.Vel_x(i,j,k)=vx;
Averages.Vel_y(i,j,k)=vy;
Averages.Vel_z(i,j,k)=vz;
if (Averages.SDs(i,j,k) > 0.0){
Dm.id[n]=1;
sum += 1.0;
}
else Dm.id[n]=0;
}
}
}
delete [] DistEven;
delete [] DistOdd;
@@ -246,7 +252,13 @@ int main(int argc, char **argv)
porosity = sum_global/Dm.Volume;
if (rank==0) printf("Porosity = %f \n",porosity);
Dm.CommInit(MPI_COMM_WORLD);
for (int i=0; i<N; i++) Averages.SDs(i) -= 1.0; // map the distance
for (int k=0; k<nz+2; k++){
for (int j=0; j<ny+2; j++){
for (int i=0; i<nx+2; i++){
Averages.SDs(i,j,k) -= 1.0; // map the distance
}
}
}
nblobs = ComputeGlobalBlobIDs(nx,ny,nz,rank_info,
Averages.Phase,Averages.SDs,vF,vS,Averages.BlobLabel);