1 |
module abort_gcm_m |
2 |
|
3 |
implicit none |
4 |
|
5 |
contains |
6 |
|
7 |
SUBROUTINE abort_gcm(modname, reason) |
8 |
|
9 |
! From abort_gcm.F, version 1.1.1.1 2004/05/19 12:53:05 |
10 |
! Stops the simulation, closing files and printing comments. |
11 |
|
12 |
USE histclo_m, only: histclo |
13 |
|
14 |
character(len=*), intent(in):: modname ! name of calling program |
15 |
character(len=*), intent(in):: reason ! to print |
16 |
|
17 |
!------------------- |
18 |
|
19 |
call histclo |
20 |
print *, 'abort_gcm called by ', modname |
21 |
print *, 'Reason: ', trim(reason) |
22 |
print *, 'Houston, we have a problem.' |
23 |
STOP 1 |
24 |
|
25 |
END SUBROUTINE abort_gcm |
26 |
|
27 |
end module abort_gcm_m |