C     path:      $Source: /storm/rc1/cvsroot/rc/rrtm_sw/src/cldprop_sw.f,v $
C     author:    $Author: jdelamer $
C     revision:  $Revision: 2.5 $
C     created:   $Date: 2002/04/02 22:44:14 $
      SUBROUTINE CLDPROP_SW(ICLDATM)

C     PURPOSE:  COMPUTE THE CLOUD OPTICAL DEPTH(S) FOR EACH CLOUDY
C               LAYER.  NOTE:  ONLY INFLAG = 0 AND INFLAG=2/LIQFLAG=1,
C               ICEFLAG=3
C               (HU & STAMNES, Q. FU) ARE IMPLEMENTED.

      INCLUDE 'param.f'

      COMMON /CONTROL/   IAER, NSTR, IOUT, ISTART, IEND, ICLD 
      COMMON /PROFILE/   NLAYERS,PAVEL(MXLAY),TAVEL(MXLAY),
     &                   PZ(0:MXLAY),TZ(0:MXLAY)
      COMMON /CLOUDIN/   INFLAG,CLDDAT1(MXLAY),CLDDAT2(MXLAY),
     &                   ICEFLAG,LIQFLAG,CLDDAT3(MXLAY),CLDDAT4(MXLAY),
     &                   CLDDATMOM(0:16,MXLAY)
      COMMON /CLOUDDAT/  NCBANDS,CLDFRAC(MXLAY),
     &     TAUCLOUD(MXLAY,NBANDS),SSACLOUD(MXLAY,NBANDS),
     &     XMOM(0:16,MXLAY,NBANDS),TAUCLDORIG(MXLAY,NBANDS)

      COMMON /HVERSN/    HVRRTM,HVRRTR,HVRATM,HVRSET,HVRTAU,
     *                   HVDUM1(4),HVRUTL,HVREXT,
     *                   HVRD1M,HVRR1M,HVREPK,HVRLPK,HVRAER,HVRBKA,
     *                   HVRBKB,HVRCLD,HVRDIS,HVRLAM,HVRPAR

      CHARACTER*15 HVRRTM,HVRRTR,HVRATM,HVRSET,HVRTAU,
     *            HVDUM1,HVRUTL,HVREXT,
     *            HVRD1M,HVRR1M,HVREPK,HVRLPK,HVRAER,HVRBKA,
     *            HVRBKB,HVRCLD,HVRDIS,HVRLAM,HVRPAR

      DIMENSION ABSICE0(2), ABSICE1(2,5), ABSICE2(40,16)
      DIMENSION ABSLIQ1(58,16)
      DIMENSION ABSCOICE(NBANDS), ABSCOLIQ(NBANDS)
      DIMENSION EXTCOLIQ(NBANDS),SSACOLIQ(NBANDS),GLIQ(NBANDS)
      DIMENSION EXTCOICE(NBANDS),SSACOICE(NBANDS),GICE(NBANDS)
      DIMENSION FORWLIQ(NBANDS),FORWICE(NBANDS)

c Added for SW
      DIMENSION EXTLIQ1(58,NBANDS), SSALIQ1(58,NBANDS), 
     &     ASYLIQ1(58,NBANDS)
      DIMENSION EXTICE3(27,NBANDS), SSAICE3(27,NBANDS),
     &     ASYICE3(27,NBANDS),FDLICE3(28,NBANDS)
      DIMENSION FDELTA(NBANDS)

      DATA EPS /1.E-6/


C     Explanation of the method for each value of INFLAG.  A value of
C     0 for INFLAG do not distingish being liquid and ice clouds.
C     INFLAG = 2 does distinguish between liquid and ice clouds, and
C     requires further user input to specify the method to be used to 
C     compute the aborption due to each.
C     INFLAG = 0:  For each cloudy layer, the cloud fraction, the cloud optical
C                   depth, the cloud single-scattering albedo, and the
C                   moments of the phase function (0:NSTREAM).  Note
C                   that these values are delta-m scaled within this
C                   subroutine.
C     INFLAG = 2:  For each cloudy layer, the cloud fraction, cloud 
C                  water path (g/m2), and cloud ice fraction are input.
C       ICEFLAG = 3: The ice generalized effective size (dge) is input
C                    and the optical depths, single-scattering albedo,
C                    and phase function moments are calculated as in
C                    Q. Fu, J. Climate, (1996). Q. Fu provided high resolution
C                    tables which were appropriately averaged for the
C                    bands in RRTM_SW.  Linear interpolation is used to
C                    get the coefficients from the stored tables.
C       LIQFLAG = 1:  The water droplet effective radius (microns) is input 
C                     and the optical depths due to water clouds are computed 
C                     as in Hu and Stamnes, J., Clim., 6, 728-742, (1993).
C                     The values for absorption coefficients appropriate for
C                     the spectral bands in RRTM have been obtained for a 
C                     range of effective radii by an averaging procedure 
C                     based on the work of J. Pinto (private communication).
C                     Linear interpolation is used to get the absorption 
C                     coefficients for the input effective radius.

C     ABSCLDn is the liquid water absorption coefficient (m2/g). 
C     For INFLAG = 1.
      DATA ABSCLD1 /0.0602410/
C  
C     Everything below is for INFLAG = 2.
      DATA (EXTLIQ1(I,16),I=1,58) /
C     BAND 16
     &8.981463E-01,6.317895E-01,4.557508E-01,3.481624E-01,2.797950E-01,
     &2.342753E-01,2.026934E-01,1.800102E-01,1.632408E-01,1.505384E-01,
     &1.354524E-01,1.246520E-01,1.154342E-01,1.074756E-01,1.005353E-01,
     &9.442987E-02,8.901760E-02,8.418693E-02,7.984904E-02,7.593229E-02,
     &7.237827E-02,6.913887E-02,6.617415E-02,6.345061E-02,6.094001E-02,
     &5.861834E-02,5.646506E-02,5.446250E-02,5.249596E-02,5.081114E-02,
     &4.922243E-02,4.772189E-02,4.630243E-02,4.495766E-02,4.368189E-02,
     &4.246995E-02,4.131720E-02,4.021941E-02,3.917276E-02,3.817376E-02,
     &3.721926E-02,3.630635E-02,3.543237E-02,3.459491E-02,3.379171E-02,
     &3.302073E-02,3.228007E-02,3.156798E-02,3.088284E-02,3.022315E-02,
     &2.958753E-02,2.897468E-02,2.838340E-02,2.781258E-02,2.726117E-02,
     &2.672821E-02,2.621278E-02,2.5714E-02/
      DATA (EXTLIQ1(I,17),I=1,58) /
C     BAND 17
     &8.293797E-01,6.048371E-01,4.465706E-01,3.460387E-01,2.800064E-01,
     &2.346584E-01,2.022399E-01,1.782626E-01,1.600153E-01,1.457903E-01,
     &1.334061E-01,1.228548E-01,1.138396E-01,1.060486E-01,9.924856E-02,
     &9.326208E-02,8.795158E-02,8.320883E-02,7.894750E-02,7.509792E-02,
     &7.160323E-02,6.841653E-02,6.549889E-02,6.281763E-02,6.034516E-02,
     &5.805802E-02,5.593615E-02,5.396226E-02,5.202302E-02,5.036246E-02,
     &4.879606E-02,4.731610E-02,4.591565E-02,4.458852E-02,4.332912E-02,
     &4.213243E-02,4.099390E-02,3.990941E-02,3.887522E-02,3.788792E-02,
     &3.694440E-02,3.604183E-02,3.517760E-02,3.434934E-02,3.355485E-02,
     &3.279211E-02,3.205925E-02,3.135458E-02,3.067648E-02,3.002349E-02,
     &2.939425E-02,2.878748E-02,2.820200E-02,2.763673E-02,2.709062E-02,
     &2.656272E-02,2.605214E-02,2.5558E-02/
      DATA (EXTLIQ1(I,18),I=1,58) /
C     BAND 18
     &9.193685E-01,6.128292E-01,4.344150E-01,3.303048E-01,2.659500E-01,
     &2.239727E-01,1.953457E-01,1.751012E-01,1.603515E-01,1.493360E-01,
     &1.323791E-01,1.219335E-01,1.130076E-01,1.052926E-01,9.855839E-02,
     &9.262925E-02,8.736918E-02,8.267112E-02,7.844965E-02,7.463585E-02,
     &7.117343E-02,6.801601E-02,6.512503E-02,6.246815E-02,6.001806E-02,
     &5.775154E-02,5.564872E-02,5.369250E-02,5.176284E-02,5.011536E-02,
     &4.856099E-02,4.709211E-02,4.570193E-02,4.438430E-02,4.313375E-02,
     &4.194529E-02,4.081443E-02,3.973712E-02,3.870966E-02,3.772866E-02,
     &3.679108E-02,3.589409E-02,3.503514E-02,3.421185E-02,3.342206E-02,
     &3.266377E-02,3.193513E-02,3.123447E-02,3.056018E-02,2.991081E-02,
     &2.928502E-02,2.868154E-02,2.809920E-02,2.753692E-02,2.699367E-02,
     &2.646852E-02,2.596057E-02,2.5469E-02/
      DATA (EXTLIQ1(I,19),I=1,58) /
C     BAND 19
     &9.136931E-01,5.743244E-01,4.080708E-01,3.150572E-01,2.577261E-01,
     &2.197900E-01,1.933037E-01,1.740212E-01,1.595056E-01,1.482756E-01,
     &1.312164E-01,1.209246E-01,1.121227E-01,1.045095E-01,9.785967E-02,
     &9.200149E-02,8.680170E-02,8.215531E-02,7.797850E-02,7.420361E-02,
     &7.077530E-02,6.764798E-02,6.478369E-02,6.215063E-02,5.972189E-02,
     &5.747458E-02,5.538913E-02,5.344866E-02,5.153216E-02,4.989745E-02,
     &4.835476E-02,4.689661E-02,4.551629E-02,4.420777E-02,4.296563E-02,
     &4.178497E-02,4.066137E-02,3.959081E-02,3.856963E-02,3.759452E-02,
     &3.666244E-02,3.577061E-02,3.491650E-02,3.409777E-02,3.331227E-02,
     &3.255803E-02,3.183322E-02,3.113617E-02,3.046530E-02,2.981918E-02,
     &2.919646E-02,2.859591E-02,2.801635E-02,2.745671E-02,2.691599E-02,
     &2.639324E-02,2.588759E-02,2.5398E-02/
      DATA (EXTLIQ1(I,20),I=1,58) /
C     BAND 20
     &8.447548E-01,5.326840E-01,3.921523E-01,3.119082E-01,2.597055E-01,
     &2.228737E-01,1.954157E-01,1.741155E-01,1.570881E-01,1.431520E-01,
     &1.302034E-01,1.200491E-01,1.113571E-01,1.038330E-01,9.725657E-02,
     &9.145949E-02,8.631112E-02,8.170840E-02,7.756901E-02,7.382641E-02,
     &7.042616E-02,6.732338E-02,6.448069E-02,6.186672E-02,5.945494E-02,
     &5.722277E-02,5.515089E-02,5.322262E-02,5.132153E-02,4.969799E-02,
     &4.816556E-02,4.671686E-02,4.534525E-02,4.404480E-02,4.281014E-02,
     &4.163643E-02,4.051930E-02,3.945479E-02,3.843927E-02,3.746945E-02,
     &3.654234E-02,3.565518E-02,3.480547E-02,3.399088E-02,3.320930E-02,
     &3.245876E-02,3.173745E-02,3.104371E-02,3.037600E-02,2.973287E-02,
     &2.911300E-02,2.851516E-02,2.793818E-02,2.738101E-02,2.684264E-02,
     &2.632214E-02,2.581863E-02,2.5331E-02/
      DATA (EXTLIQ1(I,21),I=1,58) /
C     BAND 21
     &7.727642E-01,5.034865E-01,3.808673E-01,3.080333E-01,2.586453E-01,
     &2.224989E-01,1.947060E-01,1.725821E-01,1.545096E-01,1.394456E-01,
     &1.288683E-01,1.188852E-01,1.103317E-01,1.029214E-01,9.643967E-02,
     &9.072239E-02,8.564194E-02,8.109758E-02,7.700875E-02,7.331026E-02,
     &6.994879E-02,6.688028E-02,6.406807E-02,6.148133E-02,5.909400E-02,
     &5.688388E-02,5.483197E-02,5.292185E-02,5.103763E-02,4.942905E-02,
     &4.791039E-02,4.647438E-02,4.511453E-02,4.382497E-02,4.260043E-02,
     &4.143616E-02,4.032784E-02,3.927155E-02,3.826375E-02,3.730117E-02,
     &3.638087E-02,3.550013E-02,3.465646E-02,3.384759E-02,3.307141E-02,
     &3.232598E-02,3.160953E-02,3.092040E-02,3.025706E-02,2.961810E-02,
     &2.900220E-02,2.840814E-02,2.783478E-02,2.728106E-02,2.674599E-02,
     &2.622864E-02,2.572816E-02,2.5244E-02/
      DATA (EXTLIQ1(I,22),I=1,58) /
