diff --git a/src/inital.F90 b/src/inital.F90 index 8ccb5f201ced5420af4d7b7c9c9dfeac13c8a060..6d4fe5af802c7b7298e73c65312a7ed81aa61306 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