From 7fd4b868ef37c4555b58efbf40d1fbeba6f48cac Mon Sep 17 00:00:00 2001
From: ESCOBAR Juan <escj@nuwa>
Date: Tue, 15 Mar 2022 15:22:40 +0100
Subject: [PATCH] Juan 15/01/2022:ZSOLVER/modeln.f90,for GPU + ZSOLVER, update
 device ZPABST, not needed<->bug

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

diff --git a/src/ZSOLVER/modeln.f90 b/src/ZSOLVER/modeln.f90
index 71f868206..e82b9908c 100644
--- a/src/ZSOLVER/modeln.f90
+++ b/src/ZSOLVER/modeln.f90
@@ -1953,7 +1953,7 @@ IF (CCLOUD /= 'NONE' .AND. CELEC == 'NONE') THEN
 !$acc &            XHLC_HRC, XHLC_HCF, XHLI_HRI, XHLI_HCF)                                       &
 !$acc &    copyout(XSRCT, XRAINFR)
 
-!$acc update device ( XRTHS, ZPABST )
+!$acc update device (XRTHS)
   
   IF (CSURF=='EXTE') THEN
 #ifndef MNH_OPENACC
-- 
GitLab