From 42dc2ddab3fd5fe46cd3608f329dc400dd773a6a Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Fri, 30 Jun 2023 15:25:20 +0200
Subject: [PATCH] Expand by hand functions COUNT() on IIJB:IIJE

---
 src/common/turb/mode_compute_updraft.F90 | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/src/common/turb/mode_compute_updraft.F90 b/src/common/turb/mode_compute_updraft.F90
index e9554a42f..2f8cabf9a 100644
--- a/src/common/turb/mode_compute_updraft.F90
+++ b/src/common/turb/mode_compute_updraft.F90
@@ -446,7 +446,10 @@ GTESTETL(:)=.FALSE.
 DO JK=IKB,IKE-IKL,IKL
 
   ! IF the updraft top is reached for all column, stop the loop on levels
-  ITEST=COUNT(GTEST(IIJB:IIJE))
+  ITEST=0
+  DO JIJ=IIJB,IIJE
+    IF(GTEST(JIJ)) ITEST = ITEST + 1
+  END DO
   IF (ITEST==0) CYCLE
 
   !       Computation of entrainment and detrainment with KF90
-- 
GitLab