source: LMDZ4/trunk/libf/dyn3d/abort_gcm.F @ 1058

Last change on this file since 1058 was 1004, checked in by Laurent Fairhead, 16 years ago

En attendant que toutes les sorties soient dans un fichier et pour ne pas passer
1 plombe a se demander pourquoi le modele s'est arrete sans explication ...
LF
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
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*(*) modname
22      integer ierr
23      character*(*) message
24
25!      write(lunout,*) 'in abort_gcm'
26      write(6,*) 'in abort_gcm'
27#ifdef CPP_IOIPSL
28      call histclo
29      call restclo
30#endif
31c     call getin_dump
32c     call histclo(2)
33c     call histclo(3)
34c     call histclo(4)
35c     call histclo(5)
36c     write(lunout,*) 'Stopping in ', modname
37c     write(lunout,*) 'Reason = ',message
38c     if (ierr .eq. 0) then
39c       write(lunout,*) 'Everything is cool'
40c     else
41c       write(lunout,*) 'Houston, we have a problem ', ierr
42c     endif
43      write(6,*) 'Stopping in ', modname
44      write(6,*) 'Reason = ',message
45      if (ierr .eq. 0) then
46        write(6,*) 'Everything is cool'
47      else
48        write(6,*) 'Houston, we have a problem ', ierr
49      endif
50      STOP
51      END
Note: See TracBrowser for help on using the repository browser.