Changeset 1378 for IOIPSL/trunk/src/getincom.f90

Timestamp:

04/20/11 12:08:00 (13 years ago)

Author:

mmaipsl

Message:

Enhancement : use ipslout number from errioipsl to redirect all prints of IOIPSL
in the local process when use with parallelization.
This variable ipslout can be modified with ipslnlf function of errioipsl module.

File:

• IOIPSL/trunk/src/getincom.f90 (modified) (12 diffs)

IOIPSL/trunk/src/getincom.f90

@@ -6 +6 @@
 ! See IOIPSL/IOIPSL_License_CeCILL.txt
 !---------------------------------------------------------------------
-USE errioipsl, ONLY : ipslerr,ipsldbg
+USE errioipsl, ONLY : ipslerr,ipsldbg,ipslout
 USE stringop, &
  &   ONLY : nocomma,cmpblank,strlowercase
@@ -853 +853 @@
     CALL ipslerr (1,'USING DEFAULT BEHAVIOUR FOR', &
  &   TRIM(targetname),' ',' ')
-    WRITE(*,*) 'USING DEFAULT BEHAVIOUR FOR ',TRIM(targetname)
+    WRITE(ipslout,*) 'USING DEFAULT BEHAVIOUR FOR ',TRIM(targetname)
   ELSE
     status_cnt = 0
@@ -860 +860 @@
         status_cnt = status_cnt+1
         IF      (status_cnt <= max_msgs) THEN
