Go to the source code of this file.
      
        
          | subroutine radio_decay  | 
          ( | 
          logical, dimension(nbtr), intent(in)  | 
          radio,  | 
        
        
           | 
           | 
          logical, intent(in)  | 
          rnpb,  | 
        
        
           | 
           | 
          real, intent(in)  | 
          dtime,  | 
        
        
           | 
           | 
          real, dimension(nbtr), intent(in)  | 
          tautr,  | 
        
        
           | 
           | 
          real, dimension(klon,klev,nbtr), intent(in)  | 
          tr,  | 
        
        
           | 
           | 
          real, dimension(klon,klev,nbtr), intent(out)  | 
          d_tr  | 
        
        
           | 
          ) | 
           |  |