!copyright (C) 2001  MSC-RPN COMM  %%%RPNPHY%%%
*     Operating mode for cldoptx regarding cloud water
      if (     istcond.eq.0.or.        ! NIL
     +         istcond.eq.1.or.        ! CONDS
     +         istcond.eq.2    ) then  ! OLDSUND
*        no cloud water is provided to cldoptx
         cw_rad = 0
      else if (istcond.eq.3.or.        ! NEWSUND
     +         istcond.eq.4.or.        ! CONSUN
     +         istcond.eq.6.or.        ! EXCR1 (EXMO)
     +         istcond.eq.7    ) then  ! EXCR2 (WARM K-Y)
*        total cloud water only is provided to cldoptx
         cw_rad = 1
      else if (istcond.eq.5.or.        ! EXC    (MIXED PHASE)
     +         istcond.eq.8.or.        ! EXCRI  (COLD K-Y with ice)
     +         istcond.eq.9    ) then  ! EXCRIG (COLD K-Y with ice/graupel)
*        both liquid and ice water are provided to cldoptx
         cw_rad = 2
      endif
*
*     2 parameterizations of cloud optical properties 
*     according to condensation scheme
*
      if (     istcond.le.4) then
          OPTIX = 'OPTX96'     ! older parameterization
         IOPTIX = 1
      else if (istcond.ge.5) then
          OPTIX = 'OPTX00'     ! newer parameterization
         IOPTIX = 2
      endif
*