Naima 10/02/2022: OpenACC: bugfix: update XRUS, XRVS and XRWS and not copy...

Naima 10/02/2022: OpenACC: bugfix: update XRUS, XRVS and XRWS and not copy them because already present

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)    &