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

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

Inclusion des routines ioipsl

  • ioconf_startdate positionnant la date de départ de la simulation pour IOIPSL
  • getin_dump pour avoir les valeurs des paramètres effectivement utilisées par le programme

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
[1107]21      character(len=*) modname
[524]22      integer ierr
[1107]23      character(len=*) 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
[1147]31      call getin_dump
[524]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.