da_check_max_iv_gpspw.inc

1 subroutine da_check_max_iv_gpspw(it, gpspw, ittpw,ittpwf)
2 
3   !-------------------------------------------------------------------------
4   ! Purpose: TBD
5   !-------------------------------------------------------------------------
6 
7   implicit none
8 
9   integer,           intent (in)         :: it      ! Outer iteration
10   type (gpspw_type), intent(inout)       :: gpspw
11   integer, intent(inout) :: ittpw,ittpwf
12   logical                                :: failed 
13 
14   if (rootproc .and. check_max_iv_print) then
15     write (check_max_iv_unit,'(A)')  &
16       '----------------------------------------------------------------'
17     write (unit = check_max_iv_unit, fmt = '(A,/)') 'MAX ERROR TEST QC:'
18     write (unit = check_max_iv_unit, fmt = '(/,9(A,F3.0,/))')  &
19      'Error max test ratio for gps_tpw = ',max_error_pw
20   end if
21 
22   !---------------------------------------------------------------------------
23   ! [2.0] Perform maximum innovation vector check:
24   !---------------------------------------------------------------------------
25 
26   failed = .false.
27 
28   ! TPW:
29   call da_max_error_qc(it, gpspw % info, gpspw % tpw, max_error_pw, ittpw, &
30     ittpwf, check_max_iv_unit, 'TPW  ', failed, check_max_iv_print)
31 
32 end subroutine da_check_max_iv_gpspw
33 
34