da_ao_stats_ssmi.inc

1 subroutine da_ao_stats_ssmi  (stats_unit, oi, re)
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    type  (y_type), intent (in)      :: re            ! A - O
12 
13    integer  :: num_ssmi_tb, num_ssmi_retrieval       ! # obs over global domain.
14 
15    num_ssmi_tot = 0
16    num_ssmi_tb = wrf_dm_sum_integer (oi%num_ssmi_tb)
17    num_ssmi_retrieval = wrf_dm_sum_integer (oi%num_ssmi_retrieval)
18 
19    if (num_ssmi_tb .gt. 0) then
20       call da_ao_stats_ssmi_tb  (stats_unit, oi, re)
21       num_ssmi_tot = num_ssmi_tb_tot
22    else if (num_ssmi_retrieval .gt. 0) then
23       call da_ao_stats_ssmi_rv (stats_unit, oi, re)
24       num_ssmi_tot = num_ssmi_rv_tot
25    end if
26 
27 end subroutine da_ao_stats_ssmi
28 
29