Changeset 1376

Timestamp:

04/20/11 11:30:59 (13 years ago)

Author:

mmaipsl

Message:

Enhancement : add ipslout number in public list of errioipsl to
give the possiblity to redirect all prints of IOIPSL in the local
process when use with parallelization.
This variable replace old n_l one and can be modify with ipslnlf function.

File:

• IOIPSL/trunk/src/errioipsl.f90 (modified) (3 diffs)

IOIPSL/trunk/src/errioipsl.f90

@@ -10 +10 @@
 PRIVATE
 !-
-PUBLIC :: ipslnlf, ipslerr, ipslerr_act, ipslerr_inq, histerr, ipsldbg
-!-
-  INTEGER :: n_l=6, ilv_cur=0, ilv_max=0
+PUBLIC :: ipslnlf, ipslerr, ipslerr_act, ipslerr_inq, histerr, ipsldbg, ipslout
+!-
+  INTEGER :: ipslout=6, ilv_cur=0, ilv_max=0
   LOGICAL :: ioipsl_debug=.FALSE., lact_mode=.TRUE.
 !-
@@ -39 +39 @@
 !---------------------------------------------------------------------
   IF (PRESENT(old_number)) THEN
-    old_number = n_l
+    old_number = ipslout
   ENDIF
   IF (PRESENT(new_number)) THEN
-    n_l = new_number
+    ipslout = new_number
   ENDIF
 !---------------------
@@ -76 +76 @@
      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)
+     WRITE(ipslout,'(/,A," ",A)') TRIM(pemsg(plev)),TRIM(pcname)
+     WRITE(ipslout,'(3(" --> ",A,/))') TRIM(pstr1),TRIM(pstr2),TRIM(pstr3)
    ENDIF
    IF ( (plev == 3).AND.lact_mode) THEN
-     WRITE(n_l,'("Fatal error from IOIPSL. STOP in ipslerr with code")')
+     WRITE(ipslout,'("Fatal error from IOIPSL. STOP in ipslerr with code")')
      STOP 1
    ENDIF