C     BAND 22
     &7.416833E-01,4.959591E-01,3.775057E-01,3.056353E-01,2.565943E-01,
     &2.206935E-01,1.931479E-01,1.712860E-01,1.534837E-01,1.386906E-01,
     &1.281198E-01,1.182344E-01,1.097595E-01,1.024137E-01,9.598552E-02,
     &9.031320E-02,8.527093E-02,8.075927E-02,7.669869E-02,7.302481E-02,
     &6.968491E-02,6.663542E-02,6.384008E-02,6.126838E-02,5.889452E-02,
     &5.669654E-02,5.465558E-02,5.275540E-02,5.087937E-02,4.927904E-02,
     &4.776796E-02,4.633895E-02,4.498557E-02,4.370202E-02,4.248306E-02,
     &4.132399E-02,4.022052E-02,3.916878E-02,3.816523E-02,3.720665E-02,
     &3.629011E-02,3.541290E-02,3.457257E-02,3.376685E-02,3.299365E-02,
     &3.225105E-02,3.153728E-02,3.085069E-02,3.018977E-02,2.955310E-02,
     &2.893940E-02,2.834742E-02,2.777606E-02,2.722424E-02,2.669099E-02,
     &2.617539E-02,2.567658E-02,2.5194E-02/
      DATA (EXTLIQ1(I,23),I=1,58) /
C     BAND 23
     &7.058580E-01,4.866573E-01,3.712238E-01,2.998638E-01,2.513441E-01,
     &2.161972E-01,1.895576E-01,1.686669E-01,1.518437E-01,1.380046E-01,
     &1.267564E-01,1.170399E-01,1.087026E-01,1.014704E-01,9.513729E-02,
     &8.954555E-02,8.457221E-02,8.012009E-02,7.611136E-02,7.248294E-02,
     &6.918317E-02,6.616934E-02,6.340584E-02,6.086273E-02,5.851465E-02,
     &5.634001E-02,5.432027E-02,5.243946E-02,5.058070E-02,4.899628E-02,
     &4.749975E-02,4.608411E-02,4.474303E-02,4.347082E-02,4.226237E-02,
     &4.111303E-02,4.001861E-02,3.897528E-02,3.797959E-02,3.702835E-02,
     &3.611867E-02,3.524791E-02,3.441364E-02,3.361360E-02,3.284577E-02,
     &3.210823E-02,3.139923E-02,3.071716E-02,3.006052E-02,2.942791E-02,
     &2.881806E-02,2.822974E-02,2.766185E-02,2.711335E-02,2.658326E-02,
     &2.607066E-02,2.557473E-02,2.5095E-02/
      DATA (EXTLIQ1(I,24),I=1,58) /
C     BAND 24
     &6.822779E-01,4.750373E-01,3.634834E-01,2.940726E-01,2.468060E-01,
     &2.125768E-01,1.866586E-01,1.663588E-01,1.500326E-01,1.366192E-01,
     &1.253472E-01,1.158052E-01,1.076101E-01,1.004954E-01,9.426089E-02,
     &8.875268E-02,8.385090E-02,7.946063E-02,7.550578E-02,7.192466E-02,
     &6.866669E-02,6.569001E-02,6.295971E-02,6.044642E-02,5.812526E-02,
     &5.597500E-02,5.397746E-02,5.211690E-02,5.027505E-02,4.870703E-02,
     &4.722555E-02,4.582373E-02,4.449540E-02,4.323497E-02,4.203742E-02,
     &4.089821E-02,3.981321E-02,3.877867E-02,3.779118E-02,3.684762E-02,
     &3.594514E-02,3.508114E-02,3.425322E-02,3.345917E-02,3.269698E-02,
     &3.196477E-02,3.126082E-02,3.058352E-02,2.993141E-02,2.930310E-02,
     &2.869732E-02,2.811289E-02,2.754869E-02,2.700371E-02,2.647698E-02,
     &2.596760E-02,2.547473E-02,2.4998E-02/
      DATA (EXTLIQ1(I,25),I=1,58) /
C     BAND 25
     &6.666233E-01,4.662044E-01,3.579517E-01,2.902984E-01,2.440475E-01,
     &2.104431E-01,1.849277E-01,1.648970E-01,1.487555E-01,1.354714E-01,
     &1.244173E-01,1.149913E-01,1.068903E-01,9.985323E-02,9.368351E-02,
     &8.823009E-02,8.337507E-02,7.902511E-02,7.510529E-02,7.155482E-02,
     &6.832386E-02,6.537113E-02,6.266218E-02,6.016802E-02,5.786408E-02,
     &5.572939E-02,5.374598E-02,5.189830E-02,5.006825E-02,4.851081E-02,
     &4.703906E-02,4.564623E-02,4.432621E-02,4.307349E-02,4.188312E-02,
     &4.075060E-02,3.967183E-02,3.864313E-02,3.766111E-02,3.672269E-02,
     &3.582505E-02,3.496559E-02,3.414196E-02,3.335198E-02,3.259362E-02,
     &3.186505E-02,3.116454E-02,3.049052E-02,2.984152E-02,2.921617E-02,
     &2.861322E-02,2.803148E-02,2.746986E-02,2.692733E-02,2.640295E-02,
     &2.589582E-02,2.540510E-02,2.4930E-02/
      DATA (EXTLIQ1(I,26),I=1,58) /
C     BAND 26
     &6.535669E-01,4.585865E-01,3.529226E-01,2.867245E-01,2.413848E-01,
     &2.083956E-01,1.833191E-01,1.636150E-01,1.477247E-01,1.346392E-01,
     &1.236449E-01,1.143095E-01,1.062828E-01,9.930773E-02,9.319029E-02,
     &8.778150E-02,8.296497E-02,7.864847E-02,7.475799E-02,7.123343E-02,
     &6.802549E-02,6.509332E-02,6.240285E-02,5.992538E-02,5.763657E-02,
     &5.551566E-02,5.354483E-02,5.170870E-02,4.988866E-02,4.834061E-02,
     &4.687751E-02,4.549264E-02,4.417999E-02,4.293410E-02,4.175006E-02,
     &4.062344E-02,3.955019E-02,3.852663E-02,3.754943E-02,3.661553E-02,
     &3.572214E-02,3.486669E-02,3.404683E-02,3.326040E-02,3.250542E-02,
     &3.178003E-02,3.108254E-02,3.041139E-02,2.976511E-02,2.914235E-02,
     &2.854187E-02,2.796247E-02,2.740309E-02,2.686271E-02,2.634038E-02,
     &2.583520E-02,2.534636E-02,2.4873E-02/
      DATA (EXTLIQ1(I,27),I=1,58) /
C     BAND 27
     &6.448790E-01,4.541425E-01,3.503348E-01,2.850494E-01,2.401966E-01,
     &2.074811E-01,1.825631E-01,1.629515E-01,1.471142E-01,1.340574E-01,
     &1.231462E-01,1.138628E-01,1.058802E-01,9.894286E-02,9.285818E-02,
     &8.747802E-02,8.268676E-02,7.839271E-02,7.452230E-02,7.101580E-02,
     &6.782418E-02,6.490685E-02,6.222991E-02,5.976484E-02,5.748742E-02,
     &5.537703E-02,5.341593E-02,5.158883E-02,4.977355E-02,4.823172E-02,
     &4.677430E-02,4.539465E-02,4.408680E-02,4.284533E-02,4.166539E-02,
     &4.054257E-02,3.947283E-02,3.845256E-02,3.747842E-02,3.654737E-02,
     &3.565665E-02,3.480370E-02,3.398620E-02,3.320198E-02,3.244908E-02,
     &3.172566E-02,3.103002E-02,3.036062E-02,2.971600E-02,2.909482E-02,
     &2.849582E-02,2.791785E-02,2.735982E-02,2.682072E-02,2.629960E-02,
     &2.579559E-02,2.530786E-02,2.4836E-02/
      DATA (EXTLIQ1(I,28),I=1,58) /
C     BAND 28
     &6.422688E-01,4.528453E-01,3.497232E-01,2.847724E-01,2.400815E-01,
     &2.074403E-01,1.825502E-01,1.629415E-01,1.470934E-01,1.340183E-01,
     &1.230935E-01,1.138049E-01,1.058201E-01,9.888245E-02,9.279878E-02,
     &8.742053E-02,8.263175E-02,7.834058E-02,7.447327E-02,7.097000E-02,
     &6.778167E-02,6.486765E-02,6.219400E-02,5.973215E-02,5.745790E-02,
     &5.535059E-02,5.339250E-02,5.156831E-02,4.975308E-02,4.821235E-02,
     &4.675596E-02,4.537727E-02,4.407030E-02,4.282968E-02,4.165053E-02,
     &4.052845E-02,3.945941E-02,3.843980E-02,3.746628E-02,3.653583E-02,
     &3.564567E-02,3.479326E-02,3.397626E-02,3.319253E-02,3.244008E-02,
     &3.171711E-02,3.102189E-02,3.035289E-02,2.970866E-02,2.908784E-02,
     &2.848920E-02,2.791156E-02,2.735385E-02,2.681507E-02,2.629425E-02,
     &2.579053E-02,2.530308E-02,2.4831E-02/
      DATA (EXTLIQ1(I,29),I=1,58) /
C     BAND 29
     &4.614710E-01,4.556116E-01,4.056568E-01,3.529833E-01,3.060334E-01,
     &2.658127E-01,2.316095E-01,2.024325E-01,1.773749E-01,1.556867E-01,
     &1.455558E-01,1.332882E-01,1.229052E-01,1.140067E-01,1.062981E-01,
     &9.955703E-02,9.361333E-02,8.833420E-02,8.361467E-02,7.937071E-02,
     &7.553420E-02,7.204942E-02,6.887031E-02,6.595851E-02,6.328178E-02,
     &6.081286E-02,5.852854E-02,5.640892E-02,5.431269E-02,5.252561E-02,
     &5.084345E-02,4.925727E-02,4.775910E-02,4.634182E-02,4.499907E-02,
     &4.372512E-02,4.251484E-02,4.136357E-02,4.026710E-02,3.922162E-02,
     &3.822365E-02,3.727004E-02,3.635790E-02,3.548457E-02,3.464764E-02,
     &3.384488E-02,3.307424E-02,3.233384E-02,3.162192E-02,3.093688E-02,
     &3.027723E-02,2.964158E-02,2.902864E-02,2.843722E-02,2.786621E-02,
     &2.731457E-02,2.678133E-02,2.6266E-02/
      DATA (SSALIQ1(I,16),I=1,58) /
C     BAND 16
     &8.143821E-01,7.836739E-01,7.550722E-01,7.306269E-01,7.105612E-01,
     &6.946649E-01,6.825556E-01,6.737762E-01,6.678448E-01,6.642830E-01,
     &6.679741E-01,6.584607E-01,6.505598E-01,6.440951E-01,6.388901E-01,
     &6.347689E-01,6.315549E-01,6.290718E-01,6.271432E-01,6.255928E-01,
     &6.242441E-01,6.229207E-01,6.214464E-01,6.196445E-01,6.173388E-01,
     &6.143527E-01,6.105099E-01,6.056339E-01,6.108290E-01,6.073939E-01,
     &6.043073E-01,6.015473E-01,5.990913E-01,5.969173E-01,5.950028E-01,
     &5.933257E-01,5.918636E-01,5.905944E-01,5.894957E-01,5.885453E-01,
     &5.877209E-01,5.870003E-01,5.863611E-01,5.857811E-01,5.852381E-01,
     &5.847098E-01,5.841738E-01,5.836081E-01,5.829901E-01,5.822979E-01,
     &5.815089E-01,5.806011E-01,5.795521E-01,5.783396E-01,5.769413E-01,
     &5.753351E-01,5.734986E-01,5.7141E-01/
      DATA (SSALIQ1(I,17),I=1,58) /
C     BAND 17
     &8.165821E-01,8.002015E-01,7.816921E-01,7.634131E-01,7.463721E-01,
     &7.312469E-01,7.185883E-01,7.088975E-01,7.026671E-01,7.004020E-01,
     &7.042138E-01,6.960930E-01,6.894243E-01,6.840459E-01,6.797957E-01,
     &6.765119E-01,6.740325E-01,6.721955E-01,6.708391E-01,6.698013E-01,
     &6.689201E-01,6.680339E-01,6.669805E-01,6.655982E-01,6.637250E-01,
     &6.611992E-01,6.578588E-01,6.535420E-01,6.584449E-01,6.553992E-01,
     &6.526547E-01,6.501917E-01,6.479905E-01,6.460313E-01,6.442945E-01,
     &6.427605E-01,6.414094E-01,6.402217E-01,6.391775E-01,6.382573E-01,
     &6.374413E-01,6.367099E-01,6.360433E-01,6.354218E-01,6.348257E-01,
     &6.342355E-01,6.336313E-01,6.329935E-01,6.323023E-01,6.315383E-01,
     &6.306814E-01,6.297122E-01,6.286110E-01,6.273579E-01,6.259333E-01,
     &6.243176E-01,6.224910E-01,6.2043E-01/
      DATA (SSALIQ1(I,18),I=1,58) /
