Symbol Description Uses
date 108


File Line number Procedure Code
./pkg/cal/cal_addtime.F 104 CAL_ADDTIME 
               intv_1 = date(1)
./pkg/cal/cal_addtime.F 105 CAL_ADDTIME 
               intv_2 = date(2)
./pkg/cal/cal_addtime.F 124 CAL_ADDTIME 
      if (date(4) .eq. -1) then
./pkg/cal/cal_addtime.F 142 CAL_ADDTIME 
         call CAL_CONVDATE( date,yi,mi,di,si,li,wi,mythid )
./pkg/cal/cal_addtime.F 50 CAL_ADDTIME 
      integer date(4)
./pkg/cal/cal_addtime.F 7 CAL_ADDTIME 
     I                        date,
./pkg/cal/cal_addtime.F 88 CAL_ADDTIME 
      if (date(4) .eq. -1) then
./pkg/cal/cal_addtime.F 89 CAL_ADDTIME 
         if (date(1) .ge. 0) then
./pkg/cal/cal_addtime.F 90 CAL_ADDTIME 
            date_1 = date(1)
./pkg/cal/cal_addtime.F 91 CAL_ADDTIME 
            date_2 = date(2)
./pkg/cal/cal_addtime.F 96 CAL_ADDTIME 
               date_1 = -date(1)
./pkg/cal/cal_addtime.F 97 CAL_ADDTIME 
               date_2 = -date(2)
./pkg/cal/cal_checkdate.F 100 CAL_CHECKDATE 
          if ((date(3) .ne. 1) .and.
./pkg/cal/cal_checkdate.F 101 CAL_CHECKDATE 
     &        (date(3) .ne. 2)) then
./pkg/cal/cal_checkdate.F 107 CAL_CHECKDATE 
              call CAL_CONVDATE( date,yy,mm,dd,nsecs,lp,wd,mythid )
./pkg/cal/cal_checkdate.F 108 CAL_CHECKDATE 
              if (date(1) .lt. refdate(1)) then
./pkg/cal/cal_checkdate.F 116 CAL_CHECKDATE 
              if (date(2) .ne. hhmmss) then
./pkg/cal/cal_checkdate.F 120 CAL_CHECKDATE 
              if (date(1) .ne. yymmdd) then
./pkg/cal/cal_checkdate.F 46 CAL_CHECKDATE 
      integer date(4)
./pkg/cal/cal_checkdate.F 69 CAL_CHECKDATE 
      if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
./pkg/cal/cal_checkdate.F 70 CAL_CHECKDATE 
     &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
./pkg/cal/cal_checkdate.F 73 CAL_CHECKDATE 
      if (date(4) .le. 0) then
./pkg/cal/cal_checkdate.F 74 CAL_CHECKDATE 
        if (date(4) .ne. -1) then
./pkg/cal/cal_checkdate.F 77 CAL_CHECKDATE 
          if (date(3) .ne. 0) then
./pkg/cal/cal_checkdate.F 7 CAL_CHECKDATE 
     I                          date,
./pkg/cal/cal_checkdate.F 83 CAL_CHECKDATE 
              call CAL_CONVDATE(date,yy,mm,dd,nsecs,lp,wd,mythid)
./pkg/cal/cal_checkdate.F 90 CAL_CHECKDATE 
              if (date(2) .ne. hhmmss) then
./pkg/cal/cal_checkdate.F 97 CAL_CHECKDATE 
        if (date(4) .gt. 8) then
./pkg/cal/cal_convdate.F 102 CAL_CONVDATE 
      if (date(4) .ne. -1) then
./pkg/cal/cal_convdate.F 121 CAL_CONVDATE 
      lp = date(3)
./pkg/cal/cal_convdate.F 122 CAL_CONVDATE 
      wd = date(4)
./pkg/cal/cal_convdate.F 46 CAL_CONVDATE 
      integer date(4)
./pkg/cal/cal_convdate.F 70 CAL_CONVDATE 
      if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
./pkg/cal/cal_convdate.F 71 CAL_CONVDATE 
     &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
./pkg/cal/cal_convdate.F 75 CAL_CONVDATE 
        if (date(1) .eq. 0) then
./pkg/cal/cal_convdate.F 76 CAL_CONVDATE 
          date_1 = date(1)
./pkg/cal/cal_convdate.F 77 CAL_CONVDATE 
          if (date(2) .lt. 0) then
