From 3b8f46a5dcd1d838b129e2c5916986b5a246ed0a Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Thu, 28 Sep 2023 10:16:25 +0200
Subject: [PATCH] cleaning
---
src/nonlinear_mod.F90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/nonlinear_mod.F90 b/src/nonlinear_mod.F90
index abd6b9b0..4c7f1eaf 100644
--- a/src/nonlinear_mod.F90
+++ b/src/nonlinear_mod.F90
@@ -14,7 +14,7 @@ MODULE nonlinear
USE prec_const, ONLY : xp
USE species, ONLY : sqrt_tau_o_sigma
USE time_integration, ONLY : updatetlevel
- USE ExB_shear_flow, ONLY : ExB_NL_factor, inv_ExB_NL_factor, sky_ExB
+ USE ExB_shear_flow, ONLY : ExB_NL_factor, inv_ExB_NL_factor
use, intrinsic :: iso_c_binding
IMPLICIT NONE
@@ -101,7 +101,7 @@ SUBROUTINE compute_nonlinear
! this function adds its result to bracket_sum_r
CALL poisson_bracket_and_sum( kyarray,kxarray,inv_Ny,inv_Nx,AA_y,AA_x,&
local_nky,total_nkx,F_cmpx,G_cmpx,&
- ExB_NL_CORRECTION, ExB_NL_factor, sky_ExB, bracket_sum_r)
+ ExB_NL_CORRECTION, ExB_NL_factor, bracket_sum_r)
!-----------!! ELECTROMAGNETIC CONTRIBUTION -sqrt(tau)/sigma*{Sum_s dnjs [sqrt(p+1)Nap+1s + sqrt(p)Nap-1s], Kernel psi}
IF(EM) THEN
! First convolution terms
@@ -117,7 +117,7 @@ SUBROUTINE compute_nonlinear
! this function adds its result to bracket_sum_r
CALL poisson_bracket_and_sum( kyarray,kxarray,inv_Ny,inv_Nx,AA_y,AA_x,&
local_nky,total_nkx,F_cmpx,G_cmpx,&
- ExB_NL_CORRECTION, ExB_NL_factor, sky_ExB, bracket_sum_r)
+ ExB_NL_CORRECTION, ExB_NL_factor, bracket_sum_r)
ENDIF
ENDDO n
! Apply the ExB shearing rate factor before going back to k-space
--
GitLab