From d2832b0b69e693d16faf0583d5136380775a55fc Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Wed, 10 May 2023 17:53:05 +0200
Subject: [PATCH] remove unused variable
---
src/geometry_mod.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/geometry_mod.F90 b/src/geometry_mod.F90
index 552a48c9..f17e38be 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)
--
GitLab