source: LMDZ4/trunk/libf/dyn3dpar/abort_gcm.F @ 1080

Last change on this file since 1080 was 995, checked in by lsce, 16 years ago
  • Modifications liées au calcul des nouveau sous-fractions
  • Nettoyage de ocean slab : il reste uniquement la version avec glace de mer forcé
  • Nouveaux variables pour distiguer la version et type d'ocean : type_ocean=force/slab/couple, version_ocean=opa8/nemo pour couplé ou version_ocean=sicOBS pour slab

JG

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 956 bytes
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 (len=*) :: modname
22      integer ierr
23      character (len=*) :: message
24
25      write(lunout,*) 'in abort_gcm'
26#ifdef CPP_IOIPSL
27c$OMP MASTER
28      call histclo
29      call restclo
30c$OMP END MASTER
31#endif
32c     call getin_dump
33c     call histclo(2)
34c     call histclo(3)
35c     call histclo(4)
36c     call histclo(5)
37      write(lunout,*) 'Stopping in ', modname
38      write(lunout,*) 'Reason = ',message
39      if (ierr .eq. 0) then
40        write(lunout,*) 'Everything is cool'
41      else
42        write(lunout,*) 'Houston, we have a problem ', ierr
43      STOP
44      endif
45      END
Note: See TracBrowser for help on using the repository browser.