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

Philippe 10/02/2022: OpenACC: fix: data regions must be outside kernels regions

parent 579a22b1
No related branches found
No related tags found
No related merge requests found
......@@ -301,15 +301,19 @@ DO JK=IKTB,IKTE
END DO
END DO
END DO
!$acc end kernels
!-------------------------------------------------------------------------------
! Preliminary calculations
! latent heat of vaporisation/sublimation
IF(GPRESENT_PLV .AND. GPRESENT_PLS) THEN
!$acc data present( PLV, PLS )
!$acc kernels
ZLV(:,:,:)=PLV(:,:,:)
ZLS(:,:,:)=PLS(:,:,:)
!$acc end kernels
!$acc end data
ELSE
!$acc kernels
DO JK=IKTB,IKTE
DO JJ=KJB,KJE
DO JI=KIB,KIE
......@@ -320,12 +324,16 @@ ELSE
ENDDO
ENDDO
ENDDO
!$acc end kernels
ENDIF
IF(GPRESENT_PCPH) THEN
!$acc data present( PCPH )
!$acc kernels
ZCPD(:,:,:)=PCPH(:,:,:)
!$acc end kernels
!$acc end data
ELSE
!$acc kernels
DO JK=IKTB,IKTE
DO JJ=KJB,KJE
DO JI=KIB,KIE
......@@ -334,8 +342,10 @@ ELSE
ENDDO
ENDDO
ENDDO
!$acc end kernels
ENDIF
!-------------------------------------------------------------------------------
!$acc kernels
! Preliminary calculations needed for computing the "turbulent part" of Sigma_s
IF ( .NOT. OSIGMAS ) THEN
DO JK=IKTB,IKTE
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment