anchor.diff:      !
       !------------TEMPERATURE REFERENCE PROFILE BELOW FREEZING LEVEL-------
       !
  -            EL(LB) = ELWV    
  +            EL(LB) = ELWV
               L0=LB
               PK0=PK(LB)
               TREFKX=TREFK(LB)
  
positive.code:     !
      !-----------------------------------------------------------------------
      !***  SEARCH OVER A SCALED DEPTH IN FINDING THE PARCEL
      !***  WITH THE MAX THETA-E 
      !-----------------------------------------------------------------------
      !
              QBT=Q(KB)
  
negative.code:     !-----------------------------------------------------------------------
      !       lbot_ltop: IF(LBOT>LTOP)THEN
      !-----------------------------------------------------------------------
      !-- Begin: Buoyancy check including deep convection (24 Aug 2006)
      !-----------------------------------------------------------------------
                  DENTPY=0.
                  L=KB
  