da_store_obs_grid_info.inc

1 subroutine da_store_obs_grid_info (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")
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")
24 
25 end subroutine da_store_obs_grid_info
26 
27