source: LMDZ4/branches/LMDZ4_V3_patches/libf/dyn3dpar/abort_gcm.F @ 5086

Last change on this file since 5086 was 774, checked in by Laurent Fairhead, 19 years ago

Suite du merge entre la version et la HEAD: quelques modifications de
Yann sur le
LF
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 910 bytes
Line 
1!
2! $Header$
3!
4c
5c
6      SUBROUTINE abort_gcm(modname, message, ierr)
7     
8#ifdef CPP_IOIPSL
9      USE IOIPSL
10#endif
11#include "iniprint.h"
12 
13C
14C Stops the simulation cleanly, closing files and printing various
15C comments
16C
17C  Input: modname = name of calling program
18C         message = stuff to print
19C         ierr    = severity of situation ( = 0 normal )
20
21      character*20 modname
22      integer ierr
23      character*80 message
24
25      write(lunout,*) 'in abort_gcm'
26#ifdef CPP_IOIPSL
27      call histclo
28      call restclo
29#endif
30c     call getin_dump
31c     call histclo(2)
32c     call histclo(3)
33c     call histclo(4)
34c     call histclo(5)
35      write(lunout,*) 'Stopping in ', modname
36      write(lunout,*) 'Reason = ',message
37      if (ierr .eq. 0) then
38        write(lunout,*) 'Everything is cool'
39      else
40        write(lunout,*) 'Houston, we have a problem ', ierr
41      endif
42      STOP
43      END
Note: See TracBrowser for help on using the repository browser.