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	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
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	guez	30	USE histcom, only: histclo
19	guez	3
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	guez	12	print *, 'Stopping in ', modname
30	guez	18	print *, 'Reason: ', trim(message)
31	guez	12	print *, 'Houston, we have a problem ', ierr
32	guez	10	STOP 1
33	guez	3
34			END SUBROUTINE abort_gcm
35
36			end module abort_gcm_m