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

          IF(TC(CHNO)+DTC .LT. TF) THEN

            DTC=TF-TC(CHNO)

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

          IF(TC(CHNO)+DTC .LT. TF) THEN

            DTC=TF-TC(CHNO)

      TC(ChNo) = TC(ChNo) + DTC

     &     DTSTEP * CDEEPS * (TC(ChNo) - TD(ChNo)) /

     I                   NCH,  ITYP, TC,

      _RL TC(NCH), FTEMP(NCH)

      FTEMP(ChNo) = (TC(ChNo) - VGTLL(TypPtr)) *

     &              (TC(ChNo) - VGTU(TypPtr)) *

     &                    ( VGTCF1(TypPtr)*TC(ChNo)*TC(ChNo) +

     &                      VGTCF2(TypPtr)*TC(ChNo) +

      IF ( TC(ChNo) .LE. VGTLL(TypPtr) .OR. TC(ChNo) .GE. VGTU(TypPtr) )

     I                  RCUN,   VPDSTR, FTEMP,  TC, PSUR, Z2,

     &        RCUN(NCH),  VPDSTR(NCH),   FTEMP(NCH),      TC(NCH),

      RHOAIR = PSUR(ChNo) * 100. / ( RGAS*TC(ChNo) )

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

     I                     EVAP, SATCAP, VGWMAX, TC, RA, RC,

     &          TC(NCH),      RA(NCH),             RC(NCH),

     I                     NCH,    ITYP,   WSMAX,  PHLAY, AKLAY, TC,

     &       AKLAY(nch,NLAY),             TC(NCH),

      FRAMP=(TC(CHNO)-TFM2)/2.

      FRAMP=(TC(CHNO)-TFM2)/2.

      FRAMP=(TC(CHNO)-TFM2)/2.

     I             NCH,  ITYP, TC,

     I            VPDSTR, FTEMP,  TC,     PSUR, Z2,  RSOIL1, RSOIL2,

      TX(ChNo) = TC(ChNo) + DELTC

     I            VPDSTX, FTEMP, TC,     PSUR, Z2,  RSOIL1, RSOIL2,

     U                 TC,     TD,     EA,   SWET,   SNOW,

     I               EVAP, SATCAP, VGWMAX, TC, RA, RC,

     I             NCH, ITYP, VGWMAX, PHLAY, AKLAY, TC, DTSTEP,

     &          TC(NCH),     TD(NCH),     QA(NCH),   BOMB(NCH),

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

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

     &      WMAX(NLAY,NTYPS), TC(NCH),   CSOIL(NCH),   CAPAC(NCH),

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

     &       MAX( 0. _d 0, (TC(ChNo)-TF)*CSOIL(ChNo)/ALHM )  )

            TC(ChNo) = TC(ChNo) - SNOWM * ALHM / CSOIL(ChNo)

            TC(CHNO)=TF

     U             TC,     TD,     EA,  SWET1,   SNOW,

     &          TC(NCH),     TD(NCH),     EA(NCH), ESNFRC(NCH),

      HLWTC = ALWRAD(CHNO) + BLWRAD(CHNO) * TC(CHNO)

      RHOAIR = PSUR(ChNo) * 100. / (RGAS * TC(ChNo))

     &        CDEEPS * (TC(ChNo) - TD(ChNo))

          STRDG7(ChNo)=CDEEPS*(TC(ChNo) - TD(ChNo))/A11

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

        IF(TC(CHNO)+DTC .LT. TF) THEN

          DTC=TF-TC(CHNO)