| subroutine cltracrn  | 
          ( | 
          integer, intent(in)  | 
          itr,  | 
        
        
           | 
           | 
          real, intent(in)  | 
          dtime,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          u1lay,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          v1lay,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          cdrag,  | 
        
        
           | 
           | 
          real, dimension(klon,klev), intent(in)  | 
          coef,  | 
        
        
           | 
           | 
          real, dimension(klon,klev), intent(in)  | 
          t,  | 
        
        
           | 
           | 
          real, dimension(klon,nbsrf), intent(in)  | 
          ftsol,  | 
        
        
           | 
           | 
          real, dimension(klon,nbsrf), intent(in)  | 
          pctsrf,  | 
        
        
           | 
           | 
          real, dimension(klon,klev), intent(in)  | 
          tr,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          trs,  | 
        
        
           | 
           | 
          real, dimension(klon,klev+1), intent(in)  | 
          paprs,  | 
        
        
           | 
           | 
          real, dimension(klon,klev), intent(in)  | 
          pplay,  | 
        
        
           | 
           | 
          real, dimension(klon,klev), intent(in)  | 
          delp,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          masktr,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          fshtr,  | 
        
        
           | 
           | 
          real, intent(in)  | 
          hsoltr,  | 
        
        
           | 
           | 
          real, intent(in)  | 
          tautr,  | 
        
        
           | 
           | 
          real, intent(in)  | 
          vdeptr,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(in)  | 
          lat,  | 
        
        
           | 
           | 
          real, dimension(klon,klev), intent(out)  | 
          d_tr,  | 
        
        
           | 
           | 
          real, dimension(klon), intent(out)  | 
          d_trs  | 
        
        
           | 
          ) | 
           |  |