From 7b8af3f3a6eaeeaab94f537d7b45e71e8843ef23 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 17 Jan 2022 14:13:02 +0100
Subject: [PATCH] Philippe 17/01/2022: OpenACC: minor (ZSOLVER): remove empty
kernels region
---
src/ZSOLVER/ppm.f90 | 2 --
1 file changed, 2 deletions(-)
diff --git a/src/ZSOLVER/ppm.f90 b/src/ZSOLVER/ppm.f90
index 43378661f..83f0849e7 100644
--- a/src/ZSOLVER/ppm.f90
+++ b/src/ZSOLVER/ppm.f90
@@ -1542,7 +1542,6 @@ CASE ('CYCL','WALL') ! In that case one must have HLBCY(1) == HLBCY(2)
#else
!$acc end kernels
CALL GET_HALO_D(ZFNEG,HDIR="01_Y", HNAME='ZFNEG')
-!$acc kernels
#endif
!
! advect the actual field in Y direction by V*dt
@@ -1551,7 +1550,6 @@ CASE ('CYCL','WALL') ! In that case one must have HLBCY(1) == HLBCY(2)
PR = DYF( PCR*MYM(PRHO)*( ZFPOS*(0.5+SIGN(0.5,PCR)) + &
ZFNEG*(0.5-SIGN(0.5,PCR)) ) )
#else
-!$acc end kernels
CALL MYM_DEVICE(PRHO,ZQL)
!$acc kernels
!$acc loop independent collapse(3)
--
GitLab