diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90
index 1d7902e71600f36c4b02a2ec3ba29123cd61a2ec..8497080b6ffccf6356b096fdd6c2e5558e57f085 100644
--- a/src/MNH/modeln.f90
+++ b/src/MNH/modeln.f90
@@ -1750,6 +1750,7 @@ if ( .not. l1d ) then
   if ( lbudget_w ) call Budget_store_init( tbudgets(NBUDGET_W), 'PRES', xrws(:, :, :) )
 end if
 
+!$acc update self( XRUS, XRVS, XRWS )
 CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX,             &
                 XTSTEP,                                  &
                 XDXHAT, XDYHAT, XZHAT,                   &
@@ -1758,6 +1759,7 @@ CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX,             &
                 XFLUCTUNW,XFLUCTVNN,XFLUCTUNE,XFLUCTVNS, &
                 XCPHASE, XCPHASE_PBL, XRHODJ,            &
                 XTKET,XRUS, XRVS, XRWS                   )
+!$acc update device( XRUS, XRVS, XRWS )
 ZRUS=XRUS-ZRUS
 ZRVS=XRVS-ZRVS
 ZRWS=XRWS-ZRWS
diff --git a/src/ZSOLVER/modeln.f90 b/src/ZSOLVER/modeln.f90
index f06c77e4c4af9ef274c078717b1bf9e8e7d3803c..d4fe8d0f83c8427a3fba6734f6560447784235ef 100644
--- a/src/ZSOLVER/modeln.f90
+++ b/src/ZSOLVER/modeln.f90
@@ -1750,6 +1750,7 @@ if ( .not. l1d ) then
   if ( lbudget_w ) call Budget_store_init( tbudgets(NBUDGET_W), 'PRES', xrws(:, :, :) )
 end if
 
+!$acc update self( XRUS, XRVS, XRWS )
 CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX,             &
                 XTSTEP,                                  &
                 XDXHAT, XDYHAT, XZHAT,                   &
@@ -1758,6 +1759,7 @@ CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX,             &
                 XFLUCTUNW,XFLUCTVNN,XFLUCTUNE,XFLUCTVNS, &
                 XCPHASE, XCPHASE_PBL, XRHODJ,            &
                 XTKET,XRUS, XRVS, XRWS                   )
+!$acc update device( XRUS, XRVS, XRWS )
 ZRUS=XRUS-ZRUS
 ZRVS=XRVS-ZRVS
 ZRWS=XRWS-ZRWS