Skip to content
Snippets Groups Projects
Commit d2832b0b authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

remove unused variable

parent 54739451
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1 addition and 1 deletion
src/geometry_mod.F90
+ 1
− 1
View file @ d2832b0b
...@@ -103,7 +103,7 @@ CONTAINS ...@@ -103,7 +103,7 @@ CONTAINS
REAL(xp) :: kx,ky REAL(xp) :: kx,ky
COMPLEX(xp), DIMENSION(local_nz) :: integrant COMPLEX(xp), DIMENSION(local_nz) :: integrant
real(xp) :: G1,G2,G3,Cx,Cy real(xp) :: G1,G2,G3,Cx,Cy
INTEGER :: eo,iz,iky,ikx, Npol_i INTEGER :: eo,iz,iky,ikx
! Allocate arrays ! Allocate arrays
CALL geometry_allocate_mem(local_nky,local_nkx,local_nz,ngz,nzgrid) CALL geometry_allocate_mem(local_nky,local_nkx,local_nz,ngz,nzgrid)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment