LOGICAL FUNCTION MN_SKIPT ( cm )
C************************************************************************
C* MN_SKIPT                                                             *
C*                                                                      *
C* This function filters out observations via an input files receipt    *
C* time to reduce the number of processed duplicate data records. The   *
C* logical variable MN_SKIPT acts as follows:                           *
C* When MN_SKIPT = .TRUE. the filter function is "on" and the input     *
C* file is not processed (skipped).                                     *
C* When MN_SKIPT = .FALSE. the filter function is "off" and only input  *
C* files with receipt times in the time intervals 1 to 5 minutes, or    *
C* 16 to 20 minutes, or 41 to 45 minutes are processed.                 *
C*                                                                      *
C* MN_SKIPT ( CM )                                                      *
C*                                                                      *
C* Input parameters:                                                    *
C*            CM        CHAR*           The cmsobn(17:18) of cmsobn     *
C*                                      Example: 20230626_0500.0604     *
C* Output parameters:                                                   *
C*      MN_SKIPT        LOGICAL         When .true., processing is      *
C*                                      skipped with the exception of   *
C*                                      the time intervals mentioned    *
C*                                      above.                          *
C**                                                                     *
C* Log:                                                                 *
C* M. Weiss/NCEP        01/24                                           *
C************************************************************************
        INCLUDE         'GEMPRM.PRM'
C*
        INTEGER         itime
        CHARACTER       cm*2
C*
C*-----------------------------------------------------------------------
        MN_SKIPT = .TRUE.

C*      Convert string to integer

        CALL ST_INTG  ( cm (1:2), itime, ier )
        
C*      Skip all time intervals except for the following:
C*      1:5 minutes, or 16:20 minutes, or 41:45 minutes

        SELECT CASE (itime)
          CASE (1:5,16:20,41:45) 
          MN_SKIPT = .FALSE.
        END SELECT

        RETURN
        END