| subroutine, private noahmp_glacier_routines::rosr12_glacier  | 
          ( | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |           p,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |           a,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |           b,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |           c,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(in) |           d,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |           delta,  | 
         
        
           | 
           | 
          integer, intent(in) |           ntop,  | 
         
        
           | 
           | 
          integer, intent(in) |           nsoil,  | 
         
        
           | 
           | 
          integer, intent(in) |           nsnow ) | 
         
       
   | 
  
private   |