diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90 index 2ad2d2e71f9be81df0d1561fe30f6b0e4b99eb1a..8848e9d414206d23bd8ee760e5054c9515f71672 100644 --- a/src/MNH/modeln.f90 +++ b/src/MNH/modeln.f90 @@ -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, &