subroutine da_check_missing(qc_flag, y_in, y_out) 73

   !-----------------------------------------------------------------------
   ! Purpose: TBD
   !-----------------------------------------------------------------------

   implicit none
   
   integer, intent(in)   :: qc_flag
   real, intent(in)      :: y_in
   real, intent(out)     :: y_out

   if (qc_flag < obs_qc_pointer) then
      y_out = missing_r
   else
      y_out = y_in
   end if

end subroutine da_check_missing