Skip to content
Snippets Groups Projects
Commit 88cde39d authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan
Browse files

Juan 21/10/2021:ZSOLVER/ini_modeln.f90, GPU=OPENACCO2 , add enter adata copyin(XRUS,XRVS,XRWS)

parent 43f0ea57
No related branches found
No related tags found
No related merge requests found
......@@ -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
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment