/[lmdze]/trunk/Sources/dyn3d/abort_gcm.f
ViewVC logotype

Diff of /trunk/Sources/dyn3d/abort_gcm.f

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

revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC
# Line 15  contains Line 15  contains
15      !         message = stuff to print      !         message = stuff to print
16      !         ierr    = severity of situation ( = 0 normal )      !         ierr    = severity of situation ( = 0 normal )
17    
18      USE IOIPSL, only: histclo      USE histcom, only: histclo
19    
20      character(len=*), intent(in):: modname      character(len=*), intent(in):: modname
21      integer, intent(in):: ierr      integer, intent(in):: ierr
# 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.30
  ViewVC Help
Powered by ViewVC 1.1.21