trunk/IOIPSL/errioipsl.f90

MODULE errioipsl

  ! From errioipsl.f90, version 2.0, 2004/04/05 14:47:47

  IMPLICIT NONE

CONTAINS

  SUBROUTINE histerr(plev, pcname, pstr1, pstr2, pstr3)

    INTEGER, intent(in):: plev
    !- plev   : Category of message to be reported to the user
    !-          1 = Note to the user
    !-          2 = Warning to the user
    !-          3 = Fatal error

    CHARACTER(LEN=*), intent(in):: pcname 
    ! name of subroutine which has called histerr

    CHARACTER(LEN=*), intent(in):: pstr1, pstr2, pstr3
    ! strings containing the explanations to the user

    ! Local:
    CHARACTER(LEN=30), DIMENSION(3) :: pemsg = &
         (/ "NOTE TO THE USER FROM ROUTINE ", &
         "WARNING FROM ROUTINE          ", &
         "FATAL ERROR FROM ROUTINE      " /)

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

    IF ((plev >= 1).AND.(plev <= 3)) THEN
       print '(A, " ", A)', TRIM(pemsg(plev)), TRIM(pcname)
       print '(" --> ", a)', pstr1
       print '(" --> ", a)', pstr2
       print '(" --> ", a)', pstr3
    ENDIF
    IF (plev == 3) THEN
       print *, 'Fatal error from IOIPSL'
       STOP 1
    ENDIF

  END SUBROUTINE histerr

END MODULE errioipsl
1	MODULE errioipsl
2
3	! From errioipsl.f90, version 2.0, 2004/04/05 14:47:47
4
5	IMPLICIT NONE
6
7	CONTAINS
8
9	SUBROUTINE histerr(plev, pcname, pstr1, pstr2, pstr3)
10
11	INTEGER, intent(in):: plev
12	!- plev : Category of message to be reported to the user
13	!- 1 = Note to the user
14	!- 2 = Warning to the user
15	!- 3 = Fatal error
16
17	CHARACTER(LEN=*), intent(in):: pcname
18	! name of subroutine which has called histerr
19
20	CHARACTER(LEN=*), intent(in):: pstr1, pstr2, pstr3
21	! strings containing the explanations to the user
22
23	! Local:
24	CHARACTER(LEN=30), DIMENSION(3) :: pemsg = &
25	(/ "NOTE TO THE USER FROM ROUTINE ", &
26	"WARNING FROM ROUTINE ", &
27	"FATAL ERROR FROM ROUTINE " /)
28
29	!---------------------------------------------------------------------
30
31	IF ((plev >= 1).AND.(plev <= 3)) THEN
32	print '(A, " ", A)', TRIM(pemsg(plev)), TRIM(pcname)
33	print '(" --> ", a)', pstr1
34	print '(" --> ", a)', pstr2
35	print '(" --> ", a)', pstr3
36	ENDIF
37	IF (plev == 3) THEN
38	print *, 'Fatal error from IOIPSL'
39	STOP 1
40	ENDIF
41
42	END SUBROUTINE histerr
43
44	END MODULE errioipsl