da_store_obs_grid_info.inc

1 subroutine da_store_obs_grid_info (xp, loc)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    type (xpose_type),     intent(in)    :: xp     ! Domain decomposition vars.
10    type (model_loc_type), intent(inout) :: loc    ! Obs location 
11 
12    loc%proc_domain = .false.
13    
14    ! JRB hack
15    if (loc%i >= xp%its .and. loc%i <= xp%ite .and. &
16       loc%j >= xp%jts .and. loc%j <= xp%jte) then
17       loc%proc_domain = .true.
18    end if
19 
20    ! if (loc%i >= xp%its .and. loc%i < xp%ite .and. &
21    !    loc%j >= xp%jts .and. loc%j < xp%jte) then
22    !    loc%proc_domain = .true.
23    ! end if
24 
25 end subroutine da_store_obs_grid_info
26 
27