From 44b5481a9746c1ba6d9b222f957d54b0f45a1369 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 17 Jan 2022 13:52:28 +0100
Subject: [PATCH] Philippe 17/01/2022: OpenACC: minor: remove empty kernels
region
---
src/MNH/ppm.f90 | 2 --
1 file changed, 2 deletions(-)
diff --git a/src/MNH/ppm.f90 b/src/MNH/ppm.f90
index b121afec5..88e8f198b 100644
--- a/src/MNH/ppm.f90
+++ b/src/MNH/ppm.f90
@@ -1489,7 +1489,6 @@ CALL MPPDB_CHECK(ZQL0,"PPM_01_Y: ZQL0")
#else
!$acc end kernels
CALL GET_HALO_D(ZFNEG,HDIR="01_Y", HNAME='UPDATE_HALO_ll::GET_HALO::ZFNEG')
-!$acc kernels
#endif
!
! advect the actual field in Y direction by V*dt
@@ -1498,7 +1497,6 @@ CALL MPPDB_CHECK(ZQL0,"PPM_01_Y: ZQL0")
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