da_read_bufrssmis.inc

1 subroutine da_read_bufrssmis (obstype,iv,xp,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    use da_control
14 
15    implicit none
16 
17    character(5) ,     intent (in)    :: obstype    ! ssmis
18    character(20),     intent (in)    :: infile     ! ssmis.bufr
19    type (xpose_type), intent (in)    :: xp
20    type (ob_type),    intent (inout) :: iv
21 
22    write(*,*) ' To be implemented for SSMIS'
23 
24 end subroutine da_read_bufrssmis
25 
26