| subroutine, private noahmp_glacier_routines::sfcdif1_glacier  | 
          ( | 
          integer, intent(in) |           iter,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           zlvl,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           zpd,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           z0h,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           z0m,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           qair,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           sfctmp,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           h,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           rhoair,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           mpe,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           ur,  | 
         
        
           | 
           | 
           |           ifdef,  | 
         
        
           | 
           | 
           |           ccpp ) | 
         
       
   | 
  
private   |