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

Diff of /trunk/dyn3d/abort_gcm.f90

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

revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC revision 331 by guez, Wed Jul 31 17:10:31 2019 UTC
# Line 4  module abort_gcm_m Line 4  module abort_gcm_m
4    
5  contains  contains
6    
7    SUBROUTINE abort_gcm(modname, message)    SUBROUTINE abort_gcm(modname, reason)
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, closing files and printing comments.
# Line 12  contains Line 12  contains
12      USE histclo_m, only: histclo      USE histclo_m, only: histclo
13    
14      character(len=*), intent(in):: modname ! name of calling program      character(len=*), intent(in):: modname ! name of calling program
15      character(len=*), intent(in):: message ! to print      character(len=*), intent(in):: reason ! to print
16    
17      !-------------------      !-------------------
18    
     print *, 'abort_gcm'  
19      call histclo      call histclo
20      print *, 'Stopping in ', modname      print *, 'abort_gcm called by ', modname
21      print *, 'Reason: ', trim(message)      print *, 'Reason: ', trim(reason)
22      print *, 'Houston, we have a problem.'      print *, 'Houston, we have a problem.'
23      STOP 1      STOP 1
24    
Legend:
Removed from v.328  
changed lines
  Added in v.331
  ViewVC Help
Powered by ViewVC 1.1.21