search

NOAA-EMC / NCEPLIBS-bufr

The NCEPLIBS-bufr library contains routines and utilites for working with the WMO BUFR format.
Other
44 stars 19 forks source link

complete testing of getcfmng.f #350

Closed edwardhartnett closed 1 year ago

edwardhartnett commented 1 year ago

This code is untested:

        ELSE IF ( MY_NEMOI(1:6) .EQ. 'GCLONG' ) THEN
            IFXYI = IFXY ( '001031' )
            IFXYD(1) = (-1)
        ELSE IF ( MY_NEMOI(1:4) .EQ. 'OGCE' ) THEN
            IFXYI = IFXY ( '001033' )
            IFXYD(1) = (-1)

Also this:

            ELSE
                LNMNG = MIN ( 8, LCMG )
                IF ( LNMNG .EQ. 8 ) THEN
                    IRET = 1
                    CMEANG(1:8) = 'TABLAT  '
                ELSE
                    IRET = -1
                END IF
                RETURN
            END IF