diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90 index 29f3dee3b4b3ad8474d20ca5d6fdd602d39bba13..6c65d3c53203be22585d1c97fa8e7a6a7bb83a50 100644 --- a/src/MNH/modeln.f90 +++ b/src/MNH/modeln.f90 @@ -1614,15 +1614,14 @@ XTIME_LES_BU_PROCESS = 0. ! !$acc update device(XRTHS) ! +!XRWS_PRES copy and not copyout (hidden in UPDATE_HALO) !$acc data create (XUT, XVT, XWT) & !$acc & copyin (XTHT, XPABST, XRT, XSVT, XRTHS_CLD, XRRS_CLD, XTHVREF) & -!$acc & copy (XRRS, XRUS, XRVS, XRWS) & -!$acc & copy (XRWS_PRES) & !XRWS_PRES copy and not copyout (hidden in UPDATE_HALO) -!$acc & present(XDXX, XDYY, XDZZ, XDZX, XDZY, XRHODJ) +!$acc & copy (XRRS, XRWS_PRES) & +!$acc & present(XDXX, XDYY, XDZZ, XDZX, XDZY, XRHODJ, XRUS, XRVS, XRWS ) ! !$acc update device(XUT, XVT, XWT, XRHODJ) - -! +!$acc update device(XRUS, XRVS, XRWS) ! !$acc data copyin (XTKET, XRSVS_CLD) & !$acc & copy (XRTKES, XRSVS) &