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