diff --git a/src/common/turb/mode_sbl_depth.F90 b/src/common/turb/mode_sbl_depth.F90 index 2d5c804001b964a1351aa79aabf19b61a9a74b09..869fb8e6bfbf82d6255b5c77d2450f1886ca0e06 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) !