W3FP13

The W3FP13 routine converts grib version 1 formatted
           product definition section to an Office Note
           84 id label. 

USAGE:    CALL W3FP13  (GRIB, PDS,  ID8, IERR )

   Input argument list:
      GRIB     - GRIB SECTION 0 READ AS CHARACTER*8
      PDS      - GRIB PDS SECTION 1 READ AS CHARACTER*1 PDS(*)
 
   Output argument list:      (INCLUDING WORK ARRAYS)
      ID8      - 12 INTEGER*4 FORMATTED O.N. 84 ID.
                  6 INTEGER 64 BIT WORDS ON CRAY
      IERR   0 - COMPLETED SATISFACTORILY
             1 - GRIB BLOCK 0 NOT CORRECT
             2 - LENGTH OF PDS NOT CORRECT
             3 - COULD NOT MATCH TYPE INDICATOR
             4 - GRID TYPE NOT IN TABLES
             5 - COULD NOT MATCH TYPE LEVEL
             6 - COULD NOT INTERPRET ORIGINATOR OF CODE
 
REMARKS:
        SOME OF THE ID'S WILL NOT BE EXACT TO THE O.N. 84
        FOR LOCATING FIELD ON THE DATASET.  THESE DIFFERENCES
        ARE MAINLY DUE TO TRUNCATION ERRORS WITH LAYERS.
        FOR EXAMPLE: .18019 SIG .47191 SIG R H FOR 36.O HRS
        WILL CONVERT TO: .18000 SIG .47000 SIG R H FOR 36.0 HRS

               THE ABOVE ID'S NOW FORCED TO BE EXACT         
        IF J THE WORD COUNT IS GREATER THEN 32743, J IS STORED
        IN THE 12TH ID WORD. BITS 16-31 OF THE 8TH ID WORD ARE
        SET TO ZERO.

 
W3lib.tar Library contains Fortran 90 decoder/encoder routines for GRIB edition 1. (Fortran90)
Date posted: 2/22/2007