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
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.

Definition in file closmg.f.

Function/Subroutine Documentation

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.

Authors

J. Woollen

D. Keyser

Date

1994-01-06

Parameters

[in]

LUNIN

- integer: Absolute value is Fortran logical unit number for BUFR file

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.

Program history log:

• 1994-01-06 J. Woollen – Original author
• 1998-07-08 J. Woollen – Replaced call to Cray library routine "ABORT" with call to new internal BUFRLIB routine "BORT"; modified to make Y2K compliant
• 1999-11-18 J. Woollen – The number of BUFR files which can be opened at one time increased from 10 to 32 (necessary in order to process multiple BUFR files under the MPI)
• 2000-09-19 J. Woollen – Maximum message length increased from 10,000 to 20,000 bytes
• 2003-05-19 J. Woollen – Corrected a bug which prevented the dump center and initiation time messages from being written out
• 2003-11-04 J. Ator – Added documentation
• 2003-11-04 S. Bender – Added remarks and routine interdependencies
• 2003-11-04 D. Keyser – Unified/portable for WRF; added history documentation; outputs more complete diagnostic info when routine terminates abnormally
• 2004-08-09 J. Ator – Maximum message length increased from 20,000 to 50,000 bytes
• 2005-05-26 D. Keyser – Add LUNIN < 0 option to suppress writing of all future zero-subset messsages to ABS(LUNIN)
• 2014-12-10 J. Ator – Use modules instead of COMMON blocks

Definition at line 53 of file closmg.f.

References bort(), msgwrt(), status(), wrcmps(), and wtstat().

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