diff --git a/src/ZSOLVER/ppm.f90 b/src/ZSOLVER/ppm.f90
index 43378661f97691e9cadf74aed320c0df1ac2148f..83f0849e7424d7c723d17c9f989e793359f142eb 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)