From 94806bb3e4723ae703ec3771817826e2f6f40db6 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Fri, 16 Jun 2023 17:52:27 +0200
Subject: [PATCH] Juan 16/06/2023:ZSOLVER/pressurez.f90 , For CRAY ftn
 ,transform  mnh_do_concurrent -> DO CONCURRENNT to avoid serialisation of BR_
 call

---
 src/ZSOLVER/pressurez.f90 | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/src/ZSOLVER/pressurez.f90 b/src/ZSOLVER/pressurez.f90
index 0830b3bfb..a00c34bdc 100644
--- a/src/ZSOLVER/pressurez.f90
+++ b/src/ZSOLVER/pressurez.f90
@@ -287,6 +287,12 @@ USE MODI_SHUMAN_DEVICE
 USE MODI_ZCONJGRAD
 USE MODI_ZSOLVER
 
+#if defined(MNH_COMPILER_CCE) && defined(MNH_BITREP_OMP)
+!$mnh_undef(LOOP)
+!$mnh_undef(OPENACC)
+#endif
+
+
 IMPLICIT NONE
 !
 !*       0.1   declarations of arguments
-- 
GitLab