include file: crdcae.h 4
c
c $Id: crdcae.h,v 1.1 1998/04/01 07:21:36 ccm Exp $
c $Author: ccm $
c
C
C Water vapor narrow band constants for longwave radiation computations
C
      common/crdcae/realk(2), st(2), a1(2), a2(2), b1(2), b2(2),
     $              coefa(3,4),coefb(4,4),coefc(3,4),coefd(4,4),
     $              coefe(3,4),coeff(6,2),coefg(2,4),coefh(2,4),
     $              coefi(6,2),coefj(3,2),coefk(3,2),
     $              c1(4),c2(4),c3(4),c4(4),c5(4),c6(4),c7(4),c8,c9,
     $              c10,c11,c12,c13,c14,c15,c16,c17,c18,c19,c20,c21,
     $              c22,c23,c24,c25,c26,c27,c28,c29,c30,c31,
     $              fwcoef,fwc1,fwc2,fc1,cfa1
C
      real realk      ! H2O narrow band parameter
      real st         ! H2O narrow band parameter
      real a1,a2      ! Temperature correction terms for H2O path
      real b1,b2      ! Temperature correction terms for H2O path
C
C Constant coefficients for water vapor absorptivity and emissivity
C
      real coefa,coefb,coefc,coefd,coefe,coeff 
      real coefg,coefh,coefi,coefj,coefk 
      real c1, c2, c3, c4, c5, c6, c7,c8 ,c9 ,c10 
      real c11,c12,c13,c14,c15,c16,c17,c18,c19,c20 
      real c21,c22,c23,c24,c25,c26,c27,c28,c29,c30,c31
C
C Farwing correction constants for narrow-band emissivity model,
C introduced to account for the deficiencies in narrow-band model
C used to derive the emissivity; tuned with Arking's line-by-line
C calculations.
C
      real fwcoef      ! Farwing correction constant
      real fwc1,fwc2   ! Farwing correction constants 
      real fc1         ! Farwing correction constant 
      real cfa1        ! Farwing correction constant 
C