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

Last change on this file since 1097 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
RevLine 
[524]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
[995]21      character*(*) modname
[524]22      integer ierr
[995]23      character*(*) message
[524]24
[1004]25!      write(lunout,*) 'in abort_gcm'
26      write(6,*) 'in abort_gcm'
[524]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)
[1004]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
[524]45      if (ierr .eq. 0) then
[1004]46        write(6,*) 'Everything is cool'
[524]47      else
[1004]48        write(6,*) 'Houston, we have a problem ', ierr
[524]49      endif
50      STOP
51      END
Note: See TracBrowser for help on using the repository browser.