text: c
  c $Id$
  c $Author$
  c
  C Water vapor narrow band constants for longwave radiation computations
   
        real 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
  
        common/crdcae/realk, st, a1, a2, b1, b2,
       $              coefa,coefb,coefc,coefd,
       $              coefe,coeff,coefg,coefh,
       $              coefi,coefj,coefk,
       $              c1,c2,c3,c4,c5,c6,c7,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
  
  