diff --git a/src/solve_EM_fields.F90 b/src/solve_EM_fields.F90
index 810c1036fef0f3ee2c03d544e03c5341935d193b..936ac1ee4df88ee0854a5fe370c44b89a06542c0 100644
--- a/src/solve_EM_fields.F90
+++ b/src/solve_EM_fields.F90
@@ -28,7 +28,7 @@ CONTAINS
     USE geometry,         ONLY: iInt_Jacobian, Jacobian
     IMPLICIT NONE
 
-    INTEGER     :: ij, ia, ikx, iky, iz, izi, iji, ierr
+    INTEGER     :: ij, ia, ikx, iky, iz, izi, iji
     COMPLEX(xp) :: fsa_phi, intf_   ! current flux averaged phi
     COMPLEX(xp), DIMENSION(local_nz) :: rho, integrant  ! charge density q_a n_a and aux var
     !! Poisson can be solved only for process containng p=0