From 88cde39d7739520ad432b5605b32923988c29cf5 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Thu, 21 Oct 2021 11:31:14 +0200
Subject: [PATCH] Juan 21/10/2021:ZSOLVER/ini_modeln.f90, GPU=OPENACCO2 , add
 enter adata copyin(XRUS,XRVS,XRWS)

---
 src/ZSOLVER/ini_modeln.f90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/src/ZSOLVER/ini_modeln.f90 b/src/ZSOLVER/ini_modeln.f90
index 8203f0ada..7fa50a868 100644
--- a/src/ZSOLVER/ini_modeln.f90
+++ b/src/ZSOLVER/ini_modeln.f90
@@ -786,6 +786,7 @@ ALLOCATE(XTHT(IIU,IJU,IKU))     ; XTHT = 0.0
 ALLOCATE(XRUS(IIU,IJU,IKU))     ; XRUS = 0.0
 ALLOCATE(XRVS(IIU,IJU,IKU))     ; XRVS = 0.0
 ALLOCATE(XRWS(IIU,IJU,IKU))     ; XRWS = 0.0
+!$acc enter data copyin(XRUS,XRVS,XRWS)
 ALLOCATE(XRUS_PRES(IIU,IJU,IKU)); XRUS_PRES = 0.0
 ALLOCATE(XRVS_PRES(IIU,IJU,IKU)); XRVS_PRES = 0.0
 ALLOCATE(XRWS_PRES(IIU,IJU,IKU)); XRWS_PRES = 0.0
-- 
GitLab