diff --git a/src/geometry_mod.F90 b/src/geometry_mod.F90
index 552a48c97d1764e410789f315936fe6d87fe788c..f17e38be100c0262dba2d8e6b982e37cbd5d37c8 100644
--- a/src/geometry_mod.F90
+++ b/src/geometry_mod.F90
@@ -103,7 +103,7 @@ CONTAINS
     REAL(xp) :: kx,ky
     COMPLEX(xp), DIMENSION(local_nz) :: integrant
     real(xp) :: G1,G2,G3,Cx,Cy
-    INTEGER  :: eo,iz,iky,ikx, Npol_i
+    INTEGER  :: eo,iz,iky,ikx
 
     ! Allocate arrays
     CALL geometry_allocate_mem(local_nky,local_nkx,local_nz,ngz,nzgrid)