w3fi92.f File Reference

Build 80-char on 295 grib queue descriptor. More...

Go to the source code of this file.

Functions/Subroutines
subroutine	w3fi92 (loc, ttaaii, kary, kwbx, ierr)
	Build 80 character queue descriptor using information supplied by user, placing the completed queue descriptor in the location specified by the user.

Detailed Description

Build 80-char on 295 grib queue descriptor.

Author

Bill Cavanaugh

Date

1991-06-21

Definition in file w3fi92.f.

Function/Subroutine Documentation

w3fi92()

subroutine w3fi92	(	character*80	loc,
		character*6	ttaaii,
		integer, dimension(7)	kary,
		character*4	kwbx,
		integer	ierr
	)

Build 80 character queue descriptor using information supplied by user, placing the completed queue descriptor in the location specified by the user.

(based on office note 295).

Note

This is a modified version of w3fi62() which adds the 'KWBX' parameter. This value will now be added to bytes 35-38 for all grib products. Queue desciptors for non-grib products will continue to be generated by w3fi62().

Program history log:

• Bill Cavanaugh 1991-06-21
• Bill Cavanaugh 1994-03-08 Modified to allow for bulletin sizes that exceed 20000 bytes
• Ralph Jones 1994-04-28 Change for cray 64 bit word size and for ASCII character set computers
• J. Smith 1995-10-16 Modified version of w3fi62() to add 'KWBX' to bytes 35-38 of queue descriptor.
• Ralph Jones 1996-01-29 Preset ierr to zero.
• Boi Vuong 2002-10-15 Replaced function ichar with mova2i.

Parameters

[in]	TTAAII	First 6 characters of wmo header
[in,out]	KARY	Integer array containing user information 1 = Day of month 2 = Hour of day 3 = Hour * 100 + minute 4 = Catalog number 5 = Number of 80 byte increments 6 = Number of bytes in last increment 7 = Total size of message WMO header + body of message in bytes (not including queue descriptor)
[in]	KWBX	4 characters, representing the fcst model that the bulletin was derived from.
[out]	LOC	Location to receive queue descriptor.
[out]	IERR	Error return.

Note

If total size is entered (kary(7)) then kary(5) and kary(6) will be calculated. If kary(5) and kary(6) are provided then kary(7) will be ignored.

Equivalence array loc to integer array so it starts on a word boundary for sbyte subroutine.

Error returns:

• IERR = 1 Total byte count and/or 80 byte increment count is missing. One or the other is required to complete the queue descriptor.
• IERR = 2 Total size too small

Author

Bill Cavanaugh

Date

1991-06-21

Definition at line 53 of file w3fi92.f.