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

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

parent 48cb2a5f
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/ice4_fast_rg.f90
+ 1
− 1
View file @ 9c064dd7
...@@ -601,7 +601,7 @@ ELSE ...@@ -601,7 +601,7 @@ ELSE
ZZW(I1(JJ)) = ZVEC3(JJ) ZZW(I1(JJ)) = ZVEC3(JJ)
END DO END DO
! !
!$mnh_expand_where(JJ=1:IGDRY) !$mnh_expand_where(JJ=1:ISIZE)
WHERE(GDRY(:)) WHERE(GDRY(:))
#ifndef MNH_BITREP #ifndef MNH_BITREP
PRG_TEND(:, IRRDRYG) = XFRDRYG*ZZW(:) & ! RRDRYG PRG_TEND(:, IRRDRYG) = XFRDRYG*ZZW(:) & ! RRDRYG
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

Documentation | Mentions légales | CGU | Accessibilité : non conforme