GETGB1S

The GETGB1S routine finds a grib message.

USAGE:    CALL GETGB1S(CBUF,NLEN,NNUM,J,JPDS,JGDS,JENS,
                       K,KPDS,KGDS,KENS,LSKIP,LGRIB,IRET)

   Input arguments:
      CBUF         CHARACTER*1 (NLEN*NNUM) BUFFER CONTAINING INDEX DATA
      NLEN         INTEGER LENGTH OF EACH INDEX RECORD IN BYTES
      NNUM         INTEGER NUMBER OF INDEX RECORDS
      J            INTEGER NUMBER OF MESSAGES TO SKIP
                   (=0 TO SEARCH FROM BEGINNING)
      JPDS         INTEGER (200) PDS PARAMETERS FOR WHICH TO SEARCH
                   (=-1 FOR WILDCARD)
      JGDS         INTEGER (200) GDS PARAMETERS FOR WHICH TO SEARCH
                   (ONLY SEARCHED IF JPDS(3)=255)
                   (=-1 FOR WILDCARD)
      JENS         INTEGER (200) ENSEMBLE PDS PARMS FOR WHICH TO SEARCH
                   (ONLY SEARCHED IF JPDS(23)=2)
                   (=-1 FOR WILDCARD)

   Output arguments:
      K            INTEGER MESSAGE NUMBER FOUND
                   (CAN BE SAME AS J IN CALLING PROGRAM
                   IN ORDER TO FACILITATE MULTIPLE SEARCHES)
      KPDS         INTEGER (200) UNPACKED PDS PARAMETERS
      KGDS         INTEGER (200) UNPACKED GDS PARAMETERS
      K ENS         INTEGER (200) UNPACKED ENSEMBLE PDS PARMS
      LSKIP        INTEGER NUMBER OF BYTES TO SKIP
      LGRIB        INTEGER NUMBER OF BYTES TO READ
      IRET         INTEGER RETURN CODE
                     0      ALL OK
                     1      REQUEST NOT FOUND
 
REMARKS:
        The 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