| subroutine module_sf_ruclsm::soil  | 
          ( | 
          logical, intent(in)  | 
          debug_print,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          i,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          j,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          iland,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          isoil,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          delt,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          ktau,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          conflx,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          nzs,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          nddzs,  | 
         
        
           | 
           | 
          integer, intent(in)  | 
          nroot,  | 
         
        
           | 
           | 
          real  | 
          PRCPMS,  | 
         
        
           | 
           | 
          real  | 
          RAINF,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          PATM,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          QVATM,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          QCATM,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          GLW,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          GSW,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          GSWin,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          EMISS,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          RNET,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          QKMS,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          TKMS,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          PC,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          cst,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          drip,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          infwater,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          rho,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          vegfrac,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          lai,  | 
         
        
           | 
           | 
          logical, intent(in)  | 
          myj,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          QWRTZ,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          rhocs,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          dqm,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          qmin,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          ref,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          wilt,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          psis,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          bclh,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          ksat,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          sat,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          cn,  | 
         
        
           | 
           | 
          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)  | 
          G0_P,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          cw,  | 
         
        
           | 
           | 
          real  | 
          stbolt,  | 
         
        
           | 
           | 
          real  | 
          TABS,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          KQWRTZ,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          KICE,  | 
         
        
           | 
           | 
          real, intent(in)  | 
          KWT,  | 
         
        
           | 
           | 
          real, dimension( 1:nzs ), intent(inout)  | 
          soilmois,  | 
         
        
           | 
           | 
          real, dimension( 1:nzs ), intent(inout)  | 
          tso,  | 
         
        
           | 
           | 
          real, dimension( 1:nzs ), intent(inout)  | 
          smfrkeep,  | 
         
        
           | 
           | 
          real, dimension( 1:nzs ), intent(inout)  | 
          keepfr,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          dew,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          soilt,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          qvg,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          qsg,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          qcg,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          edir1,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          ec1,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          ett1,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          eeta,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          qfx,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          hfx,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          s,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          evapl,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          prcpl,  | 
         
        
           | 
           | 
          real  | 
          fltot,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          runoff1,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          runoff2,  | 
         
        
           | 
           | 
          real, intent(inout)  | 
          mavail,  | 
         
        
           | 
           | 
          real, dimension(1:nzs), intent(out)  | 
          soilice,  | 
         
        
           | 
           | 
          real, dimension(1:nzs), intent(out)  | 
          soiliqw,  | 
         
        
           | 
           | 
          real  | 
          infiltrp,  | 
         
        
           | 
           | 
          real  | 
          smf  | 
         
        
           | 
          ) | 
           |  | 
         
       
   | 
  
private   |