From 57c21d7bbbe5fe9c73ab511eb9e3dff295467031 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Mon, 7 Nov 2022 11:16:46 +0100
Subject: [PATCH] Juan 7/11/2022:ZSOLVER/p_abs.f90, missing test on
MNH_BITREP_OMP for OPENACCNOBITREP version
---
src/ZSOLVER/p_abs.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/ZSOLVER/p_abs.f90 b/src/ZSOLVER/p_abs.f90
index 2ab46c896..3b41b15e6 100644
--- a/src/ZSOLVER/p_abs.f90
+++ b/src/ZSOLVER/p_abs.f90
@@ -296,7 +296,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
ZWORK(:,:,:)=PRHODJ * XTH00 &
/ ( PRHODREF * PTHVREF * (1. + PRVREF) )
END IF
-#ifdef MNH_COMPILER_CCE_1403
+#if defined(MNH_COMPILER_CCE_1403) && defined(MNH_BITREP_OMP)
!$acc loop
!$mnh_do_concurrent(JI=IIB:IIE,JJ=IJB:IJE,JK=IKB:IKE )
PEXNREF_BR(JI,JJ,JK)=BR_POW((PEXNREF(JI,JJ,JK)+PPHIT(JI,JJ,JK)),ZCVD_O_RD)
@@ -366,7 +366,7 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
ZMASSGUESS_2D = 0.
!$acc end kernels
IF ( CEQNSYS == 'DUR' ) THEN
-#ifdef MNH_COMPILER_CCE_1403
+ #if defined(MNH_COMPILER_CCE_1403) && defined(MNH_BITREP_OMP)
!$acc kernels
!$acc loop
!$mnh_do_concurrent(JI=IIB:IIE,JJ=IJB:IJE,JK=IKB:IKE )
--
GitLab