PDSENS

The PDSENS routine packs grib pds extension 41- for ensemble.

USAGE:    CALL PDSENS.F(KENS,KPROB,XPROB,KCLUST,KMEMBR,ILAST,MSGA)

   Input argument list:
      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.)
      ILAST      - LAST BYTE TO BE PACKED (IF GREATER OR EQUAL TO FIRST BY
                   IN ANY OF FOUR SECTIONS ABOVE, WHOLE SECTION IS PACKED.

   Output argument list:      (INCLUDING WORK ARRAYS)
      MSGA       - FULL PDS SECTION, INCLUDING NEW ENSEMBLE EXTENSION

REMARKS:
        Use PDSEUP routine for unpacking 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