da_read_obs_bufrssmis.inc

1 subroutine da_read_obs_bufrssmis (obstype,iv,infile)
2 
3    !---------------------------------------------------------------------------
4    !  Purpose: read in NCEP bufr SSM/IS data to innovation structure
5    !
6    !   METHOD: use F90 sequential data structure to avoid reading file twice  
7    !            1. read file radiance data in sequential data structure
8    !            2. do gross QC check
9    !            3. assign sequential data structure to innovation structure
10    !               and deallocate sequential data structure
11    !---------------------------------------------------------------------------
12 
13    implicit none
14 
15    character(5) ,     intent (in)    :: obstype    ! ssmis
16    character(20),     intent (in)    :: infile     ! ssmis.bufr
17    type (iv_type),    intent (inout) :: iv
18 
19    if (trace_use) call da_trace_entry("da_read_obs_bufrssmis")
20 
21    write(*,*) ' To be implemented for SSMIS'
22 
23    if (trace_use) call da_trace_exit("da_read_obs_bufrssmis")
24 
25 end subroutine da_read_obs_bufrssmis
26 
27