W3FI65

The W3FI65 routine packs an array of upper-air reports into the format
           described by NMC Office Note 29, or packs an array of surface
           reports into the format described by NMC Office Note 124.

USAGE:    CALL W3FI65(LOCRPT,COCBUF)

   Input argument list:
      LOCRPT   - INTEGER ARRAY CONTAINING ONE UNPACKED REPORT.
               - LOCRPT MUST BEGIN ON A FULLWORD BOUNDARY.  FORMAT
               - IS MIXED, USER MUST EQUIVALENCE REAL AND CHARACTER
               - ARRAYS TO THIS ARRAY (SEE W3FI64 WRITE-UP FOR
               - CONTENT).
 
   Output argument list:
      COCBUF   - CHARACTER*10 ARRAY CONTAINING A PACKED REPORT IN
               - NMC OFFICE NOTE 29/124 FORMAT.
 
REMARKS:
        After first creating and writing out the Office Note 85
    (first) date record, the user's FORTRAN program begins a packing
    loop as follows..  each iteration of the packing loop consists of
    a call first to w3fi65 to pack the report into cocbuf, then a call
    to w3fi66 with the current value of 'nflag' (set to zero for first
    call) to block the packed report into a record (see w3fi66 write-
    up). If 'nflag' is -1 upon returning from w3fi66, the remaining
    portion of the record is not large enough to hold the current
    packed report.  The user should write out the record, set 'nflag'
    to zero, call w3fi66 to write the packed report to the beginning
    of the next record, and repeat the packing loop.  If 'nflag' is
    positive, a packed report has been blocked into the record and
    the user should continue the packing loop.
         When all reports have been packed and blocked, the user
    should write out this last record (which is not full but contains
    fill information supplied by w3fi66).  One final record containing
    the string 'endof file' (SIC) followed by blank fill must be
    written out to signal the end of the data set.
 
         NOTE1: The packed report will have the categories ordered as
                follows:  1, 2, 3, 4, 5, 6, 7, 51, 52, 8, 9.
         NOTE2: The input unpacked report must be in the format specified
                in the w3fi64 office note 29 report unpacker write-up.
         NOTE3: The unused porion of cocbuf is not cleared.

 


  
W3lib.tar
  
Library contains Fortran 90 decoder/encoder
   routines for GRIB edition 1. (Fortran90) 

   Date posted: 2/22/2007