| subroutine module_sf_ruclsm::soilvegin  | 
          ( | 
          logical, intent(in)  | 
          debug_print,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          mosaic_lu,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          mosaic_soil,  | 
         
        
           | 
           | 
          real (kind_phys), dimension( 1:nscat ), intent(in)  | 
          soilfrac,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          nscat,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          shdmin,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          shdmax,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          NLCAT,  | 
         
        
           | 
           | 
          integer  | 
          IVGTYP,  | 
         
        
           | 
           | 
          integer  | 
          ISLTYP,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          iswater,  | 
         
        
           | 
           | 
          logical, intent(in)  | 
          MYJ,  | 
         
        
           | 
           | 
          integer, intent(out)  | 
          IFOREST,  | 
         
        
           | 
           | 
          real (kind_phys), dimension( 1:nlcat ), intent(in)  | 
          lufrac,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          vegfrac,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          EMISS,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          PC,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          MSNF,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          FACSNF,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          ZNT,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          LAI,  | 
         
        
           | 
           | 
          logical, intent(in)  | 
          RDLAI2D,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          QWRTZ,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          RHOCS,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          BCLH,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          DQM,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          KSAT,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          PSIS,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          QMIN,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          REF,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          WILT,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          I,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          J,  | 
         
        
           | 
           | 
          character(len=*), intent(out)  | 
          errmsg,  | 
         
        
           | 
           | 
          integer, intent(out)  | 
          errflg  | 
         
        
           | 
          ) | 
           |  | 
         
       
   | 
  
private   |