diff --git a/src/ZSOLVER/advection_metsv.f90 b/src/ZSOLVER/advection_metsv.f90
index 466f611a63fce63e741eb4ab6426d610bc40a094..c9cbce0aeec1af60169da227853743a30d66a052 100644
--- a/src/ZSOLVER/advection_metsv.f90
+++ b/src/ZSOLVER/advection_metsv.f90
@@ -910,12 +910,12 @@ DO JSPL=1,KSPLIT
 !
 !  Guesses of the field inside the time splitting loop
 !
-   !$acc kernels   
+   !$acc kernels present_cr(ZTH)  
    ZTH(:,:,:) = ZTH(:,:,:) + ( ZRTHS_PPM(:,:,:) + ZRTHS_OTHER(:,:,:) + PRTHS_CLD(:,:,:)) * &
         ZTSTEP_PPM / PRHODJ(:,:,:)
    !$acc end kernels
    IF (GTKE) THEN
-      !$acc kernels
+      !$acc kernels present_cr(ZTKE)
       ZTKE(:,:,:) = ZTKE(:,:,:) + ( ZRTKES_PPM(:,:,:) + ZRTKES_OTHER(:,:,:) ) * ZTSTEP_PPM / PRHODJ(:,:,:)
       !$acc end kernels
    END IF
diff --git a/src/ZSOLVER/ppm.f90 b/src/ZSOLVER/ppm.f90
index 10a32e375076ce0fdd38842edb01d1931d36a6c8..099e9adb2bb28df78a147ad0c190c1004a914a6d 100644
--- a/src/ZSOLVER/ppm.f90
+++ b/src/ZSOLVER/ppm.f90
@@ -2364,7 +2364,7 @@ IF (GFIRST_CALL_PPM_S0_X) THEN
 END IF
 CALL GET_HALO2_DF(PSRC, TZ_PSRC_HALO2_ll, HNAME='GET_HALO2::PSRC')
 ZWEST => TZ_PSRC_HALO2_ll%HALO2%WEST
-!$acc kernels
+!$acc kernels present_cr(ZPSRC_HALO2_WEST,ZWEST)
 ZPSRC_HALO2_WEST(:,:) = ZWEST(:,:)
 !$acc end kernels
 #endif
@@ -2805,7 +2805,7 @@ IF (GFIRST_CALL_PPM_S0_Y) THEN
 END IF   
 CALL GET_HALO2_DF(PSRC, TZ_PSRC_HALO2_ll, HNAME='GET_HALO2::PSRC')
 ZSOUTH => TZ_PSRC_HALO2_ll%HALO2%SOUTH(:,:)
-!$acc kernels
+!$acc kernels present_cr(ZPSRC_HALO2_SOUTH,ZSOUTH)
 ZPSRC_HALO2_SOUTH(:,:) = ZSOUTH(:,:)
 !$acc end kernels
 #endif