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
Output argument list:
COCBUF - CHARACTER*10 ARRAY CONTAINING A PACKED REPORT IN
- NMC OFFICE NOTE 29/124 FORMAT.
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.
||Library contains Fortran 90 decoder/encoder
routines for GRIB edition 1. (Fortran90)
Date posted: 2/22/2007