From c1827af947740a080ca16804bcd4c430ed8d7580 Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa.aerologie.net>
Date: Tue, 9 Apr 2013 15:24:39 +0200
Subject: [PATCH] Juan 9/04/2013: add call to MPPDB_INIT to check GPU problems

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

diff --git a/MNH/mesonh.f90 b/MNH/mesonh.f90
index 7bb91a95e..f5b6c3ecc 100644
--- a/MNH/mesonh.f90
+++ b/MNH/mesonh.f90
@@ -92,6 +92,8 @@ USE MODI_VERSION
 USE MODI_INIT_MNH
 USE MODI_DEALLOC_SURFEX
 !
+USE MODE_MPPDB
+!
 IMPLICIT NONE 
 !
 !*       0.1    declarations of local variables
@@ -106,6 +108,8 @@ INTEGER       :: IINFO_ll                     ! return code of // routines
 !
 !*       1.    INITIALIZATION
 !              --------------
+CALL MPPDB_INIT()
+!
 ! Switch to model 1 variables
 CALL GOTO_MODEL(1)
 !
-- 
GitLab