libf/dyn3d/abort_gcm.f90

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 cleanly, closing files and printing various
    ! comments

    !  Input: modname = name of calling program
    !         message = stuff to print
    !         ierr    = severity of situation ( = 0 normal )

    USE histcom, only: histclo

    character(len=*), intent(in):: modname
    integer, intent(in):: ierr
    character(len=*), intent(in):: message

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

    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	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
11	! Stops the simulation cleanly, closing files and printing various
12	! comments
13
14	! Input: modname = name of calling program
15	! message = stuff to print
16	! ierr = severity of situation ( = 0 normal )
17
18	USE histcom, only: histclo
19
20	character(len=*), intent(in):: modname
21	integer, intent(in):: ierr
22	character(len=*), intent(in):: message
23
24	!-------------------
25
26	print *, 'abort_gcm'
27
28	call histclo
29	print *, 'Stopping in ', modname
30	print *, 'Reason: ', trim(message)
31	print *, 'Houston, we have a problem ', ierr
32	STOP 1
33
34	END SUBROUTINE abort_gcm
35
36	end module abort_gcm_m