Symbol Description Uses
workdate 9



File Line number Procedure Code
./pkg/cal/cal_getdate.F 46 CAL_GETDATE
      INTEGER workdate(4)
./pkg/cal/cal_getdate.F 90 CAL_GETDATE
        CALL CAL_TIMEINTERVAL( secs, 'secs', workdate, myThid )
./pkg/cal/cal_getdate.F 91 CAL_GETDATE
        CALL CAL_ADDTIME( modelStartDate, workdate, mydate, myThid )
./pkg/cal/cal_subdates.F 44 CAL_SUBDATES
      INTEGER workdate(4)
./pkg/cal/cal_subdates.F 68 CAL_SUBDATES
          workdate(1) = -initialdate(1)
./pkg/cal/cal_subdates.F 69 CAL_SUBDATES
          workdate(2) = -initialdate(2)
./pkg/cal/cal_subdates.F 70 CAL_SUBDATES
          workdate(3) =  0
./pkg/cal/cal_subdates.F 71 CAL_SUBDATES
          workdate(4) = -1
./pkg/cal/cal_subdates.F 72 CAL_SUBDATES
          call CAL_ADDTIME( finaldate, workdate, diffdate, myThid )