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

Fixed sign error and replaced porevol->porevol0.

Browse Source
This commit is contained in:
Xavier Raynaud 2012-08-21 10:20:59 +02:00
parent b470ab8d50
commit 7e1e1e7951
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
opm/core/pressure/tpfa/cfs_tpfa_residual.c
View File

@ -1247,7 +1247,7 @@ cfs_tpfa_res_comprock_assemble(
/* Assemble usual system (without rock compressibility). */ /* Assemble usual system (without rock compressibility). */
cfs_tpfa_res_assemble(G, dt, forces, zc, cq, trans, gravcap_f, cfs_tpfa_res_assemble(G, dt, forces, zc, cq, trans, gravcap_f,
cpress, wpress, porevol, h); cpress, wpress, porevol0, h);
/* Check if we have only Neumann wells. */ /* Check if we have only Neumann wells. */
well_is_neumann = 1; well_is_neumann = 1;
@ -1276,7 +1276,7 @@ cfs_tpfa_res_comprock_assemble(
} }
h->J->sa[j] += porevol[c] * rock_comp[c] / dt; h->J->sa[j] += porevol[c] * rock_comp[c] / dt;
h->F[c] -= dpvdt; h->F[c] += dpvdt;
} }
/* Re-do the singularity-removing adjustment if necessary */ /* Re-do the singularity-removing adjustment if necessary */