da_oi_stats_ssmi.inc

1 subroutine da_oi_stats_ssmi (stats_unit, oi)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    integer,        intent (in)      :: stats_unit    ! Output unit for stats.
10    type (ob_type), intent (in)      :: oi            ! OI
11 
12    integer  :: num_ssmi_tb, num_ssmi_retrieval       ! # obs over global domain.
13 
14    num_ssmi_tb = wrf_dm_sum_integer(oi%num_ssmi_tb)
15    num_ssmi_retrieval = wrf_dm_sum_integer(oi%num_ssmi_retrieval)
16 
17    if (num_ssmi_tb .gt. 0) then
18       call da_oi_stats_ssmi_tb (stats_unit, oi)
19    else if (num_ssmi_retrieval .gt. 0) then
20       call da_oi_stats_ssmi_rv (stats_unit, oi)
21    end if
22 
23 end subroutine da_oi_stats_ssmi
24 
25