From cb16d97b48cbcbd3a11d9caf52bc8d0aef2e0dd8 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <antoine.hoffmann@epfl.ch>
Date: Fri, 24 Feb 2023 19:11:22 +0000
Subject: [PATCH] remove /!\ sign that may cause issue
---
src/nonlinear_mod.F90 | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src/nonlinear_mod.F90 b/src/nonlinear_mod.F90
index 7b6cf0cc..1e0a8bca 100644
--- a/src/nonlinear_mod.F90
+++ b/src/nonlinear_mod.F90
@@ -98,7 +98,7 @@ SUBROUTINE compute_nonlinear
G_cmpx(ikys:ikye,ikxs:ikxe) = G_cmpx(ikys:ikye,ikxs:ikxe) + &
dnjs(in,ij,is) * moments_e(ip,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel)
ENDDO
- !/!\ this function add its result to bracket_sum_r /!\
+ ! this function add its result to bracket_sum_r
CALL poisson_bracket_and_sum(F_cmpx,G_cmpx,bracket_sum_r)
!-----------!! ELECTROMAGNETIC CONTRIBUTION -sqrt(tau)/sigma*{Sum_s dnjs [sqrt(p+1)Nap+1s + sqrt(p)Nap-1s], Kernel psi}
@@ -113,7 +113,7 @@ SUBROUTINE compute_nonlinear
dnjs(in,ij,is) * (sqrt_pp1*moments_e(ip+1,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel)&
+sqrt_p *moments_e(ip-1,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel))
ENDDO
- !/!\ this function add its result to bracket_sum_r (hard to read sorry) /!\
+ ! this function add its result to bracket_sum_r
CALL poisson_bracket_and_sum(F_cmpx,G_cmpx,bracket_sum_r)
ENDIF
ENDDO nloope
@@ -161,7 +161,7 @@ ENDIF
G_cmpx(ikys:ikye,ikxs:ikxe) = G_cmpx(ikys:ikye,ikxs:ikxe) + &
dnjs(in,ij,is) * moments_i(ip,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel)
ENDDO
- !/!\ this function add its result to bracket_sum_r (hard to read sorry) /!\
+ ! this function add its result to bracket_sum_r
CALL poisson_bracket_and_sum(F_cmpx,G_cmpx,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
@@ -175,7 +175,7 @@ ENDIF
dnjs(in,ij,is) * (sqrt_pp1*moments_i(ip+1,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel)&
+sqrt_p *moments_i(ip-1,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel))
ENDDO
- !/!\ this function add its result to bracket_sum_r (hard to read sorry) /!\
+ ! this function add its result to bracket_sum_r
CALL poisson_bracket_and_sum(F_cmpx,G_cmpx,bracket_sum_r)
ENDIF
ENDDO nloopi
--
GitLab