anchor.diff:          IF(.NOT.LDCUM(JL)) KTYPE(JL)=0
     210 CONTINUE
         DO 230 JK=1,KLEV
  -      DO 230 JL=1,KLON
  +      DO JL=1,KLON
             PLU(JL,JK)=0.
             PMFU(JL,JK)=0.
             PMFUS(JL,JK)=0.
  
positive.code:         END IF
    512   CONTINUE
          DO 530 JK=1,KLEV
          DO 530 JL=1,KLON
          IF(LDCUM(JL)) THEN
             ZFAC=ZMFUB1(JL)/MAX(ZMFUB(JL),1.E-10)
             PMFD(JL,JK)=PMFD(JL,JK)*ZFAC
  
negative.code:           ZODETR(JL,JK)=0.
            IF(.NOT.LDCUM(JL).OR.KTYPE(JL).EQ.3) KLAB(JL,JK)=0
            IF(.NOT.LDCUM(JL).AND.PAPH(JL,JK).LT.4.E4) KCTOP0(JL)=JK
        end do
    230 CONTINUE
  !------------------------------------------------
  !     3.0      INITIALIZE VALUES AT LIFTING LEVEL
  