Index: LMDZ4/trunk/libf/dyn3d/abort_gcm.F
===================================================================
--- LMDZ4/trunk/libf/dyn3d/abort_gcm.F	(revision 999)
+++ LMDZ4/trunk/libf/dyn3d/abort_gcm.F	(revision 1004)
@@ -23,5 +23,6 @@
       character*(*) message
 
-      write(lunout,*) 'in abort_gcm'
+!      write(lunout,*) 'in abort_gcm'
+      write(6,*) 'in abort_gcm'
 #ifdef CPP_IOIPSL
       call histclo
@@ -33,10 +34,17 @@
 c     call histclo(4)
 c     call histclo(5)
-      write(lunout,*) 'Stopping in ', modname
-      write(lunout,*) 'Reason = ',message
+c     write(lunout,*) 'Stopping in ', modname
+c     write(lunout,*) 'Reason = ',message
+c     if (ierr .eq. 0) then
+c       write(lunout,*) 'Everything is cool'
+c     else
+c       write(lunout,*) 'Houston, we have a problem ', ierr
+c     endif
+      write(6,*) 'Stopping in ', modname
+      write(6,*) 'Reason = ',message
       if (ierr .eq. 0) then
-        write(lunout,*) 'Everything is cool'
+        write(6,*) 'Everything is cool'
       else
-        write(lunout,*) 'Houston, we have a problem ', ierr
+        write(6,*) 'Houston, we have a problem ', ierr
       endif
       STOP