Skip to content
Snippets Groups Projects
Commit 91116445 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 20/06/2023: bugfix: ice4_fast_rg: correct mnh_expand_where loop size

(cherry picked from commit 9c064dd7)
parent fd314bd0
No related branches found
No related tags found
No related merge requests found
......@@ -601,7 +601,7 @@ ELSE
ZZW(I1(JJ)) = ZVEC3(JJ)
END DO
!
!$mnh_expand_where(JJ=1:IGDRY)
!$mnh_expand_where(JJ=1:ISIZE)
WHERE(GDRY(:))
#ifndef MNH_BITREP
PRG_TEND(:, IRRDRYG) = XFRDRYG*ZZW(:) & ! RRDRYG
......
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