From caa3a1702b07acb0c6d90f5a6eecbb96df8a385d Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Mon, 25 Apr 2022 11:13:35 +0200
Subject: [PATCH] Philippe 25/04/2022: NVHPC bug workaround: use present_cr in
turb and tke_eps_sources
---
src/MNH/tke_eps_sources.f90 | 2 +-
src/MNH/turb.f90 | 2 +-
src/ZSOLVER/turb.f90 | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/MNH/tke_eps_sources.f90 b/src/MNH/tke_eps_sources.f90
index dd01a9a6d..29ac9391e 100644
--- a/src/MNH/tke_eps_sources.f90
+++ b/src/MNH/tke_eps_sources.f90
@@ -545,7 +545,7 @@ end if
if (lbudget_tke) then
!Store the previous source terms in prtkes before initializing the next one
- !$acc kernels present(ZRES)
+ !$acc kernels present_cr(ZRES)
PRTKES(:,:,:) = PRTKES(:,:,:) + PRHODJ(:,:,:) * &
( PDP(:,:,:) + PTP(:,:,:) &
- XCED * SQRT(PTKEM(:,:,:)) / PLEPS(:,:,:) * ( PEXPL*PTKEM(:,:,:) + PIMPL*ZRES(:,:,:) ) )
diff --git a/src/MNH/turb.f90 b/src/MNH/turb.f90
index 6a1d591af..8ac7c1bb9 100644
--- a/src/MNH/turb.f90
+++ b/src/MNH/turb.f90
@@ -1863,7 +1863,7 @@ CALL MNH_MEM_GET( zdrvsatdt, size( pexn, 1 ), size( pexn, 2 ), size( pexn, 3 ) )
END DO
#endif
!$acc end kernels
-!$acc kernels present(ZRVSAT,ZDRVSATDT)
+!$acc kernels present_cr(ZRVSAT,ZDRVSATDT)
!
!* 1.3 saturation mixing ratio at t
!
diff --git a/src/ZSOLVER/turb.f90 b/src/ZSOLVER/turb.f90
index b43950cf3..30c95d75e 100644
--- a/src/ZSOLVER/turb.f90
+++ b/src/ZSOLVER/turb.f90
@@ -1853,7 +1853,7 @@ CALL MNH_MEM_GET( zrvsat , size( pexn, 1 ), size( pexn, 2 ), size( pexn, 3 ) )
CALL MNH_MEM_GET( zdrvsatdt, size( pexn, 1 ), size( pexn, 2 ), size( pexn, 3 ) )
#endif
-!$acc data present( zrvsat, zdrvsatdt )
+!$acc data present_cr( zrvsat, zdrvsatdt )
ZEPS = XMV / XMD
!
--
GitLab