anchor.diff:      K0 = ADM_KNONE
       e = exp(1.D0)
   
  -    !DIAG_var(:,:,:,1) = 1000.D2 ! pressure
  -    !DIAG_var(:,:,:,2) =  300.D0 ! temperature
  -    DIAG_var(:,:,:,3) =    0.D0 ! v(x)
  -    DIAG_var(:,:,:,4) =    0.D0 ! v(y)
  -    DIAG_var(:,:,:,5) =    0.D0 ! v(z)
  -    DIAG_var(:,:,:,6) =    0.D0 ! w
  +    DIAG_var(:,:,:,:) = 0.D0
   
       do l = 1, lall
       do n = 1, ijdim
  
positive.code: 
      K0 = ADM_KNONE
  
      do l = 1, lall
      do n = 1, ijdim
         z_local(1) = GRD_vz(n,2,l,GRD_ZH)
  
negative.code:           DIAG_var(n,k,l,3) = vx_local(k)
            DIAG_var(n,k,l,4) = vy_local(k)
            DIAG_var(n,k,l,5) = vz_local(k)
         enddo
  
      enddo
  