datelen.f

Go to the documentation of this file.

C> @file
C> @brief Specify format of Section 1 date-time when reading
C> BUFR messages.

C> This subroutine is used to specify the format of Section 1
C> date-time values that will be output by future calls to
C> any of the BUFRLIB [message-reading subroutines](@ref hierarchy).
C> 
C> @author J. Woollen
C> @date 1998-07-08
C>
C> @param[in] LEN -   integer: Length of Section 1 date-time
C>                    values to be output by all future calls
C>                    to message-reading subroutines
C>                    -  8 = YYMMDDHH format with 2-digit year
C>                           (the default)
C>                    - 10 = YYYYMMDDHH format with 4-digit year
C>
C> <p>This subroutine can be called at any time from within the
C> application program, and the specified value for LEN will remain
C> in effect for all future calls to any of the BUFRLIB subroutines
C> which read BUFR messages, unless a subsequent call is made to this
C> subroutine to reset the value of LEN again.  If this subroutine is
C> never called, a default value of 8 is used for LEN, as set within
C> subroutine bfrini().
C>
C> <b>Program history log:</b>
C> - 1998-07-08  J. Woollen -- Original author
C> - 2002-05-14  J. Woollen -- Changed from an entry point in readmg()
C>                           to stand-alone subroutine, to increase
C>                           portability to other platforms
C> - 2003-11-04  J. Ator    -- Added documentation
C> - 2004-12-20  D. Keyser  -- Calls wrdlen() to initialize local machine
C>                           information (in case it has not yet been
C>                           called), this routine does not require it
C>                           but it may someday call other routines that
C>                           do require it
C>
      SUBROUTINE datelen(LEN)

      COMMON /dateln/ lendat

      CHARACTER*128 bort_str

C-----------------------------------------------------------------------
C-----------------------------------------------------------------------

C  CALL SUBROUTINE WRDLEN TO INITIALIZE SOME IMPORTANT INFORMATION
C  ABOUT THE LOCAL MACHINE (IN CASE IT HAS NOT YET BEEN CALLED)
C  ---------------------------------------------------------------

      CALL wrdlen

      IF(len.NE.8 .AND. len.NE.10) goto 900
      lendat = len

C  EXITS
C  -----

      RETURN
900   WRITE(bort_str,'("BUFRLIB: DATELEN - INPUT ARGUMENT IS",I4," - '//
     . 'IT MUST BE EITHER 8 OR 10")') len
      CALL bort(bort_str)
      END