strcpt.f

Go to the documentation of this file.

C> @file
C> @brief Specify a tank receipt time to be included in Section 1
C> when writing BUFR messages.

C> This subroutine is used to specify a tank receipt time to be
C> included within Section 1 of all BUFR messages output by future calls
C> to [message-writing subroutines](@ref hierarchy) and
C> [subset-writing subroutines](@ref hierarchy).
C>
C> @author J. Ator
C> @date 2009-03-23
C>
C> @param[in] CF    - character*1: Flag indicating whether future BUFR
C>                    output messages should include the tank receipt
C>                    time defined by IYR, IMO, IDY, IHR, and IMI:
C>                     - 'N' = No (the default)
C>                     - 'Y' = Yes
C> @param[in] IYR   - integer: Tank receipt year
C> @param[in] IMO   - integer: Tank receipt month
C> @param[in] IDY   - integer: Tank receipt day
C> @param[in] IHR   - integer: Tank receipt hour
C> @param[in] IMI   - integer: Tank receipt minute
C>
C> <p>This subroutine can be called at any time after the first call
C> to subroutine openbf(), and the specified value for CF will remain
C> in effect for all future calls to
C> [message-writing subroutines](@ref hierarchy) and
C> [subset-writing subroutines](@ref hierarchy), for all Fortran logical
C> units that are open for output within the application program,
C> unless a subsequent call is made to this subroutine to reset the
C> value of CF again.  If this subroutine is never called, a default
C> value of 'N' is used for CF, as set within subroutine bfrini().
C>
C> <p>Whenever this subroutine is called with CF = 'N', the values in
C> IYR, IMO, IDY, IHR, and IMI are ignored.
C>
C> @remarks
C> - Tank receipt time is an NCEP extension to Section 1 of the 
C> [official WMO BUFR regulations](@ref manual).
C> However, it's encoded by the BUFRLIB software in such a way that
C> its inclusion within an output BUFR message is still fully
C> compliant with the regulations.
C>
C> <b>Program history log:</b>
C> - 2009-03-23  J. Ator    -- Original author
C>
      SUBROUTINE strcpt(CF,IYR,IMO,IDY,IHR,IMI)

      COMMON /tnkrcp/ itryr,itrmo,itrdy,itrhr,itrmi,ctrt

      CHARACTER*128 bort_str
      CHARACTER*1   ctrt, cf

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

      CALL capit(cf)
      IF(cf.NE.'Y'.AND. cf.NE.'N') goto 900

      ctrt = cf 
      IF(ctrt.EQ.'Y') THEN
    itryr = iyr
    itrmo = imo
    itrdy = idy
    itrhr = ihr
    itrmi = imi
      ENDIF

C  EXITS
C  -----

      RETURN
900   WRITE(bort_str,'("BUFRLIB: STRCPT - INPUT ARGUMENT IS ",A1,'//
     . '", IT MUST BE EITHER Y OR N")') cf
      CALL bort(bort_str)
      END