diff --git a/src/nonlinear_mod.F90 b/src/nonlinear_mod.F90 index 40069470df417f0709c60d26a3c94a35acbde326..9cb094133123ead7ef8264b864dcee90e6e04ccd 100644 --- a/src/nonlinear_mod.F90 +++ b/src/nonlinear_mod.F90 @@ -88,7 +88,7 @@ SUBROUTINE compute_nonlinear bracket_sum_r = 0._dp ! initialize sum over real nonlinear term nloope: DO in = 1,nmax+1 ! Loop over laguerre for the sum -!-----------!! ELECTROSTATIC CONTRIBUTION {Sum_s dnjs Naps, Kernel phi} +!-----------!! ELECTROSTATIC CONTRIBUTION {Kernel phi, Sum_s dnjs Neps} ! First convolution terms F_cmpx(ikys:ikye,ikxs:ikxe) = phi(ikys:ikye,ikxs:ikxe,iz) * kernel_e(in, ikys:ikye,ikxs:ikxe, iz, eo) ! Second convolution terms