From 0de407ccb238d5542ba2714766c75770a58732eb Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Wed, 14 Jun 2023 17:31:37 +0200
Subject: [PATCH] Juan 14/06/2023:ZSOLVER/advection_uvw_cen.f90, PB with !$acc
 empty continuation line -> add &

---
 src/ZSOLVER/advection_uvw_cen.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/ZSOLVER/advection_uvw_cen.f90 b/src/ZSOLVER/advection_uvw_cen.f90
index a4055eda1..6a2593d30 100644
--- a/src/ZSOLVER/advection_uvw_cen.f90
+++ b/src/ZSOLVER/advection_uvw_cen.f90
@@ -404,7 +404,7 @@ ELSEIF (HUVW_ADV_SCHEME=='CEN4TH') THEN
 END IF
 !
 !$acc kernels present(ZRUS,ZRVS,ZRWS,ZMXM_RHODJ,ZMYM_RHODJ,ZMZM_RHODJ) &
-!$acc present_cr(PRUS,PRVS,PRWS,PDUM,PDWM)
+!$acc & present_cr(PRUS,PRVS,PRWS,PDUM,PDWM)
 ZUS(:,:,:) = ZRUS(:,:,:)/ZMXM_RHODJ(:,:,:)*2.*PTSTEP
 ZVS(:,:,:) = ZRVS(:,:,:)/ZMYM_RHODJ(:,:,:)*2.*PTSTEP
 ZWS(:,:,:) = ZRWS(:,:,:)/ZMZM_RHODJ(:,:,:)*2.*PTSTEP
-- 
GitLab