Symbol Description Uses
currentdate 18


File Line number Procedure Code
./pkg/cal/cal_getmonthsrec.F 106 CAL_GETMONTHSREC 
     &              (mod(currentdate(1),100)-1)*secondsperday +
./pkg/cal/cal_getmonthsrec.F 107 CAL_GETMONTHSREC 
     &              currentdate(2)/10000*secondsperhour +
./pkg/cal/cal_getmonthsrec.F 108 CAL_GETMONTHSREC 
     &              mod(currentdate(2)/100,100)*secondsperminute +
./pkg/cal/cal_getmonthsrec.F 109 CAL_GETMONTHSREC 
     &              mod(currentdate(2),100)
./pkg/cal/cal_getmonthsrec.F 111 CAL_GETMONTHSREC 
      midsecs     = float(ndaymonth(present,currentdate(3))*
./pkg/cal/cal_getmonthsrec.F 116 CAL_GETMONTHSREC 
      call CAL_ADDTIME( currentdate, modelsteptime, prevdate, mythid )
./pkg/cal/cal_getmonthsrec.F 51 CAL_GETMONTHSREC 
      integer currentdate(4)
./pkg/cal/cal_getmonthsrec.F 86 CAL_GETMONTHSREC 
      call CAL_GETDATE( myiter, mytime, currentdate, mythid )
./pkg/cal/cal_getmonthsrec.F 88 CAL_GETMONTHSREC 
      present         = mod(currentdate(1)/100,100)
./pkg/cal/cal_getmonthsrec.F 89 CAL_GETMONTHSREC 
      startofmonth(1) = (currentdate(1)/100)*100 + 1
./pkg/cal/cal_getmonthsrec.F 93 CAL_GETMONTHSREC 
      endofmonth(1)   = (currentdate(1)/100)*100 +
./pkg/cal/cal_getmonthsrec.F 94 CAL_GETMONTHSREC 
     &                  ndaymonth(present,currentdate(3))
./pkg/cal/cal_stepsperday.F 52 CAL_STEPSPERDAY 
      integer currentdate(4)
./pkg/cal/cal_stepsperday.F 61 CAL_STEPSPERDAY 
      call CAL_GETDATE( myiter, mytime, currentdate, mythid )
./pkg/cal/cal_stepsperday.F 63 CAL_STEPSPERDAY 
      present     = currentdate(1)
./pkg/cal/cal_stepsperday.F 64 CAL_STEPSPERDAY 
      presentsecs = (currentdate(2)/10000)*secondsperhour +
./pkg/cal/cal_stepsperday.F 65 CAL_STEPSPERDAY 
     &              mod(currentdate(2)/100,100)*secondsperminute +
./pkg/cal/cal_stepsperday.F 66 CAL_STEPSPERDAY 
     &              mod(currentdate(2),100)