trunk/dyn3d/abort_gcm.f

module abort_gcm_m

  implicit none

contains

  SUBROUTINE abort_gcm(modname, message)

    ! From abort_gcm.F, version 1.1.1.1 2004/05/19 12:53:05
    ! Stops the simulation, closing files and printing comments.

    USE histclo_m, only: histclo

    character(len=*), intent(in):: modname ! name of calling program
    character(len=*), intent(in):: message ! to print

    !-------------------

    print *, 'abort_gcm'
    call histclo
    print *, 'Stopping in ', modname
    print *, 'Reason: ', trim(message)
    print *, 'Houston, we have a problem.'
    STOP 1

  END SUBROUTINE abort_gcm

end module abort_gcm_m
1	module abort_gcm_m
2
3	implicit none
4
5	contains
6
7	SUBROUTINE abort_gcm(modname, message)
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):: message ! to print
16
17	!-------------------
18
19	print *, 'abort_gcm'
20	call histclo
21	print *, 'Stopping in ', modname
22	print *, 'Reason: ', trim(message)
23	print *, 'Houston, we have a problem.'
24	STOP 1
25
26	END SUBROUTINE abort_gcm
27
28	end module abort_gcm_m