SUBROUTINE INCDATR (IDATE1, idate2, nhours)

ARGUMENTS

OUT

IDATE1  CMC date-time stamp    integer

IN

IDATE2  CMC date-time stamp    integer
NHOURS  number of hours        REAL*8

DESCRIPTION

EXAMPLE

NOTES

- returns idate1=101010101 (1910/10/10 10Z run 1), if it 
  receives invalid arguments
- there are two styles of dates (both use integers):
  -old: an integer(.lt.123 200 000) of the following 
   form: mmddyyzzr
     mm = month of the year (1-12)
     dd = day of the month (1-31)
     yy = year(00-99)=>old style good only before 2000/1/1 
     zz = hour(00-23)
     r  = run (0-9) kept for backward compatibility
  -new: an integer(.ge.123 200 000) that contains the 
   true date(number of 5 seconds intervals since 1980/1/1 
   00Z00), computed like this:
     false_date=new_date_time_stamp-123 200 000
     true_date=(false_date/10)*8+mod(false_date,10)

SEE ALSO