anchor.diff:                        jme => grids(img)%jme  &
                   )
               !$omp critical
  -            if (this_image()==1) print*, "What does it mean that ime,jme are -1 here... this needs thought"
  -            LUT(k,i,j, 1:ime-ims, z, 1:jme-jms)[img] = wind(ims:ime-1,jms:jme-1,z)
  +            ! if (this_image()==1) print*, "What does it mean that ime,jme are -1 here... this needs thought"
  +            LUT(k,i,j, 1:ime-ims+1, z, 1:jme-jms+1)[img] = wind(ims:ime,jms:jme,z)
               !$omp end critical
   
               end associate
           enddo
   
  -    end subroutine copy_data_remote_data
  +    end subroutine copy_data_to_remote
   
       !>----------------------------------------------------------
       !! Compute look up tables for all combinations of U, V, and Nsq
  
positive.code: 
                              ! need to handle stagger (nxu /= nx) and the buffer around edges of the domain
                              if (nxu /= nx) then
                                  temporary_u(1:fftnx-2*buffer-1,:,z) = real( real(                                              &
                                          ( lt_data_m%u_perturb(1+buffer:fftnx-buffer-1,   1+buffer:fftny-buffer)           &
                                          + lt_data_m%u_perturb(2+buffer:fftnx-buffer,     1+buffer:fftny-buffer)) )) / 2
  
                                  temporary_v(:,1:fftny-2*buffer-1,z) = real( real(                                              &
                                          ( lt_data_m%v_perturb(1+buffer:fftnx-buffer,     1+buffer:fftny-buffer-1)         &
                                          + lt_data_m%v_perturb(1+buffer:fftnx-buffer,     2+buffer:fftny-buffer)) )) / 2
  
                                  call copy_data_remote_data(temporary_u, u_grids, hi_u_LUT, i,j,k, z)
                                  call copy_data_remote_data(temporary_v, v_grids, hi_v_LUT, i,j,k, z)
  
                              else
                                  stop "ERROR: linear wind LUT creation not set up for non-staggered grids yet"
  
negative.code: 
      end subroutine setup_remote_grids
  
      subroutine copy_data_to_remote(wind, grids, LUT, i,j,k, z)
          implicit none
          real,           intent(in)  :: wind(:,:,:)
          type(grid_t),   intent(in)  :: grids(:)
  