W3FI68
The W3FI68 routine converts an array of 25, or 27 integer words
into a grib product definition section (PDS) of 28
bytes , or 30 bytes. If pds bytes > 30, they are
set to zero.
USAGE: CALL W3FI68 (ID, PDS)
Input argument list:
ID - 25, 27 WORD INTEGER ARRAY
Output argument list:
PDS - 28 30, OR GREATER CHARACTER PDS FOR EDITION 1
REMARKS:
LAYOUT OF 'ID' ARRAY:
ID(1) = NUMBER OF BYTES IN PRODUCT DEFINITION SECTION (PDS)
ID(2) = PARAMETER TABLE VERSION NUMBER
ID(3) = IDENTIFICATION OF ORIGINATING CENTER
ID(4) = MODEL IDENTIFICATION (ALLOCATED BY ORIGINATING CENTER)
ID(5) = GRID IDENTIFICATION
ID(6) = 0 IF NO GDS SECTION, 1 IF GDS SECTION IS INCLUDED
ID(7) = 0 IF NO BMS SECTION, 1 IF BMS SECTION IS INCLUDED
ID(8) = INDICATOR OF PARAMETER AND UNITS (TABLE 2)
ID(9) = INDICATOR OF TYPE OF LEVEL (TABLE 3)
ID(10) = VALUE 1 OF LEVEL (0 FOR 1-100,102,103,105,107
109,111,113,115,117,119,125,160,200,201
LEVEL IS IN ID WORD 11)
ID(11) = VALUE 2 OF LEVEL
ID(12) = YEAR OF CENTURY
ID(13) = MONTH OF YEAR
ID(14) = DAY OF MONTH
ID(15) = HOUR OF DAY
ID(16) = MINUTE OF HOUR (IN MOST CASES SET TO 0)
ID(17) = FCST TIME UNIT
ID(18) = P1 PERIOD OF TIME
ID(19) = P2 PERIOD OF TIME
ID(20) = TIME RANGE INDICATOR
ID(21) = NUMBER INCLUDED IN AVERAGE
ID(22) = NUMBER MISSING FROM AVERAGES
ID(23) = CENTURY (20, CHANGE TO 21 ON JAN. 1, 2001)
ID(24) = SUBCENTER IDENTIFICATION
ID(25) = SCALING POWER OF 10
ID(26) = FLAG BYTE, 8 ON/OFF FLAGS
BIT NUMBER VALUE ID(26) DEFINITION
1 0 0 FULL FCST FIELD
1 128 FCST ERROR FIELD
2 0 0 ORIGINAL FCST FIELD
1 64 BIAS CORRECTED FCST FIELD
3 0 0 ORIGINAL RESOLUTION RETAINED
1 32 SMOOTHED FIELD
NOTE: ID(26) CAN BE THE SUM OF BITS 1, 2, 3.
BITS 4-8 NOT USED, SET TO ZERO
IF ID(1) IS 28, YOU DO NOT NEED ID(26) AND ID(27).
ID(27) = UNUSED, SET TO 0 SO PDS BYTE 30 IS SET TO ZERO.
W3lib.tar |
Library contains Fortran 90 decoder/encoder
routines for GRIB edition 1. (Fortran90)
Date posted: 2/22/2007 |