Changeset 1378 for IOIPSL/trunk/src/calendar.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/calendar.f90 (modified) (5 diffs)

IOIPSL/trunk/src/calendar.f90

@@ -40 +40 @@
 !---------------------------------------------------------------------
   USE stringop,ONLY  : strlowercase
-  USE errioipsl,ONLY : ipslerr
+  USE errioipsl,ONLY : ipslerr, ipslout
 !-
   PRIVATE
@@ -354 +354 @@
     tmp_str = input_str
     DO WHILE ( MAX(y_pos,m_pos,d_pos,s_pos) > 0)
-!---- WRITE(*,*) tmp_str
-!---- WRITE(*,*) y_pos,m_pos,d_pos,s_pos
+!---- WRITE(ipslout,*) tmp_str
+!---- WRITE(ipslout,*) y_pos,m_pos,d_pos,s_pos
       IF (y_pos > 0) THEN
         WRITE(fmt,'("(I",I10.10,")")') y_pos-1
@@ -533 +533 @@
 !---------------------------------------------------------------------
   IF (check) THEN
-    WRITE(*,*) &
+    WRITE(ipslout,*) &
  &    "isittime 1.0 ",itau,date0,dt,freq,last_action,last_check
   ENDIF
@@ -605 +605 @@
         do_action = .TRUE.
         IF (check) THEN
-          WRITE(*,*) &
+          WRITE(ipslout,*) &
  &         'ACT-TIME : itau, next_act_itau, next_check_itau : ', &
  &         itau,next_act_itau,next_check_itau
           CALL ju2ymds (date_now,year,month,day,sec)
-          WRITE(*,*) 'ACT-TIME : y, m, d, s : ',year,month,day,sec
-          WRITE(*,*) &
+          WRITE(ipslout,*) 'ACT-TIME : y, m, d, s : ',year,month,day,sec
+          WRITE(ipslout,*) &
  &         'ACT-TIME : date_mp1, date_mpf : ',date_mp1,date_mpf
         ENDIF
@@ -619 +619 @@
 !-
     IF (check) THEN
-      WRITE(*,*) "isittime 2.0 ", &
+      WRITE(ipslout,*) "isittime 2.0 ", &
  &     date_next_check,date_next_act,ABS(dt_action-freq), &
  &     ABS(dt_action+dt_check-freq),dt_action,dt_check, &