--- trunk/Sources/dyn3d/abort_gcm.f	2015/09/14 17:25:15	170
+++ trunk/Sources/dyn3d/abort_gcm.f	2015/09/29 19:48:59	171
@@ -4,7 +4,7 @@
 
 contains
 
-  SUBROUTINE abort_gcm(modname, message, ierr)
+  SUBROUTINE abort_gcm(modname, message)
 
     ! From abort_gcm.F, version 1.1.1.1 2004/05/19 12:53:05
     ! Stops the simulation, closing files and printing comments.
@@ -12,7 +12,6 @@
     USE histclo_m, only: histclo
 
     character(len=*), intent(in):: modname ! name of calling program
-    integer, intent(in):: ierr ! severity of situation (= 0 normal)
     character(len=*), intent(in):: message ! to print
 
     !-------------------
@@ -21,7 +20,7 @@
     call histclo
     print *, 'Stopping in ', modname
     print *, 'Reason: ', trim(message)
-    print *, 'Houston, we have a problem ', ierr
+    print *, 'Houston, we have a problem.'
     STOP 1
 
   END SUBROUTINE abort_gcm