diff --git a/src/ZSOLVER/contrav.f90 b/src/ZSOLVER/contrav.f90
index 2976ea75498e15d3ed7c362ee51d87121228775e..ac9d433709c107859df5a69ba33f72f5d045f418 100644
--- a/src/ZSOLVER/contrav.f90
+++ b/src/ZSOLVER/contrav.f90
@@ -688,7 +688,7 @@ FLAT: IF (LFLAT) THEN
 !$acc kernels
     PRWCT(:,:,:) = PRWT(:,:,:) / PDZZ(:,:,:)
 !$acc end kernels
-!$acc update self(PRWCT)
+! acc update self(PRWCT)
   ELSE
     PRWCT(:,:,:) = PRWT(:,:,:) / PDZZ(:,:,:)
   END IF
@@ -876,7 +876,7 @@ END IF
 !$acc kernels
 PRWCT(:,:,1) = - PRWCT(:,:,3)     ! Mirror hypothesis
 !$acc end kernels
-!$acc update self(PRWCT)
+! acc update self(PRWCT)
 !
 IF (KADV_ORDER == 4 ) THEN
 !!$!$acc exit data delete( zu_east, zv_north, zdzx_east, zdzy_north )