From 0837cd69966e6a4e9f9d3839c67bdd77842bcf84 Mon Sep 17 00:00:00 2001
From: JUan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Tue, 17 Nov 2020 16:11:53 +0100
Subject: [PATCH] Juan 17/11/2020: mesonh.f90 OpenACC , add acc init before
 mpi_init for finding correctly context in Cuda AWARE/GPUDIRECT mpi

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

diff --git a/src/MNH/mesonh.f90 b/src/MNH/mesonh.f90
index 27bd93e2c..349c00327 100644
--- a/src/MNH/mesonh.f90
+++ b/src/MNH/mesonh.f90
@@ -132,6 +132,9 @@ INTEGER       :: IINFO_ll                     ! return code of // routines
 !
 !*       1.    INITIALIZATION
 !              --------------
+#ifdef MNH_OPENACC
+  !$acc init
+#endif
 ! Switch to model 1 variables
 #ifndef CPLOASIS
 CALL MPPDB_INIT()
-- 
GitLab