da_qc_ssmis.inc

1 subroutine da_qc_ssmis (i, nchan, ob, iv)
2 
3    !---------------------------------------------------------------------------
4    ! Purpose: perform quality control for ssmis data.
5    !---------------------------------------------------------------------------
6 
7    implicit none
8 
9    integer,        intent(in)    :: i          ! sensor index.
10    integer,        intent(in)    :: nchan      ! number of channel
11    type (y_type),  intent(in)    :: ob         ! Observation structure.
12    type (iv_type), intent(inout) :: iv         ! O-B structure.
13 
14    if (trace_use_dull) call da_trace_entry("da_qc_ssmis")
15 
16    write(*,*) 'To be implemented for SSMIS'
17 
18    if (trace_use_dull) call da_trace_exit("da_qc_ssmis")
19 
20 end subroutine da_qc_ssmis
21 
22