/[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 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 18 by guez, Thu Aug 7 12:29:13 2008 UTC
# Line 27  contains Line 27  contains
27    
28      call histclo      call histclo
29      print *, 'Stopping in ', modname      print *, 'Stopping in ', modname
30      print *, 'Reason = ', trim(message)      print *, 'Reason: ', trim(message)
31      print *, 'Houston, we have a problem ', ierr      print *, 'Houston, we have a problem ', ierr
32      STOP 1      STOP 1
33    
Legend:
Removed from v.12  
changed lines
  Added in v.18
  ViewVC Help
Powered by ViewVC 1.1.21