/[lmdze]/trunk/IOIPSL/errioipsl.f
ViewVC logotype

Annotation of /trunk/IOIPSL/errioipsl.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 132 - (hide annotations)
Fri Mar 20 16:31:06 2015 UTC (9 years, 2 months ago) by guez
File size: 1200 byte(s) 
Removed procedure jacobi, which was a copy of the file from Numerical
Recipes in Fortran 77. Refer to the Numer_Rec_95 library instead.

There was a strange line in procedure coordij: j cannot be equal to 0
after the loop on j.
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
  ViewVC Help
Powered by ViewVC 1.1.21