Symbol Description Uses
date 123


File Line number Procedure Code
./pkg/cal/cal_addtime.F 100 CAL_ADDTIME 
               date_2 = -date(2)
./pkg/cal/cal_addtime.F 107 CAL_ADDTIME 
               intv_1 = date(1)
./pkg/cal/cal_addtime.F 108 CAL_ADDTIME 
               intv_2 = date(2)
./pkg/cal/cal_addtime.F 127 CAL_ADDTIME 
      if (date(4) .eq. -1) then
./pkg/cal/cal_addtime.F 145 CAL_ADDTIME 
         call CAL_CONVDATE( date,yi,mi,di,si,li,wi,myThid )
./pkg/cal/cal_addtime.F 42 CAL_ADDTIME 
      INTEGER date(4)
./pkg/cal/cal_addtime.F 70 CAL_ADDTIME 
     &       'date=',date(1),date(2),date(3),date(4)
./pkg/cal/cal_addtime.F 7 CAL_ADDTIME 
     I                        date,
./pkg/cal/cal_addtime.F 91 CAL_ADDTIME 
      if (date(4) .eq. -1) then
./pkg/cal/cal_addtime.F 92 CAL_ADDTIME 
         if (date(1) .ge. 0) then
./pkg/cal/cal_addtime.F 93 CAL_ADDTIME 
            date_1 = date(1)
./pkg/cal/cal_addtime.F 94 CAL_ADDTIME 
            date_2 = date(2)
./pkg/cal/cal_addtime.F 99 CAL_ADDTIME 
               date_1 = -date(1)
./pkg/cal/cal_checkdate.F 110 CAL_CHECKDATE 
     &      ' Invalid day in date(1)=', date(1)
./pkg/cal/cal_checkdate.F 112 CAL_CHECKDATE 
        ELSEIF ( date(1).LT.refDate(1) ) THEN
./pkg/cal/cal_checkdate.F 121 CAL_CHECKDATE 
        hhmmss  = ABS(date(2))
./pkg/cal/cal_checkdate.F 127 CAL_CHECKDATE 
     &      ' Invalid Seconds in date(2)=', date(2)
./pkg/cal/cal_checkdate.F 133 CAL_CHECKDATE 
     &      ' Invalid Minutes in date(2)=', date(2)
./pkg/cal/cal_checkdate.F 139 CAL_CHECKDATE 
     &      ' Invalid  Hours  in date(2)=', date(2)
./pkg/cal/cal_checkdate.F 39 CAL_CHECKDATE 
      INTEGER date(4)
./pkg/cal/cal_checkdate.F 59 CAL_CHECKDATE 
      wrong_sign = ( (date(1).LT.0) .AND. date(2).GT.0 )
./pkg/cal/cal_checkdate.F 60 CAL_CHECKDATE 
     &        .OR. ( (date(1).GT.0) .AND. date(2).LT.0 )
./pkg/cal/cal_checkdate.F 69 CAL_CHECKDATE 
     &      ' date=',date(1),date(2),date(3),date(4)
./pkg/cal/cal_checkdate.F 76 CAL_CHECKDATE 
      ELSEIF ( date(4).LE.0 ) THEN
./pkg/cal/cal_checkdate.F 79 CAL_CHECKDATE 
        IF ( date(4).NE.-1 ) THEN
./pkg/cal/cal_checkdate.F 7 CAL_CHECKDATE 
     I                          date,
./pkg/cal/cal_checkdate.F 82 CAL_CHECKDATE 
        ELSEIF ( date(3).NE.0 ) THEN
./pkg/cal/cal_checkdate.F 90 CAL_CHECKDATE 
        CALL CAL_CONVDATE( date, yy, mm, dd, nsecs, lp, wd, myThid )
./pkg/cal/cal_checkdate.F 93 CAL_CHECKDATE 
     &      ' Invalid month in date(1)=', date(1)
./pkg/cal/cal_convdate.F 104 CAL_CONVDATE 
      lp = date(3)
./pkg/cal/cal_convdate.F 105 CAL_CONVDATE 
      wd = date(4)
./pkg/cal/cal_convdate.F 39 CAL_CONVDATE 
      INTEGER date(4)
