- Generated by
1.9.1
|
NCEPLIBS-bufr
12.0.1
|
Write a compressed BUFR data subset. More...
Go to the source code of this file.
Functions/Subroutines | |
| subroutine | wrcmps (LUNIX) |
| This subroutine packs up the current subset within memory (array ibay in module moda_bitbuf), storing it for compression. More... | |
| subroutine wrcmps | ( | LUNIX | ) |
This subroutine packs up the current subset within memory (array ibay in module moda_bitbuf), storing it for compression.
It then tries to add it to the compressed BUFR message that is currently open within memory for abs(lunix) (array mgwa). If the subset will not fit into the currently open message, then that compressed message is flushed to lunix and a new one is created in order to hold the current subset (still stored for compression). This subroutine performs functions similar to NCEPLIBS-bufr subroutine msgupd() except that it acts on compressed bufr messages.
| [in] | lunix | - integer: absolute value is fortran logical unit number for bufr file (if lunix is less than zero, this is a "flush" call and the buffer must be cleared out) |
Definition at line 22 of file wrcmps.f.
References bort(), moda_comprs::catx, moda_s01cm::cmnem, cmsgini(), moda_comprx::cstr, moda_comprx::flush, moda_bitbuf::ibay, moda_bitbuf::ibit, moda_tables::ibt, moda_msgcwd::idate, moda_comprs::incr, moda_msgcwd::inode, moda_usrint::inv, ipkm(), moda_tables::itp, moda_comprx::ityp, iupbs01(), moda_s01cm::ivmnem, moda_comprx::iwid, moda_comprx::kbit, moda_comprx::kbyt, moda_comprx::kmax, moda_comprx::kmin, moda_comprx::kmis, moda_comprx::lunc, moda_comprs::matx, moda_bitbuf::mbay, moda_mgwa::mgwa, msgwrt(), modv_mxcdv::mxcdv, modv_mxcsb::mxcsb, moda_comprs::ncol, moda_comprx::nrow, moda_s01cm::ns01v, moda_msgcwd::nsub, moda_usrint::nval, pkb(), pkb8(), pkc(), status(), moda_tables::tag, up8(), upc(), usrtpl(), and moda_comprx::writ1.
1.9.1