| subroutine, private noahmp_glacier_routines::water_glacier  | 
          ( | 
          integer, intent(in) |           nsnow,  | 
         
        
           | 
           | 
          integer, intent(in) |           nsoil,  | 
         
        
           | 
           | 
          integer, dimension(-nsnow+1:0), intent(in) |           imelt,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           dt,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           prcp,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           sfctmp,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           qvap,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           qdew,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:    0), intent(in) |           ficeold,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(       1:nsoil), intent(in) |           zsoil,  | 
         
        
           | 
           | 
          integer, intent(inout) |           isnow,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           snowh,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           sneqv,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:    0), intent(inout) |           snice,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:    0), intent(inout) |           snliq,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |           stc,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |           dzsnso,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(       1:nsoil), intent(inout) |           sh2o,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(       1:nsoil), intent(inout) |           sice,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           ponding,  | 
         
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |           zsnso,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           fsh,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           runsrf,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           runsub,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           qsnow,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           ponding1,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           ponding2,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           qsnbot,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           fpice,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           esnow ) | 
         
       
   | 
  
private   |