From 68952cbf1c7b691c7854aa1f236139f1dcc888ec Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Wed, 1 Feb 2023 10:55:54 +0100
Subject: [PATCH] Juan 01/02/2023:ZSOLVER/contrav.f90, remove unnecessary
update(PRWCT)
---
src/ZSOLVER/contrav.f90 | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/ZSOLVER/contrav.f90 b/src/ZSOLVER/contrav.f90
index 2976ea754..ac9d43370 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 )
--
GitLab