var/da/da_obs_io/da_read_obs_lsac.inc

   1 subroutine da_read_obs_lsac (iv)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: Read the lsac "observation" file
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    type (iv_type),    intent(inout) :: iv
  10
  11
  12    if (trace_use) call da_trace_entry("da_read_obs_lsac")
  13
  14    call da_read_lsac_wrfinput(iv, .false.)
  15
  16    if (trace_use) call da_trace_exit("da_read_obs_lsac")
  17
  18 end subroutine da_read_obs_lsac
  19