var/da/da_ssmi/da_check_max_iv_ssmi_tb.inc

   1 subroutine da_check_max_iv_ssmi_tb(iv, it)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    type(iv_type), intent(inout) :: iv
  10    integer,       intent(in)    :: it
  11
  12    logical :: failed
  13    integer :: n
  14
  15    if (trace_use) call da_trace_entry("da_check_max_iv_ssmi_tb")
  16
  17    !---------------------------------------------------------------------------
  18    ! [1.0] Perform maximum innovation vector check:
  19    !---------------------------------------------------------------------------
  20
  21    do n=iv%info(ssmi_tb)%n1, iv%info(ssmi_tb)%n2
  22       ! Tb19h
  23
  24       call da_max_error_qc(it, iv%info(ssmi_tb), n, iv%ssmi_tb(n)%tb19h, max_error_tb, failed)
  25
  26       ! Tb19v
  27
  28       call da_max_error_qc(it, iv%info(ssmi_tb), n, iv%ssmi_tb(n)%tb19v, max_error_tb, failed)
  29
  30       ! Tb22v
  31
  32       call da_max_error_qc(it, iv%info(ssmi_tb), n, iv%ssmi_tb(n)%tb22v, max_error_tb, failed)
  33
  34       ! Tb37h
  35
  36       call da_max_error_qc(it, iv%info(ssmi_tb), n, iv%ssmi_tb(n)%tb37h, max_error_tb, failed)
  37
  38       ! Tb37v
  39
  40       call da_max_error_qc(it, iv%info(ssmi_tb), n, iv%ssmi_tb(n)%tb37v, max_error_tb, failed)
  41
  42       ! Tb85h
  43
  44       call da_max_error_qc(it, iv%info(ssmi_tb), n, iv%ssmi_tb(n)%tb85h, max_error_tb, failed)
  45
  46       ! Tb85v
  47
  48       call da_max_error_qc(it, iv%info(ssmi_tb), n, iv%ssmi_tb(n)%tb85v,max_error_tb, failed)
  49    end do
  50
  51    if (trace_use) call da_trace_exit("da_check_max_iv_ssmi_tb")
  52
  53 end subroutine da_check_max_iv_ssmi_tb
  54
  55