| subroutine __module_sf_noahmplsm_f90__::thermalz0  | 
          ( | 
          type (noahmp_parameters), intent(in) |           parameters,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           fveg,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           z0m,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           z0mg,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           zlvl,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           zpd,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           ezpd,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           ustarx,  | 
         
        
           | 
           | 
          integer, intent(in) |           vegtyp,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           vaie,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           ur,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           c_sigma_f0,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           c_sigma_f1,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           a1,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           cdmn_v,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           cdmn_g,  | 
         
        
           | 
           | 
          integer, intent(in) |           surface_flag,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           z0m_out,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           z0h_out ) | 
         
       
   | 
  
private   |