C     BAND 18
     &9.900163E-01,9.854307E-01,9.797730E-01,9.733113E-01,9.664245E-01,
     &9.594976E-01,9.529055E-01,9.470112E-01,9.421695E-01,9.387304E-01,
     &9.344918E-01,9.305302E-01,9.267048E-01,9.230072E-01,9.194289E-01,
     &9.159616E-01,9.125968E-01,9.093260E-01,9.061409E-01,9.030330E-01,
     &8.999940E-01,8.970154E-01,8.940888E-01,8.912058E-01,8.883579E-01,
     &8.855368E-01,8.827341E-01,8.799413E-01,8.777423E-01,8.749566E-01,
     &8.722298E-01,8.695605E-01,8.669469E-01,8.643875E-01,8.618806E-01,
     &8.594246E-01,8.570179E-01,8.546589E-01,8.523459E-01,8.500773E-01,
     &8.478516E-01,8.456670E-01,8.435219E-01,8.414148E-01,8.393439E-01,
     &8.373078E-01,8.353047E-01,8.333330E-01,8.313911E-01,8.294774E-01,
     &8.275904E-01,8.257282E-01,8.238893E-01,8.220721E-01,8.202751E-01,
     &8.184965E-01,8.167346E-01,8.1499E-01/
      DATA (SSALIQ1(I,19),I=1,58) /
C     BAND 19
     &9.999916E-01,9.987396E-01,9.966900E-01,9.950738E-01,9.937531E-01,
     &9.925912E-01,9.914525E-01,9.902018E-01,9.887046E-01,9.868263E-01,
     &9.849039E-01,9.832372E-01,9.815265E-01,9.797770E-01,9.779940E-01,
     &9.761827E-01,9.743481E-01,9.724955E-01,9.706303E-01,9.687575E-01,
     &9.668823E-01,9.650100E-01,9.631457E-01,9.612947E-01,9.594622E-01,
     &9.576534E-01,9.558734E-01,9.541275E-01,9.522059E-01,9.504258E-01,
     &9.486459E-01,9.468676E-01,9.450921E-01,9.433208E-01,9.415548E-01,
     &9.397955E-01,9.380441E-01,9.363022E-01,9.345706E-01,9.328510E-01,
     &9.311445E-01,9.294524E-01,9.277761E-01,9.261167E-01,9.244755E-01,
     &9.228540E-01,9.212534E-01,9.196748E-01,9.181197E-01,9.165894E-01,
     &9.150851E-01,9.136080E-01,9.121596E-01,9.107410E-01,9.093536E-01,
     &9.079987E-01,9.066775E-01,9.0539E-01/
      DATA (SSALIQ1(I,20),I=1,58) /
C     BAND 20
     &9.979493E-01,9.964113E-01,9.950014E-01,9.937045E-01,9.924964E-01,
     &9.913546E-01,9.902575E-01,9.891843E-01,9.881136E-01,9.870238E-01,
     &9.859934E-01,9.849372E-01,9.838873E-01,9.828434E-01,9.818052E-01,
     &9.807725E-01,9.797450E-01,9.787225E-01,9.777047E-01,9.766914E-01,
     &9.756823E-01,9.746771E-01,9.736756E-01,9.726775E-01,9.716827E-01,
     &9.706907E-01,9.697014E-01,9.687145E-01,9.678060E-01,9.668108E-01,
     &9.658218E-01,9.648391E-01,9.638629E-01,9.628936E-01,9.619313E-01,
     &9.609763E-01,9.600287E-01,9.590888E-01,9.581569E-01,9.572330E-01,
     &9.563176E-01,9.554108E-01,9.545128E-01,9.536239E-01,9.527443E-01,
     &9.518741E-01,9.510137E-01,9.501633E-01,9.493230E-01,9.484931E-01,
     &9.476740E-01,9.468656E-01,9.460683E-01,9.452824E-01,9.445080E-01,
     &9.437454E-01,9.429948E-01,9.4226E-01/
      DATA (SSALIQ1(I,21),I=1,58) /
C     BAND 21
     &9.988742E-01,9.982668E-01,9.976935E-01,9.971497E-01,9.966314E-01,
     &9.961344E-01,9.956545E-01,9.951873E-01,9.947286E-01,9.942741E-01,
     &9.938457E-01,9.933947E-01,9.929473E-01,9.925032E-01,9.920621E-01,
     &9.916237E-01,9.911875E-01,9.907534E-01,9.903209E-01,9.898898E-01,
     &9.894597E-01,9.890304E-01,9.886015E-01,9.881726E-01,9.877435E-01,
     &9.873138E-01,9.868833E-01,9.864516E-01,9.860698E-01,9.856317E-01,
     &9.851957E-01,9.847618E-01,9.843302E-01,9.839008E-01,9.834739E-01,
     &9.830494E-01,9.826275E-01,9.822083E-01,9.817918E-01,9.813782E-01,
     &9.809675E-01,9.805598E-01,9.801552E-01,9.797538E-01,9.793556E-01,
     &9.789608E-01,9.785695E-01,9.781817E-01,9.777975E-01,9.774171E-01,
     &9.770404E-01,9.766676E-01,9.762988E-01,9.759340E-01,9.755733E-01,
     &9.752169E-01,9.748649E-01,9.7452E-01/
      DATA (SSALIQ1(I,22),I=1,58) /
C     BAND 22
     &9.994441E-01,9.991608E-01,9.988949E-01,9.986439E-01,9.984054E-01,
     &9.981768E-01,9.979557E-01,9.977396E-01,9.975258E-01,9.973120E-01,
     &9.971011E-01,9.968852E-01,9.966708E-01,9.964578E-01,9.962462E-01,
     &9.960357E-01,9.958264E-01,9.956181E-01,9.954108E-01,9.952043E-01,
     &9.949987E-01,9.947937E-01,9.945892E-01,9.943853E-01,9.941818E-01,
     &9.939786E-01,9.937757E-01,9.935728E-01,9.933922E-01,9.931825E-01,
     &9.929739E-01,9.927661E-01,9.925592E-01,9.923534E-01,9.921485E-01,
     &9.919447E-01,9.917421E-01,9.915406E-01,9.913403E-01,9.911412E-01,
     &9.909435E-01,9.907470E-01,9.905519E-01,9.903581E-01,9.901659E-01,
     &9.899751E-01,9.897858E-01,9.895981E-01,9.894120E-01,9.892276E-01,
     &9.890447E-01,9.888637E-01,9.886845E-01,9.885070E-01,9.883314E-01,
     &9.881576E-01,9.879859E-01,9.8782E-01/
      DATA (SSALIQ1(I,23),I=1,58) /
C     BAND 23
     &9.999138E-01,9.998730E-01,9.998338E-01,9.997965E-01,9.997609E-01,
     &9.997270E-01,9.996944E-01,9.996629E-01,9.996321E-01,9.996016E-01,
     &9.995690E-01,9.995372E-01,9.995057E-01,9.994744E-01,9.994433E-01,
     &9.994124E-01,9.993817E-01,9.993510E-01,9.993206E-01,9.992903E-01,
     &9.992600E-01,9.992299E-01,9.991998E-01,9.991698E-01,9.991398E-01,
     &9.991098E-01,9.990799E-01,9.990499E-01,9.990231E-01,9.989920E-01,
     &9.989611E-01,9.989302E-01,9.988996E-01,9.988690E-01,9.988386E-01,
     &9.988084E-01,9.987783E-01,9.987485E-01,9.987187E-01,9.986891E-01,
     &9.986598E-01,9.986306E-01,9.986017E-01,9.985729E-01,9.985443E-01,
     &9.985160E-01,9.984879E-01,9.984600E-01,9.984324E-01,9.984050E-01,
     &9.983778E-01,9.983509E-01,9.983243E-01,9.982980E-01,9.982719E-01,
     &9.982461E-01,9.982206E-01,9.9820E-01/
      DATA (SSALIQ1(I,24),I=1,58) /
C     BAND 24
     &9.999985E-01,9.999979E-01,9.999972E-01,9.999966E-01,9.999961E-01,
     &9.999955E-01,9.999950E-01,9.999944E-01,9.999938E-01,9.999933E-01,
     &9.999927E-01,9.999921E-01,9.999915E-01,9.999910E-01,9.999904E-01,
     &9.999899E-01,9.999893E-01,9.999888E-01,9.999882E-01,9.999877E-01,
     &9.999871E-01,9.999866E-01,9.999861E-01,9.999855E-01,9.999850E-01,
     &9.999844E-01,9.999839E-01,9.999833E-01,9.999828E-01,9.999823E-01,
     &9.999817E-01,9.999812E-01,9.999807E-01,9.999801E-01,9.999796E-01,
     &9.999791E-01,9.999786E-01,9.999781E-01,9.999776E-01,9.999770E-01,
     &9.999765E-01,9.999761E-01,9.999756E-01,9.999751E-01,9.999746E-01,
     &9.999741E-01,9.999736E-01,9.999732E-01,9.999727E-01,9.999722E-01,
     &9.999718E-01,9.999713E-01,9.999709E-01,9.999705E-01,9.999701E-01,
     &9.999697E-01,9.999692E-01,9.9997E-01/
      DATA (SSALIQ1(I,25),I=1,58) /
C     BAND 25
     &9.999999E-01,9.999998E-01,9.999997E-01,9.999997E-01,9.999997E-01,
     &9.999996E-01,9.999996E-01,9.999995E-01,9.999995E-01,9.999994E-01,
     &9.999994E-01,9.999993E-01,9.999993E-01,9.999992E-01,9.999992E-01,
     &9.999991E-01,9.999991E-01,9.999991E-01,9.999990E-01,9.999989E-01,
     &9.999989E-01,9.999989E-01,9.999988E-01,9.999988E-01,9.999987E-01,
     &9.999987E-01,9.999986E-01,9.999986E-01,9.999985E-01,9.999985E-01,
     &9.999984E-01,9.999984E-01,9.999984E-01,9.999983E-01,9.999983E-01,
     &9.999982E-01,9.999982E-01,9.999982E-01,9.999981E-01,9.999980E-01,
     &9.999980E-01,9.999980E-01,9.999979E-01,9.999979E-01,9.999978E-01,
     &9.999978E-01,9.999977E-01,9.999977E-01,9.999977E-01,9.999976E-01,
     &9.999976E-01,9.999975E-01,9.999975E-01,9.999974E-01,9.999974E-01,
     &9.999974E-01,9.999973E-01,1.0000E+00/
      DATA (SSALIQ1(I,26),I=1,58) /
C     BAND 26
     &9.999997E-01,9.999995E-01,9.999993E-01,9.999992E-01,9.999990E-01,
     &9.999989E-01,9.999988E-01,9.999987E-01,9.999986E-01,9.999985E-01,
     &9.999984E-01,9.999983E-01,9.999982E-01,9.999981E-01,9.999980E-01,
     &9.999978E-01,9.999977E-01,9.999976E-01,9.999975E-01,9.999974E-01,
     &9.999973E-01,9.999972E-01,9.999970E-01,9.999969E-01,9.999968E-01,
     &9.999967E-01,9.999966E-01,9.999965E-01,9.999964E-01,9.999963E-01,
     &9.999962E-01,9.999961E-01,9.999959E-01,9.999958E-01,9.999957E-01,
     &9.999956E-01,9.999955E-01,9.999954E-01,9.999953E-01,9.999952E-01,
     &9.999951E-01,9.999949E-01,9.999949E-01,9.999947E-01,9.999946E-01,
     &9.999945E-01,9.999944E-01,9.999943E-01,9.999942E-01,9.999941E-01,
     &9.999940E-01,9.999939E-01,9.999938E-01,9.999937E-01,9.999936E-01,
     &9.999935E-01,9.999934E-01,9.9999E-01/
      DATA (SSALIQ1(I,27),I=1,58) /
C     BAND 27
     &9.999984E-01,9.999976E-01,9.999969E-01,9.999962E-01,9.999956E-01,
     &9.999950E-01,9.999945E-01,9.999940E-01,9.999935E-01,9.999931E-01,
     &9.999926E-01,9.999920E-01,9.999914E-01,9.999908E-01,9.999903E-01,
     &9.999897E-01,9.999891E-01,9.999886E-01,9.999880E-01,9.999874E-01,
     &9.999868E-01,9.999863E-01,9.999857E-01,9.999851E-01,9.999846E-01,
     &9.999840E-01,9.999835E-01,9.999829E-01,9.999824E-01,9.999818E-01,
     &9.999812E-01,9.999806E-01,9.999800E-01,9.999795E-01,9.999789E-01,
     &9.999783E-01,9.999778E-01,9.999773E-01,9.999767E-01,9.999761E-01,
     &9.999756E-01,9.999750E-01,9.999745E-01,9.999739E-01,9.999734E-01,
     &9.999729E-01,9.999723E-01,9.999718E-01,9.999713E-01,9.999708E-01,
     &9.999703E-01,9.999697E-01,9.999692E-01,9.999687E-01,9.999683E-01,
     &9.999678E-01,9.999673E-01,9.9997E-01/
      DATA (SSALIQ1(I,28),I=1,58) /
C     BAND 28
     &9.999981E-01,9.999973E-01,9.999965E-01,9.999958E-01,9.999951E-01,
     &9.999943E-01,9.999937E-01,9.999930E-01,9.999924E-01,9.999918E-01,
     &9.999912E-01,9.999905E-01,9.999897E-01,9.999890E-01,9.999883E-01,
     &9.999876E-01,9.999869E-01,9.999862E-01,9.999855E-01,9.999847E-01,
     &9.999840E-01,9.999834E-01,9.999827E-01,9.999819E-01,9.999812E-01,
     &9.999805E-01,9.999799E-01,9.999791E-01,9.999785E-01,9.999778E-01,
     &9.999771E-01,9.999764E-01,9.999757E-01,9.999750E-01,9.999743E-01,
     &9.999736E-01,9.999729E-01,9.999722E-01,9.999715E-01,9.999709E-01,
     &9.999701E-01,9.999695E-01,9.999688E-01,9.999682E-01,9.999675E-01,
     &9.999669E-01,9.999662E-01,9.999655E-01,9.999649E-01,9.999642E-01,
     &9.999636E-01,9.999630E-01,9.999624E-01,9.999618E-01,9.999612E-01,
     &9.999606E-01,9.999600E-01,9.9996E-01/
      DATA (SSALIQ1(I,29),I=1,58) /
