subroutine addtm2 (iyd1, it1, inc, iyd2, it2)
c
c-----------------------------------------------------------------------
c
c Adds a positive increment inc (in ms) to the time in iyd1, it1
c
c-----------------------------------------------------------------------
c
      integer*4 inc, it1, it2, iyd1, iyd2
c
c-----------------------------------------------------------------------
c     *** increment the time ***
c-----------------------------------------------------------------------
c
      it2 = it1 + inc
      iyd2 = iyd1
c
c-----------------------------------------------------------------------
c     *** check for day crossing ***
c-----------------------------------------------------------------------
c
      if (it2 .ge. 86400000) then
         it2 = it2 - 86400000
         iyd2 = iyd2 + 1     ! no check for year crossing
      end if
c
c-----------------------------------------------------------------------
c-----------------------------------------------------------------------
c
      return
      end