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

Diff of /trunk/dyn3d/abort_gcm.f

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

revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC revision 33 by guez, Fri Apr 9 10:56:14 2010 UTC
# Line 7  contains Line 7  contains
7    SUBROUTINE abort_gcm(modname, message, ierr)    SUBROUTINE abort_gcm(modname, message, ierr)
8    
9      ! From abort_gcm.F, version 1.1.1.1 2004/05/19 12:53:05      ! From abort_gcm.F, version 1.1.1.1 2004/05/19 12:53:05
10        ! Stops the simulation, closing files and printing comments.
     ! Stops the simulation cleanly, closing files and printing various  
     ! comments  
   
     !  Input: modname = name of calling program  
     !         message = stuff to print  
     !         ierr    = severity of situation ( = 0 normal )  
11    
12      USE histcom, only: histclo      USE histcom, only: histclo
13    
14      character(len=*), intent(in):: modname      character(len=*), intent(in):: modname ! name of calling program
15      integer, intent(in):: ierr      integer, intent(in):: ierr ! severity of situation (= 0 normal)
16      character(len=*), intent(in):: message      character(len=*), intent(in):: message ! to print
17    
18      !-------------------      !-------------------
19    
20      print *, 'abort_gcm'      print *, 'abort_gcm'
   
21      call histclo      call histclo
22      print *, 'Stopping in ', modname      print *, 'Stopping in ', modname
23      print *, 'Reason: ', trim(message)      print *, 'Reason: ', trim(message)
Legend:
Removed from v.30  
changed lines
  Added in v.33
  ViewVC Help
Powered by ViewVC 1.1.21