From 7741b38772d232667b49383f17cd37ac6f04c171 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 10 Feb 2022 13:44:55 +0100
Subject: [PATCH] Juan 10/02/2022: OpenACC: workaround for Cray CCE compiler:
 add an intermediate variable for VSIGQSAT

---
 src/MNH/modeln.f90 | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 6c65d3c53..84dc46588 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -362,7 +362,10 @@ USE MODD_TIME_n
 USE MODD_TIMEZ
 USE MODD_TURB_CLOUD,     ONLY: NMODEL_CLOUD,CTURBLEN_CLOUD,XCEI
 USE MODD_TURB_n
-USE MODD_VISCOSITY
+#ifdef MNH_COMPILER_CCE
+USE MODD_TURB_n,         ONLY:  VSIGQSAT_MODD => VSIGQSAT
+#endif
+ USE MODD_VISCOSITY
 !
 use mode_budget,           only: Budget_store_init, Budget_store_end
 USE MODE_DATETIME
@@ -559,8 +562,14 @@ REAL, DIMENSION(:,:,:,:), ALLOCATABLE :: ZWETDEPAER
 !
 TYPE(TFILEDATA),POINTER :: TZBAKFILE, TZOUTFILE
 ! TYPE(TFILEDATA),SAVE    :: TZDIACFILE
-!-------------------------------------------------------------------------------
 !
+#ifdef MNH_COMPILER_CCE
+!Bypass cray bug with scalar pointer
+REAL :: VSIGQSAT
+VSIGQSAT = VSIGQSAT_MODD
+#endif
+!-------------------------------------------------------------------------------
+
 TZBAKFILE=> NULL()
 TZOUTFILE=> NULL()
 
-- 
GitLab