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

Christian,

I will try to look at you mods as time permits. They are not included in 
the 5.6.f release.

Steve Chiswell
Unidata User Support




>From: =?ISO-8859-1?Q?Christian_Pag=E9?= <address@hidden>
>Organization: UCAR/Unidata
>Keywords: 200205271742.g4RHg5a16020

>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/msg04
> 693.
>> 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
>>
>