Merge pull request #84 from nordmoen/feature_xchalt_error_stop

Make 'xchalt' signal error
NorESMhub · Apr 30, 2021 · f14423e · f14423e
2 parents 13b9948 + 6ded070
commit f14423e
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/phy/mod_xc_mp.inc b/phy/mod_xc_mp.inc
@@ -1012,7 +1012,7 @@ c
 #else
       call abort()
 #endif
-      stop '(xchalt)'
+      error stop '(xchalt)'
       end subroutine xchalt
 
       subroutine xclget(aline,nl, a, i1,j1,iinc,jinc, mnflg)

diff --git a/phy/mod_xc_sm.inc b/phy/mod_xc_sm.inc
@@ -210,7 +210,7 @@ c
         write(lp,*) '**************************************************'
         call flush(lp)
       endif
-      stop '(xchalt)'
+      error stop '(xchalt)'
       end subroutine xchalt
 
       subroutine xclget(aline,nl, a, i1,j1,iinc,jinc, mnflg)