Philippe 17/01/2022: OpenACC: minor (ZSOLVER): remove empty kernels region

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)