| subroutine, public noahmp_glacier_routines::noahmp_glacier  | 
          ( | 
          integer, intent(in) |           iloc,  | 
        
        
           | 
           | 
          integer, intent(in) |           jloc,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           cosz,  | 
        
        
           | 
           | 
          integer, intent(in) |           nsnow,  | 
        
        
           | 
           | 
          integer, intent(in) |           nsoil,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           dt,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           sfctmp,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           sfcprs,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           uu,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           vv,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           q2,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           soldn,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           prcp,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           lwdn,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           tbot,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           zlvl,  | 
        
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:    0), intent(in) |           ficeold,  | 
        
        
           | 
           | 
          real (kind=kind_phys), dimension(       1:nsoil), intent(in) |           zsoil,  | 
        
        
           | 
           | 
          logical, intent(in) |           thsfc_loc,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           prslkix,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           prsik1x,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           prslk1x,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           psfc,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           pblhx,  | 
        
        
           | 
           | 
          integer, intent(in) |           iz0tlnd,  | 
        
        
           | 
           | 
          integer, intent(in) |           itime,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           sigmaf1,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           garea1,  | 
        
        
           | 
           | 
          integer, intent(in) |           psi_opt,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           ep_1,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           ep_2,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           epsm1,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(in) |           cp,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           qsnow,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           sneqvo,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           albold,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           cm,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           ch,  | 
        
        
           | 
           | 
          integer, intent(inout) |           isnow,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           sneqv,  | 
        
        
           | 
           | 
          real (kind=kind_phys), dimension(       1:nsoil), intent(inout) |           smc,  | 
        
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |           zsnso,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           snowh,  | 
        
        
           | 
           | 
          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), intent(inout) |           tg,  | 
        
        
           | 
           | 
          real (kind=kind_phys), dimension(-nsnow+1:nsoil), intent(inout) |           stc,  | 
        
        
           | 
           | 
          real (kind=kind_phys), dimension(       1:nsoil), intent(inout) |           sh2o,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           tauss,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(inout) |           qsfc,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           fsa,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           fsr,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           fira,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           fsh,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           fgev,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           ssoil,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           trad,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           edir,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           runsrf,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           runsub,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           sag,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           albedo,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           qsnbot,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           ponding,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           ponding1,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           ponding2,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           t2m,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           q2e,  | 
        
        
           | 
           | 
          real (kind=kind_phys), intent(out) |           z0h_total,  | 
        
        
           | 
           | 
           |           ifdef,  | 
        
        
           | 
           | 
           |           ccpp ) |