| subroutine module_sf_ruclsm::snowseaice  | 
          ( | 
          logical, intent(in)  | 
          debug_print,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          i,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          j,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          isoil,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          delt,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          ktau,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          conflx,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          nzs,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          nddzs,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          meltfactor,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          rhonewsn,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          SNHEI_CRIT,  | 
         
        
           | 
           | 
          integer, intent(inout)  | 
          ILAND,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          PRCPMS,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          RAINF,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          NEWSNOW,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          snhei,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          SNWE,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          snowfrac,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          RHOSN,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          PATM,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          QVATM,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          QCATM,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          GLW,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          GSW,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          EMISS,  | 
         
        
           | 
           | 
          real  | 
          RNET,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          QKMS,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          TKMS,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          RHO,  | 
         
        
           | 
           | 
          logical, intent(in)  | 
          myj,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          ALB,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          ZNT,  | 
         
        
           | 
           | 
          real, dimension(1:nzs), intent(in)  | 
          tice,  | 
         
        
           | 
           | 
          real, dimension(1:nzs), intent(in)  | 
          rhosice,  | 
         
        
           | 
           | 
          real, dimension(1:nzs), intent(in)  | 
          capice,  | 
         
        
           | 
           | 
          real, dimension(1:nzs), intent(in)  | 
          thdifice,  | 
         
        
           | 
           | 
          real, dimension(1:nzs), intent(in)  | 
          zsmain,  | 
         
        
           | 
           | 
          real, dimension(1:nzs), intent(in)  | 
          zshalf,  | 
         
        
           | 
           | 
          real, dimension(1:nddzs), intent(in)  | 
          DTDZS,  | 
         
        
           | 
           | 
          real, dimension(1:nzs), intent(in)  | 
          DTDZS2,  | 
         
        
           | 
           | 
          real, dimension(1:5001), intent(in)  | 
          tbq,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          xlv,  | 
         
        
           | 
           | 
          real  | 
          CP,  | 
         
        
           | 
           | 
          real  | 
          rovcp,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          cw,  | 
         
        
           | 
           | 
          real  | 
          stbolt,  | 
         
        
           | 
           | 
          real  | 
          tabs,  | 
         
        
           | 
           | 
          integer, intent(inout)  | 
          ilnb,  | 
         
        
           | 
           | 
          real, intent(out)  | 
          snweprint,  | 
         
        
           | 
           | 
          real, intent(out)  | 
          snheiprint,  | 
         
        
           | 
           | 
          real, intent(out)  | 
          rsm,  | 
         
        
           | 
           | 
          real, dimension(  1:nzs ), intent(inout)  | 
          tso,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          dew,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          soilt,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          soilt1,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          tsnav,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          qvg,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          qsg,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          qcg,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          SMELT,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          SNOH,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          SNFLX,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          SNOM,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          eeta,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          qfx,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          hfx,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          s,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          sublim,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          prcpl,  | 
         
        
           | 
           | 
          real  | 
          fltot  | 
         
        
           | 
          ) | 
           |  | 
         
       
   | 
  
private   |