From 6045d2d86efea94fa6331408a45c91fbea8b73ba Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Thu, 6 Nov 2014 15:09:14 +0000
Subject: [PATCH] Juan 6/11/2014: remove test on LCHECK otherwise never call
 MPPDB_INIT

---
 src/MNH/mesonh.f90 | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/src/MNH/mesonh.f90 b/src/MNH/mesonh.f90
index dbd1a0a7f..cc9942d87 100644
--- a/src/MNH/mesonh.f90
+++ b/src/MNH/mesonh.f90
@@ -76,6 +76,7 @@
 !!      J.P. Chaboureau             15/03/04  loop limited to 100000 iterations
 !!                                           remplaced by infinite loop
 !!      J.Escobar                 19/03/2008  rename INIT to INIT_MNH --> grib problem
+!!      J.Escobar                  6/11/2014  remove test on LCHECK otherwise never call MPPDB_INIT
 !-------------------------------------------------------------------------------
 !
 !*       0.     DECLARATIONS
@@ -113,9 +114,7 @@ INTEGER       :: IINFO_ll                     ! return code of // routines
 !*       1.    INITIALIZATION
 !              --------------
 ! Switch to model 1 variables
-IF (LCHECK) THEN
- CALL MPPDB_INIT()
-END IF
+CALL MPPDB_INIT()
 CALL GOTO_MODEL(1)
 !
 CALL INITIO_ll()
-- 
GitLab