anchor.diff:     IMPLICIT NONE
   !-------------------------------------------------------------
      INTEGER,      INTENT(IN   ) ::                            &
  -                                  ids,ide, jds,jde, kds,kde, & 
  -                                  ims,ime, jms,jme, kms,kme, & 
  +                                  ids,ide, jds,jde, kds,kde, &
  +                                  ims,ime, jms,jme, kms,kme, &
                                     its,ite, jts,jte, kts,kte
   
      INTEGER,      INTENT(IN   ) :: STEPCU
  
positive.code:             QLFXOUT,QIPA,QIFXIN,QIFXOUT,QRPA,              &
              QRFXIN,QRFXOUT,QSPA,QSFXIN,QSFXOUT,            &
              QL0,QLG,QI0,QIG,QR0,QRG,QS0,QSG
                                           
        REAL, DIMENSION( kts:kte+1 ) :: OMG
        REAL, DIMENSION( kts:kte ) :: RAINFB,SNOWFB
  
  
negative.code:                  TOPOMG,CPM,DQ,ABEG,DABE,DFDA,FRC2,DR,     &
                   UDFRC,TUC,QGS,RH0,RHG,QINIT,QFNL,ERR2,    &
                   RELERR,RLC,RLS,RNC,FABEOLD,AINCOLD,UEFRC, &
                   DDFRC,TDC,DEFRC
  
        INTEGER :: KX,K,KL
  !
        INTEGER :: ISTOP,ML,L5,L4,KMIX,LOW,                  &
                   LC,MXLAYR,LLFC,NLAYRS,NK,                 &
                   KPBL,KLCL,LCL,LET,IFLAG,                  &
  