Changeset 1004 for LMDZ4/trunk


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/dyn3d/abort_gcm.F

    r995 r1004  
    2323      character*(*) message
    2424
    25       write(lunout,*) 'in abort_gcm'
     25!      write(lunout,*) 'in abort_gcm'
     26      write(6,*) 'in abort_gcm'
    2627#ifdef CPP_IOIPSL
    2728      call histclo
     
    3334c     call histclo(4)
    3435c     call histclo(5)
    35       write(lunout,*) 'Stopping in ', modname
    36       write(lunout,*) 'Reason = ',message
     36c     write(lunout,*) 'Stopping in ', modname
     37c     write(lunout,*) 'Reason = ',message
     38c     if (ierr .eq. 0) then
     39c       write(lunout,*) 'Everything is cool'
     40c     else
     41c       write(lunout,*) 'Houston, we have a problem ', ierr
     42c     endif
     43      write(6,*) 'Stopping in ', modname
     44      write(6,*) 'Reason = ',message
    3745      if (ierr .eq. 0) then
    38         write(lunout,*) 'Everything is cool'
     46        write(6,*) 'Everything is cool'
    3947      else
    40         write(lunout,*) 'Houston, we have a problem ', ierr
     48        write(6,*) 'Houston, we have a problem ', ierr
    4149      endif
    4250      STOP
Note: See TracChangeset for help on using the changeset viewer.