From 69d071f69871b1166b8c5b8fda50924640e89d4d Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Wed, 19 Oct 2022 18:42:18 +0200
Subject: [PATCH] problem in init
---
src/inital.F90 | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/inital.F90 b/src/inital.F90
index 8ccb5f20..6d4fe5af 100644
--- a/src/inital.F90
+++ b/src/inital.F90
@@ -243,7 +243,7 @@ SUBROUTINE init_gyrodens
END DO
END DO
IF ( contains_ky0 ) THEN
- DO iky=2,Nky/2 !symmetry at ky = 0 for all z
+ DO ikx=2,Nkx/2 !symmetry at ky = 0 for all z
moments_i( ip,ij,iky_0,ikx,:,:) = moments_i( ip,ij,iky_0,Nkx+2-ikx,:,:)
END DO
ENDIF
--
GitLab