OilfieldToolsNet/opm-simulators
4
0
Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2025-01-08 07:23:02 -06:00
Code Issues Packages Projects Releases Wiki Activity

Comment copy editing.

Browse Source 
Remove comments that bring no new information, and formalise
descriptions in a few other cases.
This commit is contained in:
Bård Skaflestad 2011-09-06 10:14:02 +02:00
parent 33c35de2fa
commit 4e8b35f9ed
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
src/cfs_tpfa.c
View File

@ -1228,7 +1228,6 @@ cfs_tpfa_expl_mass_transport(grid_t *G,
const double *masstrans_f, *gravtrans_f, *masstrans_p, *gravtrans_p; const double *masstrans_f, *gravtrans_f, *masstrans_p, *gravtrans_p;
const double *cpress, *wpress; const double *cpress, *wpress;
/* Set up convenience pointers */
masstrans_f = h->pimpl->masstrans_f; masstrans_f = h->pimpl->masstrans_f;
gravtrans_f = h->pimpl->gravtrans_f; gravtrans_f = h->pimpl->gravtrans_f;
masstrans_p = h->pimpl->masstrans_p; masstrans_p = h->pimpl->masstrans_p;
@ -1255,8 +1254,7 @@ cfs_tpfa_expl_mass_transport(grid_t *G,
dz = masstrans_f[f*np + p] * dp; dz = masstrans_f[f*np + p] * dp;
dz += gravtrans_f[f*np + p] * gsgn; dz += gravtrans_f[f*np + p] * gsgn;
/* A positive dz means flow from the cell c into /* dz > 0 => flow from c into c2. */
the cell c2. */
surf_vol[c*np + p] -= dz * dt / porevol[c]; surf_vol[c*np + p] -= dz * dt / porevol[c];
} }
} }
@ -1268,13 +1266,13 @@ cfs_tpfa_expl_mass_transport(grid_t *G,
for (w = i = 0; w < W->number_of_wells; w++) { for (w = i = 0; w < W->number_of_wells; w++) {
for (; i < W->well_connpos[w + 1]; i++) { for (; i < W->well_connpos[w + 1]; i++) {
c = W->well_cells[i]; c = W->well_cells[i];
/* Get difference between cell pressure and well bhp */
dp = wpress[w] - cpress[c]; dp = wpress[w] - cpress[c];
for (p = 0; p < np; p++) { for (p = 0; p < np; p++) {
dz = masstrans_p[i*np + p] * dp; dz = masstrans_p[i*np + p] * dp;
dz += gravtrans_p[i*np + p]; dz += gravtrans_p[i*np + p];
/* A positive dz means flow from the well perforation
i into the cell c */ /* dz > 0 => flow from perforation into c. */
surf_vol[c*np + p] += dz * dt / porevol[c]; surf_vol[c*np + p] += dz * dt / porevol[c];
} }
} }