22,24d21
< C Changes: 09-03-05 : added IP2 and ITRI to COMGRIB
< C                     assigned IP2 to ID(19) 
< C                     assigned ITRI to ID(20) 
40c37
<      > idlevel, ITOT, ip1, ip2, itri
---
>      > idlevel, ITOT
48c45
<      &     ,ITOT,IP2, ITRI
---
>      &     ,ITOT
51,80d47
< C REMARKS: LAYOUT OF 'ID' ARRAY:
< C     ID(1)  = NUMBER OF BYTES IN PRODUCT DEFINITION SECTION (PDS)
< C     ID(2)  = PARAMETER TABLE VERSION NUMBER
< C     ID(3)  = IDENTIFICATION OF ORIGINATING CENTER
< C     ID(4)  = MODEL IDENTIFICATION (ALLOCATED BY ORIGINATING CENTER)
< C     ID(5)  = GRID IDENTIFICATION
< C     ID(6)  = 0 IF NO GDS SECTION, 1 IF GDS SECTION IS INCLUDED
< C     ID(7)  = 0 IF NO BMS SECTION, 1 IF BMS SECTION IS INCLUDED
< C     ID(8)  = INDICATOR OF PARAMETER AND UNITS (TABLE 2)
< C     ID(9)  = INDICATOR OF TYPE OF LEVEL       (TABLE 3)
< C     ID(10) = VALUE 1 OF LEVEL  (0 FOR 1-100,102,103,105,107
< C              109,111,113,115,117,119,125,126,160,200,201,
< C              235,237,238
< C              LEVEL IS IN ID WORD 11)
< C     ID(11) = VALUE 2 OF LEVEL
< C     ID(12) = YEAR OF CENTURY
< C     ID(13) = MONTH OF YEAR
< C     ID(14) = DAY OF MONTH
< C     ID(15) = HOUR OF DAY
< C     ID(16) = MINUTE OF HOUR   (IN MOST CASES SET TO 0)
< C     ID(17) = FCST TIME UNIT
< C     ID(18) = P1 PERIOD OF TIME
< C     ID(19) = P2 PERIOD OF TIME
< C     ID(20) = TIME RANGE INDICATOR
< C     ID(21) = NUMBER INCLUDED IN AVERAGE
< C     ID(22) = NUMBER MISSING FROM AVERAGES
< C     ID(23) = CENTURY  (20, CHANGE TO 21 ON JAN. 1, 2001)
< C     ID(24) = SUBCENTER IDENTIFICATION
< C     ID(25) = SCALING POWER OF 10
< C----------------------------------------------------------
128,129c95,96
<       ID(19)=IP2 
<       ID(20)=ITRI
---
>       ID(19)= 0
>       ID(20)= 0