| subroutine lsm_ruc::rucinit  | 
          ( | 
          logical, intent(in) |           lsm_cold_start,  | 
         
        
           | 
           | 
          integer, intent(in) |           im,  | 
         
        
           | 
           | 
          integer, intent(in) |           lsoil_ruc,  | 
         
        
           | 
           | 
          integer, intent(in) |           lsoil,  | 
         
        
           | 
           | 
          integer, intent(in) |           nlev,  | 
         
        
           | 
           | 
          integer, intent(in) |           me,  | 
         
        
           | 
           | 
          integer, intent(in) |           master,  | 
         
        
           | 
           | 
          integer, intent(in) |           lsm_ruc,  | 
         
        
           | 
           | 
          integer, intent(in) |           lsm,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im), intent(in) |           slmsk,  | 
         
        
           | 
           | 
          integer, dimension(im), intent(in) |           stype,  | 
         
        
           | 
           | 
          integer, dimension(im), intent(in) |           vtype,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im), intent(in) |           landfrac,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im), intent(in) |           fice,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in) |           min_seaice,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im), intent(in) |           tskin_lnd,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im), intent(in) |           tskin_wat,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im), intent(in) |           tg3,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(1:lsoil_ruc), intent(in) |           zs,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(1:lsoil_ruc), intent(in) |           dzs,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im,lsoil), intent(in) |           smc,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im,lsoil), intent(in) |           slc,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im,lsoil), intent(in) |           stc,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im,lsoil_ruc), intent(inout) |           sh2o,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im,lsoil_ruc), intent(inout) |           smfrkeep,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im,lsoil_ruc), intent(inout) |           tslb,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im,lsoil_ruc), intent(inout) |           smois,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(im), intent(inout) |           wetness,  | 
         
        
           | 
           | 
          character(len=*), intent(out) |           errmsg,  | 
         
        
           | 
           | 
          integer, intent(out) |           errflg ) | 
         
       
   | 
  
private   |