1 |
guez |
3 |
module abort_gcm_m |
2 |
|
|
|
3 |
|
|
implicit none |
4 |
|
|
|
5 |
|
|
contains |
6 |
|
|
|
7 |
|
|
SUBROUTINE abort_gcm(modname, message, ierr) |
8 |
|
|
|
9 |
|
|
! From abort_gcm.F, version 1.1.1.1 2004/05/19 12:53:05 |
10 |
|
|
|
11 |
|
|
! Stops the simulation cleanly, closing files and printing various |
12 |
|
|
! comments |
13 |
|
|
|
14 |
|
|
! Input: modname = name of calling program |
15 |
|
|
! message = stuff to print |
16 |
|
|
! ierr = severity of situation ( = 0 normal ) |
17 |
|
|
|
18 |
guez |
30 |
USE histcom, only: histclo |
19 |
guez |
3 |
|
20 |
|
|
character(len=*), intent(in):: modname |
21 |
|
|
integer, intent(in):: ierr |
22 |
|
|
character(len=*), intent(in):: message |
23 |
|
|
|
24 |
|
|
!------------------- |
25 |
|
|
|
26 |
|
|
print *, 'abort_gcm' |
27 |
|
|
|
28 |
|
|
call histclo |
29 |
guez |
12 |
print *, 'Stopping in ', modname |
30 |
guez |
18 |
print *, 'Reason: ', trim(message) |
31 |
guez |
12 |
print *, 'Houston, we have a problem ', ierr |
32 |
guez |
10 |
STOP 1 |
33 |
guez |
3 |
|
34 |
|
|
END SUBROUTINE abort_gcm |
35 |
|
|
|
36 |
|
|
end module abort_gcm_m |