Changeset 1519 for IOIPSL


Ignore:
Timestamp:
08/01/11 11:34:10 (13 years ago)
Author:
mmaipsl
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/calendar.f90

    r1378 r1519  
    4040!--------------------------------------------------------------------- 
    4141  USE stringop,ONLY  : strlowercase 
    42   USE errioipsl,ONLY : ipslerr, ipslout 
     42  USE errioipsl,ONLY : ipslerr, ipsldbg, ipslout 
    4343!- 
    4444  PRIVATE 
     
    530530  INTEGER :: yearp,dayp 
    531531  REAL :: sec,secp 
    532   LOGICAL :: check = .FALSE. 
    533 !--------------------------------------------------------------------- 
    534   IF (check) THEN 
     532  LOGICAL :: l_dbg 
     533!--------------------------------------------------------------------- 
     534  CALL ipsldbg (old_status=l_dbg) 
     535!--------------------------------------------------------------------- 
     536  IF (l_dbg) THEN 
    535537    WRITE(ipslout,*) & 
    536538 &    "isittime 1.0 ",itau,date0,dt,freq,last_action,last_check 
     
    604606 &        <= ABS( next_check_itau-next_act_itau)) THEN 
    605607        do_action = .TRUE. 
    606         IF (check) THEN 
     608        IF (l_dbg) THEN 
    607609          WRITE(ipslout,*) & 
    608610 &         'ACT-TIME : itau, next_act_itau, next_check_itau : ', & 
     
    618620    ENDIF 
    619621!- 
    620     IF (check) THEN 
     622    IF (l_dbg) THEN 
    621623      WRITE(ipslout,*) "isittime 2.0 ", & 
    622624 &     date_next_check,date_next_act,ABS(dt_action-freq), & 
Note: See TracChangeset for help on using the changeset viewer.