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

[Christian Pagé <page@xxxxxxxxxxx>]

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