diff --git a/opm/core/pressure/tpfa/ifs_tpfa.c b/opm/core/pressure/tpfa/ifs_tpfa.c
index 1d64015b..1b3201d5 100644
--- a/opm/core/pressure/tpfa/ifs_tpfa.c
+++ b/opm/core/pressure/tpfa/ifs_tpfa.c
@@ -197,7 +197,7 @@ assemble_bhp_well(int nc, int w,
                   struct ifs_tpfa_data *h  )
 /* ---------------------------------------------------------------------- */
 {
-    int    c, i, wdof, p;
+    int    c, i, wdof;
     size_t jc, jw;
     double trans, bhp;