Skip to content
Snippets Groups Projects
Commit 31183579 authored by RODIER Quentin's avatar RODIER Quentin
Browse files

Quentin 14/06/2023: bugfix missing (IIJB:IIE) on one computation statement

parent 06a43af3
No related branches found
No related tags found
No related merge requests found
......@@ -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)
!
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment