anchor.diff:              REAL :: PAVG,PWCOL,DQCOL,DQCOLMIN
               REAL :: CUMX,QCIS,RRP,PRRT,MCOL,MPVPR,FACTL
               INTEGER :: BBOT,TTOP
  -    ! 
  +    !
               REAL,DIMENSION(KTS:KTE) :: DPCOL,DQDT,DTDT,PCOL,QCOL,TCOL
               REAL,DIMENSION(KTS:KTE) :: PVPR,JPR
       !
               INTEGER :: I,J,K,KFLIP,LMH
  -    
  +
       !***  Begin debugging convection
               REAL :: DELQ,DELT,PLYR
               INTEGER :: IMD,JMD
  
positive.code:             &            ,DPCOL,PCOL,QCOL,TCOL,PSFC,PTOP                       &
              &            ,DQDT,DTDT,PCPCOL,LBOT,LTOP,LPBL                      &
              &            ,PWCOL,DQCOL,DQCOLMIN                                 &
              &            ,CP,R,ELWV,ELIV,G,TFRZ,D608                           &   
              &            ,PRINT_DIAG                                           &   
              &            ,IDS,IDE,JDS,JDE,KDS,KDE                              &     
              &            ,IMS,IME,JMS,JME,KMS,KME                              &
              &            ,ITS,ITE,JTS,JTE,KTS,KTE)
      !-----------------------------------------------------------------------
      ! 
      !***  COMPUTE HEATING AND MOISTENING TENDENCIES
      !
                  IF ( PRESENT( RTHCUTEN ) .AND. PRESENT( RQVCUTEN )) THEN
  
negative.code:                 ENDDO      !-- End DO L=KB,KTS,-1
      !
                  LTOP=MIN(LTP1,LBOT)
      !
      !-----------------------------------------------------------------------
      !--------------- CHECK FOR MAXIMUM INSTABILITY  ------------------------
      !-----------------------------------------------------------------------
  