From 117e11751b5f6c04e129ddad4788e78961a41229 Mon Sep 17 00:00:00 2001
From: Gaelle Tanguy <gaelle.tanguy@meteo.fr>
Date: Thu, 10 Apr 2014 14:32:15 +0000
Subject: [PATCH]  Christine 10/04/2014 : correction relative to the
 introduction of  LCHECK

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

diff --git a/src/MNH/mesonh.f90 b/src/MNH/mesonh.f90
index f6b78bf97..dbd1a0a7f 100644
--- a/src/MNH/mesonh.f90
+++ b/src/MNH/mesonh.f90
@@ -113,7 +113,9 @@ INTEGER       :: IINFO_ll                     ! return code of // routines
 !*       1.    INITIALIZATION
 !              --------------
 ! Switch to model 1 variables
-CALL MPPDB_INIT()
+IF (LCHECK) THEN
+ CALL MPPDB_INIT()
+END IF
 CALL GOTO_MODEL(1)
 !
 CALL INITIO_ll()
-- 
GitLab