From 9eb9937f6aa60a3c34d64aff4e54ad6febd3f516 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Tue, 18 Jul 2023 14:46:37 +0200
Subject: [PATCH] remove unused variable; ierr
---
src/solve_EM_fields.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/solve_EM_fields.F90 b/src/solve_EM_fields.F90
index 810c1036..936ac1ee 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
--
GitLab