C                                                                               
C******************** TOP OF COMMON BLOCK - NOHIRSCF ******************         
C                                                                               
C   NAME- NOHIRSCF
C                                                                               
C   LANGUAGE- FORTRAN    TYPE- COMMON BLOCK  COMPUTER- CRAY J916             
C                                                                               
C   VERSION- 1.0     DATE- 07/20/00   PROGRAMMER- FRANK TILLEY (RAYTHEON)       
C                                                                               
C   FUNCTION- THIS COMMON BLOCK CONTAINS THE TIME AND ANGLE COEFFICIENTS
C             USED TO INTERPOLATE AMSU-A DATA TO HIRS LOCATIONS WHEN
C             THE HIRS INSTRUMENT IS NOT AVAILABLE. IT ALSO CONTAINS
C             A FLAG THAT IS SET TO TRUE WHEN NO HIRS 1B* IS AVAILABLE.
C                                                                               
C   SHARED PARAMETERS-                                                          
C     VARIABLE           TYPE      DESCRIPTION                                  
C     --------           ----      -----------                                  
C     INDA               REAL      ANGLE INTERPOLATION COEFFICIENTS.
C                                                                               
C     INDT               REAL      TIME INTERPOLATION COEFFICIENTS.
C                                                                               
C     AA2HIR             REAL      ARRAY OF TIME AND ANGLE VALUES
C                                  FOR FOUR AMSU-A SPOTS SURROUNDING
C                                  A HIRS SPOT.
C     NOH1BS             LOG       FLAG SET TO TRUE WHEN NO HIRS 1B*
C                                  FILE IS AVAILABLE.
C                                                                               
C   NOTE: PARAMETER FILES INPARM AND INSPARM MUST BE INCLUDED BEFORE
C         THIS COMMON BLOCK IS INCLUDED.
C**********************************************************************         
C                                                                               
      COMMON /NOHIRC/INDA,INDT,AA2HIR,NOH1BS
C                                                                               
      REAL INDA(HNSPOT), INDT(HTOTLN,HNSPOT)
      REAL AA2HIR(20,HNSPOT,HTOTLN)
      LOGICAL NOH1BS
C                                                                               
      SAVE /NOHIRC/
C
C******************** BOTTOM OF COMMON BLOCK - NOHIRSCF ***************