! $Id$
subroutine determine_channels  ( &
            ETsensor, dcomp_mode, acha_mode , mask_mode  &
              , chan_on)
   
   use sensor_mod   
   
   integer :: ETsensor
   integer :: dcomp_mode
   integer :: acha_mode
   integer :: mask_mode
   
   logical , dimension(40) :: chan_on


   chan_on(:) = .false.
   select case ( ETsensor)
   
   case ( ETsensor_avhrr )
      chan_on (1) = .true.
      chan_on (2) = .true.
      chan_on (20) = .true.
      chan_on (31) = .true.
      chan_on (32) = .true.
   
   case ( ETsensor_viirs)
      chan_on (1) = .true.
      chan_on (2) = .true.
      chan_on (6) = .true.
      chan_on (20) = .true.
      chan_on (26) = .true.
     
      chan_on (29) = .true.
      chan_on (31) = .true.
      chan_on (32) = .true.
   end select
   
   


end subroutine determine_channels