da_transform_xtoy_ssmi_adj.inc

1 subroutine da_transform_xtoy_ssmi_adj (xb, oi, jo_grad_y, jo_grad_x)
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. inc vector (o-b).
11    type (y_type) , intent(in)        :: jo_grad_y   ! grad_y(jo)
12    type (x_type) , intent(inout)     :: jo_grad_x   ! grad_x(jo)
13 
14    if (oi%num_ssmi_tb > 0) then
15       call da_transform_xtoy_ssmi_tb_adj (xb, oi, jo_grad_y, jo_grad_x)
16    else if (oi%num_ssmi_retrieval > 0) then
17       call da_transform_xtoy_ssmi_rv_adj (xb, oi, jo_grad_y, jo_grad_x)
18    end if
19 
20 end subroutine da_transform_xtoy_ssmi_adj
21 
22