From bed1c2aeff12beb8db36d2b2f880eaffa1771acf Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Tue, 26 Sep 2023 16:19:23 +0200
Subject: [PATCH] cleaning
---
src/nonlinear_mod.F90 | 2 --
1 file changed, 2 deletions(-)
diff --git a/src/nonlinear_mod.F90 b/src/nonlinear_mod.F90
index a6e3c6fa..abd6b9b0 100644
--- a/src/nonlinear_mod.F90
+++ b/src/nonlinear_mod.F90
@@ -123,8 +123,6 @@ SUBROUTINE compute_nonlinear
! Apply the ExB shearing rate factor before going back to k-space
IF (ExB_NL_CORRECTION) THEN
CALL apply_inv_ExB_NL_factor(bracket_sum_r,inv_ExB_NL_factor)
- ! invinvfactor = 1._xp/inv_ExB_NL_factor
- ! CALL apply_inv_ExB_NL_factor(bracket_sum_r,invinvfactor)
ENDIF
! Put the real nonlinear product back into k-space
#ifdef SINGLE_PRECISION
--
GitLab