Changeset 1519

Timestamp:

08/01/11 11:34:10 (14 years ago)

Author:

mmaipsl

Message:

Use ipsldbg function for all check in calendar.
Ease debugging date problems in callers.

File:

• IOIPSL/trunk/src/calendar.f90 (modified) (4 diffs)

IOIPSL/trunk/src/calendar.f90

@@ -40 +40 @@
 !---------------------------------------------------------------------
   USE stringop,ONLY  : strlowercase
-  USE errioipsl,ONLY : ipslerr, ipslout
+  USE errioipsl,ONLY : ipslerr, ipsldbg, ipslout
 !-
   PRIVATE
@@ -530 +530 @@
   INTEGER :: yearp,dayp
   REAL :: sec,secp
-  LOGICAL :: check = .FALSE.
-!---------------------------------------------------------------------
-  IF (check) THEN
+  LOGICAL :: l_dbg
+!---------------------------------------------------------------------
+  CALL ipsldbg (old_status=l_dbg)
+!---------------------------------------------------------------------
+  IF (l_dbg) THEN
     WRITE(ipslout,*) &
  &    "isittime 1.0 ",itau,date0,dt,freq,last_action,last_check
@@ -604 +606 @@
  &        <= ABS( next_check_itau-next_act_itau)) THEN
         do_action = .TRUE.
-        IF (check) THEN
+        IF (l_dbg) THEN
           WRITE(ipslout,*) &
  &         'ACT-TIME : itau, next_act_itau, next_check_itau : ', &
@@ -618 +620 @@
     ENDIF
 !-
-    IF (check) THEN
+    IF (l_dbg) THEN
       WRITE(ipslout,*) "isittime 2.0 ", &
  &     date_next_check,date_next_act,ABS(dt_action-freq), &