From e944e61e8f59787b88be605c48171c7bf7096e1a Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Wed, 16 Nov 2022 16:42:35 +0100
Subject: [PATCH] Juan 16/11/2022:MNH/rain_ice_nucleation.f90,Nvhpc 22.X Bug
Bypass , "ZZWMAX=MAXVAL()" dont parallelize any-more in GPU -> replace by
"!$acc ... reduction(max:ZZWMAX)"
---
src/MNH/rain_ice_nucleation.f90 | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/src/MNH/rain_ice_nucleation.f90 b/src/MNH/rain_ice_nucleation.f90
index d563437d5..dbac01ac7 100644
--- a/src/MNH/rain_ice_nucleation.f90
+++ b/src/MNH/rain_ice_nucleation.f90
@@ -291,8 +291,19 @@ END DO
DO CONCURRENT ( JL=1:INEGT )
ZZW(JL) = ZZW(JL) - ZCIT(JL)
END DO
- ZZWMAX = MAXVAL(ZZW(1:INEGT))
+#ifndef MNH_COMPILER_NVHPC
+ ZZWMAX = MAXVAL(ZZW(1:INEGT))
!$acc end kernels
+#else
+!$acc end kernels
+ ZZWMAX = 0.0
+!$acc parallel reduction(max:ZZWMAX)
+ !$mnh_do_concurrent( JL=1:INEGT)
+ ZZWMAX = MAX(ZZWMAX,ZZW(JL))
+ !$mnh_end_do()
+!$acc end parallel
+#endif
+
IF( ZZWMAX > 0.0 ) THEN
!$acc kernels
--
GitLab