./pkg/cal/cal_convdate.F 55 CAL_CONVDATE 
     &       'date=',date(1),date(2),date(3),date(4)
./pkg/cal/cal_convdate.F 65 CAL_CONVDATE 
      wrong_sign = ( (date(1).lt.0) .and. date(2).gt.0 )
./pkg/cal/cal_convdate.F 66 CAL_CONVDATE 
     &        .OR. ( (date(1).gt.0) .and. date(2).lt.0 )
./pkg/cal/cal_convdate.F 73 CAL_CONVDATE 
        if ( date(1).lt.0 .OR. date(2).lt.0 ) then
./pkg/cal/cal_convdate.F 74 CAL_CONVDATE 
          date_1 = -date(1)
./pkg/cal/cal_convdate.F 75 CAL_CONVDATE 
          date_2 = -date(2)
./pkg/cal/cal_convdate.F 78 CAL_CONVDATE 
          date_1 = date(1)
./pkg/cal/cal_convdate.F 79 CAL_CONVDATE 
          date_2 = date(2)
./pkg/cal/cal_convdate.F 7 CAL_CONVDATE 
     I                         date,
./pkg/cal/cal_convdate.F 85 CAL_CONVDATE 
      if (date(4) .ne. -1) then
./pkg/cal/cal_fulldate.F 41 CAL_FULLDATE 
      INTEGER date(4)
./pkg/cal/cal_fulldate.F 56 CAL_FULLDATE 
      date(1) = yymmdd
./pkg/cal/cal_fulldate.F 57 CAL_FULLDATE 
      date(2) = hhmmss
./pkg/cal/cal_fulldate.F 58 CAL_FULLDATE 
      date(3) = 1
./pkg/cal/cal_fulldate.F 59 CAL_FULLDATE 
      date(4) = 1
./pkg/cal/cal_fulldate.F 72 CAL_FULLDATE 
      CALL CAL_CHECKDATE( date, valid, calerr, myThid )
./pkg/cal/cal_fulldate.F 83 CAL_FULLDATE 
        date(3) = cal_IsLeap( theyear, myThid )
./pkg/cal/cal_fulldate.F 86 CAL_FULLDATE 
        CALL CAL_TIMEPASSED( refDate, date, numberOfDays, myThid )
./pkg/cal/cal_fulldate.F 93 CAL_FULLDATE 
     &     '   date=', date(1), date(2), date(3), date(4)
./pkg/cal/cal_fulldate.F 98 CAL_FULLDATE 
          date(4) = MOD(numberOfDays(1),7)+1
./pkg/cal/cal_fulldate.F 9 CAL_FULLDATE 
     O                         date,
./pkg/cal/cal_timeinterval.F 100 CAL_TIMEINTERVAL 
      date(2) = hhmmss/minutesperhour*10000 +
./pkg/cal/cal_timeinterval.F 41 CAL_TIMEINTERVAL 
      INTEGER date(4)
./pkg/cal/cal_timeinterval.F 58 CAL_TIMEINTERVAL 
      date(4) = -1
./pkg/cal/cal_timeinterval.F 59 CAL_TIMEINTERVAL 
      date(3) =  0
./pkg/cal/cal_timeinterval.F 71 CAL_TIMEINTERVAL 
        date(1) = int(timeint/float(secondsperday))
./pkg/cal/cal_timeinterval.F 72 CAL_TIMEINTERVAL 
        tmp1    = date(1)
./pkg/cal/cal_timeinterval.F 87 CAL_TIMEINTERVAL 
        date(1) = int(timeint*modelstep/float(secondsperday))
./pkg/cal/cal_timeinterval.F 89 CAL_TIMEINTERVAL 
     &                float(date(1)) * float(secondsperday))
./pkg/cal/cal_timeinterval.F 9 CAL_TIMEINTERVAL 
     O                             date,
./pkg/cal/cal_toseconds.F 46 CAL_TOSECONDS 
      INTEGER date(4)
./pkg/cal/cal_toseconds.F 61 CAL_TOSECONDS 
     &       'date=',date(1),date(2),date(3),date(4)
