Changeset 1004 for LMDZ4/trunk/libf/dyn3d

Timestamp:

Oct 6, 2008, 11:34:22 AM (16 years ago)

Author:

Laurent Fairhead

Message:

En attendant que toutes les sorties soient dans un fichier et pour ne pas passer
1 plombe a se demander pourquoi le modele s'est arrete sans explication ...
LF

File:

• LMDZ4/trunk/libf/dyn3d/abort_gcm.F (modified) (2 diffs)

LMDZ4/trunk/libf/dyn3d/abort_gcm.F

@@ -23 +23 @@
       character*(*) message
 
-      write(lunout,*) 'in abort_gcm'
+!      write(lunout,*) 'in abort_gcm'
+      write(6,*) 'in abort_gcm'
 #ifdef CPP_IOIPSL
       call histclo
@@ -33 +34 @@
 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