From 49cb700ae18a898b0e2c8d5e7a3f62f2e3a39356 Mon Sep 17 00:00:00 2001
From: Antoine Hoffmann <antoine.hoffmann@epfl.ch>
Date: Fri, 16 Feb 2024 16:06:29 +0100
Subject: [PATCH] add comment
---
src/nonlinear_mod.F90 | 1 +
1 file changed, 1 insertion(+)
diff --git a/src/nonlinear_mod.F90 b/src/nonlinear_mod.F90
index c11fa8f..7b8fb43 100644
--- a/src/nonlinear_mod.F90
+++ b/src/nonlinear_mod.F90
@@ -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
--
GitLab