From a730d4aee912c11811b163fb1cef743169d77c7a Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Tue, 14 Nov 2023 18:08:07 +0200
Subject: [PATCH] Juan 14/11/2023: rain_ice_fast_ri.f90, Bug/data not present
with CCE/16.0.1 around where -> add mnh_expand_where to bypass the bug (other
where have already been transformed this way)
---
src/MNH/rain_ice_fast_ri.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/MNH/rain_ice_fast_ri.f90 b/src/MNH/rain_ice_fast_ri.f90
index 65d9a1fce..54739bd37 100644
--- a/src/MNH/rain_ice_fast_ri.f90
+++ b/src/MNH/rain_ice_fast_ri.f90
@@ -141,12 +141,14 @@ CALL MNH_MEM_GET( ZLBEXI, SIZE(PRHODREF) )
!$acc kernels
GWORK(:) = PRIS(:)>0.0 .AND. PZT(:)>XTT
+ !$mnh_expand_where(JL=1:JLU)
WHERE( GWORK(:) )
PRCS(:) = PRCS(:) + PRIS(:)
PTHS(:) = PTHS(:) - PRIS(:)*(PLSFACT(:)-PLVFACT(:)) ! f(L_f*(-RIMLTC))
PRIS(:) = 0.0
PCIT(:) = 0.0
END WHERE
+ !$mnh_end_expand_where()
!$acc end kernels
if ( lbudget_th ) call Budget_store_end( tbudgets(NBUDGET_TH), 'IMLT', Unpack ( pths(:) * prhodj(:), &
--
GitLab