Skip to content
Snippets Groups Projects
Commit c2d358ba authored by Antoine Cyril David Hoffmann's avatar Antoine Cyril David Hoffmann 🌱
Browse files

correct verbose lvl

parent 5936e13d
No related branches found
No related tags found
1 merge request!1Dev
......@@ -16,8 +16,8 @@ SUBROUTINE tesend
IF( mlend ) THEN
nlend = .TRUE.
crashed = .TRUE.
CALL speak('rhs is NaN/Inf',0)
CALL speak('Run terminated at cstep='//str(cstep),0)
CALL speak('rhs is NaN/Inf',-99)
CALL speak('Run terminated at cstep='//str(cstep),-99)
RETURN
END IF
......@@ -25,7 +25,7 @@ SUBROUTINE tesend
! 2. Test on NRUN
nlend = step .GE. nrun
IF ( nlend ) THEN
CALL speak('NRUN steps done',0)
CALL speak('NRUN steps done',-99)
RETURN
END IF
......
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