C
C**************** TOP OF COMMON BLOCK - ATTENU8 ***********************
C
C   NAME- ATTENU8
C
C   LANGUAGE- VS FORTRAN    TYPE- COMMON BLOCK
C
C   VERSION- 1.0      DATE- 06/3/96    PROGRAMMER- LEAH WILSON (HSTX)
C   VERSION- 3.0      DATE- 11/13/97   PROGRAMMER-BRIAN BARIL (HSTX)
C   VERSION- 3.1      DATE- 03/02/98   PROGRAMMER-LEAH WILSON (RSTX)
C
C   FUNCTION- THIS COMMON BLOCK CONTAINS THE COEFFICIENTS NEEDED FOR
C             THE ATTENUATION PART OF THE CLOUD ALGORITHM.
C   VERSION-3.0 MODIFICATIONS FOR INCLUSION INTO ATOVS.
C   VERSION-3.1 ADD H8WVC.
C   
C
C*********************************************************************
C
      COMMON /ATTENU8/ NLEVS, GAMT, TREF, CONST, IDOCHN, CTNW, T257Z,
     1                 T480Z, CTNO1, CTNO2, ANGCOF, CVTNC, H8WVC
C
      INTEGER   IDOCHN(27,7), NLEVS
      REAL   CONST(19,6),CTNW(20,14),T257Z(40,20),T480Z(40,20)
      REAL   CTNO1(40,20),CTNO2(40,20),CVTNC(5,40,20),ANGCOF(3,40,20)
      REAL   TREF(40), GAMT(27), H8WVC(5)
C
C**************** BOTTOM OF COMMON BLOCK - ATTENU8 ********************