Philippe 07/12/2021: OpenACC: update XRU/V/WS around RAD_BOUND

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

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