From b076faf6c28c6fd54098dadbee59fd8a3388790f Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@cnrs.fr>
Date: Thu, 29 Aug 2024 09:36:06 +0200
Subject: [PATCH] Philippe 29/08/2024: bugfix: a call to LES_MEAN_ll was not
correctly protected in an IF block
---
src/MNH/lesn.f90 | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/src/MNH/lesn.f90 b/src/MNH/lesn.f90
index 7f1de616e..1eae9d973 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, &
--
GitLab