./pkg/cal/cal_toseconds.F 70 CAL_TOSECONDS 
      if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
./pkg/cal/cal_toseconds.F 71 CAL_TOSECONDS 
     &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
./pkg/cal/cal_toseconds.F 74 CAL_TOSECONDS 
      if (((date(4) .eq. -1) .and.
./pkg/cal/cal_toseconds.F 75 CAL_TOSECONDS 
     &    (date(3) .eq.  0) .and.
./pkg/cal/cal_toseconds.F 78 CAL_TOSECONDS 
        if ((date(1) .lt. 0) .or.
./pkg/cal/cal_toseconds.F 79 CAL_TOSECONDS 
     &      (date(2) .lt. 0)) then
./pkg/cal/cal_toseconds.F 7 CAL_TOSECONDS 
     I                          date,
./pkg/cal/cal_toseconds.F 80 CAL_TOSECONDS 
          ndays  = -date(1)
./pkg/cal/cal_toseconds.F 81 CAL_TOSECONDS 
          hhmmss = -date(2)
./pkg/cal/cal_toseconds.F 84 CAL_TOSECONDS 
          ndays  = date(1)
./pkg/cal/cal_toseconds.F 85 CAL_TOSECONDS 
          hhmmss = date(2)
./pkg/chronos/chronos.F 100 GET_ALARM 
      subroutine GET_ALARM (tag,date,time,freq,tleft)
./pkg/chronos/chronos.F 121 GET_ALARM 
      integer freq,date,time,tleft
./pkg/chronos/chronos.F 152 GET_ALARM 
       date  = dates(n)
./pkg/chronos/chronos.F 159 GET_ALARM 
       tleft = nsecf(freq) - nalarm(freq,nymd,nhms,date,time )
./pkg/chronos/chronos.F 169 GET_ALARM 
      date  = 0
./pkg/chronos/chronos.F 180 GET_ALARM 
      integer date,time
./pkg/chronos/chronos.F 185 GET_ALARM 
      modalarm(freq,date0,time0) = nalarm (freq,date,time,date0,time0 )
./pkg/chronos/chronos.F 187 GET_ALARM 
      call GET_TIME (date,time)
./pkg/chronos/chronos.F 193 GET_ALARM 
          alarm = (dates(n).eq.date) .and. (times(n).eq.time)
./pkg/chronos/chronos.F 195 GET_ALARM 
          alarm = ( date.gt.dates(n) .or.
./pkg/chronos/chronos.F 196 GET_ALARM 
     .             (date.eq.dates(n) .and. time.ge.times(n)) ) .and.
./pkg/chronos/chronos.F 205 SET_TIME 
      subroutine SET_TIME (date,time)
./pkg/chronos/chronos.F 207 SET_TIME 
      integer  date,time
./pkg/chronos/chronos.F 232 SET_TIME 
      print *, 'Date: ',date
./pkg/chronos/chronos.F 236 SET_TIME 
      nymd = date
./pkg/chronos/chronos.F 23 SET_ALARM 
      integer       freq,date,time
./pkg/chronos/chronos.F 241 GET_TIME 
      subroutine GET_TIME (date,time)
./pkg/chronos/chronos.F 243 GET_TIME 
      integer date,time
./pkg/chronos/chronos.F 247 GET_TIME 
      date = nymd
./pkg/chronos/chronos.F 55 SET_ALARM 
         dates(1) = date
./pkg/chronos/chronos.F 57 SET_ALARM 
         if( myid.eq.1 ) write(6,100) date,time,freq,tags(1)
./pkg/chronos/chronos.F 67 SET_ALARM 
         print *, '    Date0: ',dates(n),' (Old) ',date,' (New)'
./pkg/chronos/chronos.F 6 SET_ALARM 
      subroutine SET_ALARM (tag,date,time,freq)
./pkg/chronos/chronos.F 71 SET_ALARM 
        dates(n) = date
./pkg/chronos/chronos.F 88 SET_ALARM 
         dates(ntags) = date
./pkg/chronos/chronos.F 90 SET_ALARM 
         if( myid.eq.1 ) write(6,100) date,time,freq,tags(ntags)