C     BAND 29
     &8.505737E-01,8.465102E-01,8.394829E-01,8.279508E-01,8.110806E-01,
     &7.900397E-01,7.669615E-01,7.444422E-01,7.253055E-01,7.124831E-01,
     &7.016434E-01,6.885485E-01,6.767340E-01,6.661029E-01,6.565577E-01,
     &6.480013E-01,6.403373E-01,6.334697E-01,6.273034E-01,6.217440E-01,
     &6.166983E-01,6.120740E-01,6.077796E-01,6.037249E-01,5.998207E-01,
     &5.959788E-01,5.921123E-01,5.881354E-01,5.891285E-01,5.851143E-01,
     &5.814653E-01,5.781606E-01,5.751792E-01,5.724998E-01,5.701016E-01,
     &5.679634E-01,5.660642E-01,5.643829E-01,5.628984E-01,5.615898E-01,
     &5.604359E-01,5.594158E-01,5.585083E-01,5.576924E-01,5.569470E-01,
     &5.562512E-01,5.555838E-01,5.549239E-01,5.542503E-01,5.535420E-01,
     &5.527781E-01,5.519374E-01,5.509989E-01,5.499417E-01,5.487445E-01,
     &5.473865E-01,5.458466E-01,5.4410E-01/
      DATA (ASYLIQ1(I,16),I=1,58) /
C     BAND 16
     &8.133297E-01,8.133528E-01,8.173865E-01,8.243205E-01,8.333063E-01,
     &8.436317E-01,8.546611E-01,8.657934E-01,8.764345E-01,8.859837E-01,
     &8.627394E-01,8.824569E-01,8.976887E-01,9.089541E-01,9.167699E-01,
     &9.216517E-01,9.241147E-01,9.246743E-01,9.238469E-01,9.221504E-01,
     &9.201045E-01,9.182299E-01,9.170491E-01,9.170862E-01,9.188653E-01,
     &9.229111E-01,9.297468E-01,9.398950E-01,9.203269E-01,9.260693E-01,
     &9.309373E-01,9.349918E-01,9.382935E-01,9.409030E-01,9.428809E-01,
     &9.442881E-01,9.451851E-01,9.456331E-01,9.456926E-01,9.454247E-01,
     &9.448902E-01,9.441503E-01,9.432661E-01,9.422987E-01,9.413094E-01,
     &9.403594E-01,9.395102E-01,9.388230E-01,9.383594E-01,9.381810E-01,
     &9.383489E-01,9.389251E-01,9.399707E-01,9.415475E-01,9.437167E-01,
     &9.465399E-01,9.500786E-01,9.5439E-01/
      DATA (ASYLIQ1(I,17),I=1,58) /
C     BAND 17
     &8.794448E-01,8.819306E-01,8.837667E-01,8.853832E-01,8.871010E-01,
     &8.892675E-01,8.922584E-01,8.964666E-01,9.022940E-01,9.101456E-01,
     &8.839999E-01,9.035610E-01,9.184568E-01,9.292315E-01,9.364282E-01,
     &9.405887E-01,9.422554E-01,9.419703E-01,9.402759E-01,9.377159E-01,
     &9.348345E-01,9.321769E-01,9.302888E-01,9.297166E-01,9.310075E-01,
     &9.347080E-01,9.413643E-01,9.515216E-01,9.306286E-01,9.361781E-01,
     &9.408374E-01,9.446692E-01,9.477363E-01,9.501013E-01,9.518268E-01,
     &9.529756E-01,9.536105E-01,9.537938E-01,9.535886E-01,9.530574E-01,
     &9.522633E-01,9.512688E-01,9.501370E-01,9.489306E-01,9.477126E-01,
     &9.465459E-01,9.454934E-01,9.446183E-01,9.439833E-01,9.436519E-01,
     &9.436866E-01,9.441508E-01,9.451073E-01,9.466195E-01,9.487501E-01,
     &9.515621E-01,9.551185E-01,9.5948E-01/
      DATA (ASYLIQ1(I,18),I=1,58) /
C     BAND 18
     &8.478817E-01,8.269312E-01,8.161352E-01,8.135960E-01,8.173586E-01,
     &8.254167E-01,8.357072E-01,8.461167E-01,8.544952E-01,8.586776E-01,
     &8.335562E-01,8.524273E-01,8.669052E-01,8.775014E-01,8.847277E-01,
     &8.890958E-01,8.911173E-01,8.913038E-01,8.901669E-01,8.882182E-01,
     &8.859692E-01,8.839315E-01,8.826164E-01,8.825356E-01,8.842004E-01,
     &8.881223E-01,8.948131E-01,9.047837E-01,8.855951E-01,8.911796E-01,
     &8.959229E-01,8.998837E-01,9.031209E-01,9.056939E-01,9.076609E-01,
     &9.090812E-01,9.100134E-01,9.105167E-01,9.106496E-01,9.104712E-01,
     &9.100404E-01,9.094159E-01,9.086568E-01,9.078218E-01,9.069697E-01,
     &9.061595E-01,9.054499E-01,9.048999E-01,9.045683E-01,9.045142E-01,
     &9.047962E-01,9.054730E-01,9.066037E-01,9.082472E-01,9.104623E-01,
     &9.133079E-01,9.168427E-01,9.2113E-01/
      DATA (ASYLIQ1(I,19),I=1,58) /
C     BAND 19
     &8.216697E-01,7.982871E-01,7.891147E-01,7.909083E-01,8.003833E-01,
     &8.142516E-01,8.292290E-01,8.420356E-01,8.493945E-01,8.480316E-01,
     &8.212381E-01,8.394984E-01,8.534095E-01,8.634813E-01,8.702242E-01,
     &8.741483E-01,8.757638E-01,8.755808E-01,8.741095E-01,8.718604E-01,
     &8.693433E-01,8.670686E-01,8.655464E-01,8.652872E-01,8.668006E-01,
     &8.705973E-01,8.771874E-01,8.870809E-01,8.678284E-01,8.732315E-01,
     &8.778084E-01,8.816166E-01,8.847146E-01,8.871603E-01,8.890116E-01,
     &8.903266E-01,8.911632E-01,8.915796E-01,8.916337E-01,8.913834E-01,
     &8.908869E-01,8.902022E-01,8.893873E-01,8.885001E-01,8.875986E-01,
     &8.867411E-01,8.859852E-01,8.853891E-01,8.850111E-01,8.849089E-01,
     &8.851405E-01,8.857639E-01,8.868372E-01,8.884185E-01,8.905656E-01,
     &8.933368E-01,8.967899E-01,9.0098E-01/
      DATA (ASYLIQ1(I,20),I=1,58) /
C     BAND 20
     &8.063610E-01,7.938147E-01,7.921304E-01,7.985092E-01,8.101339E-01,
     &8.242175E-01,8.379913E-01,8.486920E-01,8.535547E-01,8.498083E-01,
     &8.224849E-01,8.405509E-01,8.542436E-01,8.640770E-01,8.705653E-01,
     &8.742227E-01,8.755630E-01,8.751004E-01,8.733491E-01,8.708231E-01,
     &8.680365E-01,8.655035E-01,8.637381E-01,8.632544E-01,8.645665E-01,
     &8.681885E-01,8.746346E-01,8.844188E-01,8.648180E-01,8.700563E-01,
     &8.744672E-01,8.781087E-01,8.810393E-01,8.833174E-01,8.850011E-01,
     &8.861485E-01,8.868183E-01,8.870687E-01,8.869579E-01,8.865441E-01,
     &8.858857E-01,8.850412E-01,8.840686E-01,8.830263E-01,8.819726E-01,
     &8.809658E-01,8.800642E-01,8.793260E-01,8.788099E-01,8.785737E-01,
     &8.786758E-01,8.791746E-01,8.801283E-01,8.815955E-01,8.836340E-01,
     &8.863024E-01,8.896592E-01,8.9376E-01/
      DATA (ASYLIQ1(I,21),I=1,58) /
C     BAND 21
     &7.885899E-01,7.937172E-01,8.020658E-01,8.123971E-01,8.235502E-01,
     &8.343776E-01,8.437336E-01,8.504711E-01,8.534421E-01,8.514978E-01,
     &8.238888E-01,8.417463E-01,8.552057E-01,8.647853E-01,8.710038E-01,
     &8.743798E-01,8.754319E-01,8.746786E-01,8.726386E-01,8.698303E-01,
     &8.667724E-01,8.639836E-01,8.619823E-01,8.612870E-01,8.624165E-01,
     &8.658893E-01,8.722241E-01,8.819394E-01,8.620216E-01,8.671239E-01,
     &8.713983E-01,8.749032E-01,8.776970E-01,8.798385E-01,8.813860E-01,
     &8.823980E-01,8.829332E-01,8.830500E-01,8.828068E-01,8.822623E-01,
     &8.814750E-01,8.805031E-01,8.794056E-01,8.782407E-01,8.770672E-01,
     &8.759432E-01,8.749275E-01,8.740784E-01,8.734547E-01,8.731146E-01,
     &8.731170E-01,8.735199E-01,8.743823E-01,8.757625E-01,8.777191E-01,
     &8.803105E-01,8.835953E-01,8.8763E-01/
      DATA (ASYLIQ1(I,22),I=1,58) /
C     BAND 22
     &7.811516E-01,7.962229E-01,8.096199E-01,8.212996E-01,8.312212E-01,
     &8.393430E-01,8.456236E-01,8.500214E-01,8.524950E-01,8.530031E-01,
     &8.251485E-01,8.429043E-01,8.562461E-01,8.656954E-01,8.717737E-01,
     &8.750020E-01,8.759022E-01,8.749953E-01,8.728027E-01,8.698461E-01,
     &8.666466E-01,8.637257E-01,8.616047E-01,8.608051E-01,8.618483E-01,
     &8.652557E-01,8.715487E-01,8.812485E-01,8.611645E-01,8.662052E-01,
     &8.704173E-01,8.738594E-01,8.765901E-01,8.786678E-01,8.801517E-01,
     &8.810999E-01,8.815713E-01,8.816246E-01,8.813185E-01,8.807114E-01,
     &8.798621E-01,8.788290E-01,8.776713E-01,8.764470E-01,8.752152E-01,
     &8.740343E-01,8.729631E-01,8.720602E-01,8.713842E-01,8.709936E-01,
     &8.709475E-01,8.713041E-01,8.721221E-01,8.734602E-01,8.753774E-01,
     &8.779319E-01,8.811825E-01,8.8519E-01/
      DATA (ASYLIQ1(I,23),I=1,58) /
C     BAND 23
     &7.865744E-01,8.093340E-01,8.257596E-01,8.369940E-01,8.441574E-01,
     &8.483602E-01,8.507096E-01,8.523139E-01,8.542834E-01,8.577321E-01,
     &8.288960E-01,8.465308E-01,8.597175E-01,8.689830E-01,8.748542E-01,
     &8.778584E-01,8.785222E-01,8.773728E-01,8.749370E-01,8.717419E-01,
     &8.683145E-01,8.651816E-01,8.628704E-01,8.619077E-01,8.628205E-01,
     &8.661356E-01,8.723803E-01,8.820815E-01,8.616715E-01,8.666389E-01,
     &8.707753E-01,8.741398E-01,8.767912E-01,8.787885E-01,8.801908E-01,
     &8.810570E-01,8.814460E-01,8.814167E-01,8.810283E-01,8.803395E-01,
     &8.794095E-01,8.782971E-01,8.770613E-01,8.757610E-01,8.744553E-01,
     &8.732031E-01,8.720634E-01,8.710951E-01,8.703572E-01,8.699086E-01,
     &8.698084E-01,8.701155E-01,8.708887E-01,8.721872E-01,8.740698E-01,
     &8.765957E-01,8.798235E-01,8.8381E-01/
      DATA (ASYLIQ1(I,24),I=1,58) /
C     BAND 24
     &8.069513E-01,8.262939E-01,8.398241E-01,8.486352E-01,8.538213E-01,
     &8.564743E-01,8.576854E-01,8.585455E-01,8.601452E-01,8.635755E-01,
     &8.337383E-01,8.512655E-01,8.643049E-01,8.733896E-01,8.790535E-01,
     &8.818295E-01,8.822518E-01,8.808533E-01,8.781676E-01,8.747284E-01,
     &8.710690E-01,8.677229E-01,8.652236E-01,8.641047E-01,8.648993E-01,
     &8.681413E-01,8.743640E-01,8.841007E-01,8.633558E-01,8.682719E-01,
     &8.723543E-01,8.756621E-01,8.782547E-01,8.801915E-01,8.815318E-01,
     &8.823347E-01,8.826598E-01,8.825663E-01,8.821135E-01,8.813608E-01,
     &8.803674E-01,8.791928E-01,8.778960E-01,8.765366E-01,8.751738E-01,
     &8.738670E-01,8.726755E-01,8.716585E-01,8.708755E-01,8.703856E-01,
     &8.702483E-01,8.705229E-01,8.712687E-01,8.725448E-01,8.744109E-01,
     &8.769260E-01,8.801496E-01,8.8414E-01/
      DATA (ASYLIQ1(I,25),I=1,58) /
