da_store_obs_grid_info_new.inc

1 subroutine da_store_obs_grid_info_new (xp, i,j, proc_domain)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    type (xpose_type), intent(in)    :: xp     ! Domain decomposition vars.
10    integer, intent(in)              :: i(:)
11    integer, intent(in)              :: j(:)
12    logical, intent(out)             :: proc_domain(:)
13 
14    proc_domain(:) = .false.
15    
16    where(i(:) >= xp%its .and. i(:) <= xp%ite .and. &
17       j(:) >= xp%jts .and. j(:) <= xp%jte)
18       proc_domain(:) = .true.
19    end where
20 
21 end subroutine da_store_obs_grid_info_new
22 
23