NCEPLIBS-bufr  11.6.0
 All Data Structures Files Functions Variables Pages
writcp.f
Go to the documentation of this file.
1 C> @file
2 C> @brief Write a data subset into a BUFR message using compression
3 
4 C> This subroutine is similar to subroutine writsb(), except that
5 C> when the subset is encoded and packed into the current message
6 C> for the BUFR file associated with logical unit LUNIT, it is
7 C> packed using compression as prescribed within the
8 C> [official WMO BUFR regulations](@ref manual).
9 C>
10 C> @author J. Woollen
11 C> @date 2002-05-14
12 C>
13 C> @param[in] LUNIT -- integer: Fortran logical unit number for BUFR file
14 C>
15 C> @remarks
16 C> - This subroutine activates compression via an internal call to
17 C> subroutine cmpmsg(), followed by an internal call to subroutine
18 C> writsb(), followed by a second internal call to subroutine
19 C> cmpmsg() to deactivate compression. For this reason, most
20 C> application programs which write compressed BUFR messages now
21 C> call subroutines cmpmsg() and writsb() directly; however, this
22 C> subroutine is still supported within the BUFRLIB software for
23 C> backwards-compatibility with certain legacy application programs.
24 C>
25 C> <b>Program history log:</b>
26 C> | Date | Programmer | Comments |
27 C> | -----|------------|----------|
28 C> | 2002-05-14 | J. Woollen | Original author |
29 C> | 2005-03-09 | J. Ator | Modified to use cmpmsg() and writsb() |
30 C>
31  SUBROUTINE writcp(LUNIT)
32 
33  CALL cmpmsg('Y')
34 
35  CALL writsb(lunit)
36 
37  CALL cmpmsg('N')
38 
39  RETURN
40  END
subroutine cmpmsg(CF)
This subroutine is used to specify whether BUFR messages output by future calls to message-writing su...
Definition: cmpmsg.f:41
subroutine writsb(LUNIT)
This subroutine writes a complete data subset into a BUFR message, for eventual output to logical uni...
Definition: writsb.f:52
subroutine writcp(LUNIT)
This subroutine is similar to subroutine writsb(), except that when the subset is encoded and packed ...
Definition: writcp.f:31