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