Skip to content
Snippets Groups Projects
Commit 954772c4 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 08/07/2019: OpenACC: fix: missing data directive

parent a6b5010a
No related branches found
No related tags found
No related merge requests found
......@@ -1492,6 +1492,9 @@ XTIME_LES_BU_PROCESS = 0.
!$acc update device(XUT, XVT, XWT, XRHODJ)
!
!
!$acc data copyin (XTKET, XRSVS_CLD) &
!$acc & copy (XRTKES, XRSVS) &
!$acc & copyout(XRTKEMS)
CALL ADVECTION_METSV ( TZBAKFILE, GCLOSE_OUT,CUVW_ADV_SCHEME, &
CMET_ADV_SCHEME, CSV_ADV_SCHEME, CCLOUD, NSPLIT, &
LSPLIT_CFL, XSPLIT_CFL, LCFL_WRIT, &
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment