var/da/da_obs/da_check_missing.inc

   1 subroutine da_check_missing(qc_flag, y_in, y_out)
   2
   3    !-----------------------------------------------------------------------
   4    ! Purpose: TBD
   5    !-----------------------------------------------------------------------
   6
   7    implicit none
   8
   9    integer, intent(in)   :: qc_flag
  10    real, intent(in)      :: y_in
  11    real, intent(out)     :: y_out
  12
  13    if (qc_flag < obs_qc_pointer) then
  14       y_out = missing_r
  15    else
  16       y_out = y_in
  17    end if
  18
  19 end subroutine da_check_missing
  20
  21