-          WRITE (UNIT=*,FMT='(" USING DEFAULTS : ",A)', &
+          WRITE (UNIT=ipslout,FMT='(" USING DEFAULTS : ",A)', &
  &               ADVANCE='NO') TRIM(targetname)
           IF (nb_to_ret > 1) THEN
-            WRITE (UNIT=*,FMT='("__")',ADVANCE='NO')
-            WRITE (UNIT=*,FMT=c_i_fmt,ADVANCE='NO') it
+            WRITE (UNIT=ipslout,FMT='("__")',ADVANCE='NO')
+            WRITE (UNIT=ipslout,FMT=c_i_fmt,ADVANCE='NO') it
           ENDIF
           SELECT CASE (k_typ)
           CASE(k_i)
-            WRITE (UNIT=*,FMT=*) "=",i_val(it)
+            WRITE (UNIT=ipslout,FMT=*) "=",i_val(it)
           CASE(k_r)
-            WRITE (UNIT=*,FMT=*) "=",r_val(it)
+            WRITE (UNIT=ipslout,FMT=*) "=",r_val(it)
           CASE(k_c)
-            WRITE (UNIT=*,FMT=*) "=",c_val(it)
+            WRITE (UNIT=ipslout,FMT=*) "=",c_val(it)
           CASE(k_l)
-            WRITE (UNIT=*,FMT=*) "=",l_val(it)
+            WRITE (UNIT=ipslout,FMT=*) "=",l_val(it)
           END SELECT
         ELSE IF (status_cnt == max_msgs+1) THEN
-          WRITE (UNIT=*,FMT='(" USING DEFAULTS ... ",A)')
+          WRITE (UNIT=ipslout,FMT='(" USING DEFAULTS ... ",A)')
         ENDIF
       ENDIF
@@ -1123 +1123 @@
 !-
   IF (l_dbg) THEN
-    WRITE(*,*) 'getin_readdef : Open file ',TRIM(filelist(current))
+    WRITE(ipslout,*) 'getin_readdef : Open file ',TRIM(filelist(current))
   ENDIF
 !-
@@ -1164 +1164 @@
       NEW_str  = TRIM(ADJUSTL(NEW_str))
       IF (l_dbg) THEN
-        WRITE(*,*) &
+        WRITE(ipslout,*) &
  &        '--> getin_readdef : ',TRIM(key_str),' :: ',TRIM(NEW_str)
       ENDIF
@@ -1202 +1202 @@
       nb_lastkey = 0
       IF (l_dbg) THEN
-        WRITE(*,*) 'getin_readdef : Have found an emtpy line '
+        WRITE(ipslout,*) 'getin_readdef : Have found an emtpy line '
       ENDIF
     ENDIF
@@ -1218 +1218 @@
 !-
   IF (l_dbg) THEN
-     WRITE(*,*) "nb_lines ",nb_lines,"nb_keys ",nb_keys
-     WRITE(*,*) "fichier ",fichier(1:nb_lines)
-     WRITE(*,*) "targetlist ",targetlist(1:nb_lines)
-     WRITE(*,*) "fromfile ",fromfile(1:nb_lines)
-     WRITE(*,*) "compline ",compline(1:nb_lines)
-    WRITE(*,*) '<-getin_readdef'
+     WRITE(ipslout,*) "nb_lines ",nb_lines,"nb_keys ",nb_keys
+     WRITE(ipslout,*) "fichier ",fichier(1:nb_lines)
+     WRITE(ipslout,*) "targetlist ",targetlist(1:nb_lines)
+     WRITE(ipslout,*) "fromfile ",fromfile(1:nb_lines)
+     WRITE(ipslout,*) "compline ",compline(1:nb_lines)
+     WRITE(ipslout,*) '<-getin_readdef'
   ENDIF
 !---------------------------
@@ -1410 +1410 @@
 
   IF (l_dbg) THEN
-     WRITE(*,*) "getin_decrypt ->",TRIM(NEW_str), " : "
-     WRITE(*,*) "getin_decrypt ->", nb_lines,&
+     WRITE(ipslout,*) "getin_decrypt ->",TRIM(NEW_str), " : "
+     WRITE(ipslout,*) "getin_decrypt ->", nb_lines,&
           & SIZE(fichier), &
           & SIZE(fromfile), &
           & SIZE(filelist)
      IF (nb_lines > 0) THEN
-        WRITE(*,*) "getin_decrypt ->",TRIM(NEW_str), " : ", &
+        WRITE(ipslout,*) "getin_decrypt ->", &
           & TRIM(fichier(nb_lines)), &
           & fromfile(nb_lines), &
           & TRIM(filelist(fromfile(nb_lines)))
-        WRITE(*,*) "                compline : ",compline(nb_lines)
-        WRITE(*,*) "                targetlist : ",TRIM(targetlist(nb_lines))
+        WRITE(ipslout,*) "                compline : ",compline(nb_lines)
+        WRITE(ipslout,*) "                targetlist : ",TRIM(targetlist(nb_lines))
      ENDIF
-     WRITE(*,*) "                last_key : ",last_key
+     WRITE(ipslout,*) "                last_key : ",last_key
   ENDIF
 !---------------------------
@@ -1451 +1451 @@
 !---
     IF (n_k > 0) THEN
-      WRITE(*,*) 'COUNT : ',n_k
-      WRITE(*,*) &
+      WRITE(ipslout,*) 'COUNT : ',n_k
+      WRITE(ipslout,*) &
  &  'getin_checkcohe : Found a problem on key ',TRIM(targetlist(line))
-      WRITE(*,*) &
+      WRITE(ipslout,*) &
  &  'getin_checkcohe : The following values were encoutered :'
-      WRITE(*,*) &
+      WRITE(ipslout,*) &
  &  '                ',TRIM(targetlist(line)),' == ',fichier(line)
-      WRITE(*,*) &
+      WRITE(ipslout,*) &
  &  '                ',TRIM(targetlist(k)),' == ',fichier(k)
-      WRITE(*,*) &
+      WRITE(ipslout,*) &
  &  'getin_checkcohe : We will keep only the last value'
        CALL ipslerr (2,'getin_checkcohe','Found a problem on key ', &
@@ -1858 +1858 @@
     used_filename = TRIM(usedfileprefix)//'_'//TRIM(filelist(if))
     IF (l_dbg) THEN
-      WRITE(*,*) &
+      WRITE(ipslout,*) &
  &      'getin_dump : opens file : ',TRIM(used_filename),' if = ',if
-      WRITE(*,*) 'GETIN_DUMP : NUMBER OF KEYS : ',nb_keys
+      WRITE(ipslout,*) 'GETIN_DUMP : NUMBER OF KEYS : ',nb_keys
     ENDIF
     OPEN (UNIT=22,FILE=used_filename,iostat=io_err)
@@ -1880 +1880 @@
       WRITE(22,*) '# '
       IF (l_dbg) THEN
-         WRITE(*,*) '# '
-         WRITE(*,*) '# This file is linked to the following files :'
-         WRITE(*,*) '# '
+         WRITE(ipslout,*) '# '
+         WRITE(ipslout,*) '# This file is linked to the following files :'
+         WRITE(ipslout,*) '# '
          DO iff=2,nbfiles
-            WRITE(*,*) 'INCLUDEDEF = ',TRIM(filelist(iff))
+            WRITE(ipslout,*) 'INCLUDEDEF = ',TRIM(filelist(iff))
          ENDDO
-         WRITE(*,*) '# '
+         WRITE(ipslout,*) '# '
       ENDIF
     ENDIF
@@ -1915 +1915 @@
         !-
         IF (l_dbg) THEN
-           WRITE(*,*) '#'
-           WRITE(*,*) '# Status of key ', ikey, ' : ',&
+           WRITE(ipslout,*) '#'
+           WRITE(ipslout,*) '# Status of key ', ikey, ' : ',&
  &          TRIM(key_tab(ikey)%keystr),key_tab(ikey)%keystatus
         ENDIF