|
Last change
on this file since 1135 was
1107,
checked in by lguez, 16 years ago
|
|
"comconst.h" and "comgeom2.h" are now both fixed and free form.
Removed calls to procedure "flush".
Corrected kinds of constants which appeared as arguments to "min" or
"max" (all arguments are now of the same type and kind).
|
-
Property svn:eol-style set to
native
-
Property svn:keywords set to
Author Date Id Revision
|
|
File size:
1.1 KB
|
| Rev | Line | |
|---|
| [524] | 1 | ! |
|---|
| 2 | ! $Header$ |
|---|
| 3 | ! |
|---|
| 4 | c |
|---|
| 5 | c |
|---|
| 6 | SUBROUTINE abort_gcm(modname, message, ierr) |
|---|
| 7 | |
|---|
| 8 | #ifdef CPP_IOIPSL |
|---|
| 9 | USE IOIPSL |
|---|
| 10 | #endif |
|---|
| 11 | #include "iniprint.h" |
|---|
| 12 | |
|---|
| 13 | C |
|---|
| 14 | C Stops the simulation cleanly, closing files and printing various |
|---|
| 15 | C comments |
|---|
| 16 | C |
|---|
| 17 | C Input: modname = name of calling program |
|---|
| 18 | C message = stuff to print |
|---|
| 19 | C 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 |
|---|
| 31 | c call getin_dump |
|---|
| 32 | c call histclo(2) |
|---|
| 33 | c call histclo(3) |
|---|
| 34 | c call histclo(4) |
|---|
| 35 | c call histclo(5) |
|---|
| [1004] | 36 | c write(lunout,*) 'Stopping in ', modname |
|---|
| 37 | c write(lunout,*) 'Reason = ',message |
|---|
| 38 | c if (ierr .eq. 0) then |
|---|
| 39 | c write(lunout,*) 'Everything is cool' |
|---|
| 40 | c else |
|---|
| 41 | c write(lunout,*) 'Houston, we have a problem ', ierr |
|---|
| 42 | c 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.
