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

make sure permeability always includes square of porosity

Browse Source
This commit is contained in:
James McClure 2023-04-03 08:49:19 -04:00
parent ae9885266b
commit 68e475fdf8
3 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
analysis/SubPhase.cpp
View File

@ -430,11 +430,11 @@ void SubPhase::Basic() {
//double total_flow_rate = water_flow_rate + not_water_flow_rate;
//double fractional_flow = water_flow_rate / total_flow_rate;
double h = Dm->voxel_length;
double krn = h * h * nu_n * Porosity * not_water_flow_rate / force_mag;
double krw = h * h * nu_w * Porosity* water_flow_rate / force_mag;
double krn = h * h * nu_n * Porosity* Porosity * not_water_flow_rate / force_mag;
double krw = h * h * nu_w * Porosity* Porosity* water_flow_rate / force_mag;
/* not counting films */
double krnf = krn - h * h * nu_n * Porosity * not_water_film_flow_rate / force_mag;
double krwf = krw - h * h * nu_w * Porosity * water_film_flow_rate / force_mag;
double krnf = krn - h * h * nu_n * Porosity* Porosity * not_water_film_flow_rate / force_mag;
double krwf = krw - h * h * nu_w * Porosity* Porosity * water_film_flow_rate / force_mag;
double eff_pressure = 1.0 / (krn + krw); // effective pressure drop
fprintf(TIMELOG,

22
models/ColorModel.cpp
View File

@ -912,31 +912,31 @@ double ScaLBL_ColorModel::Run(int returntime) {
(vBd_x * dir_x + vBd_y * dir_y + vBd_z * dir_z);
double kAeff_connected =
h * h * muA * Mask->Porosity()* flow_rate_A_connected / (force_mag);
h * h * muA * Mask->Porosity()* Mask->Porosity()* flow_rate_A_connected / (force_mag);
double kBeff_connected =
h * h * muB * Mask->Porosity()* flow_rate_B_connected / (force_mag);
h * h * muB * Mask->Porosity()* Mask->Porosity()* flow_rate_B_connected / (force_mag);
// Saturation normalized effective permeability to account for decoupled phases and
// effective porosity.
double kAeff_connected_low =
(1.0 - current_saturation) * h * h * muA* Mask->Porosity() *
(1.0 - current_saturation) * h * h * muA* Mask->Porosity() *Mask->Porosity() *
flow_rate_A_connected / (force_mag);
double kBeff_connected_low = current_saturation * h * h *
muB * Mask->Porosity()* flow_rate_B_connected /
muB * Mask->Porosity()* Mask->Porosity() *flow_rate_B_connected /
(force_mag);
double kAeff_disconnected =
h * h * muA * Mask->Porosity()* flow_rate_A_disconnected / (force_mag);
h * h * muA * Mask->Porosity()*Mask->Porosity() * flow_rate_A_disconnected / (force_mag);
double kBeff_disconnected =
h * h * muB * Mask->Porosity()* flow_rate_B_disconnected / (force_mag);
h * h * muB * Mask->Porosity()*Mask->Porosity() * flow_rate_B_disconnected / (force_mag);
double kAeff = h * h * muA* Mask->Porosity() * (flow_rate_A) / (force_mag);
double kBeff = h * h * muB* Mask->Porosity() * (flow_rate_B) / (force_mag);
double kAeff = h * h * muA* Mask->Porosity() *Mask->Porosity() * (flow_rate_A) / (force_mag);
double kBeff = h * h * muB* Mask->Porosity() *Mask->Porosity() * (flow_rate_B) / (force_mag);
/* not counting films */
double krnf = kAeff - h * h * muA* Mask->Porosity() * not_water_film_flow_rate / force_mag;
double krwf = kBeff - h * h * muB* Mask->Porosity() * water_film_flow_rate / force_mag;
double krnf = kAeff - h * h * muA* Mask->Porosity()* Mask->Porosity() * not_water_film_flow_rate / force_mag;
double krwf = kBeff - h * h * muB* Mask->Porosity()* Mask->Porosity() *water_film_flow_rate / force_mag;
/* not counting films */
double krnf_low = (1.0 - current_saturation) * krnf;
@ -946,7 +946,7 @@ double ScaLBL_ColorModel::Run(int returntime) {
// effective porosity.
double kAeff_low = (1.0 - current_saturation) * h * h *
muA* Mask->Porosity() * (flow_rate_A) / (force_mag);
double kBeff_low = current_saturation * h * h * muB* Mask->Porosity() *
double kBeff_low = current_saturation * h * h * muB* Mask->Porosity() *Mask->Porosity() *
(flow_rate_B) / (force_mag);
double viscous_pressure_drop =

2
models/MRTModel.cpp
View File

@ -387,7 +387,7 @@ void ScaLBL_MRTModel::Run() {
double h = Dm->voxel_length;
double absperm =
h * h * mu * Mask->Porosity() * flow_rate / force_mag;
h * h * mu * Mask->Porosity() * Mask->Porosity()* flow_rate / force_mag;
if (rank == 0) {
printf(" %f\n", absperm);
FILE *log_file = fopen("Permeability.csv", "a");