PDSEUP
The PDSEUP routine unpacks grib PDS extension 41- for ensemble.
USAGE: CALL PDSENS.F(KENS,KPROB,XPROB,KCLUST,KMEMBR,ILAST,MSGA)
Input argument list:
ILAST - LAST BYTE TO BE UNPACKED (IF GREATER/EQUAL TO FIRST BYT
IN ANY OF FOUR SECTIONS BELOW, WHOLE SECTION IS PACKED.
MSGA - FULL PDS SECTION, INCLUDING NEW ENSEMBLE EXTENSION
Output argument list: (INCLUDING WORK ARRAYS)
KENS(5) - BYTES 41-45 (GENERAL SECTION, ALWAYS PRESENT.)
KPROB(2) - BYTES 46-47 (PROBABILITY SECTION, PRESENT ONLY IF NEEDE
XPROB(2) - BYTES 48-51&52-55 (PROBABILITY SECTION, IF NEEDED.)
KCLUST(16) - BYTES 61-76 (CLUSTERING SECTION, IF NEEDED.)
KMEMBR(80) - BYTES 77-86 (CLUSTER MEMBERSHIP SECTION, IF NEEDED.)
REMARKS:
Use pdsens.f for packing pds ensemble extension.
Subprogram can be called from a multiprocessing environment.
W3lib.tar |
Library contains Fortran 90 decoder/encoder
routines for GRIB edition 1. (Fortran90)
Date posted: 2/22/2007 |