C     BAND 25
     &8.252182E-01,8.379244E-01,8.471709E-01,8.535760E-01,8.577540E-01,
     &8.603183E-01,8.618820E-01,8.630578E-01,8.644587E-01,8.666970E-01,
     &8.362159E-01,8.536817E-01,8.666387E-01,8.756240E-01,8.811746E-01,
     &8.838273E-01,8.841191E-01,8.825871E-01,8.797681E-01,8.761992E-01,
     &8.724174E-01,8.689593E-01,8.663623E-01,8.651632E-01,8.658988E-01,
     &8.691064E-01,8.753226E-01,8.850847E-01,8.641620E-01,8.690500E-01,
     &8.731026E-01,8.763795E-01,8.789400E-01,8.808438E-01,8.821503E-01,
     &8.829191E-01,8.832095E-01,8.830813E-01,8.825938E-01,8.818064E-01,
     &8.807787E-01,8.795704E-01,8.782408E-01,8.768493E-01,8.754557E-01,
     &8.741193E-01,8.728995E-01,8.718561E-01,8.710484E-01,8.705360E-01,
     &8.703782E-01,8.706347E-01,8.713650E-01,8.726285E-01,8.744849E-01,
     &8.769933E-01,8.802136E-01,8.8421E-01/
      DATA (ASYLIQ1(I,26),I=1,58) /
C     BAND 26
     &8.370583E-01,8.467920E-01,8.537769E-01,8.585136E-01,8.615034E-01,
     &8.632474E-01,8.642468E-01,8.650026E-01,8.660161E-01,8.677882E-01,
     &8.369760E-01,8.543821E-01,8.672699E-01,8.761782E-01,8.816454E-01,
     &8.842103E-01,8.844114E-01,8.827872E-01,8.798766E-01,8.762179E-01,
     &8.723500E-01,8.688112E-01,8.661403E-01,8.648758E-01,8.655563E-01,
     &8.687206E-01,8.749072E-01,8.846546E-01,8.636289E-01,8.684849E-01,
     &8.725054E-01,8.757501E-01,8.782785E-01,8.801503E-01,8.814249E-01,
     &8.821620E-01,8.824211E-01,8.822620E-01,8.817440E-01,8.809268E-01,
     &8.798699E-01,8.786330E-01,8.772756E-01,8.758572E-01,8.744374E-01,
     &8.730760E-01,8.718323E-01,8.707660E-01,8.699366E-01,8.694039E-01,
     &8.692271E-01,8.694661E-01,8.701803E-01,8.714293E-01,8.732727E-01,
     &8.757702E-01,8.789811E-01,8.8297E-01/
      DATA (ASYLIQ1(I,27),I=1,58) /
C     BAND 27
     &8.430819E-01,8.510060E-01,8.567270E-01,8.606533E-01,8.631934E-01,
     &8.647554E-01,8.657471E-01,8.665760E-01,8.676496E-01,8.693754E-01,
     &8.384298E-01,8.557913E-01,8.686214E-01,8.774605E-01,8.828495E-01,
     &8.853287E-01,8.854393E-01,8.837215E-01,8.807161E-01,8.769639E-01,
     &8.730053E-01,8.693812E-01,8.666321E-01,8.652988E-01,8.659219E-01,
     &8.690419E-01,8.751999E-01,8.849360E-01,8.638013E-01,8.686371E-01,
     &8.726369E-01,8.758605E-01,8.783674E-01,8.802176E-01,8.814705E-01,
     &8.821859E-01,8.824234E-01,8.822429E-01,8.817038E-01,8.808658E-01,
     &8.797887E-01,8.785323E-01,8.771560E-01,8.757196E-01,8.742828E-01,
     &8.729052E-01,8.716467E-01,8.705666E-01,8.697250E-01,8.691812E-01,
     &8.689950E-01,8.692264E-01,8.699346E-01,8.711795E-01,8.730209E-01,
     &8.755181E-01,8.787312E-01,8.8272E-01/
      DATA (ASYLIQ1(I,28),I=1,58) /
C     BAND 28
     &8.452284E-01,8.522700E-01,8.572973E-01,8.607031E-01,8.628802E-01,
     &8.642215E-01,8.651198E-01,8.659679E-01,8.671588E-01,8.690853E-01,
     &8.383803E-01,8.557485E-01,8.685851E-01,8.774303E-01,8.828245E-01,
     &8.853077E-01,8.854207E-01,8.837034E-01,8.806962E-01,8.769398E-01,
     &8.729740E-01,8.693393E-01,8.665761E-01,8.652247E-01,8.658253E-01,
     &8.689182E-01,8.750438E-01,8.847424E-01,8.636140E-01,8.684449E-01,
     &8.724400E-01,8.756589E-01,8.781613E-01,8.800072E-01,8.812559E-01,
     &8.819671E-01,8.822007E-01,8.820165E-01,8.814737E-01,8.806322E-01,
     &8.795518E-01,8.782923E-01,8.769129E-01,8.754737E-01,8.740342E-01,
     &8.726542E-01,8.713934E-01,8.703111E-01,8.694677E-01,8.689222E-01,
     &8.687344E-01,8.689646E-01,8.696715E-01,8.709156E-01,8.727563E-01,
     &8.752531E-01,8.784659E-01,8.8245E-01/
      DATA (ASYLIQ1(I,29),I=1,58) /
C     BAND 29
     &7.800869E-01,8.091120E-01,8.325369E-01,8.466266E-01,8.515495E-01,
     &8.499371E-01,8.456203E-01,8.430521E-01,8.470286E-01,8.625431E-01,
     &8.402261E-01,8.610822E-01,8.776608E-01,8.904485E-01,8.999294E-01,
     &9.065860E-01,9.108995E-01,9.133503E-01,9.144187E-01,9.145855E-01,
     &9.143320E-01,9.141402E-01,9.144933E-01,9.158754E-01,9.187716E-01,
     &9.236677E-01,9.310503E-01,9.414058E-01,9.239108E-01,9.300719E-01,
     &9.353612E-01,9.398378E-01,9.435609E-01,9.465895E-01,9.489829E-01,
     &9.508000E-01,9.521002E-01,9.529424E-01,9.533860E-01,9.534902E-01,
     &9.533143E-01,9.529177E-01,9.523596E-01,9.516997E-01,9.509973E-01,
     &9.503121E-01,9.497037E-01,9.492317E-01,9.489558E-01,9.489356E-01,
     &9.492311E-01,9.499019E-01,9.510077E-01,9.526084E-01,9.547636E-01,
     &9.575331E-01,9.609766E-01,9.6515E-01/

C    EXTINCTION UNITS:  M^2/G
      DATA (EXTICE3(I,16),I=1,27) /
C     BAND 16
     &2.563732E-01,1.701725E-01,1.273487E-01,1.017429E-01,8.470932E-02,
     &7.256055E-02,6.345888E-02,5.638569E-02,5.073084E-02,4.610661E-02,
     &4.225479E-02,3.899676E-02,3.620506E-02,3.378624E-02,3.167029E-02,
     &2.980368E-02,2.814478E-02,2.666075E-02,2.532534E-02,2.411728E-02,
     &2.301918E-02,2.201669E-02,2.109785E-02,2.025260E-02,1.947244E-02,
     &1.875014E-02,1.807949E-02/
      DATA (EXTICE3(I,17),I=1,27) /
C     BAND 17
     &2.453326E-01,1.637386E-01,1.229416E-01,9.846334E-02,8.214455E-02,
     &7.048825E-02,6.174604E-02,5.494654E-02,4.950693E-02,4.505635E-02,
     &4.134754E-02,3.820930E-02,3.551939E-02,3.318813E-02,3.114828E-02,
     &2.934841E-02,2.774853E-02,2.631706E-02,2.502873E-02,2.386310E-02,
     &2.280344E-02,2.183592E-02,2.094903E-02,2.013309E-02,1.937991E-02,
     &1.868253E-02,1.803496E-02/
      DATA (EXTICE3(I,18),I=1,27) /
C     BAND 18
     &2.528265E-01,1.685595E-01,1.264261E-01,1.011460E-01,8.429261E-02,
     &7.225447E-02,6.322587E-02,5.620363E-02,5.058583E-02,4.598945E-02,
     &4.215914E-02,3.891810E-02,3.614007E-02,3.373245E-02,3.162577E-02,
     &2.976695E-02,2.811465E-02,2.663629E-02,2.530576E-02,2.410194E-02,
     &2.300757E-02,2.200835E-02,2.109241E-02,2.024974E-02,1.947189E-02,
     &1.875166E-02,1.808288E-02/
      DATA (EXTICE3(I,19),I=1,27) /
C     BAND 19
     &2.446454E-01,1.634733E-01,1.228872E-01,9.853560E-02,8.230118E-02,
     &7.070516E-02,6.200814E-02,5.524380E-02,4.983232E-02,4.540475E-02,
     &4.171511E-02,3.859311E-02,3.591710E-02,3.359790E-02,3.156859E-02,
     &2.977803E-02,2.818642E-02,2.676235E-02,2.548068E-02,2.432108E-02,
     &2.326690E-02,2.230438E-02,2.142208E-02,2.061036E-02,1.986108E-02,
     &1.916730E-02,1.852307E-02/
      DATA (EXTICE3(I,20),I=1,27) /
C     BAND 20
     &2.549633E-01,1.698270E-01,1.272589E-01,1.017180E-01,8.469071E-02,
     &7.252838E-02,6.340664E-02,5.631195E-02,5.063619E-02,4.599239E-02,
     &4.212257E-02,3.884809E-02,3.604140E-02,3.360894E-02,3.148053E-02,
     &2.960252E-02,2.793318E-02,2.643956E-02,2.509530E-02,2.387907E-02,
     &2.277341E-02,2.176388E-02,2.083849E-02,1.998713E-02,1.920126E-02,
     &1.847359E-02,1.779791E-02/
      DATA (EXTICE3(I,21),I=1,27) /
C     BAND 21
     &2.515626E-01,1.677115E-01,1.257860E-01,1.006306E-01,8.386041E-02,
     &7.188168E-02,6.289763E-02,5.591004E-02,5.031996E-02,4.574626E-02,
     &4.193485E-02,3.870981E-02,3.594549E-02,3.354974E-02,3.145346E-02,
     &2.960381E-02,2.795967E-02,2.648860E-02,2.516463E-02,2.396676E-02,
     &2.287778E-02,2.188350E-02,2.097207E-02,2.013356E-02,1.935955E-02,
     &1.864288E-02,1.797739E-02/
      DATA (EXTICE3(I,22),I=1,27) /
C     BAND 22
     &2.478082E-01,1.654286E-01,1.242388E-01,9.952488E-02,8.304896E-02,
     &7.128044E-02,6.245405E-02,5.558908E-02,5.009710E-02,4.560366E-02,
     &4.185914E-02,3.869069E-02,3.597488E-02,3.362117E-02,3.156168E-02,
     &2.974448E-02,2.812920E-02,2.668394E-02,2.538321E-02,2.420636E-02,
     &2.313649E-02,2.215966E-02,2.126423E-02,2.044043E-02,1.968000E-02,
     &1.897590E-02,1.832210E-02/
      DATA (EXTICE3(I,23),I=1,27) /
C     BAND 23
     &2.525944E-01,1.683656E-01,1.262512E-01,1.009826E-01,8.413686E-02,
     &7.210417E-02,6.307966E-02,5.606059E-02,5.044534E-02,4.585104E-02,
     &4.202246E-02,3.878289E-02,3.600612E-02,3.359958E-02,3.149386E-02,
     &2.963587E-02,2.798433E-02,2.650663E-02,2.517670E-02,2.397344E-02,
     &2.287955E-02,2.188079E-02,2.096526E-02,2.012298E-02,1.934548E-02,
     &1.862557E-02,1.795709E-02/
      DATA (EXTICE3(I,24),I=1,27) /
C     BAND 24
     &2.520891E-01,1.680508E-01,1.260317E-01,1.008202E-01,8.401254E-02,
     &7.200707E-02,6.300297E-02,5.599978E-02,5.039723E-02,4.581332E-02,
     &4.199340E-02,3.876116E-02,3.599067E-02,3.358957E-02,3.148862E-02,
     &2.963483E-02,2.798702E-02,2.651267E-02,2.518574E-02,2.398520E-02,
     &2.289379E-02,2.189729E-02,2.098383E-02,2.014345E-02,1.936771E-02,
     &1.864943E-02,1.798247E-02/
      DATA (EXTICE3(I,25),I=1,27) /
C     BAND 25
     &2.511494E-01,1.674488E-01,1.255985E-01,1.004884E-01,8.374825E-02,
     &7.179103E-02,6.282311E-02,5.584806E-02,5.026802E-02,4.570253E-02,
     &4.189797E-02,3.867871E-02,3.591935E-02,3.352791E-02,3.143539E-02,
     &2.958906E-02,2.794787E-02,2.647944E-02,2.515785E-02,2.396213E-02,
     &2.287511E-02,2.188261E-02,2.097282E-02,2.013582E-02,1.936319E-02,
     &1.864780E-02,1.798351E-02/
      DATA (EXTICE3(I,26),I=1,27) /
