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

Philippe 25/04/2023: OpenACC: contrav: remove unnecessary update

parent 73d65296
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 0 additions and 1 deletion
src/MNH/contrav.f90
+ 0
− 1
View file @ 155a8cdd
......@@ -678,7 +678,6 @@ IF (GDATA_ON_DEVICE) THEN
PRUCT(:,:,:) = PRUT(:,:,:) / PDXX(:,:,:)
PRVCT(:,:,:) = PRVT(:,:,:) / PDYY(:,:,:)
!$acc end kernels
!$acc update self(PRUCT,PRVCT)
ELSE
PRUCT(:,:,:) = PRUT(:,:,:) / PDXX(:,:,:)
PRVCT(:,:,:) = PRVT(:,:,:) / PDYY(:,:,:)
......
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