Skip to content
Snippets Groups Projects
Commit 68952cbf authored by ESCOBAR MUNOZ Juan's avatar ESCOBAR MUNOZ Juan
Browse files

Juan 01/02/2023:ZSOLVER/contrav.f90, remove unnecessary update(PRWCT)

parent 43b6ff00
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 2 additions and 2 deletions
src/ZSOLVER/contrav.f90
+ 2
− 2
View file @ 68952cbf
...@@ -688,7 +688,7 @@ FLAT: IF (LFLAT) THEN ...@@ -688,7 +688,7 @@ FLAT: IF (LFLAT) THEN
!$acc kernels !$acc kernels
PRWCT(:,:,:) = PRWT(:,:,:) / PDZZ(:,:,:) PRWCT(:,:,:) = PRWT(:,:,:) / PDZZ(:,:,:)
!$acc end kernels !$acc end kernels
!$acc update self(PRWCT) ! acc update self(PRWCT)
ELSE ELSE
PRWCT(:,:,:) = PRWT(:,:,:) / PDZZ(:,:,:) PRWCT(:,:,:) = PRWT(:,:,:) / PDZZ(:,:,:)
END IF END IF
...@@ -876,7 +876,7 @@ END IF ...@@ -876,7 +876,7 @@ END IF
!$acc kernels !$acc kernels
PRWCT(:,:,1) = - PRWCT(:,:,3) ! Mirror hypothesis PRWCT(:,:,1) = - PRWCT(:,:,3) ! Mirror hypothesis
!$acc end kernels !$acc end kernels
!$acc update self(PRWCT) ! acc update self(PRWCT)
! !
IF (KADV_ORDER == 4 ) THEN IF (KADV_ORDER == 4 ) THEN
!!$!$acc exit data delete( zu_east, zv_north, zdzx_east, zdzy_north ) !!$!$acc exit data delete( zu_east, zv_north, zdzx_east, zdzy_north )
......
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