Juan 01/02/2023:ZSOLVER/contrav.f90, remove unnecessary update(PRWCT)

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 )