da_check_max_iv_ssmt1.inc

1 subroutine da_check_max_iv_ssmt1(it, ssmt1, itt,ittf)
2 
3    !-----------------------------------------------------------------------
4    ! Purpose: TBD
5    !-----------------------------------------------------------------------
6 
7    implicit none
8    integer,           intent (in)         ::  it      ! outer iteration
9    integer,           intent (inout)      ::  itt, ittf                
10    type (ssmt1_type), intent(inout)       :: ssmt1
11 
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 SSMT1_T   = ',max_error_t
26    end if
27 
28    !---------------------------------------------------------------------------
29    ! [2.0] Perform maximum innovation vector check:
30    !---------------------------------------------------------------------------
31 
32    failed = .false.
33 
34    do k = 1, ssmt1 % info % levels
35       !  Temperature
36       call da_max_error_qc (it, ssmt1 % info, ssmt1 % t(k),&
37               max_error_t, itt, ittf, check_max_iv_unit, 'TEMP ', &
38                              failed, check_max_iv_print)
39    end do
40 
41 end subroutine da_check_max_iv_ssmt1
42 
43