--- trunk/libf/dyn3d/abort_gcm.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/abort_gcm.f90	2008/04/18 14:45:53	10
@@ -29,13 +29,8 @@
     call histclo
     write(lunout,*) 'Stopping in ', modname
     write(lunout,*) 'Reason = ', trim(message)
-    if (ierr == 0) then
-       write(lunout,*) 'Everything is cool'
-       STOP
-    else
-       write(lunout,*) 'Houston, we have a problem ', ierr
-       STOP 1
-    endif
+    write(lunout,*) 'Houston, we have a problem ', ierr
+    STOP 1
 
   END SUBROUTINE abort_gcm