From 65d1c4c9dde51aaadf827d376d3cb5ad2f52bbfa Mon Sep 17 00:00:00 2001
From: Juan ESCOBAR <juan.escobar@aero.obs-mip.fr>
Date: Fri, 4 Nov 2022 18:56:12 +0100
Subject: [PATCH] Juan 04/11/2022:MNH/rain_ice_red.f90, ATTENTION , for CCE >
14.X, temporarely inhibe compilation of rain_ice_red, MORE THEN 30 minutes
---
src/MNH/rain_ice_red.f90 | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/src/MNH/rain_ice_red.f90 b/src/MNH/rain_ice_red.f90
index 4e1030233..c598b4c69 100644
--- a/src/MNH/rain_ice_red.f90
+++ b/src/MNH/rain_ice_red.f90
@@ -359,6 +359,11 @@ REAL, DIMENSION(:,:,:), OPTIONAL, INTENT(INOUT) :: PRHS ! Hail m.r. source
REAL, DIMENSION(:,:), OPTIONAL, INTENT(OUT) :: PINPRH! Hail instant precip
REAL, DIMENSION(:,:,:,:), OPTIONAL, INTENT(OUT) :: PFPR ! upper-air precipitation fluxes
!
+#ifdef MNH_COMPILER_CCE
+STOP "RAIN_ICE_RED TROP LENT A COMPILER AVEC CRAY/CCE >> 30 Minutes "
+STOP "ENLEVE LE ifdefMNH_COMPILER_CCE , SI VOUS EN AVEZ BESOIN sur GPU AMD "
+#else
+!
!* 0.2 Declarations of local variables :
!
INTEGER :: IIB ! Define the domain where is
@@ -1400,8 +1405,8 @@ IF(HSUBG_AUCV_RC=='PDF ' .AND. CSUBG_PR_PDF=='SIGM') GTEST=.true.
#endif
IF(IMICRO>0) THEN
-!$acc loop independent
- DO JL=1, IMICRO
+!acc loop independent
+ !$mnh_do_concurrent(JL=1:IMICRO)
ZRVT(JL) = PRVT(I1(JL),I2(JL),I3(JL))
ZRCT(JL) = PRCT(I1(JL),I2(JL),I3(JL))
ZRRT(JL) = PRRT(I1(JL),I2(JL),I3(JL))
@@ -1430,7 +1435,7 @@ IF(IMICRO>0) THEN
ELSE
ZHLI_LCF(JL)=0.
ENDIF
- ENDDO
+ !$mnh_end_do()
IF(GEXT_TEND) THEN
!$acc loop independent
DO JL=1, IMICRO
@@ -2895,5 +2900,6 @@ CONTAINS
END SUBROUTINE CORRECT_NEGATIVITIES
!
+#endif
END SUBROUTINE RAIN_ICE_RED
--
GitLab