source: LMDZ4/branches/LMDZ4-dev/libf/dyn3d/abort_gcm.F @ 1208

Last change on this file since 1208 was 1200, 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
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.1 KB
Line 
1!
2! $Id: abort_gcm.F 1200 2009-07-06 08:58:06Z emillour $
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(len=*) modname
22      integer ierr
23      character(len=*) 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
31      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.