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. ...@@ -1492,6 +1492,9 @@ XTIME_LES_BU_PROCESS = 0.
!$acc update device(XUT, XVT, XWT, XRHODJ) !$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, & CALL ADVECTION_METSV ( TZBAKFILE, GCLOSE_OUT,CUVW_ADV_SCHEME, &
CMET_ADV_SCHEME, CSV_ADV_SCHEME, CCLOUD, NSPLIT, & CMET_ADV_SCHEME, CSV_ADV_SCHEME, CCLOUD, NSPLIT, &
LSPLIT_CFL, XSPLIT_CFL, LCFL_WRIT, & LSPLIT_CFL, XSPLIT_CFL, LCFL_WRIT, &
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment