anchor.diff:  
     !-----------------------------------------------------------------------------
     subroutine tracer_init( &
  -     ijdim, &
  -     kdim,  &
  -     lall,  &
  -     tracer )
  +     ijdim,   &
  +     kdim,    &
  +     lall,    &
  +     DIAG_var )
       use mod_misc, only: &
  +       MISC_get_latlon, &
          MISC_get_distance
  +    use mod_adm, only: &
  +       ADM_KNONE
       use mod_cnst, only: &
          CNST_PI, &
          CNST_ERADIUS
       use mod_grd, only: &
  -       GRD_vz, &
  -       GRD_Z
  +       GRD_vz,         &
  +       GRD_x,          &
  +       GRD_x_pl,       &
  +       GRD_XDIR,       &
  +       GRD_YDIR,       &
  +       GRD_ZDIR,       &
  +       GRD_Z,          &
  +       GRD_ZH
       use mod_gmtr, only: &
          GMTR_lon, &
          GMTR_lat
  
positive.code:     integer, intent(in)    :: ijdim
      integer, intent(in)    :: kdim
      integer, intent(in)    :: lall
      real(8), intent(inout) :: tracer(ijdim,kdim,lall,6+TRC_VMAX)
  
      real(8) :: lon_center   = 120.D0 ! [degree]
      real(8) :: lat_center   =  30.D0 ! [degree]
  
negative.code:     K0 = ADM_KNONE
      e = exp(1.D0)
  
      DIAG_var(:,:,:,:) = 0.D0
  
      do l = 1, lall
      do n = 1, ijdim
  