/[lmdze]/trunk/libf/dyn3d/abort_gcm.f90
ViewVC logotype

Diff of /trunk/libf/dyn3d/abort_gcm.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 10 by guez, Fri Apr 18 14:45:53 2008 UTC
# Line 29  contains Line 29  contains
29      call histclo      call histclo
30      write(lunout,*) 'Stopping in ', modname      write(lunout,*) 'Stopping in ', modname
31      write(lunout,*) 'Reason = ', trim(message)      write(lunout,*) 'Reason = ', trim(message)
32      if (ierr == 0) then      write(lunout,*) 'Houston, we have a problem ', ierr
33         write(lunout,*) 'Everything is cool'      STOP 1
        STOP  
     else  
        write(lunout,*) 'Houston, we have a problem ', ierr  
        STOP 1  
     endif  
34    
35    END SUBROUTINE abort_gcm    END SUBROUTINE abort_gcm
36    
Legend:
Removed from v.3  
changed lines
  Added in v.10
  ViewVC Help
Powered by ViewVC 1.1.21