[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: 20010830: I modified GEMPAK to decoded Canada cloud types in METAR

Hi,
Thanks for the correction, I will add it in my version. I don't know if the new version of GEMPAK has these modifications 
added, I didn't upgrade because I am not sure.

Christian Pagé
UQÀM

On Lundi, mai 27, 2002, at 12:00 , bjarne wrote:


Hi Christian,

Nice work at:
http://www.unidata.ucar.edu/projects/coohl/mhonarc/MailArchives/gempak/msg04693.
html

you could add:

     +               remark ( 1:2 ) .eq. 'SN' .or.
to the block below. Snow and fog can both partially or completely obscure the 
sky. I suppose those are all the possible opacity prefixes (?).

Regards,
Bjarne Hansen
Dalhousie, Halifax / MSC, Montreal


             IF ( lenrmk .ge. 3 .and. lenrmk .le. 12 ) THEN
                stid = civals ( icstid )
                if ( stid(1:1) .eq. 'C' ) THEN
                IF ( remark ( 1:3 ) .ne. 'CIG' .and.
     +               remark ( 1:3 ) .ne. 'SFC' .and.
     +               remark ( 1:3 ) .ne. 'CLR' .and.
     +               remark ( 1:3 ) .ne. 'OVC' .and.
     +               remark ( 1:3 ) .ne. 'ASO' .and.
     +               remark ( 1:3 ) .ne. 'SCT' ) THEN
                IF ( remark ( 1:2 ) .eq. 'AC' .or.
     +               remark ( 1:3 ) .eq. 'ACC' .or.
     +               remark ( 1:2 ) .eq. 'AS' .or.
     +               remark ( 1:2 ) .eq. 'FG' .or.
     +               remark ( 1:2 ) .eq. 'CB' .or.
     +               remark ( 1:2 ) .eq. 'CC' .or.
     +               remark ( 1:2 ) .eq. 'CF' .or.
     +               remark ( 1:2 ) .eq. 'CI' .or.
     +               remark ( 1:2 ) .eq. 'CS' .or.
     +               remark ( 1:2 ) .eq. 'CU' .or.
     +               remark ( 1:2 ) .eq. 'NS' .or.
     +               remark ( 1:2 ) .eq. 'SC' .or.
     +               remark ( 1:2 ) .eq. 'SF' .or.
     +               remark ( 1:2 ) .eq. 'ST' .or.
     +               remark ( 1:3 ) .eq. 'TCU' ) THEN
                    CALL MT_CNCLTP ( remark(1:lenrmk), lenrmk, ier )
                    IF ( ier .ne. 0 ) THEN
                        CALL DC_WLOG ( 2, 'MT', ier,
     +                                 remark ( :3 ), ierr )
                    END IF
                 END IF
                 END IF
                 END IF
              END IF