C     BAND 26
     &2.533059E-01,1.687970E-01,1.265425E-01,1.011899E-01,8.428811E-02,
     &7.221541E-02,6.316088E-02,5.611848E-02,5.048455E-02,4.587497E-02,
     &4.203367E-02,3.878332E-02,3.599731E-02,3.358278E-02,3.147005E-02,
     &2.960589E-02,2.794885E-02,2.646624E-02,2.513189E-02,2.392462E-02,
     &2.282710E-02,2.182502E-02,2.090645E-02,2.006136E-02,1.928127E-02,
     &1.855897E-02,1.788827E-02/
      DATA (EXTICE3(I,27),I=1,27) /
C     BAND 27
     &2.537632E-01,1.690928E-01,1.267575E-01,1.013564E-01,8.442228E-02,
     &7.232650E-02,6.325466E-02,5.619879E-02,5.055409E-02,4.593570E-02,
     &4.208704E-02,3.883048E-02,3.603915E-02,3.361999E-02,3.150323E-02,
     &2.963550E-02,2.797530E-02,2.648985E-02,2.515294E-02,2.394337E-02,
     &2.284375E-02,2.183975E-02,2.091942E-02,2.007272E-02,1.929114E-02,
     &1.856746E-02,1.789548E-02/
      DATA (EXTICE3(I,28),I=1,27) /
C     BAND 28
     &2.530253E-01,1.686373E-01,1.264434E-01,1.011270E-01,8.424942E-02,
     &7.219400E-02,6.315244E-02,5.612011E-02,5.049424E-02,4.589126E-02,
     &4.205545E-02,3.880977E-02,3.602774E-02,3.361666E-02,3.150696E-02,
     &2.964547E-02,2.799080E-02,2.651031E-02,2.517787E-02,2.397233E-02,
     &2.287638E-02,2.187573E-02,2.095847E-02,2.011459E-02,1.933563E-02,
     &1.861436E-02,1.794462E-02/
      DATA (EXTICE3(I,29),I=1,27) /
C     BAND 29
     &2.618508E-01,1.788886E-01,1.354123E-01,1.086880E-01,9.060575E-02,
     &7.755947E-02,6.770343E-02,5.999534E-02,5.380220E-02,4.871746E-02,
     &4.446803E-02,4.086373E-02,3.776802E-02,3.508036E-02,3.272505E-02,
     &3.064405E-02,2.879205E-02,2.713324E-02,2.563888E-02,2.428567E-02,
     &2.305450E-02,2.192958E-02,2.089773E-02,1.994784E-02,1.907052E-02,
     &1.825775E-02,1.750268E-02/
      DATA (SSAICE3(I,16),I=1,27) /
C     BAND 16
     &6.614739E-01,6.483807E-01,6.369927E-01,6.269440E-01,6.180633E-01,
     &6.102356E-01,6.033669E-01,5.973729E-01,5.921741E-01,5.876935E-01,
     &5.838558E-01,5.805866E-01,5.778125E-01,5.754603E-01,5.734574E-01,
     &5.717311E-01,5.702095E-01,5.688205E-01,5.674924E-01,5.661535E-01,
     &5.647325E-01,5.631579E-01,5.613587E-01,5.592638E-01,5.568023E-01,
     &5.539034E-01,5.504963E-01/
      DATA (SSAICE3(I,17),I=1,27) /
C     BAND 17
     &7.527420E-01,7.433371E-01,7.345510E-01,7.263483E-01,7.186942E-01,
     &7.115540E-01,7.048938E-01,6.986796E-01,6.928780E-01,6.874560E-01,
     &6.823810E-01,6.776205E-01,6.731426E-01,6.689157E-01,6.649085E-01,
     &6.610902E-01,6.574302E-01,6.538982E-01,6.504646E-01,6.470997E-01,
     &6.437745E-01,6.404600E-01,6.371279E-01,6.337500E-01,6.302985E-01,
     &6.267460E-01,6.230654E-01/
      DATA (SSAICE3(I,18),I=1,27) /
C     BAND 18
     &9.855161E-01,9.789038E-01,9.725018E-01,9.663007E-01,9.602909E-01,
     &9.544630E-01,9.488074E-01,9.433148E-01,9.379758E-01,9.327811E-01,
     &9.277214E-01,9.227874E-01,9.179698E-01,9.132595E-01,9.086472E-01,
     &9.041239E-01,8.996803E-01,8.953075E-01,8.909963E-01,8.867378E-01,
     &8.825229E-01,8.783428E-01,8.741885E-01,8.700510E-01,8.659216E-01,
     &8.617915E-01,8.576518E-01/
      DATA (SSAICE3(I,19),I=1,27) /
C     BAND 19
     &9.444191E-01,9.271265E-01,9.109299E-01,8.957711E-01,8.815921E-01,
     &8.683354E-01,8.559433E-01,8.443584E-01,8.335237E-01,8.233820E-01,
     &8.138765E-01,8.049506E-01,7.965478E-01,7.886118E-01,7.810865E-01,
     &7.739158E-01,7.670439E-01,7.604152E-01,7.539741E-01,7.476654E-01,
     &7.414338E-01,7.352244E-01,7.289822E-01,7.226525E-01,7.161809E-01,
     &7.095127E-01,7.025938E-01/
      DATA (SSAICE3(I,20),I=1,27) /
C     BAND 20
     &9.886944E-01,9.834023E-01,9.782717E-01,9.732952E-01,9.684653E-01,
     &9.637745E-01,9.592152E-01,9.547801E-01,9.504614E-01,9.462518E-01,
     &9.421437E-01,9.381295E-01,9.342018E-01,9.303529E-01,9.265752E-01,
     &9.228612E-01,9.192034E-01,9.155941E-01,9.120258E-01,9.084907E-01,
     &9.049814E-01,9.014902E-01,8.980095E-01,8.945315E-01,8.910487E-01,
     &8.875535E-01,8.840381E-01/
      DATA (SSAICE3(I,21),I=1,27) /
C     BAND 21
     &9.876194E-01,9.821439E-01,9.768954E-01,9.718630E-01,9.670357E-01,
     &9.624027E-01,9.579531E-01,9.536760E-01,9.495606E-01,9.455962E-01,
     &9.417719E-01,9.380770E-01,9.345008E-01,9.310327E-01,9.276618E-01,
     &9.243777E-01,9.211696E-01,9.180271E-01,9.149395E-01,9.118963E-01,
     &9.088869E-01,9.059010E-01,9.029280E-01,8.999575E-01,8.969792E-01,
     &8.939825E-01,8.909572E-01/
      DATA (SSAICE3(I,22),I=1,27) /
C     BAND 22
     &9.989798E-01,9.985267E-01,9.980703E-01,9.976107E-01,9.971482E-01,
     &9.966831E-01,9.962156E-01,9.957460E-01,9.952744E-01,9.948012E-01,
     &9.943265E-01,9.938506E-01,9.933737E-01,9.928962E-01,9.924181E-01,
     &9.919398E-01,9.914614E-01,9.909833E-01,9.905057E-01,9.900287E-01,
     &9.895527E-01,9.890778E-01,9.886043E-01,9.881325E-01,9.876625E-01,
     &9.871946E-01,9.867290E-01/
      DATA (SSAICE3(I,23),I=1,27) /
C     BAND 23
     &9.998201E-01,9.997602E-01,9.996967E-01,9.996297E-01,9.995595E-01,
     &9.994863E-01,9.994104E-01,9.993318E-01,9.992510E-01,9.991680E-01,
     &9.990831E-01,9.989965E-01,9.989084E-01,9.988191E-01,9.987287E-01,
     &9.986376E-01,9.985458E-01,9.984536E-01,9.983613E-01,9.982690E-01,
     &9.981770E-01,9.980855E-01,9.979948E-01,9.979049E-01,9.978162E-01,
     &9.977288E-01,9.976431E-01/
      DATA (SSAICE3(I,24),I=1,27) /
C     BAND 24
     &9.999569E-01,9.999686E-01,9.999760E-01,9.999794E-01,9.999785E-01,
     &9.999744E-01,9.999676E-01,9.999580E-01,9.999459E-01,9.999317E-01,
     &9.999147E-01,9.998956E-01,9.998749E-01,9.998527E-01,9.998292E-01,
     &9.998048E-01,9.997797E-01,9.997541E-01,9.997283E-01,9.997026E-01,
     &9.996771E-01,9.996521E-01,9.996279E-01,9.996047E-01,9.995827E-01,
     &9.995623E-01,9.995437E-01/
      DATA (SSAICE3(I,25),I=1,27) /
C     BAND 25
     &9.999633E-01,9.999685E-01,9.999708E-01,9.999703E-01,9.999670E-01,
     &9.999612E-01,9.999531E-01,9.999428E-01,9.999306E-01,9.999164E-01,
     &9.999006E-01,9.998832E-01,9.998645E-01,9.998447E-01,9.998238E-01,
     &9.998020E-01,9.997796E-01,9.997567E-01,9.997333E-01,9.997098E-01,
     &9.996864E-01,9.996630E-01,9.996400E-01,9.996174E-01,9.995955E-01,
     &9.995744E-01,9.995542E-01/
      DATA (SSAICE3(I,26),I=1,27) /
C     BAND 26
     &9.999565E-01,9.999688E-01,9.999766E-01,9.999771E-01,9.999748E-01,
     &9.999709E-01,9.999655E-01,9.999586E-01,9.999483E-01,9.999341E-01,
     &9.999168E-01,9.998974E-01,9.998763E-01,9.998536E-01,9.998297E-01,
     &9.998047E-01,9.997789E-01,9.997526E-01,9.997261E-01,9.996995E-01,
     &9.996732E-01,9.996473E-01,9.996222E-01,9.995980E-01,9.995751E-01,
     &9.995537E-01,9.995340E-01/
      DATA (SSAICE3(I,27),I=1,27) /
C     BAND 27
     &9.999505E-01,9.999586E-01,9.999633E-01,9.999650E-01,9.999638E-01,
     &9.999597E-01,9.999530E-01,9.999438E-01,9.999329E-01,9.999202E-01,
     &9.999059E-01,9.998902E-01,9.998734E-01,9.998557E-01,9.998373E-01,
     &9.998185E-01,9.997996E-01,9.997806E-01,9.997618E-01,9.997436E-01,
     &9.997260E-01,9.997093E-01,9.996938E-01,9.996798E-01,9.996673E-01,
     &9.996566E-01,9.996480E-01/
      DATA (SSAICE3(I,28),I=1,27) /
C     BAND 28
     &9.999458E-01,9.999492E-01,9.999489E-01,9.999451E-01,9.999379E-01,
     &9.999277E-01,9.999145E-01,9.998988E-01,9.998806E-01,9.998601E-01,
     &9.998377E-01,9.998136E-01,9.997878E-01,9.997608E-01,9.997325E-01,
     &9.997035E-01,9.996737E-01,9.996435E-01,9.996130E-01,9.995825E-01,
     &9.995523E-01,9.995225E-01,9.994933E-01,9.994650E-01,9.994376E-01,
     &9.994118E-01,9.993873E-01/
      DATA (SSAICE3(I,29),I=1,27) /
C     BAND 29
     &7.034058E-01,6.807911E-01,6.623049E-01,6.464293E-01,6.326115E-01,
     &6.205580E-01,6.100685E-01,6.009834E-01,5.931630E-01,5.864781E-01,
     &5.808055E-01,5.760258E-01,5.720213E-01,5.686763E-01,5.658754E-01,
     &5.635039E-01,5.614473E-01,5.595913E-01,5.578216E-01,5.560238E-01,
     &5.540833E-01,5.518854E-01,5.493154E-01,5.462580E-01,5.425983E-01,
     &5.382207E-01,5.330097E-01/
      DATA (ASYICE3(I,16),I=1,27) /
C     BAND 16
     &8.488033E-01,8.613170E-01,8.721361E-01,8.815418E-01,8.897017E-01,
     &8.967471E-01,9.027922E-01,9.079405E-01,9.122881E-01,9.159248E-01,
     &9.189350E-01,9.213990E-01,9.233930E-01,9.249901E-01,9.262608E-01,
     &9.272732E-01,9.280937E-01,9.287872E-01,9.294177E-01,9.300478E-01,
     &9.307395E-01,9.315537E-01,9.325505E-01,9.337885E-01,9.353250E-01,
     &9.372154E-01,9.395120E-01/
      DATA (ASYICE3(I,17),I=1,27) /
C     BAND 17
     &8.808303E-01,8.881341E-01,8.947419E-01,9.007029E-01,9.060643E-01,
     &9.108720E-01,9.151705E-01,9.190027E-01,9.224104E-01,9.254344E-01,
     &9.281141E-01,9.304885E-01,9.325953E-01,9.344720E-01,9.361551E-01,
     &9.376809E-01,9.390850E-01,9.404028E-01,9.416693E-01,9.429191E-01,
     &9.441865E-01,9.455053E-01,9.469090E-01,9.484304E-01,9.501016E-01,
     &9.519542E-01,9.540185E-01/
      DATA (ASYICE3(I,18),I=1,27) /
