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

Print initial wetting phase volume fraction

Browse Source
This commit is contained in:
James E McClure 2018-06-29 15:13:35 -04:00
parent 1129d7eae5
commit 66bf045b07
1 changed files with 19 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
models/ColorModel.cpp
View File

@ -360,6 +360,7 @@ void ScaLBL_ColorModel::Initialize(){
AssignSolidPotential();
int rank=Dm->rank();
double count_wet=0.f;
double count_wet_global;
double *PhaseLabel;
PhaseLabel=new double [Nx*Ny*Nz];
for (int k=1; k<Nz-1; k++){
@ -378,7 +379,8 @@ void ScaLBL_ColorModel::Initialize(){
}
}
}
//printf("sw=%f \n",count_wet/double(Np));
MPI_Allreduce(&count_wet,&count_wet_global,1,MPI_DOUBLE,MPI_SUM,comm);
if (rank==0) printf("Wetting phase volume fraction =%f \n",count_wet_global/double(Nx*Ny*Nz*nprocs));
// initialize phi based on PhaseLabel (include solid component labels)
ScaLBL_CopyToDevice(Phi, PhaseLabel, Np*sizeof(double));
//...........................................................................