1 |
guez |
30 |
MODULE errioipsl |
2 |
|
|
|
3 |
guez |
132 |
! From errioipsl.f90, version 2.0, 2004/04/05 14:47:47 |
4 |
guez |
30 |
|
5 |
guez |
132 |
IMPLICIT NONE |
6 |
|
|
|
7 |
guez |
30 |
CONTAINS |
8 |
|
|
|
9 |
|
|
SUBROUTINE histerr(plev, pcname, pstr1, pstr2, pstr3) |
10 |
|
|
|
11 |
guez |
132 |
INTEGER, intent(in):: plev |
12 |
guez |
30 |
!- 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 |
guez |
132 |
CHARACTER(LEN=*), intent(in):: pcname |
18 |
|
|
! name of subroutine which has called histerr |
19 |
guez |
30 |
|
20 |
guez |
132 |
CHARACTER(LEN=*), intent(in):: pstr1, pstr2, pstr3 |
21 |
|
|
! strings containing the explanations to the user |
22 |
guez |
30 |
|
23 |
guez |
132 |
! Local: |
24 |
guez |
30 |
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 |
guez |
132 |
print '(A, " ", A)', TRIM(pemsg(plev)), TRIM(pcname) |
33 |
|
|
print '(" --> ", a)', pstr1 |
34 |
|
|
print '(" --> ", a)', pstr2 |
35 |
|
|
print '(" --> ", a)', pstr3 |
36 |
guez |
30 |
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 |