NCEPLIBS-bufr  12.0.0
closmg.f File Reference

Close and write the current message to a BUFR file that was previously opened for writing. More...

Go to the source code of this file.

Functions/Subroutines

recursive subroutine closmg (LUNIN)
 This subroutine closes the BUFR message that is currently open for writing within internal arrays associated with logical unit ABS(LUNIN), and it then writes the message to that logical unit. More...
 

Detailed Description

Close and write the current message to a BUFR file that was previously opened for writing.

Author
J. Woollen, D. Keyser
Date
1994-01-06

Definition in file closmg.f.

Function/Subroutine Documentation

◆ closmg()

recursive subroutine closmg (   LUNIN)

This subroutine closes the BUFR message that is currently open for writing within internal arrays associated with logical unit ABS(LUNIN), and it then writes the message to that logical unit.

Logical unit ABS(LUNIN) should have already been opened for output operations via a previous call to subroutine openbf().

If LUNIN < 0, then any message containing zero data subsets will not be written to logical unit ABS(LUNIN) for the remainder of the life of the application program. This includes suppressing the writing of any "dummy" messages containing dump center and initiation times that normally appear in the first 2 messages of NCEP dump files.

Parameters
[in]LUNIN- integer: Absolute value is Fortran logical unit number for BUFR file
Author
J. Woollen, D. Keyser
Date
1994-01-06

Definition at line 25 of file closmg.f.

References bort(), modv_im8b::im8b, moda_bitbuf::mbay, moda_bitbuf::mbyt, moda_msglim::msglim, msgwrt(), moda_msgcwd::nmsg, moda_msgcwd::nsub, status(), wrcmps(), wtstat(), and x84().

Referenced by closbf(), makestab(), openmb(), openmg(), and writsa().