--- trunk/libf/dyn3d/abort_gcm.f90	2008/02/27 13:16:39	3
+++ trunk/libf/dyn3d/abort_gcm.f90	2008/07/21 16:05:07	12
@@ -16,7 +16,6 @@
     !         ierr    = severity of situation ( = 0 normal )
 
     USE IOIPSL, only: histclo
-    use iniprint, only: lunout
 
     character(len=*), intent(in):: modname
     integer, intent(in):: ierr
@@ -27,15 +26,10 @@
     print *, 'abort_gcm'
 
     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
+    print *, 'Stopping in ', modname
+    print *, 'Reason = ', trim(message)
+    print *, 'Houston, we have a problem ', ierr
+    STOP 1
 
   END SUBROUTINE abort_gcm