9 |
! From abort_gcm.F, version 1.1.1.1 2004/05/19 12:53:05 |
! From abort_gcm.F, version 1.1.1.1 2004/05/19 12:53:05 |
10 |
! Stops the simulation, closing files and printing comments. |
! Stops the simulation, closing files and printing comments. |
11 |
|
|
12 |
USE histcom, only: histclo |
USE histclo_m, only: histclo |
13 |
|
|
14 |
character(len=*), intent(in):: modname ! name of calling program |
character(len=*), intent(in):: modname ! name of calling program |
15 |
integer, intent(in):: ierr ! severity of situation (= 0 normal) |
integer, intent(in):: ierr ! severity of situation (= 0 normal) |