Directory: | ./ |
---|---|
File: | dyn/abort_gcm.f |
Date: | 2022-01-11 19:19:34 |
Exec | Total | Coverage | |
---|---|---|---|
Lines: | 10 | 12 | 83.3% |
Branches: | 1 | 2 | 50.0% |
Line | Branch | Exec | Source |
---|---|---|---|
1 | ! | ||
2 | ! $Id: abort_gcm.F 2100 2014-07-22 16:33:56Z lguez $ | ||
3 | ! | ||
4 | c | ||
5 | c | ||
6 | 4 | SUBROUTINE abort_gcm(modname, message, ierr) | |
7 | |||
8 | USE IOIPSL | ||
9 | |||
10 | |||
11 | ! | ||
12 | ! $Header$ | ||
13 | ! | ||
14 | ! | ||
15 | ! gestion des impressions de sorties et de d�bogage | ||
16 | ! lunout: unit� du fichier dans lequel se font les sorties | ||
17 | ! (par defaut 6, la sortie standard) | ||
18 | ! prt_level: niveau d'impression souhait� (0 = minimum) | ||
19 | ! | ||
20 | INTEGER lunout, prt_level | ||
21 | COMMON /comprint/ lunout, prt_level | ||
22 | |||
23 | C | ||
24 | C Stops the simulation cleanly, closing files and printing various | ||
25 | C comments | ||
26 | C | ||
27 | C Input: modname = name of calling program | ||
28 | C message = stuff to print | ||
29 | C ierr = severity of situation ( = 0 normal ) | ||
30 | |||
31 | character(len=*), intent(in):: modname | ||
32 | integer, intent(in):: ierr | ||
33 | character(len=*), intent(in):: message | ||
34 | |||
35 | 1 | write(lunout,*) 'in abort_gcm' | |
36 | |||
37 | |||
38 | 1 | call histclo | |
39 | 1 | call restclo | |
40 | 1 | call getin_dump | |
41 | c call histclo(2) | ||
42 | c call histclo(3) | ||
43 | c call histclo(4) | ||
44 | c call histclo(5) | ||
45 | 1 | write(lunout,*) 'Stopping in ', modname | |
46 | 1 | write(lunout,*) 'Reason = ',message | |
47 |
1/2✓ Branch 0 taken 1 times.
✗ Branch 1 not taken.
|
1 | if (ierr .eq. 0) then |
48 | 1 | write(lunout,*) 'Everything is cool' | |
49 | 1 | stop | |
50 | else | ||
51 | ✗ | write(lunout,*) 'Houston, we have a problem, ierr = ', ierr | |
52 | ✗ | stop 1 | |
53 | endif | ||
54 | END | ||
55 |