da_transform_xtoy_ssmi.inc

1 subroutine da_transform_xtoy_ssmi (xb, oi, xa, y)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    type (xb_type), intent(in)   :: xb       ! first guess state.
10    type (ob_type), intent(in)   :: oi       ! obs. increment vector (o-b).
11    type (x_type),  intent(inout):: xa       ! gridded analysis increment.
12    type (y_type), intent(inout) :: y        ! y = h (xa)
13 
14    if (oi%num_ssmi_tb > 0) then
15       call da_transform_xtoy_ssmi_tb (xb, oi, xa, y)
16    else if (oi%num_ssmi_retrieval > 0) then
17       call da_transform_xtoy_ssmi_rv (xb, oi, xa, y)
18    end if
19 
20 end subroutine da_transform_xtoy_ssmi
21 
22