| subroutine module_sf_ruclsm::vilka  | 
          ( | 
          real (kind_phys), intent(in)  | 
          TN,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          D1,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          D2,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          PP,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          QS,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          TS,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(1:5001), intent(in)  | 
          TT,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          NSTEP,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          ii,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          j,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          iland,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          isoil,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          xlat,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          xlon  | 
         
        
           | 
          ) | 
           |  | 
         
       
   | 
  
private   |