trunk/dyn3d/abort_gcm.f

module abort_gcm_m

  implicit none

contains

  SUBROUTINE abort_gcm(modname, message, ierr)

    ! 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
    integer, intent(in):: ierr ! severity of situation (= 0 normal)
    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 ', ierr
    STOP 1

  END SUBROUTINE abort_gcm

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