Changeset 11 for IOIPSL/trunk/src/errioipsl.f90

Timestamp:

03/12/07 17:01:04 (17 years ago)

Author:

bellier

Message:

JB: on the road to svn

File:

• IOIPSL/trunk/src/errioipsl.f90 (modified) (4 diffs, 1 prop)

IOIPSL/trunk/src/errioipsl.f90

@@ -1 @@
-!$Header: /home/ioipsl/CVSROOT/IOIPSL/src/errioipsl.f90,v 2.2 2005/02/22 10:14:14 adm Exp $
+!$Id$
 !-
 MODULE errioipsl
@@ -7 +7 @@
 PRIVATE
 !-
-PUBLIC :: ipslnlf, ipslerr, histerr, ipsldbg
-!-
-  INTEGER :: n_l=6
-  LOGICAL :: ioipsl_debug=.FALSE.
+PUBLIC :: ipslnlf, ipslerr, ipslerr_act, ipslerr_inq, histerr, ipsldbg
+!-
+  INTEGER :: n_l=6, ilv_cur=0, ilv_max=0
+  LOGICAL :: ioipsl_debug=.FALSE., lact_mode=.TRUE.
 !-
 !===
@@ -18 +18 @@
 !!--------------------------------------------------------------------
 !! The "ipslnlf" routine allows to know and modify
-!! the current logical number for the messages,
+!! the current logical number for the messages.
 !!
 !! SUBROUTINE ipslnlf (new_number,old_number)
@@ -71 +71 @@
 !---------------------------------------------------------------------
    IF ( (plev >= 1).AND.(plev <= 3) ) THEN
+     ilv_cur = plev
+     ilv_max = MAX(ilv_max,plev)
      WRITE(n_l,'(/,A," ",A)') TRIM(pemsg(plev)),TRIM(pcname)
      WRITE(n_l,'(3(" --> ",A,/))') TRIM(pstr1),TRIM(pstr2),TRIM(pstr3)
    ENDIF
-   IF (plev == 3) THEN
+   IF ( (plev == 3).AND.lact_mode) THEN
      STOP 'Fatal error from IOIPSL. See stdout for more details'
    ENDIF
 !---------------------
 END SUBROUTINE ipslerr
+!===
+SUBROUTINE ipslerr_act (new_mode,old_mode)
+!!--------------------------------------------------------------------
+!! The "ipslerr_act" routine allows to know and modify
+!! the current "action mode" for the error messages,
+!! and reinitialize the error level values.
+!!
+!! SUBROUTINE ipslerr_act (new_mode,old_mode)
+!!
+!! Optional INPUT argument
+!!
+!! (I) new_mode : new error action mode
+!!                .TRUE.  -> STOP     in case of fatal error
+!!                .FALSE. -> CONTINUE in case of fatal error
+!!
+!! Optional OUTPUT argument
+!!
+!! (I) old_mode : current error action mode
+!!--------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  LOGICAL,OPTIONAL,INTENT(IN)  :: new_mode
+  LOGICAL,OPTIONAL,INTENT(OUT) :: old_mode
+!---------------------------------------------------------------------
+  IF (PRESENT(old_mode)) THEN
+    old_mode = lact_mode
+  ENDIF
+  IF (PRESENT(new_mode)) THEN
+    lact_mode = new_mode
+  ENDIF
+  ilv_cur = 0
+  ilv_max = 0
+!-------------------------
+END SUBROUTINE ipslerr_act
+!===
+SUBROUTINE ipslerr_inq (current_level,maximum_level)
+!!--------------------------------------------------------------------
+!! The "ipslerr_inq" routine allows to know
+!! the current level of the error messages
+!! and the maximum level encountered since the
+!! last call to "ipslerr_act".
+!!
+!! SUBROUTINE ipslerr_inq (current_level,maximum_level)
+!!
+!! Optional OUTPUT argument
+!!
+!! (I) current_level : current error level
+!! (I) maximum_level : maximum error level
+!!--------------------------------------------------------------------
+  IMPLICIT NONE
+!-
+  INTEGER,OPTIONAL,INTENT(OUT) :: current_level,maximum_level
+!---------------------------------------------------------------------
+  IF (PRESENT(current_level)) THEN
+    current_level = ilv_cur
+  ENDIF
+  IF (PRESENT(maximum_level)) THEN
+    maximum_level = ilv_max
+  ENDIF
+!-------------------------
+END SUBROUTINE ipslerr_inq
 !===
 SUBROUTINE histerr (plev,pcname,pstr1,pstr2,pstr3)