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

68952cbf · ESCOBAR MUNOZ Juan · 43b6ff00 · 68952cbf
Commit 68952cbf authored 2 years ago by ESCOBAR MUNOZ Juan
--- 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 )