Skip to content
Snippets Groups Projects
Commit cb16d97b authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann :seedling:
Browse files

remove /!\ sign that may cause issue

parent 4ac7335e
No related branches found
No related tags found
No related merge requests found
...@@ -98,7 +98,7 @@ SUBROUTINE compute_nonlinear ...@@ -98,7 +98,7 @@ SUBROUTINE compute_nonlinear
G_cmpx(ikys:ikye,ikxs:ikxe) = G_cmpx(ikys:ikye,ikxs:ikxe) + & 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) dnjs(in,ij,is) * moments_e(ip,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel)
ENDDO 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) 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} !-----------!! 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 ...@@ -113,7 +113,7 @@ SUBROUTINE compute_nonlinear
dnjs(in,ij,is) * (sqrt_pp1*moments_e(ip+1,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel)& 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)) +sqrt_p *moments_e(ip-1,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel))
ENDDO 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) CALL poisson_bracket_and_sum(F_cmpx,G_cmpx,bracket_sum_r)
ENDIF ENDIF
ENDDO nloope ENDDO nloope
...@@ -161,7 +161,7 @@ ENDIF ...@@ -161,7 +161,7 @@ ENDIF
G_cmpx(ikys:ikye,ikxs:ikxe) = G_cmpx(ikys:ikye,ikxs:ikxe) + & 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) dnjs(in,ij,is) * moments_i(ip,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel)
ENDDO 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) 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} !-----------!! ELECTROMAGNETIC CONTRIBUTION -sqrt(tau)/sigma*{Sum_s dnjs [sqrt(p+1)Nap+1s + sqrt(p)Nap-1s], Kernel psi}
IF(EM) THEN IF(EM) THEN
...@@ -175,7 +175,7 @@ ENDIF ...@@ -175,7 +175,7 @@ ENDIF
dnjs(in,ij,is) * (sqrt_pp1*moments_i(ip+1,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel)& 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)) +sqrt_p *moments_i(ip-1,is,ikys:ikye,ikxs:ikxe,iz,updatetlevel))
ENDDO 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) CALL poisson_bracket_and_sum(F_cmpx,G_cmpx,bracket_sum_r)
ENDIF ENDIF
ENDDO nloopi ENDDO nloopi
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment