C Channels
          
     IF (CHAN.EQ.2) THEN
        IF ((DELPRSD**2) .GT. 0.0 .AND. DELPRSW .GT. THRESH .AND.
           AMSU6(SPOT) .GT. 241.0.AND.PCLEAR2.GE.MEAS2) THEN
           DELPRS =  (DELPRSD**2) - (6 * (DELPRSD**4))
        END IF
        IF (DELPRS .LE. 0.01) DELPRS = 0.0 
     END IF

     IF (CHAN.EQ.3) THEN
        IF ((DELPRSD**2) .GT. 0.0 .AND. DELPRSW .GT. THRESH .AND.
           AMSU6(SPOT) .GT. 241.0.AND.PCLEAR3.GE.MEAS3) THEN
           DELPRS = (DELPRSD**2) + (1 *(DELPRSD **3)) - (2 * (DELPRSD**4))
        END IF
        IF (DELPRS .LE. 0.01) DELPRS = 0.0
     END IF

     IF (CHAN.EQ.12) THEN
        IF (DELPRSE .GT. 0.0) THEN
           IF (QCFLAG(SPOT) .EQ. 0) THEN
              DELPRS = (  0 *  DELPRS1) + 
                       ( 17 *  DELPRSC) + 
                       ( 22 * (DELPRSC  *  DELPRSC)) -
                       (200 * (DELPRSC  *  DELPRSC  *  DELPRSC))
           END IF
           IF (SFCTYP .GT. 0 .AND. HEIGHT .GT. 170) THEN
              DELPRS = DELPRS
           END IF
        END IF
     END IF
               
     IF (CHAN.EQ.4) THEN
        IF (DELPRSM .GT. 0.0) THEN
           IF (QCFLAG(SPOT) .EQ. 0) THEN
              DELPRS = (  2 *  DELPRSC) +
                       (  0 * (DELPRS1 * DELPRS1)) +
                       ( 12 * (DELPRSC * DELPRSC)) -
                       (110 * (DELPRSC * DELPRSC   * DELPRSC))
           END IF
        END IF
     END IF


     IF (CHAN.EQ.5) THEN
        IF (DELPRSM .GT. 0.0) THEN
           IF (QCFLAG(SPOT) .EQ. 0) THEN
              DELPRS = (  3 * DELPRSC) +
                       (  0 * (DELPRS1 * DELPRS1)) +
                       ( 26 * (DELPRSC * DELPRSC)) -
                       ( 95 * (DELPRSC  *  DELPRSC  *  DELPRSC))
           END IF
        END IF
     END IF

     IF (CHAN.EQ.16) THEN
        IF (DELPRSM .GT. 0.0) THEN
           IF (QCFLAG(SPOT) .EQ. 0) THEN
              DELPRS = (  0 *  DELPRS1) +
                       ( 20 *  DELPRSC) +
                       ( 41 * (DELPRSC  * DELPRSC)) +
                       ( 37 * (DELPRSC  * DELPRSC   *  DELPRSC))
           END IF
        END IF
     END IF

     IF (CHAN.EQ.15) THEN
        IF (DELPRSM .GT. 0.0) THEN
           IF (QCFLAG(SPOT) .EQ. 0) THEN
              DELPRS = (  0 *  DELPRS1) +
                       ( 25 *  DELPRSC) +
                       ( 38 * (DELPRSC * DELPRSC)) +
                       ( 40 * (DELPRSC  * DELPRSC  *  DELPRSC))
           END IF
        END IF
     END IF

     IF (CHAN.EQ.11) THEN
        IF (DELPRS2 .GT. 0.0) THEN
           DELPRS = (  0 *  DELPRS1) +
                    (  2 *  DELPRSC) +
                    ( 38 * (DELPRSC  * DELPRSC)) +
                    ( 60 * (DELPRSC  * DELPRSC   * DELPRSC))
        END IF
     END IF

     IF (CHAN.EQ.14) THEN
        IF (DELPRSM .GT. 0.0) THEN
           DELPRS = (  0 *  DELPRS1) +
                    (  3 *  DELPRSC) +
                    ( 34 * (DELPRSC  * DELPRSC)) +
                    (250 * (DELPRSC  * DELPRSC  * DELPRSC))
        END IF
     END IF

               
     IF (CHAN.EQ.6) THEN
        IF (DELPRSM .GT. 0.0) THEN
           DELPRS = ( 0 *  DELPRS1) +
                    ( 2 *  DELPRSC) +
                    (24 * (DELPRSC  * DELPRSC)) -
                    (20 * (DELPRSC  * DELPRSC   *  DELPRSC))
        END IF
     END IF
       
     IF (CHAN.EQ.7) THEN
        IF (DELPRSM .GT. 0.0) THEN
           DELPRS = ( 0 *  DELPRS1) + 
                    ( 2 *  DELPRSC) +
                    (26 * (DELPRSC  * DELPRSC)) -
                    (20 * (DELPRSC  * DELPRSC   *  DELPRSC))
        END IF
     END IF

     IF (CHAN.EQ.13) THEN
        IF (DELPRSM .GT. 0.0) THEN
           DELPRS = (  0 *  DELPRS1) +
                    (  5 *  DELPRSC) +
                    ( 22 * (DELPRSC  * DELPRSC)) +
                    (330 * (DELPRSC  * DELPRSC * DELPRSC))
        END IF
     END IF

     IF (CHAN.EQ.10) THEN
        IF (DELPRSM .GT. 0.0) THEN
           DELPRS = ( 0 *  DELPRS1) + 
                    ( 3 *  DELPRSC) +
                    (11 * (DELPRSC  * DELPRSC)) +
                    (65 * (DELPRSC  * DELPRSC   *  DELPRSC))
        END IF
     END IF

     IF (CHAN.EQ.8) THEN
        IF (DELPRSM .GT. 0.0) THEN
           DELPRS = (  0 *  DELPRS1) +
                    (  4 *  DELPRSC) +
                    (  8 * (DELPRSC  * DELPRSC)) +
                    ( 80 * (DELPRSC  * DELPRSC   * DELPRSC))
        END IF
     END IF