anchor.diff:              END MODULE MODULE_CU_BMJ
       !
       !-----------------------------------------------------------------------
  +    
positive.code:     !-- End: Raise cloud top if avg RH>RHSHmax and CAPE>0
      !
      !---------------------------SHALLOW CLOUD TOP---------------------------
              LBM1=LBOT-1
              PTPK=PTOP
              LTP1=LTOP-1
              DEPTH=PBOT-PTOP
      !-----------------------------------------------------------------------
      !***  Begin debugging convection
              IF(PRINT_DIAG)THEN
  
negative.code:     MODULE MODULE_CU_BMJ
      !
      !-----------------------------------------------------------------------
          !   USE MODULE_MODEL_CONSTANTS
          use mod_wrf_constants
          ! use options_interface,   only : options_t ! for debugging.
      !-----------------------------------------------------------------------
      !
              REAL,PARAMETER ::                                                 &
  