source: LMDZ.3.3/trunk/libf/dyn3d/abort_gcm.F @ 4249

Last change on this file since 4249 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 785 bytes
RevLine 
[2]1      SUBROUTINE abort_gcm(modname, message, ierr)
2     
3      USE IOIPSL
4C
5C Stops the simulation cleanly, closing files and printing various
6C comments
7C
8C  Input: modname = name of calling program
9C         message = stuff to print
10C         ierr    = severity of situation ( = 0 normal )
11
12      character*20 modname
13      integer ierr
14      character*80 message
15
16      write(*,*) 'in abort_gcm'
17      call histclo
18c     call histclo(2)
19c     call histclo(3)
20c     call histclo(4)
21c     call histclo(5)
22      write(*,*) 'out of histclo'
23      write(*,*) 'Stopping in ', modname
24      write(*,*) 'Reason = ',message
25      if (ierr .eq. 0) then
26        write(*,*) 'Everything is cool'
27      else
28        write(*,*) 'Houston, we have a problem ', ierr
29      endif
30      STOP
31      END
Note: See TracBrowser for help on using the repository browser.