From 57583077350ad9be584719e59275c8ac130ecadf Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 11 May 2021 14:07:55 +0200
Subject: [PATCH] Philippe 11/05/2021: bugfix: JI counter from LES_n was
 overwritten in LES (because it was shared between the 2 subroutines, LES is
 in a contain block of LES_n)

---
 src/MNH/lesn.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/MNH/lesn.f90 b/src/MNH/lesn.f90
index aca09170f..129929246 100644
--- a/src/MNH/lesn.f90
+++ b/src/MNH/lesn.f90
@@ -1,4 +1,4 @@
-!MNH_LIC Copyright 2000-2020 CNRS, Meteo-France and Universite Paul Sabatier
+!MNH_LIC Copyright 2000-2021 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.
@@ -1250,6 +1250,7 @@ LOGICAL, DIMENSION(:,:,:),   INTENT(IN) :: OMASK     ! 2D mask for computations
 !       0.2  declaration of local variables
 !
 INTEGER :: JSV      ! scalar variables counter
+INTEGER :: JI
 INTEGER :: JK       ! vertical loop counter
 INTEGER :: JPDF     ! pdf counter
 !
-- 
GitLab