| subroutine, private noahmp_glacier_routines::error_glacier  | 
          ( | 
          integer, intent(in) |           iloc,  | 
         
        
           | 
           | 
          integer, intent(in) |           jloc,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           swdown,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           fsa,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           fsr,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           fira,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           fsh,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           fgev,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           ssoil,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           sag,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           prcp,  | 
         
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           edir,  | 
         
        
           | 
           | 
           |           ifdef,  | 
         
        
           | 
           | 
           |           ccpp ) | 
         
       
   | 
  
private   |