/[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

trunk/libf/dyn3d/abort_gcm.f90 revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC trunk/dyn3d/abort_gcm.f revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC
# Line 4  module abort_gcm_m Line 4  module abort_gcm_m
4    
5  contains  contains
6    
7    SUBROUTINE abort_gcm(modname, message, ierr)    SUBROUTINE abort_gcm(modname, message)
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.
11    
12      ! Stops the simulation cleanly, closing files and printing various      USE histclo_m, only: histclo
     ! comments  
13    
14      !  Input: modname = name of calling program      character(len=*), intent(in):: modname ! name of calling program
15      !         message = stuff to print      character(len=*), intent(in):: message ! to print
     !         ierr    = severity of situation ( = 0 normal )  
   
     USE IOIPSL, only: histclo  
     use iniprint, only: lunout  
   
     character(len=*), intent(in):: modname  
     integer, intent(in):: ierr  
     character(len=*), intent(in):: message  
16    
17      !-------------------      !-------------------
18    
19      print *, 'abort_gcm'      print *, 'abort_gcm'
   
20      call histclo      call histclo
21      write(lunout,*) 'Stopping in ', modname      print *, 'Stopping in ', modname
22      write(lunout,*) 'Reason = ', trim(message)      print *, 'Reason: ', trim(message)
23      if (ierr == 0) then      print *, 'Houston, we have a problem.'
24         write(lunout,*) 'Everything is cool'      STOP 1
        STOP  
     else  
        write(lunout,*) 'Houston, we have a problem ', ierr  
        STOP 1  
     endif  
25    
26    END SUBROUTINE abort_gcm    END SUBROUTINE abort_gcm
27    
Legend:
Removed from v.3  
changed lines
  Added in v.254
  ViewVC Help
Powered by ViewVC 1.1.21