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

add comment

parent bc1b8410
No related branches found
No related tags found
No related merge requests found
......@@ -94,6 +94,7 @@ SUBROUTINE compute_nonlinear
ENDIF
! Second convolution terms
G_cmpx = 0._xp ! initialization of the sum
! We set smax as min(n+j,Jmax) for safety reason but nmaxarray may prevent it as well (see anti-Laguerre-aliasing truncation)
smax = MIN( jarray(ini)+jarray(iji), jmax );
s1:DO is = 1, smax+1 ! sum truncation on number of moments
isi = is + ngj/2
......
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