From c5002b37f947be317714c8220473d5f9199afd89 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Thu, 10 Feb 2022 11:33:49 +0100
Subject: [PATCH] Philippe 10/02/2022: OpenACC: fix: data regions must be
outside kernels regions
---
src/MNH/condensation.f90 | 10 ++++++++++
1 file changed, 10 insertions(+)
diff --git a/src/MNH/condensation.f90 b/src/MNH/condensation.f90
index f3fb77c5b..771779ed4 100644
--- a/src/MNH/condensation.f90
+++ b/src/MNH/condensation.f90
@@ -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
--
GitLab