From 13dc6322d6d9984ed9923b871abcf931f2c048b7 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Mon, 16 Oct 2023 11:47:54 +0200
Subject: [PATCH] shift only if nonlinear
---
src/ExB_shear_flow_mod.F90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/ExB_shear_flow_mod.F90 b/src/ExB_shear_flow_mod.F90
index ec34ae7d..dadf1aad 100644
--- a/src/ExB_shear_flow_mod.F90
+++ b/src/ExB_shear_flow_mod.F90
@@ -128,6 +128,7 @@ CONTAINS
sky_ExB_full(iky) = sky_ExB_full(iky) - REAL(iky-1,xp)*deltaky*gamma_E*dt_sub
ENDDO
! Shift the arrays if the shear value sky is too high
+ IF(LINEARITY .EQ. 'nonlinear') &
CALL Array_shift_ExB_shear_flow
! We update the operators and grids
--
GitLab