source: LMDZ5/branches/LMDZ5_SPLA/libf/dyn3d/abort_gcm.F @ 4934

Last change on this file since 4934 was 1907, checked in by lguez, 11 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.

  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
Line 
1!
2! $Id: abort_gcm.F 1907 2013-11-26 13:10:46Z abarral $
3!
4c
5c
6      SUBROUTINE abort_gcm(modname, message, ierr)
7     
8#ifdef CPP_IOIPSL
9      USE IOIPSL
10#else
11! if not using IOIPSL, we still need to use (a local version of) getin_dump
12      USE ioipsl_getincom
13#endif
14
15#ifdef CPP_XIOS
16    ! ug Pour les sorties XIOS
17      USE wxios
18#endif
19
20#include "iniprint.h"
21 
22C
23C Stops the simulation cleanly, closing files and printing various
24C comments
25C
26C  Input: modname = name of calling program
27C         message = stuff to print
28C         ierr    = severity of situation ( = 0 normal )
29
30      character(len=*) modname
31      integer ierr
32      character(len=*) message
33
34      write(lunout,*) 'in abort_gcm'
35
36#ifdef CPP_XIOS
37    !Fermeture propre de XIOS
38      CALL wxios_close()
39#endif
40
41#ifdef CPP_IOIPSL
42      call histclo
43      call restclo
44#endif
45      call getin_dump
46c     call histclo(2)
47c     call histclo(3)
48c     call histclo(4)
49c     call histclo(5)
50      write(lunout,*) 'Stopping in ', modname
51      write(lunout,*) 'Reason = ',message
52      if (ierr .eq. 0) then
53        write(lunout,*) 'Everything is cool'
54        stop
55      else
56        write(lunout,*) 'Houston, we have a problem ', ierr
57        stop 1
58      endif
59      END
Note: See TracBrowser for help on using the repository browser.