da_check_max_iv_satem.inc

1 subroutine da_check_max_iv_satem(it, satem,ith,ithf)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8 
9    integer, intent(in)            :: it       ! External iteration.
10    type (satem_type), intent(inout)       :: satem
11    integer, intent(inout)                 :: ith,ithf
12    integer                                :: k
13    logical                                :: failed
14 
15    !---------------------------------------------------------------------------
16    ! [1.0] Open diagnostic file:
17    !---------------------------------------------------------------------------
18 
19    if (rootproc .and. check_max_iv_print) then
20       write (check_max_iv_unit,'(A)')  &
21          '----------------------------------------------------------------'
22       write (unit = check_max_iv_unit, fmt = '(A,/)') 'MAX ERROR TEST QC:'
23 
24       write (unit = check_max_iv_unit, fmt = '(/,9(A,F3.0,/))')  &
25          'Error max test ratio for Satem_thickness   = ',max_error_thickness
26    end if
27 
28    !---------------------------------------------------------------------------
29    ! [2.0] Perform maximum innovation vector check:
30    !---------------------------------------------------------------------------
31 
32    failed = .false.
33 
34    do k = 1, satem % info % levels
35       ! Thickness
36       call da_max_error_qc(it, satem % info, satem % thickness(k), &
37          max_error_thickness, ith, ithf, check_max_iv_unit, &
38          'Thickness    ', failed, check_max_iv_print)
39    end do
40 
41 end subroutine da_check_max_iv_satem
42 
43