From 3118357918d42db3637318da62119360583059cd Mon Sep 17 00:00:00 2001
From: Quentin Rodier <quentin.rodier@meteo.fr>
Date: Wed, 14 Jun 2023 17:23:40 +0200
Subject: [PATCH] Quentin 14/06/2023: bugfix missing (IIJB:IIE) on one
 computation statement

---
 src/common/turb/mode_sbl_depth.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/common/turb/mode_sbl_depth.F90 b/src/common/turb/mode_sbl_depth.F90
index 2d5c80400..869fb8e6b 100644
--- a/src/common/turb/mode_sbl_depth.F90
+++ b/src/common/turb/mode_sbl_depth.F90
@@ -130,7 +130,7 @@ ZSBL_THER(IIJB:IIJE)= CSTURB%XSBL_O_BL * ZSBL_THER(IIJB:IIJE)
 PSBL_DEPTH(:) = 0.
 !$mnh_expand_where(JIJ=IIJB:IIJE)
 WHERE (ZSBL_THER(IIJB:IIJE)> 0. .AND. ZSBL_DYN(IIJB:IIJE)> 0.) 
-  PSBL_DEPTH = MIN(ZSBL_THER(IIJB:IIJE),ZSBL_DYN(IIJB:IIJE))
+  PSBL_DEPTH(IIJB:IIJE) = MIN(ZSBL_THER(IIJB:IIJE),ZSBL_DYN(IIJB:IIJE))
 END WHERE
 !$mnh_end_expand_where(JIJ=IIJB:IIJE)
 !
-- 
GitLab