| subroutine module_sf_ruclsm::snowtemp  | 
          ( | 
          logical, intent(in)  | 
          debug_print,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          xlat,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          xlon,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          testptlat,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          testptlon,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          i,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          j,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          iland,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          isoil,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          delt,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          ktau,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          conflx,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          nzs,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          nddzs,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          nroot,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          isncond_opt,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          isncovr_opt,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          snwe,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          snwepr,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          snhei,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          newsnow,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          snowfrac,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          snhei_crit,  | 
         
        
           | 
           | 
          real (kind_phys)  | 
          beta,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          deltsn,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          snth,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          rhosn,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          rhonewsn,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          meltfactor,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          PRCPMS,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          RAINF,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          PATM,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          TABS,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          QVATM,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          QCATM,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          GLW,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          GSW,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          EMISS,  | 
         
        
           | 
           | 
          real (kind_phys)  | 
          RNET,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          QKMS,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          TKMS,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          PC,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          RHO,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          VEGFRAC,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(1:nzs), intent(in)  | 
          THDIF,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(1:nzs), intent(in)  | 
          CAP,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          DRYCAN,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          WETCAN,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          CST,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(1:nzs), intent(in)  | 
          TRANF,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          TRANSUM,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          DEW,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          MAVAIL,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          DQM,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          QMIN,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          PSIS,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          BCLH,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(1:nzs), intent(in)  | 
          ZSMAIN,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(1:nzs), intent(in)  | 
          ZSHALF,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(1:nddzs), intent(in)  | 
          DTDZS,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(1:5001), intent(in)  | 
          TBQ,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          XLVM,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          CP,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          rovcp,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          G0_P,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          CVW,  | 
         
        
           | 
           | 
          real (kind_phys), intent(in)  | 
          STBOLT,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          SNWEPRINT,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          SNHEIPRINT,  | 
         
        
           | 
           | 
          real (kind_phys), intent(out)  | 
          RSM,  | 
         
        
           | 
           | 
          real (kind_phys), dimension(  1:nzs ), intent(inout)  | 
          TSO,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          SOILT,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          SOILT1,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          TSNAV,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          QVG,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          QSG,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          QCG,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          SMELT,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          SNOH,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          SNFLX,  | 
         
        
           | 
           | 
          real (kind_phys), intent(inout)  | 
          S,  | 
         
        
           | 
           | 
          integer, intent(out)  | 
          ILNB,  | 
         
        
           | 
           | 
          real (kind_phys)  | 
          X  | 
         
        
           | 
          ) | 
           |  | 
         
       
   | 
  
private   |