diff --git a/src/MNH/lesn.f90 b/src/MNH/lesn.f90
index 7f1de616e99774a64fa58d65f0eca19adb8811d6..1eae9d973abd6811a9852c1a6e9f5be8f6ed6ebd 100644
--- a/src/MNH/lesn.f90
+++ b/src/MNH/lesn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2000-2023 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2000-2024 CNRS, Meteo-France and Universite Paul Sabatier
 !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence
 !MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt
 !MNH_LIC for details. version 1.
@@ -817,11 +817,12 @@ END IF
   CALL LES_MEAN_ll ( ZRR_LES, LLES_CURRENT_CART_MASK,               &
                      XLES_MEAN_Rr(:,NLES_CURRENT_TCOUNT,1)     )
 !
-  IF (LUSERI) &
+  IF (LUSERI) THEN
   CALL LES_MEAN_ll ( ZRI_LES, LLES_CURRENT_CART_MASK,               &
                      XLES_MEAN_Ri(:,NLES_CURRENT_TCOUNT,1)     )
   CALL LES_MEAN_ll ( ZICEFR_LES, LLES_CURRENT_CART_MASK,            &
                     XLES_MEAN_If(:,NLES_CURRENT_TCOUNT,1)        )
+  END IF
 !
   IF (LUSERS) &
   CALL LES_MEAN_ll ( ZRS_LES, LLES_CURRENT_CART_MASK,               &