da_get_innov_vector_ssmi.inc

1 subroutine da_get_innov_vector_ssmi( it, xb, ob, iv)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    integer, intent(in)           :: it         ! External iteration.
10    type(xb_type), intent(in)    :: xb         ! first guess state.
11    type(y_type),  intent(in)    :: ob         ! Observation structure.
12    type(ob_type), intent(inout) :: iv         ! O-B structure.
13 
14    if (ob%num_ssmi_tb > 0) then
15 
16       call da_get_innov_vector_ssmi_tb( it, xb, ob, iv)
17 
18    else if (ob%num_ssmi_retrieval > 0) then
19 
20       call da_get_innov_vector_ssmi_rv( it, xb, ob, iv)
21 
22    end if
23 
24 end subroutine da_get_innov_vector_ssmi
25 
26