diff --git a/src/MNH/ppm.f90 b/src/MNH/ppm.f90 index b121afec54f9a1098f41bdc7f23561752c6a119d..88e8f198b48981b2bd9ca326b0df9e5e107a76f1 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)