************************************************************ * * This file contains variables used in the ISH format. * It has been copied into the source at the user's request. * Program author: Neal Lott * Coding also by Ann Barrett / Fred Smith of TMC/MARADA Y2K Team * C----------- DEFINED AS REALS ------------------- REAL PCP6, PCP24, TTAVG2, TTDIFF, PCPPRV, MAXDIF, MINDIF, PCP24P, 1 PCP12, PCP6A, PCP6B, PCP6C, PCP6D, PCP12A, PCP12B, PCPTOT, 2 MAXTMP, MINTMP, MAXAVG, MAXSUM, MINAVG, MINSUM, MAXCHK, MINCHK, 3 TTF, TTAVG, TTSUM, TDDF, TDDAVG, TDDSUM, THRMAX, THRMIN, 4 SPEEDK, SPDAVG, SPDSUM, GUSTK, SPDMAX, GSTMAX, GSTALL, 5 SLPIN, SLPMB, SLPAVG, SLPSUM, STPMB, STPAVG, STPSUM, PCPRAT, 6 VISBYM, VISAVG, VISSUM, SNDPIN, GUSTK2, GSTMX2, SNDPPV, SNDPCK, 7 SPDPRV, GSTPRV, GSTPR2, WNDCK1, WNDCK2, WNDCK3, MAXPRV, MINPRV C----- DEFINED AS CHARACTERS: CHARACTER ADDL*1 (10000), ADDL1*10000 CHARACTER*5 PREC6,PREC24,PREC12,STP CHARACTER*4 GUST2 CHARACTER*4 REM(94),INDAA,MAX,MIN CHARACTER*3 SNDP CHARACTER*2 IND1, IND2, IND3, IND4,IND5,IND6,IND7,IND8 CHARACTER*2 IND9, IND10, IND11, IND12 CHARACTER*1 FLAG, PCPIND, MAXFLG, MINFLG C-------- Control section fields CHARACTER CONTROL*56, TPRPT*5, C_STNID*5, C_METPOB*4, 1 MANDATORY*45, SECID*3, DATAID*3 C-------- Mandatory section fields CHARACTER*1 MWO_DIR_QC,MWO_TYPE,MWO_SPE_QC,MSCO_QC,MSCO_DC, 1 M_CAVOK,MVO_DIST_QC,CV,MVO_QVC,MATO_TT_QC,MATO_TDD_QC, 2 MATO_SLP_QC C-------- Additional section fields - These fields are optional C ------- in the records being processed. CHARACTER AA1DATA*8, AA2DATA*8, AA3DATA*8, AA4DATA*8, 1 AC1DATA*3, AG1DATA*4, AJ1DATA*14, HL1DATA*4, AL1DATA*7, 2 AL2DATA*7, AL3DATA*7, AL4DATA*7, MW1DATA*3, MW2DATA*3, 3 MW3DATA*3, MW4DATA*3, MW5DATA*3, MW6DATA*3, MW7DATA*3, 4 AW1DATA*3, AY1DATA*5, AY2DATA*5, AZ1DATA*5, AZ2DATA*5, 5 ED1DATA*8, GA1DATA*13, GA2DATA*13, GA3DATA*13, GA4DATA*13, 6 GA5DATA*13, GA6DATA*13, GF1DATA*23, GD1DATA*12, GD2DATA*12, 7 GD3DATA*12, GD4DATA*12, GG1DATA*15, GG2DATA*15, GG3DATA*15, 8 GG4DATA*15, GG5DATA*15, GG6DATA*15, GJ1DATA*5, IA1DATA*3, 9 IA2DATA*9, KA1DATA*10, KA2DATA*10, MA1DATA*12, MD1DATA*11, A ME1DATA*6, OA1DATA*8, OA2DATA*8, OA3DATA*8, OC1DATA*5, B SA1DATA*5, UA1DATA*10, UG1DATA*9, UG2DATA*9, WA1DATA*6, C WG1DATA*11, WD1DATA*20, MV1DATA*3, MV2DATA*3, MV3DATA*3, D MV4DATA*3, MV5DATA*3, MV6DATA*3, MV7DATA*3 C------ Define the field width for every DATAID type. PARAMETER (IDS=68) !number of id types CHARACTER ID*3 (IDS), STRING*1(21) INTEGER W*1 (IDS) C------ The following data statements associate a record ID type C with it's decoded width: DATA (ID(I),I= 1, 6)/"AA1","AA2","AA3","AA4","AC1","AG1"/ DATA ( W(I),I= 1, 6)/ 8 , 8 , 8 , 8 , 3 , 4 / DATA (ID(I),I= 7,12)/"AJ1","HL1","AL1","AL2","AL3","AL4"/ DATA ( W(I),I= 7,12)/ 14 , 4 , 7 , 7 , 7 , 7 / DATA (ID(I),I=13,18)/"MW1","MW2","MW3","MW4","MW5","MW6"/ DATA ( W(I),I=13,18)/ 3 , 3 , 3 , 3 , 3 , 3 / DATA (ID(I),I=19,24)/"MW7","AW1","AY1","AY2","AZ1","AZ2"/ DATA ( W(I),I=19,24)/ 3 , 3 , 5 , 5 , 5 , 5 / DATA (ID(I),I=25,30)/"ED1","GA1","GA2","GA3","GA4","GA5"/ DATA ( W(I),I=25,30)/ 8 , 13 , 13 , 13 , 13, 13 / DATA (ID(I),I=31,36)/"GA6","GF1","GD1","GD2","GD3","GD4"/ DATA ( W(I),I=31,36)/ 13 , 23 , 12, 12, 12, 12 / DATA (ID(I),I=37,42)/"GG1","GG2","GG3","GG4","GG5","GG6"/ DATA ( W(I),I=37,42)/ 15 , 15 , 15 , 15 , 15 , 15 / DATA (ID(I),I=43,48)/"GJ1","IA1","IA2","KA1","KA2","MA1"/ DATA ( W(I),I=43,48)/ 5 , 3 , 9 , 10 , 10 , 12 / DATA (ID(I),I=49,54)/"MD1","ME1","OA1","OA2","OA3","OC1"/ DATA ( W(I),I=49,54)/ 11 , 6 , 8 , 8 , 8 , 5 / DATA (ID(I),I=55,60)/"SA1","UA1","UG1","UG2","WA1","WG1"/ DATA ( W(I),I=55,60)/ 5 , 10 , 9 , 9 , 6 , 11 / DATA (ID(I),I=61,61)/"WD1"/ DATA ( W(I),I=61,61)/ 20 / DATA (ID(I),I=62,68)/"MV1","MV2","MV3","MV4","MV5","MV6","MV7"/ DATA ( W(I),I=62,68)/ 3, 3, 3, 3, 3, 3, 3 / C------------------------------------------------------------------- INTEGER C_RECLEN, 1 STN, YEAR, MO, DA, HR, MN, LAT, LON, STNELV, ! CONTROL FIELDS 2 YRPRV, MOPRV, DAPRV, HRPRV, LATPRV, ELVPRV, 3 DIR, SPEED, HH, VISBY, TT, TDD, SLP, ! MANDATORY FIELDS 4 TMPPREC, PRCP12, PRCP24, 5 INDA12, TMSHFT, HR06P, HR12P, HR24P, HR24CK, 6 TTCNT, TDDCNT, SLPCNT, STPCNT, MAXCNT, MINCNT, SPDCNT, GSTCNT, 7 VISCNT, OPCNT, PCPFLG, STNPRV, WW, STPC, WXIND, 8 FOG, RAIN, SNOW, HAIL, THNDER, TORN,WBAN,WBANPRV INTEGER*4 OBCNT EQUIVALENCE (ADDL1, ADDL) COMMON !/REALS/ 1 PCP6, PCP24, TTAVG2, TTDIFF, PCPPRV, MAXDIF, MINDIF, PCP24P, 2 PCP12, PCP6A, PCP6B, PCP6C, PCP6D, PCP12A, PCP12B, PCPTOT, 3 MAXTMP, MINTMP, MAXAVG, MAXSUM, MINAVG, MINSUM, MAXCHK, MINCHK, 4 TTF, TTAVG, TTSUM, TDDF, TDDAVG, TDDSUM, THRMAX, THRMIN, 5 SPEEDK, SPDAVG, SPDSUM, GUSTK, SPDMAX, GSTMAX, GSTALL, 6 SLPIN, SLPMB, SLPAVG, SLPSUM, STPMB, STPAVG, STPSUM, PCPRAT, 7 VISBYM, VISAVG, VISSUM, SNDPIN, GUSTK2, GSTMX2, SNDPPV, SNDPCK, 8 SPDPRV, GSTPRV, GSTPR2, WNDCK1, WNDCK2, WNDCK3, MAXPRV, MINPRV C------ INTEGERS COMMON !/INTEGERS/ 1 C_RECLEN, ! Control fields 2 STN, YEAR, MO, DA, HR, MN, LAT, LON, STNELV, ! Control 3 YRPRV, MOPRV, DAPRV, HRPRV, LATPRV, ELVPRV, ! Derived 4 DIR, SPEED, HH, VISBY, TT, TDD, SLP, ! Mandatory Fields 5 OBCNT, TMPPREC, PRCP12, PRCP24, 6 INDA12, TMSHFT, HR06P, HR12P, HR24P, HR24CK, 7 TTCNT, TDDCNT, SLPCNT, STPCNT, MAXCNT, MINCNT, SPDCNT,GSTCNT, 8 VISCNT, OPCNT , PCPFLG, STNPRV, WW, STPC, WXIND,WBANPRV, 9 FOG, RAIN, SNOW, HAIL, THNDER, TORN,WBAN, &HR12CK, HRDIF, IRUSSI, & K, K1, K2, MAX2, & MIN2, MNCHK, MXCHK, P00, & P06, P12, P18, P24, &PCPCHK, PRCP6, SNDP2, STNIND, &TIMIND, TPCNT, AWDCT, GUSTI, &HR06CK COMMON !/CHARACTERS/ 1 ADDL, 2 PREC6,PREC24,PREC12,STP, 3 GUST2, 4 REM,INDAA,MAX,MIN, 5 SNDP , 6 IND2,IND3,IND4,IND5,IND6,IND7,IND8, 7 IND9,IND10,IND11,IND12, 8 FLAG,PCPIND,MAXFLG,MINFLG C-------- Control section fields COMMON CONTROL, TPRPT, C_STNID, C_METPOB, 1 MANDATORY, SECID, DATAID C-------- Mandatory section fields COMMON MWO_DIR_QC, MWO_TYPE, MWO_SPE_QC, MSCO_QC, MSCO_DC, 1 M_CAVOK, MVO_DIST_QC, CV, MVO_QVC, MATO_TT_QC, 2 MATO_TDD_QC, MATO_SLP_QC C-------- Additional section fields - These fields are optional C ------- in the records being processed. COMMON AA1DATA, AA2DATA, AA3DATA, AA4DATA, 1 AC1DATA, AG1DATA, AJ1DATA, HL1DATA, AL1DATA, 2 AL2DATA, AL3DATA, AL4DATA, MW1DATA, MW2DATA, 3 MW3DATA, MW4DATA, MW5DATA, MW6DATA, MW7DATA, 4 AW1DATA, AY1DATA, AY2DATA, AZ1DATA, AZ2DATA, 5 ED1DATA, GA1DATA, GA2DATA, GA3DATA, GA4DATA, 6 GA5DATA, GA6DATA, GF1DATA, GD1DATA, GD2DATA, 7 GD3DATA, GD4DATA, GG1DATA, GG2DATA, GG3DATA, 8 GG4DATA, GG5DATA, GG6DATA, GJ1DATA, IA1DATA, 9 IA2DATA, KA1DATA, KA2DATA, MA1DATA, MD1DATA, A ME1DATA, OA1DATA, OA2DATA, OA3DATA, OC1DATA, B SA1DATA, UA1DATA, UG1DATA, UG2DATA, WA1DATA, C WG1DATA, WD1DATA