wrfv2_fire/var/da/da_setup_structures/da_setup_obs_interp_wts.inc

   1 subroutine da_setup_obs_interp_wts (iv)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    type (iv_type), intent(inout)  :: iv         ! Innovation vector (O-B).
  10
  11    integer                        :: i         ! Loop counter.
  12
  13    if (trace_use) call da_trace_entry("da_setup_obs_interp_wts")
  14
  15    do i=1,num_ob_indexes
  16       if (i /= radiance .and. iv%info(i)%nlocal > 0) then ! i=22 is radiance , should be excluded here
  17          if ( ob_format == ob_format_ascii ) then
  18             call da_store_obs_grid_info (iv%info(i))
  19          else if ( ob_format == ob_format_bufr ) then
  20             call da_store_obs_grid_info_bufr (iv%info(i))
  21          end if
  22       end if
  23    end do
  24
  25    do i = 1, iv % num_inst
  26       if (iv % instid(i) % num_rad < 1) cycle
  27       call da_store_obs_grid_info (iv%instid(i)%info)
  28    end do
  29
  30    if (trace_use) call da_trace_exit("da_setup_obs_interp_wts")
  31
  32 end subroutine da_setup_obs_interp_wts
  33
  34