From eb08016cd7421d8949f202187eb8f90fa30fc851 Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Fri, 4 Nov 2022 18:37:38 +0100
Subject: [PATCH] Juan 04/11/2022:ZSOLVER/p_abs.f90 , CCE < 14.X  , miss placed
 (empty) "!$acc kernel"

---
 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 ea09e7646..2ab46c896 100644
--- a/src/ZSOLVER/p_abs.f90
+++ b/src/ZSOLVER/p_abs.f90
@@ -366,14 +366,14 @@ IF ( CEQNSYS=='DUR' .OR. CEQNSYS=='MAE' ) THEN
   ZMASSGUESS_2D  = 0.
   !$acc end kernels
   IF ( CEQNSYS == 'DUR' ) THEN
-     !$acc kernels
 #ifdef MNH_COMPILER_CCE_1403
+     !$acc kernels
      !$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)
      !$mnh_end_do()
-#endif
      !$acc end kernels
+#endif
      !$acc parallel
      !$acc loop seq 
      DO JK = IKB,IKE
-- 
GitLab