da_check_max_iv_ssmi_rv.inc

1 subroutine da_check_max_iv_ssmi_rv(it, ssmi_retrieval, &
2                      itpw, itpwf, ispeed, ispeedf)
3 
4    !-----------------------------------------------------------------------
5    ! Purpose: TBD
6    !-----------------------------------------------------------------------
7 
8    implicit none
9 
10    integer,    intent (in)                :: it ! Outer loop 
11    integer,    intent (inout)             :: itpw, itpwf, ispeed, ispeedf
12    type (ssmi_retrieval_type), intent(inout)       :: ssmi_retrieval
13 
14    logical                                :: failed
15 
16    !---------------------------------------------------------------------------
17    ! [1.0] Open diagnostic file:
18    !---------------------------------------------------------------------------
19 
20    if (rootproc .and. check_max_iv_print) then
21       write (check_max_iv_unit,'(A)')  &
22          '----------------------------------------------------------------'
23       write (unit = check_max_iv_unit, fmt = '(A,/)') 'MAX ERROR TEST QC:'
24 
25       write (unit = check_max_iv_unit, fmt = '(/,9(A,F3.0,/))')  &
26          'Error max test ratio for SSMI_rv_TPW   = ',max_error_pw, &
27          'Error max test ratio for SSMI_rv_SPEED = ',max_error_uv
28    end if
29 
30    !---------------------------------------------------------------------------
31    ! [2.0] Perform maximum innovation vector check:
32    !---------------------------------------------------------------------------
33 
34    failed = .false.
35 
36    ! TPW
37 
38    call da_max_error_qc(it, ssmi_retrieval % info, ssmi_retrieval % tpw, &
39                             max_error_pw, itpw, itpwf, check_max_iv_unit, 'TPW  ', &
40                             failed, check_max_iv_print)
41 
42    ! SPEED
43 
44    call da_max_error_qc(it, ssmi_retrieval % info, ssmi_retrieval % speed, &
45                             max_error_uv, ispeed, ispeedf, check_max_iv_unit, 'SPEED', &
46                             failed, check_max_iv_print)
47 
48 end subroutine da_check_max_iv_ssmi_rv
49 
50