BullRunHourlySO204122012.txt Line 1: Number of receptors and respective identifications Line 2: UTM North (km) coordinates for each receptor Line 3: UTM South (km) coordinates for each receptor Line 4: Ground elevation (m) for each receptor Next 168 Lines: Month,Day,Year,Hour,Min and SO2 concentration values for each receptor Line 173: Blank EXAMPLE Number of Receptors: 13 Recept ID: BR01 BR08 BR25 KG06 KG08 KG11 KG12 KG13 S000 S001 S002 T001 T002 UTM N (km) 3991.7061 3985.2070 3989.7390 3973.6550 3980.7590 3978.1531 3972.6050 3999.3010 3991.2949 3991.2949 3983.5161 3991.9819 3983.8479 UTM E (km) 759.4180 750.1510 749.0190 725.2580 723.4980 721.8830 719.2580 739.9180 758.8550 758.8550 751.5720 758.2070 753.8340 File MMDDYY HHMM Elev(m) 268.0000 250.0000 274.0000 229.0000 244.0000 323.0000 250.0000 1023.0000 269.0000 269.0000 265.0000 292.0000 281.0000 T1F1 072682 0100 1.0000 1.0000 1.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 T1F1 072682 0200 1.0000 1.0000 1.0000 -9.0000 8.0000 2.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 T1F1 072682 0300 1.0000 1.0000 1.0000 -9.0000 2.0000 1.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 . . . T1F1 080182 2200 5.0000 1.0000 5.0000 1.0000 1.0000 -9.0000 5.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 T1F1 080182 2300 3.0000 1.0000 4.0000 1.0000 1.0000 -9.0000 4.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 T1F1 080182 2400 3.0000 1.0000 3.0000 1.0000 1.0000 -9.0000 5.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 -9.0000 FORTRAN FORMATS NRecptors = number of receptors for this 7-day period (max number is 20). RecepID = receptor identifiers (Character*4). UTMNorth = UTM North-South Coordinate (km). UTMEast = UTM East-West Coordinate (km). RecpElev = receptor ground elevation (m). filename = Filename of original data archive file (Character*4). imon = month. iday = day of month. iyr = year (1982). ihr = hour (LST). imin = minute. SO2 = SO2 concentration (PPB). Read(FileIN,1010) NRecptors,(RecepID(jj),jj=1,NReceptors) 1010 format(21x,i3,13x,(3x,a4,3x)) Read(FileIN,1020) (UTMNorth(jj),jj=1,NReceptors) 1020 format(36x,20f10.4) Read(FileIN,1020) (UTMSouth(jj),jj=1,NReceptors) Read(FileIN,1020) (RecpElev(jj),jj=1,NReceptors) do ihrs=1,168 Read(FileIN,1030) filename,imon,iday,iyr,ihr,imin,(SO2(jj),jj=1,NReceptors) 1030 format(2x,a5,2x,3i2.2,2x,2i2.2,15x,20F10.4) end do Read(FileIN,'*')