C----------------------------------------------------------------------- C----------------------------------------------------------------------- SUBROUTINE MNEMONICS(SUBSET,NEMOS,NEMS,COMPRESS) CHARACTER SUBSET*8,NEMOS(10)*80 LOGICAL COMPRESS C----------------------------------------------------------------------- C----------------------------------------------------------------------- NEMOS = ' ' NEMS = 0 IF(SUBSET.EQ.'METAR') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)='QMPR PRES PMSL QMDD TMDP QMAT TMDB QMWN WDIR WSPD' NEMOS(4)='CORN QMST SST1 ' COMPRESS = .TRUE. NEMS = 4 ELSEIF(SUBSET.EQ.'SHIPS') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)= & 'QMPR PRES PMSL QMDD TMDP REHU QMAT TMDB QMWN WDIR WSPD' NEMOS(4)='CORN TOST TIMW MSST ASMP QMST SST1 ' NEMOS(5)='RSRD EXPRSRD ' COMPRESS = .TRUE. NEMS = 5 ELSEIF(SUBSET.EQ.'SHIPSU') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)= & 'QMPR PRES PMSL QMDD TMDP REHU QMAT TMDB QMWN WDIR WSPD' NEMOS(4)='CORN TOST TIMW MSST ASMP QMST SST1 ' COMPRESS = .TRUE. NEMS = 4 ELSEIF(SUBSET.EQ.'DBUOY') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)= & 'QMPR PRES PMSL QMDD TMDP REHU QMAT TMDB QMWN WDIR WSPD' NEMOS(4)='QCLS QDEP QBST QCIL QCTSP QCCUR ' NEMOS(5)='PSYR PSMN PSDY PSHR PSMI PLDS ' NEMOS(6)='DOMO DROT DROD HPLE DLATH DLONH ' NEMOS(7)='CALT BUYT ANHT AHAC ANTP MSDM ' NEMOS(8)='CORN TOST TIWM MSST ' NEMOS(9)='MRMV DTCC QMST ' COMPRESS = .FALSE. NEMS = 9 ELSEIF(SUBSET.EQ.'DBUOYSUB') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)= & 'QMPR PRES PMSL QMDD TMDP REHU QMAT TMDB QMWN WDIR WSPD' NEMOS(4)='QCLS QDEP QBST QCIL QCTSP QCCUR ' NEMOS(5)='PSYR PSMN PSDY PSHR PSMI PLDS ' NEMOS(6)='DOMO DROT DROD HPLE DLATH DLONH ' NEMOS(7)='CALT BUYT ANHT AHAC ANTP MSDM ' NEMOS(8)='CORN TOST TIWM MSST ' NEMOS(9)='MRMV DTCC QMST SST1 ' NEMOS(10)='DBSS STMP SALN DROC SPOC ' COMPRESS = .FALSE. NEMS = 10 ELSEIF(SUBSET.EQ.'MBUOY') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)= & 'QMPR PRES PMSL QMDD TMDP REHU QMAT TMDB QMWN WDIR WSPD' NEMOS(4)='CORN TOST TIWM MSST QMST SST1 ' COMPRESS = .TRUE. NEMS = 4 ELSEIF(SUBSET.EQ.'LCMAN') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)= & 'QMPR PRES PMSL QMDD TMDP REHU QMAT TMDB QMWN WDIR WSPD' NEMOS(4)='CORN TOST TIWM MSST QMST SST1 ' COMPRESS = .TRUE. NEMS = 4 ELSEIF(SUBSET.EQ.'TIDEG') THEN NEMOS(1)='RPID SELV ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)='QMPR PRES PMSL QMDD TMDP QMAT TMDB QMWN WDIR WSPD' NEMOS(4)='CORN TOST TIWM MSST AWCK MWCK AMCK MMCK QMST SST1' COMPRESS = .TRUE. NEMS = 4 ELSEIF(SUBSET.EQ.'SLPBG') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)='CORN QMPR PMSL ' COMPRESS = .TRUE. NEMS = 3 ELSEIF(SUBSET.EQ.'CSTGD') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)= & 'QMPR PRES PMSL QMDD TMDP REHU QMAT TMDB QMWN WDIR WSPD' NEMOS(4)='CORN TOST TIWM MSST QMST SST1 TERC TIDER ' COMPRESS = .TRUE. NEMS = 4 ELSEIF(SUBSET.EQ.'SSTNV' .OR. . SUBSET.EQ.'SSTNS' .OR. . SUBSET.EQ.'SSTNVH') THEN NEMOS(1)='YEAR MNTH DAYS HOUR MINU SECO ' NEMOS(2)='SSTYPE SSTSRC SST1 ' COMPRESS = .TRUE. NEMS = 2 ELSEIF(SUBSET.EQ.'SSMIPN') THEN NEMOS(1)='uses definition in subroutine ssmipn ' COMPRESS = .TRUE. NEMS = 1 ELSEIF(SUBSET.EQ.'BATHY') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)='QMAT TMDB ' NEMOS(4)='TIWM QMWN WDIR WSPD ' NEMOS(5)='CORN TOWD IDGT MCMS IWTEMP WTEMPR ' NEMOS(6)='DBSS STMP SALN DROC SPOC ' COMPRESS = .FALSE. NEMS = 6 ELSEIF(SUBSET.EQ.'TESAC') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)='QMAT TMDB ' NEMOS(4)='TIWM QMWN WDIR WSPD ' NEMOS(5)='CORN TOWD IDGT MSDM MRMV IWTEMP WTEMPR ' NEMOS(6)='DBSS STMP SALN DROC SPOC ' COMPRESS = .FALSE. NEMS = 6 ELSEIF(SUBSET.EQ.'TRKOB') THEN NEMOS(1)='RPID SELV YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)='CORN ' NEMOS(4)='AVGPER ' NEMOS(5)='DBSS STMP SALN DROC SPOC ' COMPRESS = .FALSE. NEMS = 5 ELSEIF(SUBSET.EQ.'ERSHAL' .OR. . SUBSET.EQ.'TOPHAL' .OR. . SUBSET.EQ.'TOPLAL' .OR. . SUBSET.EQ.'GFOHAL') THEN NEMOS(1)='YEAR MNTH DAYS HOUR MINU ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)='CORN ECLN STKO NSLR SLHD ' COMPRESS = .TRUE. NEMS = 3 ELSEIF(SUBSET.EQ.'NERSAL' .OR. . SUBSET.EQ.'NGFOAL' .OR. . SUBSET.EQ.'NTPXAL' .OR. . SUBSET.EQ.'NJSNAL' .OR. . SUBSET.EQ.'ENVSAL') THEN NEMOS(1)='SAID YEAR MNTH DAYS HOUR MINU SECO ' NEMOS(2)='RCYR RCMO RCDY RCHR RCMI ' NEMOS(3)='SACYLN SCLF ORBN OBQL SLHD1 ' COMPRESS = .TRUE. NEMS = 3 ENDIF RETURN END