20000615: GINI Sounder products

Scott and Steve,

NCF has started broadcasting some of the sounder products over
NOAAPORT. Also, CIMMS is making some of these products available as 
AREA files.

To view these GINI products from NOAAPORT:

1) The imgi2gm.f file needs to be updated with the ichan values
being used (currently 16, 17, 18 and 27). Using the imtype
where imtype = 2**(ichan - 1) gives:

<snip>
        IF ( ichan .eq. 1 ) THEN
            imtype = 1
          ELSE IF ( ichan .eq. 2 ) THEN
            imtype = 2
          ELSE IF ( ichan .eq. 3 ) THEN
            imtype = 4
          ELSE IF ( ichan .eq. 4 ) THEN
            imtype = 8
          ELSE IF ( ichan .eq. 5 ) THEN
            imtype = 16
          ELSE IF ( ichan .eq. 16) THEN
            imtype = 2**15
          ELSE IF ( ichan .eq. 17) THEN
            imtype = 2**16
          ELSE IF ( ichan .eq. 18) THEN
            imtype = 2**17
          ELSE IF ( ichan .eq. 27) THEN
            imtype = 2**26
          ELSE
            iret = -4
            RETURN
        END IF

The above reflects those products currently being broadcast.
I will go back to the interface control document and define
all the values for tables 4.3A and 4.3b.

For either GINI or AREA:

2) The imgtype.tbl file is currently formatted for IMGTYP NUMBER having
a column width of 6. Large numbers will not fit in this space.
Either the table format would have to be modified, or the imrtbl.f 
routine will have to be modified. To maintain compatibility with
the tables currently available, I chose to modify imrtbl.f to
recognize a number of the format x**y in the table for pos 52-57 if
the CALL ST_NUMB ( line (52:57), jptyp, ier ) call fails:

[121]gempak on flip --> diff imrtbl.f ~gempak/GEMPAK6/gempak/source/gemlib/im
24d23
< C* Chiz/Unidata          5/00   Add check for ** in table jptyp         * 
63,75d61
< C
< C*              if not a standard number, check to see if it contains **
< C
<                 if(ier.ne.0) then
<                    ipos = INDEX( line (52:57),'**')
<                    if(ipos.gt.1) then
<                       CALL ST_NUMB ( line (52:(52+ipos-2)),ip1,ier1)
<                       CALL ST_NUMB ( line ((52+ipos+1):57),ip2,ier2)
<                       if((ier1.eq.0).and.(ier2.eq.0))
<      +                   jptyp = ip1 ** ip2
<                    endif
<                 endif
< C


3) imgtyp.tbl entries for sounder products will look like:
! SOUNDER Products
!
! GINI products currently being broadcast as GOES-8 images (70)
! Note, IMGTYP NUMBER is 2**(CHANNEL - 1)
SOUNDER              LI            0    255     70  2**15      1 GRAY
SOUNDER              PW            0    255     70  2**16      1 GRAY
SOUNDER              SFC_SKIN      0    255     70  2**17      1 GRAY
SOUNDER              CTP           0    255     70  2**26      1 GRAY
!
! CIMMS products use GOES-10 sounder (75) ID
SOUNDER              CTP           0    255     75  2**26      1 GRAY
SOUNDER              PW            0    255     75  2**27      1 snd_pwin.tbl
SOUNDER              LI            0    255     75  2**28      1 snd_li.tbl
SOUNDER              CAPE          0    255     75  2**29      1 GRAY
SOUNDER              OZONE         0    255     75  2**30      1 GRAY
SOUNDER              SST           0    255     70  2**30      1 ssmi_mpc.tbl


4) Unfortunately, the NOAAPORT GINI SOUNDER images are being broadcast
with Lo1 currently as 141 degrees instead of -141. Tom Yoksas is planning
on contacting PRC and NESDIS regarding this error.

Steve Chiswell
Unidata User Support