C     BAND 18
     &7.981480E-01,8.060835E-01,8.135456E-01,8.205556E-01,8.271346E-01,
     &8.333034E-01,8.390829E-01,8.444939E-01,8.495571E-01,8.542928E-01,
     &8.587217E-01,8.628641E-01,8.667404E-01,8.703707E-01,8.737754E-01,
     &8.769744E-01,8.799879E-01,8.828359E-01,8.855384E-01,8.881152E-01,
     &8.905862E-01,8.929713E-01,8.952901E-01,8.975624E-01,8.998079E-01,
     &9.020461E-01,9.042965E-01/
      DATA (ASYICE3(I,19),I=1,27) /
C     BAND 19
     &7.935781E-01,8.050413E-01,8.156627E-01,8.254873E-01,8.345593E-01,
     &8.429222E-01,8.506192E-01,8.576925E-01,8.641841E-01,8.701354E-01,
     &8.755874E-01,8.805806E-01,8.851553E-01,8.893512E-01,8.932080E-01,
     &8.967650E-01,9.000615E-01,9.031364E-01,9.060286E-01,9.087768E-01,
     &9.114197E-01,9.139957E-01,9.165431E-01,9.191001E-01,9.217047E-01,
     &9.243945E-01,9.272070E-01/
      DATA (ASYICE3(I,20),I=1,27) /
C     BAND 20
     &7.723568E-01,7.802421E-01,7.877098E-01,7.947768E-01,8.014596E-01,
     &8.077747E-01,8.137384E-01,8.193669E-01,8.246762E-01,8.296826E-01,
     &8.344017E-01,8.388496E-01,8.430419E-01,8.469944E-01,8.507228E-01,
     &8.542426E-01,8.575696E-01,8.607191E-01,8.637068E-01,8.665482E-01,
     &8.692586E-01,8.718537E-01,8.743486E-01,8.767590E-01,8.791000E-01,
     &8.813872E-01,8.836358E-01/
      DATA (ASYICE3(I,21),I=1,27) /
C     BAND 21
     &7.683102E-01,7.759729E-01,7.832317E-01,7.901034E-01,7.966041E-01,
     &8.027500E-01,8.085565E-01,8.140390E-01,8.192125E-01,8.240917E-01,
     &8.286911E-01,8.330249E-01,8.371073E-01,8.409520E-01,8.445726E-01,
     &8.479828E-01,8.511958E-01,8.542248E-01,8.570828E-01,8.597828E-01,
     &8.623376E-01,8.647598E-01,8.670620E-01,8.692565E-01,8.713557E-01,
     &8.733717E-01,8.753163E-01/
      DATA (ASYICE3(I,22),I=1,27) /
C     BAND 22
     &7.631448E-01,7.691736E-01,7.749416E-01,7.804555E-01,7.857220E-01,
     &7.907475E-01,7.955388E-01,8.001025E-01,8.044452E-01,8.085734E-01,
     &8.124940E-01,8.162134E-01,8.197384E-01,8.230754E-01,8.262313E-01,
     &8.292126E-01,8.320260E-01,8.346781E-01,8.371755E-01,8.395249E-01,
     &8.417330E-01,8.438063E-01,8.457516E-01,8.475755E-01,8.492847E-01,
     &8.508856E-01,8.523852E-01/
      DATA (ASYICE3(I,23),I=1,27) /
C     BAND 23
     &7.627573E-01,7.678960E-01,7.728852E-01,7.777239E-01,7.824110E-01,
     &7.869455E-01,7.913264E-01,7.955527E-01,7.996234E-01,8.035375E-01,
     &8.072939E-01,8.108917E-01,8.143300E-01,8.176077E-01,8.207238E-01,
     &8.236775E-01,8.264677E-01,8.290934E-01,8.315538E-01,8.338479E-01,
     &8.359747E-01,8.379334E-01,8.397230E-01,8.413424E-01,8.427910E-01,
     &8.440677E-01,8.451717E-01/
      DATA (ASYICE3(I,24),I=1,27) /
C     BAND 24
     &7.616914E-01,7.664414E-01,7.710929E-01,7.756413E-01,7.800823E-01,
     &7.844113E-01,7.886240E-01,7.927159E-01,7.966825E-01,8.005195E-01,
     &8.042225E-01,8.077870E-01,8.112088E-01,8.144835E-01,8.176067E-01,
     &8.205741E-01,8.233813E-01,8.260242E-01,8.284983E-01,8.307994E-01,
     &8.329232E-01,8.348655E-01,8.366220E-01,8.381884E-01,8.395607E-01,
     &8.407345E-01,8.417056E-01/
      DATA (ASYICE3(I,25),I=1,27) /
C     BAND 25
     &7.593013E-01,7.637291E-01,7.681050E-01,7.724211E-01,7.766700E-01,
     &7.808441E-01,7.849356E-01,7.889371E-01,7.928409E-01,7.966394E-01,
     &8.003250E-01,8.038901E-01,8.073271E-01,8.106284E-01,8.137865E-01,
     &8.167936E-01,8.196424E-01,8.223250E-01,8.248340E-01,8.271618E-01,
     &8.293008E-01,8.312433E-01,8.329819E-01,8.345089E-01,8.358169E-01,
     &8.368980E-01,8.377449E-01/
      DATA (ASYICE3(I,26),I=1,27) /
C     BAND 26
     &7.535941E-01,7.580057E-01,7.623743E-01,7.666918E-01,7.709498E-01,
     &7.751400E-01,7.792543E-01,7.832844E-01,7.872221E-01,7.910589E-01,
     &7.947868E-01,7.983976E-01,8.018829E-01,8.052344E-01,8.084440E-01,
     &8.115033E-01,8.144042E-01,8.171384E-01,8.196977E-01,8.220737E-01,
     &8.242583E-01,8.262432E-01,8.280201E-01,8.295807E-01,8.309170E-01,
     &8.320205E-01,8.328832E-01/
      DATA (ASYICE3(I,27),I=1,27) /
C     BAND 27
     &7.441883E-01,7.486528E-01,7.530774E-01,7.574534E-01,7.617724E-01,
     &7.660258E-01,7.702051E-01,7.743019E-01,7.783075E-01,7.822136E-01,
     &7.860114E-01,7.896927E-01,7.932487E-01,7.966711E-01,7.999513E-01,
     &8.030807E-01,8.060510E-01,8.088534E-01,8.114796E-01,8.139210E-01,
     &8.161692E-01,8.182155E-01,8.200515E-01,8.216686E-01,8.230584E-01,
     &8.242124E-01,8.251218E-01/
      DATA (ASYICE3(I,28),I=1,27) /
C     BAND 28
     &7.265506E-01,7.310442E-01,7.354950E-01,7.398947E-01,7.442354E-01,
     &7.485089E-01,7.527070E-01,7.568217E-01,7.608449E-01,7.647685E-01,
     &7.685845E-01,7.722845E-01,7.758606E-01,7.793048E-01,7.826088E-01,
     &7.857647E-01,7.887641E-01,7.915992E-01,7.942617E-01,7.967436E-01,
     &7.990368E-01,8.011332E-01,8.030245E-01,8.047030E-01,8.061602E-01,
     &8.073882E-01,8.083789E-01/
      DATA (ASYICE3(I,29),I=1,27) /
C     BAND 29
     &8.563368E-01,8.697433E-01,8.810506E-01,8.909536E-01,8.997129E-01,
     &9.074712E-01,9.143289E-01,9.203677E-01,9.256608E-01,9.302763E-01,
     &9.342801E-01,9.377364E-01,9.407087E-01,9.432600E-01,9.454530E-01,
     &9.473501E-01,9.490142E-01,9.505079E-01,9.518937E-01,9.532349E-01,
     &9.545945E-01,9.560359E-01,9.576229E-01,9.594196E-01,9.614902E-01,
     &9.638999E-01,9.667138E-01/
      DATA (FDLICE3(I,16),I=1,27) /
C     BAND 16
     &4.510171E-02,4.102237E-02,3.732226E-02,3.397908E-02,3.097054E-02,
     &2.827432E-02,2.586814E-02,2.372969E-02,2.183858E-02,2.017264E-02,
     &1.870635E-02,1.741623E-02,1.628031E-02,1.527691E-02,1.438482E-02,
     &1.358457E-02,1.285225E-02,1.216467E-02,1.149953E-02,1.083453E-02,
     &1.014737E-02,9.415757E-03,8.617384E-03,7.733813E-03,6.791928E-03,
     &5.835403E-03,4.880892E-03/
      DATA (FDLICE3(I,17),I=1,27) /
C     BAND 17
     &4.955120E-02,4.852068E-02,4.760659E-02,4.679981E-02,4.609121E-02,
     &4.547167E-02,4.493207E-02,4.446344E-02,4.405662E-02,4.370240E-02,
     &4.339154E-02,4.311485E-02,4.286317E-02,4.262743E-02,4.239867E-02,
     &4.216783E-02,4.192582E-02,4.166348E-02,4.137161E-02,4.104109E-02,
     &4.066280E-02,4.022761E-02,3.972640E-02,3.915047E-02,3.849769E-02,
     &3.777734E-02,3.703972E-02/
      DATA (FDLICE3(I,18),I=1,27) /
C     BAND 18
     &1.066871E-01,1.071644E-01,1.077095E-01,1.083133E-01,1.089666E-01,
     &1.096603E-01,1.103854E-01,1.111326E-01,1.118929E-01,1.126572E-01,
     &1.134163E-01,1.141611E-01,1.148826E-01,1.155716E-01,1.162189E-01,
     &1.168155E-01,1.173523E-01,1.178201E-01,1.182099E-01,1.185124E-01,
     &1.187187E-01,1.188195E-01,1.188058E-01,1.186685E-01,1.183984E-01,
     &1.179864E-01,1.174234E-01/
      DATA (FDLICE3(I,19),I=1,27) /
C     BAND 19
     &1.058067E-01,1.041376E-01,1.025908E-01,1.011547E-01,9.981785E-02,
     &9.856866E-02,9.739560E-02,9.628714E-02,9.523174E-02,9.421785E-02,
     &9.323394E-02,9.226847E-02,9.130990E-02,9.034670E-02,8.936731E-02,
     &8.836021E-02,8.731386E-02,8.621672E-02,8.505724E-02,8.382389E-02,
     &8.250513E-02,8.108943E-02,7.956524E-02,7.792102E-02,7.614523E-02,
     &7.422635E-02,7.215282E-02/
      DATA (FDLICE3(I,20),I=1,27) /
C     BAND 20
     &1.125282E-01,1.132384E-01,1.140166E-01,1.148535E-01,1.157399E-01,
     &1.166665E-01,1.176241E-01,1.186035E-01,1.195954E-01,1.205906E-01,
     &1.215799E-01,1.225540E-01,1.235037E-01,1.244197E-01,1.252929E-01,
     &1.261139E-01,1.268735E-01,1.275626E-01,1.281718E-01,1.286920E-01,
     &1.291139E-01,1.294282E-01,1.296258E-01,1.296973E-01,1.296336E-01,
     &1.294254E-01,1.290634E-01/
      DATA (FDLICE3(I,21),I=1,27) /
C     BAND 21
     &1.139211E-01,1.145985E-01,1.153456E-01,1.161530E-01,1.170112E-01,
     &1.179108E-01,1.188423E-01,1.197964E-01,1.207635E-01,1.217342E-01,
     &1.226990E-01,1.236486E-01,1.245734E-01,1.254641E-01,1.263111E-01,
     &1.271050E-01,1.278365E-01,1.284960E-01,1.290740E-01,1.295613E-01,
     &1.299482E-01,1.302254E-01,1.303834E-01,1.304128E-01,1.303041E-01,
     &1.300479E-01,1.296347E-01/
      DATA (FDLICE3(I,22),I=1,27) /
C     BAND 22
     &1.158664E-01,1.172799E-01,1.187632E-01,1.203067E-01,1.219010E-01,
     &1.235365E-01,1.252038E-01,1.268933E-01,1.285955E-01,1.303009E-01,
     &1.320001E-01,1.336834E-01,1.353413E-01,1.369645E-01,1.385433E-01,
     &1.400683E-01,1.415299E-01,1.429186E-01,1.442250E-01,1.454395E-01,
     &1.465526E-01,1.475547E-01,1.484365E-01,1.491883E-01,1.498007E-01,
     &1.502642E-01,1.505692E-01/
      DATA (FDLICE3(I,23),I=1,27) /
C     BAND 23
     &1.167018E-01,1.181642E-01,1.196976E-01,1.212922E-01,1.229385E-01,
     &1.246269E-01,1.263478E-01,1.280916E-01,1.298488E-01,1.316097E-01,
     &1.333647E-01,1.351042E-01,1.368187E-01,1.384985E-01,1.401341E-01,
     &1.417159E-01,1.432343E-01,1.446796E-01,1.460423E-01,1.473128E-01,
     &1.484816E-01,1.495389E-01,1.504752E-01,1.512810E-01,1.519466E-01,
     &1.524625E-01,1.528190E-01/
      DATA (FDLICE3(I,24),I=1,27) /
C     BAND 24
     &1.174730E-01,1.189511E-01,1.204991E-01,1.221075E-01,1.237668E-01,
     &1.254673E-01,1.271996E-01,1.289541E-01,1.307214E-01,1.324919E-01,
     &1.342560E-01,1.360043E-01,1.377272E-01,1.394152E-01,1.410587E-01,
     &1.426482E-01,1.441743E-01,1.456273E-01,1.469978E-01,1.482761E-01,
     &1.494529E-01,1.505185E-01,1.514635E-01,1.522782E-01,1.529533E-01,
     &1.534791E-01,1.538461E-01/
      DATA (FDLICE3(I,25),I=1,27) /
