var/da/da_obs/da_store_obs_grid_info_rad.inc

   1 subroutine da_store_obs_grid_info_rad (info)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    type(infa_type), intent(inout) :: info
  10
  11    integer :: n
  12
  13    if (trace_use) call da_trace_entry("da_store_obs_grid_info_rad")
  14
  15    info%proc_domain(:,:) = .false.
  16
  17    do n=1,info%nlocal
  18       if (info%i(1,n) >= its .and. info%i(1,n) <= ite .and. info%j(1,n) >= jts .and. info%j(1,n) <= jte) then
  19          info%proc_domain(:,n) = .true.
  20       end if
  21    end do
  22
  23    if (trace_use) call da_trace_exit("da_store_obs_grid_info_rad")
  24
  25 end subroutine da_store_obs_grid_info_rad
  26
  27