subroutine SETRXT( rate, temp )                                   
! Stacy Walters, NCAR, 1998.                                            
                                                                        
      use INCA_dim                                                      
      implicit none                                                     
                                                                        
!-------------------------------------------------------                
!       ... Dummy args                                                  
!-------------------------------------------------------                
      real, intent(out) ::     rate(PLON,PLEV,12)                   
      real, intent(in)  ::     temp(PLON,PLEV)                          
                                                                        
      real  ::  itemp(PLON,PLEV)                                        
                                                                        
      rate(:PLON,:,4) = 2.100e-06                                       
      rate(:PLON,:,6) = 1.514e-07                                       
      rate(:PLON,:,7) = 6.7e-11                                         
      rate(:PLON,:,8) = 4.4e-11                                         
      rate(:PLON,:,10) = 2.25e-10                                       
      rate(:PLON,:,11) = 3.75e-11                                       
      rate(:PLON,:,12) = 4.98e-11                                       
      itemp(:PLON,:) = 1. / temp(:PLON,:)                               
      rate(:PLON,:,5) = 1.800e-12 * EXP( -1550. * itemp(:PLON,:) )      
      rate(:PLON,:,9) = 2.45e-12 * EXP( -1775. * itemp(:PLON,:) )       
                                                                        
      end subroutine SETRXT