anchor.diff:              &                                                     ,PI,PINT     &
               &                                                     ,PMID,QV     &
               &                                                     ,RHO,T,TH
  -    ! 
  +    !
               REAL,DIMENSION(IMS:IME,KMS:KME,JMS:JME),INTENT(INOUT) :: CCLDFRA  &
                                                                       ,QCCONV   &
                                                                       ,QICONV
  
positive.code:     !
              LOGICAL,INTENT(IN) :: bmj_rad_feedback
              LOGICAL,DIMENSION(IMS:IME,JMS:JME),INTENT(INOUT) :: CU_ACT_FLAG
      
      !
      !-----------------------------------------------------------------------
      !***
  
negative.code:     !***
                  PSK(L)=PK(L)+DSP
                  APESK(L)=(1.E5/PSK(L))**CAPA
  
                  IF(PK(L)>PQM)THEN
                  THSK(L)=TREFK(L)*APEK(L)
                  QREFK(L)=PQ0/PSK(L)*EXP(A2*(THSK(L)-A3*APESK(L))            &
  