Skip to content
Snippets Groups Projects
Commit a6cf9240 authored by Wautelet Philippe's avatar Wautelet Philippe
Browse files

Philippe 27/10/2021: bugfix: correct loop boundaries

parent c0b45c74
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
src/MNH/ice4_fast_rs.f90
+ 1
− 1
View file @ a6cf9240
......@@ -363,7 +363,7 @@ ELSE
!
! 5.1.4 riming of the small sized aggregates
!
DO CONCURRENT( JJ = 1 : IGRIM )
DO CONCURRENT( JJ = 1 : ISIZE )
IF ( GRIM(JJ) ) THEN
PRS_TEND(JJ, IRCRIMSS) = XCRIMSS * ZZW(JJ) * PRCT(JJ) & ! RCRIMSS
#ifndef MNH_BITREP
......
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