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