C
C*************** TOP OF COMMON BLOCK - STBCOM **************************
C
C   NAME- STBCOM
C
C   LANGUAGE- VS FORTRAN    TYPE- COMMON BLOCK   COMPUTER- CRAY
C
C   VERSION- 1.0     DATE- 10/18/96   PROGRAMMER- ALEX POZDNYAK (FDC)
C   VERSION- 2.0     DATE- 05/05/98   PROGRAMMER- BRIAN BARIL  (RSTX)
C                    ADDED GLOBEG. ADDED CNSTP.
C   VERSION- 2.1     DATE- 07/20/98   PROGRAMMER- LEAH WILSON (RSTX)
C                    ADDED STABTEST(6).
C   VERSION- 2.2     DATE- 04/25/00   PROGRAMMER- LEAH WILSON (RAYTHEON)
C                    ADDED SMLIMIT.       
C
C   FUNCTION- THIS COMMON BLOCK CONTAINS VALUES OBTAINED FROM NMC
C             FILES.
C
C   FUNCTION- THIS COMMON BLOCK CONTAINS INPUT STABILITY FLAGS, INCLUDING 
C             FOUR PRESSURE LEVELS TO COMPUTE STABILITY VALUES, ACCEPTABLE
C             FILTER TO USE, AND MAXIMUM TIME DIFFERENCE ALLOWED TO
C             FIND CLOSEST FORECAST FILE.
C
C   SHARED PARAMETERS-
C     VARIABLE   TYPE   DESCRIPTION
C     --------   ----   -----------
C     IPRESS     INT    ARRAY (DIM 4) OF TOVS PRESSURE
C                       LEVELS CORRESPONDING TO THE FOUR
C                       INPUT PRESSURE LEVELS.
C     PINPUT     INT    ARRAY (DIM 4) OF INPUT PRESSURES.
C                       PINPUT(1) IS THE LOWEST PRESSURE
C                       LEVEL, PINPUT(4) IS THE HIGHEST.
C     STDBUG     INT    STABILITY DEBUG LEVEL (1=ON).
C     STBDIF     INT    MAXIMUM DIFFERENCE ALLOWED FOR
C                       FINDING CLOSEST FORECAST FILE.
C     GLOBEG     REAL   ARRAY (DIM 5 X 4 X 2 X 145 X 37) OF
C                       GLOBAL GRIDDED NMC GEOPOTENTIAL
C                       HEIGHTS WHERE THERE ARE 5 NMC FORE-
C                       CAST FILES, 4 PRESSURE LEVELS,
C                       2 HEMISPHERES,(1=NORTH, 2=SOUTH),
C                       145 LONGITUDES IN 2-1/2 DEGREE
C                       INCREMENTS, AND 37 LATITUDES IN
C                       2-1/2 DEGREE INCREMENTS.
C     STABTEST   INT    ON/OFF FLAG FOR 5 STABILITY TESTS
C                       (111,222,333,444,555) - 6TH VALUE
C                       ON/OFF FLAG FOR WHOLE STBDVR
C     SMLIMIT    INT    PRESSURE LEVEL LIMIT FOR SML TEST.
C
C***********************************************************************
C
C
      COMMON /STBCOM/ IPRESS, STBDIF, PINPUT, STDBUG, SMLIMIT, CNSTP,
     1                STABTEST, GLOBEG
C
      INTEGER  STABTEST(6), IPRESS(4), STBDIF, PINPUT(4), STDBUG
      INTEGER  SMLIMIT
      REAL     CNSTP(2), GLOBEG(5,4,2,145,37)
C
C*************** BOTTOM OF COMMON BLOCK - STBCOM ***********************