C     BAND 25
     &1.182775E-01,1.197671E-01,1.213250E-01,1.229417E-01,1.246078E-01,
     &1.263138E-01,1.280505E-01,1.298082E-01,1.315777E-01,1.333495E-01,
     &1.351142E-01,1.368623E-01,1.385844E-01,1.402712E-01,1.419132E-01,
     &1.435010E-01,1.450251E-01,1.464761E-01,1.478447E-01,1.491214E-01,
     &1.502968E-01,1.513614E-01,1.523058E-01,1.531207E-01,1.537966E-01,
     &1.543241E-01,1.546937E-01/
      DATA (FDLICE3(I,26),I=1,27) /
C     BAND 26
     &1.194827E-01,1.209930E-01,1.225680E-01,1.241983E-01,1.258751E-01,
     &1.275890E-01,1.293311E-01,1.310921E-01,1.328631E-01,1.346348E-01,
     &1.363982E-01,1.381442E-01,1.398636E-01,1.415472E-01,1.431861E-01,
     &1.447711E-01,1.462931E-01,1.477430E-01,1.491116E-01,1.503899E-01,
     &1.515687E-01,1.526389E-01,1.535914E-01,1.544171E-01,1.551069E-01,
     &1.556516E-01,1.560422E-01/
      DATA (FDLICE3(I,27),I=1,27) /
C     BAND 27
     &1.215263E-01,1.230723E-01,1.246757E-01,1.263279E-01,1.280202E-01,
     &1.297443E-01,1.314914E-01,1.332531E-01,1.350208E-01,1.367859E-01,
     &1.385398E-01,1.402740E-01,1.419800E-01,1.436491E-01,1.452728E-01,
     &1.468426E-01,1.483498E-01,1.497860E-01,1.511425E-01,1.524108E-01,
     &1.535823E-01,1.546485E-01,1.556008E-01,1.564307E-01,1.571295E-01,
     &1.576887E-01,1.580998E-01/
      DATA (FDLICE3(I,28),I=1,27) /
C     BAND 28
     &1.264232E-01,1.279459E-01,1.295231E-01,1.311465E-01,1.328080E-01,
     &1.344993E-01,1.362123E-01,1.379388E-01,1.396706E-01,1.413995E-01,
     &1.431173E-01,1.448158E-01,1.464868E-01,1.481222E-01,1.497138E-01,
     &1.512533E-01,1.527326E-01,1.541435E-01,1.554778E-01,1.567274E-01,
     &1.578839E-01,1.589393E-01,1.598853E-01,1.607138E-01,1.614165E-01,
     &1.619853E-01,1.624121E-01/
      DATA (FDLICE3(I,29),I=1,27) /
C     BAND 29
     &8.549285E-02,7.780694E-02,7.081562E-02,6.447894E-02,5.875695E-02,
     &5.360975E-02,4.899736E-02,4.487986E-02,4.121732E-02,3.796978E-02,
     &3.509731E-02,3.256000E-02,3.031787E-02,2.833100E-02,2.655946E-02,
     &2.496329E-02,2.350257E-02,2.213736E-02,2.082772E-02,1.953369E-02,
     &1.821538E-02,1.683281E-02,1.534605E-02,1.371517E-02,1.190025E-02,
     &9.959941E-03,7.929838E-03/

      HVRCLD = '$Revision: 2.5 $'

      ICLDATM = 0
      NCBANDS = 29
               tsum = 0.
               cisum = 0.

      DO 3000 LAY = 1, NLAYERS

         IF (CLDFRAC(LAY) .GE. EPS) THEN
            ICLDATM = 1

C           Ice clouds and water clouds combined.
            IF (INFLAG .EQ. 0) THEN
               TAUCLDORIG_A = CLDDAT1(LAY)
               FFP = CLDDATMOM(NSTR,LAY)
               FFP1 = 1.0 - FFP
               FFPSSA = 1.0 - FFP * CLDDAT2(LAY)
               SSACLOUD_A = FFP1*CLDDAT2(LAY)/FFPSSA
               TAUCLOUD_A = FFPSSA*TAUCLDORIG_A
               DO 1010 IB = 16,NBANDS
                  TAUCLDORIG(LAY,IB) = TAUCLDORIG_A
                  SSACLOUD(LAY,IB) = SSACLOUD_A
                  TAUCLOUD(LAY,IB) = TAUCLOUD_A
               DO 1000 ISTR = 0,NSTR
                  XMOM(ISTR,LAY,IB) = (CLDDATMOM(ISTR,LAY) - FFP)/
     &                 (FFP1)
 1000          CONTINUE
 1010          CONTINUE
C           Separate treatement of ice clouds and water clouds.
            ELSEIF(INFLAG .EQ. 2) THEN
               CWP = CLDDAT1(LAY)
               FICE = CLDDAT2(LAY)
               RADICE = CLDDAT3(LAY)

C              Calculation of absorption coefficients due to ice clouds.
               IF (FICE .EQ. 0.0) THEN
                  NCBANDS = 29
                  DO 2000 IB = 16, NCBANDS
                     EXTCOICE(IB) = 0.0
                     SSACOICE(IB) = 1.0
                     GICE(IB) = 1.0
                     FORWICE(IB) = 0.0
 2000             CONTINUE
                 ELSEIF (ICEFLAG .EQ. 3) THEN
                    IF (RADICE .LT. 10.0 .OR. RADICE .GT. 140.0) STOP
     &                   'ICE EFFECTIVE SIZE OUT OF BOUNDS'
                    NCBANDS = 29
                    FACTOR = (RADICE - 5.)/5.
                    INDEX = INT(FACTOR)
                    IF (INDEX .EQ. 27) INDEX = 26
                    FINT = FACTOR - FLOAT(INDEX)
                    DO 2300 IB=16,NCBANDS
                     EXTCOICE(IB) = FICE * (EXTICE3(INDEX,IB) + FINT *
     &                    (EXTICE3(INDEX+1,IB) - EXTICE3(INDEX,IB)))
                     SSACOICE(IB) = SSAICE3(INDEX,IB) + FINT *
     &                    (SSAICE3(INDEX+1,IB) - SSAICE3(INDEX,IB))
                     GICE(IB) = ASYICE3(INDEX,IB) + FINT *
     &                    (ASYICE3(INDEX+1,IB) - ASYICE3(INDEX,IB))
                     FDELTA(IB) = FDLICE3(INDEX,IB) + FINT *
     &                    (FDLICE3(INDEX+1,IB) - FDLICE3(INDEX,IB))
                     if (fdelta(ib) .lt. 0.0) STOP
     &                    'FDELTA LESS THAN 0.0'
                     if (fdelta(ib) .gt. 1.0) STOP
     &                     'FDELTA GT THAN 1.0'                     
                     FORWICE(IB) = FDELTA(IB) + 0.5 / SSACOICE(IB)
c See Fu 1996 p. 2067 
                     IF (FORWICE(IB) .GT. GICE(IB)) 
     &                     FORWICE(IB) = GICE(IB)
c Check to ensure all calculated quantities are within physical limits.
                     if (extcoice(ib) .lt. 0.0) STOP
     &                    'ICE EXTINCTION LESS THAN 0.0'
                     if (ssacoice(ib) .gt. 1.0) STOP
     &                    'ICE SSA GRTR THAN 1.0'
                     if (ssacoice(ib) .lt. 0.0) STOP
     &                    'ICE SSA LESS THAN 0.0'
                     if (gice(ib) .gt. 1.0) STOP
     &                    'ICE ASYM GRTR THAN 1.0'
                     if (gice(ib) .lt. 0.0) STOP
     &                    'ICE ASYM LESS THAN 0.0'
 2300               CONTINUE
               ENDIF
                  
C              Calculation of absorption coefficients due to water clouds.
               FLIQ = 1. - FICE
               IF (FLIQ .EQ. 0.0) THEN
                  NCBANDS = 29
                  DO 2350 IB = 16, NCBANDS
                     EXTCOLIQ(IB) = 0.0
                     SSACOLIQ(IB) = 1.0
                     GLIQ(IB) = 1.0
                     FORWLIQ(IB) = 0.0
 2350             CONTINUE
               ELSEIF (LIQFLAG .EQ. 1) THEN
                  RADLIQ = CLDDAT4(LAY)
                  IF (RADLIQ .LT. 1.5 .OR. RADLIQ .GT. 60.) STOP
     &                 'LIQUID EFFECTIVE RADIUS OUT OF BOUNDS'
                  INDEX = RADLIQ - 1.5
                  IF (INDEX .EQ. 0) INDEX = 1
                  IF (INDEX .EQ. 58) INDEX = 57
                  FINT = RADLIQ - 1.5 - INDEX
                  NCBANDS = 29
                  DO 2400 IB = 16, NCBANDS
                     EXTCOLIQ(IB) = FLIQ * (EXTLIQ1(INDEX,IB) + FINT *
     &                    (EXTLIQ1(INDEX+1,IB) - (EXTLIQ1(INDEX,IB))))
                     SSACOLIQ(IB) = SSALIQ1(INDEX,IB) + FINT *
     &                    (SSALIQ1(INDEX+1,IB) - SSALIQ1(INDEX,IB))
                     if (fint .lt. 0. .and. ssacoliq(ib) .gt. 1.)
     &                    ssacoliq(ib) = ssaliq1(index,ib)
                     GLIQ(IB) = ASYLIQ1(INDEX,IB) + FINT *
     &                    (ASYLIQ1(INDEX+1,IB) - ASYLIQ1(INDEX,IB))
                     FORWLIQ(IB) = GLIQ(IB)**NSTR
c Check to ensure all calculated quantities are within physical limits.
                     if (extcoliq(ib) .lt. 0.0) STOP
     &                    'LIQUID EXTINCTION LESS THAN 0.0'
                     if (ssacoliq(ib) .gt. 1.0) then
                       write(*,*)radliq,index,ib,fint,ssaliq1(index,ib),
     &                       ssaliq1(index+1,ib),ssacoliq(ib)
                     STOP
     &                    'LIQUID SSA GRTR THAN 1.0'
                     endif
                     if (ssacoliq(ib) .lt. 0.0) STOP
     &                    'LIQUID SSA LESS THAN 0.0'
                     if (gliq(ib) .gt. 1.0) STOP
     &                    'LIQUID ASYM GRTR THAN 1.0'
                     if (gliq(ib) .lt. 0.0) STOP
     &                    'LIQUID ASYM LESS THAN 0.0'
 2400             CONTINUE
               ENDIF

c               cwp = cwp * 100.
               DO 2800 IB = 16, NCBANDS
                  TAULIQORIG = CWP * EXTCOLIQ(IB)
                  TAUICEORIG = CWP * EXTCOICE(IB)
c                  if(ib.eq.25)then
c                     write(*,*)lay,cwp,tauiceorig
c                     tsum = tsum + tauiceorig
c                     cisum = cisum + cwp
c                  endif
                  TAUCLDORIG(LAY,IB) = TAULIQORIG + TAUICEORIG
                  SSALIQ = SSACOLIQ(IB) * (1. - FORWLIQ(IB)) /
     &                 (1. - FORWLIQ(IB) * SSACOLIQ(IB))
                  TAULIQ =  (1. - FORWLIQ(IB) * SSACOLIQ(IB)) *
     &                 TAULIQORIG
                  SSAICE = SSACOICE(IB) * (1. - FORWICE(IB)) /
     &                 (1. - FORWICE(IB) * SSACOICE(IB))
                  TAUICE =  (1. - FORWICE(IB) * SSACOICE(IB)) *
     &                 TAUICEORIG
c                if(ib.eq.25)write(*,*)lay,cwp,extcoice(ib),forwice(ib),
c     &                 ssacoice(ib),ssaice,tauiceorig,tauice
                  SCATLIQ = SSALIQ * TAULIQ
                  SCATICE = SSAICE * TAUICE
                  TAUCLOUD(LAY,IB) = TAULIQ + TAUICE
                  SSACLOUD(LAY,IB) = (SCATLIQ + SCATICE) / 
     &                 TAUCLOUD(LAY,IB)
                  XMOM(0,LAY,IB) = 1.0
                  DO 2750 ISTR = 1, NSTR
c This commented code is the standard method for delta-m scaling. In accordance
c with the 1996 Fu paper, equation A.3, the moments for ice were calculated
c as in the uncommented code.
c                     XMOM(ISTR,LAY,IB) = (SCATLIQ * 
c     &                    (GLIQ(IB)**ISTR - FORWLIQ(IB)) /
c     &                    (1. - FORWLIQ(IB))
c     &                    + SCATICE *
c     &                    (GICE(IB)**ISTR - FORWICE(IB)) / 
c     &                    (1. - FORWICE(IB)))/(SCATLIQ + SCATICE)

                     XMOM(ISTR,LAY,IB) = (1.0/(scatliq+scatice))*
     &                    (SCATLIQ*(GLIQ(IB)**ISTR - FORWLIQ(IB)) /
     &                    (1. - FORWLIQ(IB))
     &                    + SCATICE *
     &               ((gice(ib)-forwice(ib))/(1.0-forwice(ib)))**ISTR)
 2750             CONTINUE
 2800          CONTINUE
            ENDIF

         ENDIF

 3000 CONTINUE
c               write(*,*)'totals ',cisum,tsum

      RETURN
      END