15 |
! message = stuff to print |
! message = stuff to print |
16 |
! ierr = severity of situation ( = 0 normal ) |
! ierr = severity of situation ( = 0 normal ) |
17 |
|
|
18 |
USE IOIPSL, only: histclo |
USE histcom, only: histclo |
|
use iniprint, only: lunout |
|
19 |
|
|
20 |
character(len=*), intent(in):: modname |
character(len=*), intent(in):: modname |
21 |
integer, intent(in):: ierr |
integer, intent(in):: ierr |
26 |
print *, 'abort_gcm' |
print *, 'abort_gcm' |
27 |
|
|
28 |
call histclo |
call histclo |
29 |
write(lunout,*) 'Stopping in ', modname |
print *, 'Stopping in ', modname |
30 |
write(lunout,*) 'Reason = ', trim(message) |
print *, 'Reason: ', trim(message) |
31 |
if (ierr == 0) then |
print *, 'Houston, we have a problem ', ierr |
32 |
write(lunout,*) 'Everything is cool' |
STOP 1 |
|
STOP |
|
|
else |
|
|
write(lunout,*) 'Houston, we have a problem ', ierr |
|
|
STOP 1 |
|
|
endif |
|
33 |
|
|
34 |
END SUBROUTINE abort_gcm |
END SUBROUTINE abort_gcm |
35 |
|
|