From d9b34ecf7d29d5af5d34237546d7106bb1dfcbb8 Mon Sep 17 00:00:00 2001 From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch> Date: Mon, 7 Dec 2020 16:05:55 +0100 Subject: [PATCH] correction needed for linear simulations --- src/grid_mod.F90 | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/src/grid_mod.F90 b/src/grid_mod.F90 index da4bf655..a6660db3 100644 --- a/src/grid_mod.F90 +++ b/src/grid_mod.F90 @@ -109,7 +109,11 @@ CONTAINS IF (my_id .EQ. num_procs-1) ikre = Nkr !WRITE(*,*) 'ID = ',my_id,' ikrs = ', ikrs, ' ikre = ', ikre ! Grid spacings - deltakr = 2._dp*PI/Lr + IF (Lr .EQ. 0) THEN + deltakr = 1._dp + ELSE + deltakr = 2._dp*PI/Lr + ENDIF ! Discretized kr positions ordered as dk*(0 1 2 3) ALLOCATE(krarray(ikrs:ikre)) @@ -141,8 +145,11 @@ CONTAINS ikze = Nkz ! Grid spacings - deltakz = 2._dp*PI/Lz - + IF (Lz .EQ. 0) THEN + deltakz = 1._dp + ELSE + deltakz = 2._dp*PI/Lz + ENDIF ! Discretized kz positions ordered as dk*(0 1 2 3 -2 -1) ALLOCATE(kzarray(ikzs:ikze)) DO ikz = ikzs,ikze -- GitLab