Skip to content
Snippets Groups Projects
Commit c3556f67 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

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

parent 3a892799
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/modeln.f90
+ 2
− 0
View file @ c3556f67
...@@ -1750,6 +1750,7 @@ if ( .not. l1d ) then ...@@ -1750,6 +1750,7 @@ if ( .not. l1d ) then
if ( lbudget_w ) call Budget_store_init( tbudgets(NBUDGET_W), 'PRES', xrws(:, :, :) ) if ( lbudget_w ) call Budget_store_init( tbudgets(NBUDGET_W), 'PRES', xrws(:, :, :) )
end if end if
!$acc update self( XRUS, XRVS, XRWS )
CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, & CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, &
XTSTEP, & XTSTEP, &
XDXHAT, XDYHAT, XZHAT, & XDXHAT, XDYHAT, XZHAT, &
...@@ -1758,6 +1759,7 @@ CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, & ...@@ -1758,6 +1759,7 @@ CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, &
XFLUCTUNW,XFLUCTVNN,XFLUCTUNE,XFLUCTVNS, & XFLUCTUNW,XFLUCTVNN,XFLUCTUNE,XFLUCTVNS, &
XCPHASE, XCPHASE_PBL, XRHODJ, & XCPHASE, XCPHASE_PBL, XRHODJ, &
XTKET,XRUS, XRVS, XRWS ) XTKET,XRUS, XRVS, XRWS )
!$acc update device( XRUS, XRVS, XRWS )
ZRUS=XRUS-ZRUS ZRUS=XRUS-ZRUS
ZRVS=XRVS-ZRVS ZRVS=XRVS-ZRVS
ZRWS=XRWS-ZRWS ZRWS=XRWS-ZRWS
......
src/ZSOLVER/modeln.f90
+ 2
− 0
View file @ c3556f67
...@@ -1750,6 +1750,7 @@ if ( .not. l1d ) then ...@@ -1750,6 +1750,7 @@ if ( .not. l1d ) then
if ( lbudget_w ) call Budget_store_init( tbudgets(NBUDGET_W), 'PRES', xrws(:, :, :) ) if ( lbudget_w ) call Budget_store_init( tbudgets(NBUDGET_W), 'PRES', xrws(:, :, :) )
end if end if
!$acc update self( XRUS, XRVS, XRWS )
CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, & CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, &
XTSTEP, & XTSTEP, &
XDXHAT, XDYHAT, XZHAT, & XDXHAT, XDYHAT, XZHAT, &
...@@ -1758,6 +1759,7 @@ CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, & ...@@ -1758,6 +1759,7 @@ CALL RAD_BOUND (CLBCX,CLBCY,CTURB,XCARPKMAX, &
XFLUCTUNW,XFLUCTVNN,XFLUCTUNE,XFLUCTVNS, & XFLUCTUNW,XFLUCTVNN,XFLUCTUNE,XFLUCTVNS, &
XCPHASE, XCPHASE_PBL, XRHODJ, & XCPHASE, XCPHASE_PBL, XRHODJ, &
XTKET,XRUS, XRVS, XRWS ) XTKET,XRUS, XRVS, XRWS )
!$acc update device( XRUS, XRVS, XRWS )
ZRUS=XRUS-ZRUS ZRUS=XRUS-ZRUS
ZRVS=XRVS-ZRVS ZRVS=XRVS-ZRVS
ZRWS=XRWS-ZRWS ZRWS=XRWS-ZRWS
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme