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

Diff of /trunk/IOIPSL/errioipsl.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 131 by guez, Wed Mar 5 14:57:53 2014 UTC revision 132 by guez, Fri Mar 20 16:31:06 2015 UTC
# Line 1  Line 1 
1  MODULE errioipsl  MODULE errioipsl
2    
3    ! From errioipsl.f90, v 2.0 2004/04/05 14:47:47 adm Exp $    ! From errioipsl.f90, version 2.0, 2004/04/05 14:47:47
4    
5      IMPLICIT NONE
6    
7  CONTAINS  CONTAINS
8    
9    SUBROUTINE histerr(plev, pcname, pstr1, pstr2, pstr3)    SUBROUTINE histerr(plev, pcname, pstr1, pstr2, pstr3)
10    
11      !- INPUT      INTEGER, intent(in):: plev
12      !- plev   : Category of message to be reported to the user      !- plev   : Category of message to be reported to the user
13      !-          1 = Note to the user      !-          1 = Note to the user
14      !-          2 = Warning to the user      !-          2 = Warning to the user
15      !-          3 = Fatal error      !-          3 = Fatal error
     !- pcname : Name of subroutine which has called histerr  
     !- pstr1    
     !- pstr2  : String containing the explanations to the user  
     !- pstr3  
16    
17      IMPLICIT NONE      CHARACTER(LEN=*), intent(in):: pcname
18        ! name of subroutine which has called histerr
19    
20      INTEGER :: plev      CHARACTER(LEN=*), intent(in):: pstr1, pstr2, pstr3
21      CHARACTER(LEN=*), intent(in):: pcname, pstr1, pstr2, pstr3      ! strings containing the explanations to the user
22    
23        ! Local:
24      CHARACTER(LEN=30), DIMENSION(3) :: pemsg = &      CHARACTER(LEN=30), DIMENSION(3) :: pemsg = &
25           (/ "NOTE TO THE USER FROM ROUTINE ", &           (/ "NOTE TO THE USER FROM ROUTINE ", &
26           "WARNING FROM ROUTINE          ", &           "WARNING FROM ROUTINE          ", &
# Line 29  CONTAINS Line 29  CONTAINS
29      !---------------------------------------------------------------------      !---------------------------------------------------------------------
30    
31      IF ((plev >= 1).AND.(plev <= 3)) THEN      IF ((plev >= 1).AND.(plev <= 3)) THEN
32         WRITE(*, '("     ")')         print '(A, " ", A)', TRIM(pemsg(plev)), TRIM(pcname)
33         WRITE(*, '(A, " ", A)') TRIM(pemsg(plev)), TRIM(pcname)         print '(" --> ", a)', pstr1
34         WRITE(*, '(" --> ", a)') pstr1         print '(" --> ", a)', pstr2
35         WRITE(*, '(" --> ", a)') pstr2         print '(" --> ", a)', pstr3
        WRITE(*, '(" --> ", a)') pstr3  
36      ENDIF      ENDIF
37      IF (plev == 3) THEN      IF (plev == 3) THEN
38         print *, 'Fatal error from IOIPSL'         print *, 'Fatal error from IOIPSL'
Legend:
Removed from v.131  
changed lines
  Added in v.132
  ViewVC Help
Powered by ViewVC 1.1.21