/[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 10 by guez, Fri Apr 18 14:45:53 2008 UTC revision 18 by guez, Thu Aug 7 12:29:13 2008 UTC
# Line 16  contains Line 16  contains
16      !         ierr    = severity of situation ( = 0 normal )      !         ierr    = severity of situation ( = 0 normal )
17    
18      USE IOIPSL, only: histclo      USE IOIPSL, only: histclo
     use iniprint, only: lunout  
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 26  contains
26      print *, 'abort_gcm'      print *, 'abort_gcm'
27    
28      call histclo      call histclo
29      write(lunout,*) 'Stopping in ', modname      print *, 'Stopping in ', modname
30      write(lunout,*) 'Reason = ', trim(message)      print *, 'Reason: ', trim(message)
31      write(lunout,*) 'Houston, we have a problem ', ierr      print *, 'Houston, we have a problem ', ierr
32      STOP 1      STOP 1
33    
34    END SUBROUTINE abort_gcm    END SUBROUTINE abort_gcm
Legend:
Removed from v.10  
changed lines
  Added in v.18
  ViewVC Help
Powered by ViewVC 1.1.21