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

a bit of cleaning up

Browse Source
This commit is contained in:
James E McClure
2015-06-16 17:45:22 -04:00
parent 3af55c83bc
commit ce5872c4ff
1 changed files with 13 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
tests/lbpm_permeability_simulator.cpp
View File

@@ -971,8 +971,8 @@ int main(int argc, char **argv)
//......................................... //.........................................
sendtag = recvtag = 5; sendtag = recvtag = 5;
double D32,Fo,Re,velocity,err1D,mag_force,vel_prev;
err = 1.0; err = vel_prev = 1.0;
if (rank==0) printf("Begin timesteps: error tolerance is %f \n", tol); if (rank==0) printf("Begin timesteps: error tolerance is %f \n", tol);
//************ MAIN ITERATION LOOP ***************************************/ //************ MAIN ITERATION LOOP ***************************************/
while (timestep < timestepMax && err > tol ){ while (timestep < timestepMax && err > tol ){
@@ -1232,6 +1232,10 @@ int main(int argc, char **argv)
Averages.ComputeLocal(); Averages.ComputeLocal();
Averages.Reduce(); Averages.Reduce();
// Check for steady macroscopic velocity
velocity = vawx*Fx/mag_force + vawy*Fy/mag_force + vawz*Fz/mag_force;
err=fabs(velocity-vel_prev)/velocity;
if (rank==0){ if (rank==0){
// ************* DIMENSIONLESS FORCHEIMER EQUATION ************************* // ************* DIMENSIONLESS FORCHEIMER EQUATION *************************
// Dye, A.L., McClure, J.E., Gray, W.G. and C.T. Miller // Dye, A.L., McClure, J.E., Gray, W.G. and C.T. Miller
@@ -1242,20 +1246,21 @@ int main(int argc, char **argv)
// Fo = a*Re + b*Re^2 // Fo = a*Re + b*Re^2
// ************************************************************************* // *************************************************************************
//viscosity = (tau-0.5)*0.333333333333333333; //viscosity = (tau-0.5)*0.333333333333333333;
double D32 = 6.0*(Dm.Volume-Vw_global)/Averages.As_global; D32 = 6.0*(Dm.Volume-Vw_global)/Averages.As_global;
printf("Sauter Mean Diameter = %f \n",D32); printf("Sauter Mean Diameter = %f \n",D32);
double mag_force = sqrt(Fx*Fx+Fy*Fy+Fz*Fz); mag_force = sqrt(Fx*Fx+Fy*Fy+Fz*Fz);
double Fo = D32*D32*D32*mag_force/viscosity/viscosity; Fo = D32*D32*D32*mag_force/viscosity/viscosity;
// .... 1-D flow should be aligned with force ... // .... 1-D flow should be aligned with force ...
double velocity = vawx*Fx/mag_force + vawy*Fy/mag_force + vawz*Fz/mag_force; velocity = vawx*Fx/mag_force + vawy*Fy/mag_force + vawz*Fz/mag_force;
double err1D = fabs(velocity-sqrt(vawx*vawx+vawy*vawy+vawz*vawz))/velocity; err1D = fabs(velocity-sqrt(vawx*vawx+vawy*vawy+vawz*vawz))/velocity;
//.......... Computation of the Reynolds number Re .............. //.......... Computation of the Reynolds number Re ..............
double Re = D32*velocity/viscosity; Re = D32*velocity/viscosity;
printf("Relative error for 1D representation: %f \n",err1D); printf("Relative error for 1D representation: %f \n",err1D);
printf("Dimensionless force: %f \n", Fo); printf("Dimensionless force: %f \n", Fo);
printf("Reynolds number: %f \n", Re); printf("Reynolds number: %f \n", Re);
printf("Permeability: %f \n", Re/Fo); printf("Permeability: %f \n", Re/Fo);
} }
} }
} }
//************************************************************************/ //************************************************************************/