COMPUTE FORECAST HOUR.
- Author
- IREDELL
- Date
- 1998-08-18
PROGRAM TO COMPUTE FORECAST HOUR GIVEN THE VERIFYING DATE AND THE INITIAL DATE.
PROGRAM HISTORY LOG:
- 95-02-28 IREDELL
- 97-09-22 IREDELL 4-DIGIT YEAR ALLOWED; 2-DIGIT YEAR STANDARDIZED
- 98-03-25 IREDELL 4-DIGIT YEAR FOR ALL DATES. A 2-DIGIT YEAR WILL BE INTERPRETED AS A YEAR IN THE FIRST CENTURY WHICH SHOULD BE ALL RIGHT BEFORE THE YEAR 2000. STANDARD ERROR WARNINGS WILL BE GIVEN FOR SUCH DATES UNTIL 1 SEPT 1998 AFTER WHICH NHOUR ABORTS. THE NEW Y2K-COMPLIANT W3LIB PACKAGE IS USED.
- 1998-08-17 IREDELL DROP-DEAD DATE RESET TO 1 SEPT 1999
- 1999-04-22 Gilbert Changed subroutine EXIT(N) to ERREXIT(N) so that error return values are passed back to the shell properly.
- 1999-09-02 IREDELL STANDARDIZED 4-DIGIT YEAR AS IN NDATE
USAGE: nhour vdate [idate] INPUT ARGUMENT LIST:
- VDATE - VERIFYING DATE IN YYYYMMDDHH FORMAT.
- IDATE - INITIAL DATE IN YYYYMMDDHH FORMAT. IDATE DEFAULTS TO THE UTC DATE AND HOUR. OUTPUT ARGUMENT LIST:
- NHOUR - FORECAST HOUR LEADING ZEROES ADDED TO MAKE IT AT LEAST TWO DIGITS. LEADING MINUS SIGN ADDED IF IDATE COMES AFTER VDATE. EXIT STATES:
- 0 - SUCCESS
- 1 - FAILURE; INVALID ARGUMENT
- 2 - FAILURE; INCORRECT NUMBER OF ARGUMENTS
SUBPROGRAMS CALLED:
- IARGC GET NUMBER OF ARGUMENTS
- GETARG GET ARGUMENT
- W3DIFDAT RETURN A TIME INTERVAL BETWEEN TWO DATES
- W3PRADAT FORMAT A DATE AND TIME INTO CHARACTERS
- W3UTCDAT RETURN THE UTC DATE AND TIME
- ERRMSG WRITE A MESSAGE TO STDERR
- ERREXIT EXIT PROGRAM
Definition in file nhour.f.
1.9.1