OilfieldToolsNet/opm-simulators
4
0
Fork 0
mirror of https://github.com/OPM/opm-simulators.git synced 2025-02-25 18:55:30 -06:00
Code Issues Packages Projects Releases Wiki Activity

Use pure htrans strategy for computing fluxes/if-pressures.

Browse Source 
Still wrong.  Wrong: R-O-N-G.  Wrong.
This commit is contained in:
Bård Skaflestad 2010-11-11 14:47:17 +01:00
parent 8e5105c416
commit fdb1a0f04a
2 changed files with 32 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

55
src/cfs_tpfa.c
View File

@ -6,13 +6,14 @@
#include "blas_lapack.h" #include "blas_lapack.h"
#include "flow_bc.h" #include "flow_bc.h"
#include "trans_tpfa.h"
#include "cfs_tpfa.h" #include "cfs_tpfa.h"
#include "sparse_sys.h" #include "sparse_sys.h"
struct cfs_tpfa_impl { struct cfs_tpfa_impl {
double *fpress; /* Face pressure */ double *fpress; /* Face pressure */
double *fpaccum; double *accum;
/* Linear storage */ /* Linear storage */
double *ddata; double *ddata;
@ -43,7 +44,7 @@ impl_allocate(grid_t *G)
ddata_sz = 2 * G->number_of_cells; /* b, x */ ddata_sz = 2 * G->number_of_cells; /* b, x */
ddata_sz += 1 * G->number_of_faces; /* fgrav */ ddata_sz += 1 * G->number_of_faces; /* fgrav */
ddata_sz += 1 * G->number_of_faces; /* fpaccum */ ddata_sz += 1 * G->number_of_faces; /* accum */
new = malloc(1 * sizeof *new); new = malloc(1 * sizeof *new);
@ -177,29 +178,33 @@ solve_cellsys_core(grid_t *G ,
static void static void
compute_fpress(grid_t *G, compute_fpress(grid_t *G,
flowbc_t *bc, flowbc_t *bc,
const double *ctrans, const double *htrans,
const double *totmob,
const double *cpress, const double *cpress,
struct cfs_tpfa_data *h) struct cfs_tpfa_data *h)
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
{ {
int c, i, f; int c, i, f;
double t;
for (f = 0; f < G->number_of_faces; f++) { for (f = 0; f < G->number_of_faces; f++) {
h->pimpl->fpress [f] = 0.0; h->pimpl->fpress[f] = 0.0;
h->pimpl->fpaccum[f] = 0.0; h->pimpl->accum [f] = 0.0;
} }
for (c = i = 0; c < G->number_of_cells; c++) { for (c = i = 0; c < G->number_of_cells; c++) {
for (; i < G->cell_facepos[c + 1]; i++) { for (; i < G->cell_facepos[c + 1]; i++) {
f = G->cell_faces[i]; f = G->cell_faces[i];
h->pimpl->fpress [f] += ctrans[i] * cpress[c]; t = htrans[i] * totmob[c];
h->pimpl->fpaccum[f] += ctrans[i];
h->pimpl->fpress[f] += t * cpress[c];
h->pimpl->accum [f] += t;
} }
} }
for (f = 0; f < G->number_of_faces; f++) { for (f = 0; f < G->number_of_faces; f++) {
h->pimpl->fpress[f] /= h->pimpl->fpaccum[f]; h->pimpl->fpress[f] /= h->pimpl->accum[f];
if (bc->type[f] == PRESSURE) { if (bc->type[f] == PRESSURE) {
h->pimpl->fpress[f] = bc->bcval[f]; h->pimpl->fpress[f] = bc->bcval[f];
@ -211,32 +216,30 @@ compute_fpress(grid_t *G,
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
static void static void
compute_flux(grid_t *G, compute_flux(grid_t *G,
size_t np,
const double *cpress, const double *cpress,
const double *pmobf, const double *htrans,
const double *trans, const double *totmob,
struct cfs_tpfa_data *h, struct cfs_tpfa_data *h,
double *fflux) double *fflux)
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
{ {
int c1, c2, f; int f, c1, c2;
size_t p;
double t, dp; double t, dp;
tpfa_eff_trans_compute(G, totmob, htrans, h->pimpl->accum);
for (f = 0; f < G->number_of_faces; f++) { for (f = 0; f < G->number_of_faces; f++) {
t = h->pimpl->accum[f];
c1 = G->face_cells[2*f + 0]; c1 = G->face_cells[2*f + 0];
c2 = G->face_cells[2*f + 1]; c2 = G->face_cells[2*f + 1];
t = 0.0;
for (p = 0; p < np; p++) { t += pmobf[f*np + p]; }
t *= trans[f];
if ((c1 >= 0) && (c2 >= 0)) { if ((c1 >= 0) && (c2 >= 0)) {
dp = cpress[c1] - cpress[c2]; dp = cpress[c1] - cpress[c2];
} else if (c1 >= 0) { } else if (c1 < 0) {
dp = cpress[c1] - h->pimpl->fpress[f];
} else {
dp = h->pimpl->fpress[f] - cpress[c2]; dp = h->pimpl->fpress[f] - cpress[c2];
} else {
dp = cpress[c1] - h->pimpl->fpress[f];
} }
fflux[f] = t * dp; fflux[f] = t * dp;
@ -273,7 +276,7 @@ cfs_tpfa_construct(grid_t *G)
new->x = new->b + new->A->m; new->x = new->b + new->A->m;
new->pimpl->fpress = new->x + new->A->m; new->pimpl->fpress = new->x + new->A->m;
new->pimpl->fpaccum = new->pimpl->fpress + G->number_of_faces; new->pimpl->accum = new->pimpl->fpress + G->number_of_faces;
} }
return new; return new;
@ -337,11 +340,9 @@ cfs_tpfa_assemble(grid_t *G,
/* ---------------------------------------------------------------------- */ /* ---------------------------------------------------------------------- */
void void
cfs_tpfa_press_flux(grid_t *G, cfs_tpfa_press_flux(grid_t *G,
size_t np,
flowbc_t *bc, flowbc_t *bc,
const double *ctrans, const double *htrans,
const double *trans, const double *totmob,
const double *pmobf,
struct cfs_tpfa_data *h, struct cfs_tpfa_data *h,
double *cpress, double *cpress,
double *fflux) double *fflux)
@ -350,8 +351,8 @@ cfs_tpfa_press_flux(grid_t *G,
/* Assign cell pressure directly from solution vector */ /* Assign cell pressure directly from solution vector */
memcpy(cpress, h->x, G->number_of_cells * sizeof *cpress); memcpy(cpress, h->x, G->number_of_cells * sizeof *cpress);
compute_fpress(G, bc, ctrans, cpress, h); compute_fpress(G, bc, htrans, totmob, cpress, h);
compute_flux (G, np, cpress, pmobf, trans, h, fflux); compute_flux (G, cpress, htrans, totmob, h, fflux);
} }

6
src/cfs_tpfa.h
View File

@ -52,11 +52,9 @@ cfs_tpfa_assemble(grid_t *G,
void void
cfs_tpfa_press_flux(grid_t *G, cfs_tpfa_press_flux(grid_t *G,
size_t np,
flowbc_t *bc, flowbc_t *bc,
const double *ctrans, const double *htrans,
const double *trans, const double *totmob,
const double *pmobf,
struct cfs_tpfa_data *h, struct cfs_tpfa_data *h,
double *cpress, double *cpress,
double *fflux); double *fflux);