GBLEVENTS

The GBLEVENTS routine runs in two modes: PREVENTS and POSTEVENTS.

    In the PREVENTS mode, prepares observational prepbufr reports for
       subsequent quality control and analysis programs.  This is donE
       through the following: interpolation of global spectral simga
       first guess to prepbufr observation locations with encoding of
       first guess values into prepbufr reports; encoding of "PREVENT"
       and/or "virtmp" events into prepbufr reports; and encoding of
       observation errors from the error specification file into
       prepbufr reports.

    In the POSTEVENTS mode, after all quality control and analysis
       programs have run, interpolates the global SPECTRAL SIMGA
       analysis to prepbufr observation locations and encodes these
       analyzed values into prepbufr reports. 

    The remainder of this abstract applies only to the prevents mode.
    The "PREVENT" event can change a quality marker to flag an observation
    datum for non-use by subsequent qc and analysiS programs (filtering).
 
USAGE:    CALL GBLEVENTS(IDATEP,IUNITF,IUNITE,IUNITP,IUNITS,SUBSET,
                         NEWTYP)

   INPUT ARGUMENT LIST:
      IDATEP   - CENTER DATE FOR PREPBUFR FILE IN THE FORM YYYYMMDDHH
      IUNITF   - 2-WORD ARRAY:
               - WORD 1 - UNIT NUMBER OF FIRST INPUT SPECTRAL (GLOBAL)
               - SIGMA FILE (EITHER FIRST GUESS OR ANALYSIS); IF HH IN
               - IDATEP IS A MULTIPLE OF 3 THEN THIS FILE IS VALID AT
               - THE DATE IN IDATEP, IF HH IN IDATEP IS NOT A
               - MULTIPLE OF 3 THEN THIS FILE IS VALID AT THE CLOSEST
               - TIME PRIOR TO THE DATE IN IDATEP THAT IS A MULTIPLE
               - OF 3
               - WORD 2 - UNIT NUMBER OF SECOND INPUT SPECTRAL (GLOBAL)
               - SIGMA FILE (EITHER FIRST GUESS OR ANALYSIS); IF HH IN
               - IDATEP IS A MULTIPLE OF 3 THEN THIS FILE IS EMPTY, IF
               - HH IN IDATEP IS NOT A MULTIPLE OF 3 THEN THIS FILE IS
               - VALID AT THE CLOSEST TIME AFTER THE DATE IN IDATEP
               - THAT IS A MULTIPLE OF 3
      IUNITE   - UNIT NUMBER OF INPUT OBSERVATION ERROR FILE
               - (USED ONLY IN PREVENTS MODE)
      IUNITP   - UNIT NUMBER OF OUTPUT PREPBUFR DATA SET
      IUNITS   - UNIT NUMBER OF "PREVENT" EVENTS DATA FILTERING
               - SUMMARY PRINT FILE
               - (USED ONLY IN PREVENTS MODE)
      SUBSET   - THE BUFR MESSAGE TABLE A ENTRY FOR THE PARTICULAR
               - REPORT BEING PROCESSED
      NEWTYP   - INDICATOR IF THE BUFR MESSAGE TABLE A ENTRY HAS
               - CHANGED FROM THAT OF THE PREVIOUS REPORT (=0 - NO,
                 =1 - YES)

   INPUT FILES:
      UNIT 05  - STANDARD INPUT (DATA CARDS - SEE NAMELIST
                 DOCUMENTATION BELOW)
                 (NOTE: IF STANDARD INPUT FILE IS NULL, THEN THIS
                        SUBROUTINE RUNS IN POSTEVENTS MODE)
      UNIT AA  - PREPBUFR DATA SET
               - (WHERE AA IS UNIT NUMBER DEFINED AS IUNITP IN
               - INPUT ARGUMENT LIST)
      UNIT BB  - SPECTRAL (GLOBAL) SIGMA GUESS (PREVENTS MODE) OR
               - ANALYSIS (POSTEVENTS MODE) FILE
               - (WHERE BB IS UNIT NUMBER DEFINED AS IUNITF(1) IN
               - INPUT ARGUMENT LIST)
      UNIT CC  - SPECTRAL (GLOBAL) SIGMA GUESS (PREVENTS MODE) OR
               - ANALYSIS (POSTEVENTS MODE) FILE
               - (WHERE CC IS UNIT NUMBER DEFINED AS IUNITF(2) IN
               - INPUT ARGUMENT LIST)
      UNIT DD  - OBSERVATION ERROR FILE (WHERE DD IS UNIT NUMBER
               - DEFINED AS IUNITE IN INPUT ARGUMENT LIST)
               - (USED ONLY IN PREVENTS MODE)

   OUTPUT FILES:
      UNIT 06  - STANDARD OUTPUT PRINT
      UNIT AA  - PREPBUFR DATA SET
               - (WHERE AA IS UNIT NUMBER DEFINED AS IUNITP IN
               - INPUT ARGUMENT LIST)
      UNIT DD  - "PREVENT" EVENTS DATA FILTERING SUMMARY PRINT FILE
               - (WHERE DD IS UNIT NUMBER DEFINED AS IUNITS IN
               - INPUT ARGUMENT LIST)
               - (USED ONLY IN PREVENTS MODE)

 


  
W3lib.tar
  
Library contains Fortran 90 decoder/encoder
   routines for GRIB edition 1. (Fortran90) 

   Date posted: 2/22/2007