./pkg/cal/cal_convdate.F 78 CAL_CONVDATE 
            date_2 = -date(2)
./pkg/cal/cal_convdate.F 7 CAL_CONVDATE 
     I                         date,
./pkg/cal/cal_convdate.F 81 CAL_CONVDATE 
            date_2 = date(2)
./pkg/cal/cal_convdate.F 84 CAL_CONVDATE 
        else if (date(1) .lt. 0) then
./pkg/cal/cal_convdate.F 85 CAL_CONVDATE 
          date_1 = -date(1)
./pkg/cal/cal_convdate.F 86 CAL_CONVDATE 
          date_2 = -date(2)
./pkg/cal/cal_convdate.F 89 CAL_CONVDATE 
          date_1 = date(1)
./pkg/cal/cal_convdate.F 90 CAL_CONVDATE 
          date_2 = date(2)
./pkg/cal/cal_fulldate.F 49 CAL_FULLDATE 
      integer date(4)
./pkg/cal/cal_fulldate.F 65 CAL_FULLDATE 
      date(1) = yymmdd
./pkg/cal/cal_fulldate.F 66 CAL_FULLDATE 
      date(2) = hhmmss
./pkg/cal/cal_fulldate.F 67 CAL_FULLDATE 
      date(3) = 1
./pkg/cal/cal_fulldate.F 68 CAL_FULLDATE 
      date(4) = 1
./pkg/cal/cal_fulldate.F 71 CAL_FULLDATE 
      call CAL_CHECKDATE( date, valid, calerr, mythid )
./pkg/cal/cal_fulldate.F 76 CAL_FULLDATE 
        date(3) = cal_IsLeap( theyear, mythid )
./pkg/cal/cal_fulldate.F 79 CAL_FULLDATE 
        call CAL_TIMEPASSED( refdate, date, numberofdays, mythid )
./pkg/cal/cal_fulldate.F 80 CAL_FULLDATE 
        date(4) = mod(numberofdays(1),7)+1
./pkg/cal/cal_fulldate.F 9 CAL_FULLDATE 
     O                         date,
./pkg/cal/cal_timeinterval.F 49 CAL_TIMEINTERVAL 
      integer date(4)
./pkg/cal/cal_timeinterval.F 67 CAL_TIMEINTERVAL 
      date(4) = -1
./pkg/cal/cal_timeinterval.F 68 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 78 CAL_TIMEINTERVAL 
        date(1) = int(timeint*modelstep/float(secondsperday))
./pkg/cal/cal_timeinterval.F 80 CAL_TIMEINTERVAL 
     &                float(date(1)) * float(secondsperday))
./pkg/cal/cal_timeinterval.F 91 CAL_TIMEINTERVAL 
      date(2) = hhmmss/minutesperhour*10000 +
./pkg/cal/cal_timeinterval.F 9 CAL_TIMEINTERVAL 
     O                             date,
./pkg/cal/cal_toseconds.F 53 CAL_TOSECONDS 
      integer date(4)
./pkg/cal/cal_toseconds.F 67 CAL_TOSECONDS 
      if ( ( (date(1).lt.0) .and. date(2).gt.0 ) .or.
./pkg/cal/cal_toseconds.F 68 CAL_TOSECONDS 
     &     ( (date(1).gt.0) .and. date(2).lt.0 ) )
./pkg/cal/cal_toseconds.F 71 CAL_TOSECONDS 
      if (((date(4) .eq. -1) .and.
./pkg/cal/cal_toseconds.F 72 CAL_TOSECONDS 
     &    (date(3) .eq.  0) .and.
./pkg/cal/cal_toseconds.F 75 CAL_TOSECONDS 
        if ((date(1) .lt. 0) .or.
./pkg/cal/cal_toseconds.F 76 CAL_TOSECONDS 
     &      (date(2) .lt. 0)) then
./pkg/cal/cal_toseconds.F 77 CAL_TOSECONDS 
          ndays  = -date(1)
./pkg/cal/cal_toseconds.F 78 CAL_TOSECONDS 
          hhmmss = -date(2)
./pkg/cal/cal_toseconds.F 7 CAL_TOSECONDS 
     I                          date,
./pkg/cal/cal_toseconds.F 81 CAL_TOSECONDS 
          ndays  = date(1)
./pkg/cal/cal_toseconds.F 82 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)