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 |
19 |
|
|
20 |
character(len=*), intent(in):: modname |
character(len=*), intent(in):: modname |
21 |
integer, intent(in):: ierr |
integer, intent(in):: ierr |
27 |
|
|
28 |
call histclo |
call histclo |
29 |
print *, 'Stopping in ', modname |
print *, 'Stopping in ', modname |
30 |
print *, 'Reason = ', trim(message) |
print *, 'Reason: ', trim(message) |
31 |
print *, 'Houston, we have a problem ', ierr |
print *, 'Houston, we have a problem ', ierr |
32 |
STOP 1 |
STOP 1 |
33 |
|
|