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:                 PTOP=PBOT
                  GO TO 800
              ENDIF
      
      !
              THVREF(L)=TREFK(L)*APEK(L)*(QRFKL*D608+1.)
              QREFK(L)=QRFKL
  
negative.code:                 ENDDO      !-- End DO L=KB,KTS,-1
      !
                  LTOP=MIN(LTP1,LBOT)
      !
      !-----------------------------------------------------------------------
      !--------------- CHECK FOR MAXIMUM INSTABILITY  ------------------------
      !-----------------------------------------------------------------------
  