From d71cdfe2162fe92b188fffd5ee4ddb4b2683433c Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Wed, 12 Apr 2023 13:44:59 +0200
Subject: [PATCH] removed the symmetry enforcement (useless) and redundant
anti-aliasing
---
src/stepon.F90 | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/stepon.F90 b/src/stepon.F90
index 930a6b2c..321d853f 100644
--- a/src/stepon.F90
+++ b/src/stepon.F90
@@ -114,8 +114,9 @@ CONTAINS
IMPLICIT NONE
LOGICAL :: checkf_
REAL :: sum_
- IF(LINEARITY .NE. 'linear') CALL anti_aliasing ! ensure 0 mode for 2/3 rule
- IF(LINEARITY .NE. 'linear') CALL enforce_symmetry ! Enforcing symmetry on kx = 0
+ !! Maybe useless
+ ! IF(LINEARITY .NE. 'linear') CALL anti_aliasing ! ensure 0 mode for 2/3 rule
+ ! IF(LINEARITY .NE. 'linear') CALL enforce_symmetry ! Enforcing symmetry on kx = 0
mlend=.FALSE.
IF(.NOT.nlend) THEN
--
GitLab