IF(TC(CHNO)+DTC .GT. TF .AND. SNOW(CHNO).GT.0.) THEN

          Q0X=Q0-ALHM*SNOW(CHNO)/DTSTEP

          SMELT(CHNO)=SNOW(CHNO)/DTSTEP

        IF(TC(CHNO)+DTC .GT. TF .AND. SNOW(CHNO).GT.0.) THEN

          SNLEFT=SNOW(CHNO)-EVAP(CHNO)*DTSTEP*ESNFRC(CHNO)

      SNOW(CHNO)=SNOW(CHNO)-SMELT(CHNO)*DTSTEP

     U                 TC, TD, QA, SWET1, SWET2, SWET3, CAPAC, SNOW,

     I                   NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC,

      _RL CAPAC(NCH), SNOW(NCH), SATCAP(NCH), RA(NCH), ETURB(NCH),

     U                     CAPAC, SNOW, SWET, RUNOFF,

     &       CAPAC(NCH),    SNOW(NCH),    SWET(nch,NLAY),

      IF(ESNO(CHNO) .GT. SNOW(CHNO)) THEN

        EINT(CHNO)=EINT(CHNO)+(ESNO(CHNO)-SNOW(CHNO))

        ESNO(CHNO)=SNOW(CHNO)

      SNOW(ChNo) = SNOW(ChNo) - ESNO(CHNO)

      SNWFRC(CHNO) = SNOW(CHNO) / ( SNOW(CHNO) + SNWMID(ITYP(CHNO)) )

      EMAXRT(CHNO) = ( SNOW(CHNO) + CAPAC(CHNO) + WSOI12 ) / DTSTEP

     I             NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC,

      CALL RCANOP (NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC,

      CALL RCANOP (NCH, CAPAC, SNOW, SATCAP, RA, ETURB, SNWFRC,

     U                 TC,     TD,     EA,   SWET,   SNOW,

     U               CAPAC, SNOW, SWET, RUNOFF,

     U             TC, CAPAC, SNOW, SWET, RUNOFF, RUNSRF,

     &        SNOW(NCH),   EVAP(NCH), SHFLUX(NCH), RUNOFF(NCH)

      IF(SNOW (ChNo).LT.1.E-10) SNOW (CHNO) = 0.0

     U                   TC, CAPAC, SNOW,  SWET1,  RUNOFF, RUNSRF,

     &      SNOW(NCH), SWET1(NCH),  RUNOFF(NCH),  SMELT(NCH),

      SNOW(ChNo) = SNOW(ChNo) + TSNOW(ChNo)*DTSTEP

      IF( SNOW(CHNO).GT.0. .AND. TC(CHNO).GT.TF ) THEN

        SNOWM = MIN( SNOW(ChNo),

        IF( SNOWM .EQ. SNOW(CHNO) ) THEN

            SNOW(CHNO)=0.

            SNOW(ChNo) = SNOW(ChNo) - SNOWM

     U             TC,     TD,     EA,  SWET1,   SNOW,

     &               SWET1(NCH,NLAY),   SNOW(NCH),

      SNLEFT=SNOW(CHNO)-EVAP(CHNO)*DTSTEP*ESNFRC(CHNO)