diff --git a/src/common/turb/mode_compute_updraft.F90 b/src/common/turb/mode_compute_updraft.F90
index e9554a42f7b2deeae7396debbe8388901a39f424..2f8cabf9a6276f55e41c8db4ee1eeee3acc3a508 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