| https:///weradocs/Header_SPEC2_Fortran.shtml |
Virtual block number 1 (00000001), 512 (0200) bytes 31202020 53454C50 4D415320 34323031 1024 SAMPLES 1 000000 55203033 3A333120 38302D72 614D2D37 7-Mar-08 13:30 U 000010 206C6C69 48207265 6B6E7542 20204354 TC Bunker Hill 000020 205A4E45 55514552 46203243 50534D46 FMSPC2 FREQUENZ 000030 20524145 59205A48 4D303938 2E303120 10.890MHZ YEAR 000040 203A4547 4E415220 20202020 38303032 2008 RANGE: 000050 4E455552 542C4D4B 20303030 352E3120 1.5000 KM,TRUEN 000060 41522C44 41524720 3520203A 4854524F ORTH: 5 GRAD,RA 000070 52524E2C 53303030 3036322E 303A4554 TE:0.260000S,NRR 000080 38313331 30302030 30313A53 45474E41 ANGES:100 001318 000090 2D37312D 3830303A 45474E45 414C2034 4 LAENGE:008-17- 0000A0 342D3435 203A4554 49455242 45203030 00 EBREITE: 54-4 0000B0 35202020 3D4C544E 20204E20 34322D37 7-24 N NTL= 5 0000C0 38203D78 6E203231 35203D6C 74666E20 nftl= 512 nx= 8 0000D0 3A544553 46464F20 3031313D 796E2035 5 ny=110 OFFSET: 0000E0 2020203A 54455346 464F5852 20332E30 0.3 RXOFFSET: 0000F0 30303030 2E302053 53302020 20202020 0SS 0.0000 000100 20202020 20202020 20202020 20203030 00 000110 2072656B 6E754220 534D4F20 41524557 WERA OMS Bunker 000120 20202020 20746C79 53202F20 6C6C6948 Hill / Sylt 000130 20202020 20202020 20202020 20202020 000140 20202020 20202020 20202020 20202020 000150 20202020 20202020 20202020 20202020 000160 20202020 20202020 20202020 20202020 000170 20202020 20202020 20202020 20202020 000180 20202020 20202020 20202020 20202020 000190 20202020 20202020 20202020 20202020 0001A0 20202020 20202020 20202020 20202020 0001B0 20303239 34202020 20202020 564F434E NCOV 4920 0001C0 20373636 3136352E 35352020 3D54414C LAT= 55.561667 0001D0 20373636 3631322E 36202020 3D4E4F4C LON= 6.216667 0001E0 20303030 3030302E 32202020 3D544744 DGT= 2.000000 0001F0 |
This is a FORTRAN program to read and decode the header:
OPTIONS /EXTEND_SOURCE
C
C EXAMPLE_READ_HEADER.FOR 24-SEP-1999 GURGEL
C
PROGRAM EXAMPLE_READ_HEADER
INTEGER IUN_DAT
CHARACTER*100 WERA_DAT
INTEGER IOS
C Header
C
BYTE HEAD(512)
INTEGER NSER ! Nunber of samples
INTEGER DAY ! DATE AND TIME
CHARACTER*3 MONTH ! "
INTEGER YEAR ! "
INTEGER HH ! "
INTEGER MM ! "
CHARACTER*3 TIME_BASE ! UTC, MEZ, LOC
CHARACTER*12 SITE_NAME ! Name of radar site
CHARACTER*6 MODE ! Mode of data set:
! FMSOCO -> FMchirp, SOrted, COrrected
! UNSORT -> CODAR UNSORTED data
! SORT -> CODAR SORTED data
REAL FREQ ! WERA working frequency in MHz
REAL RANGE_WIDTH ! Range cell width [km]
INTEGER NORD ! "True" North (direction of array)
REAL DELTA_T ! Sample-Abstand (sec)
INTEGER NROB ! Farest range cell number (1 to 128)
INTEGER LAT_GRAD, LAT_MIN, LAT_SEC
CHARACTER*1 EAST_OR_WEST
INTEGER LON_GRAD, LON_MIN, LON_SEC
CHARACTER*1 NORTH_OR_SOUTH
INTEGER WINDOW ! 2 means Blackman-Harris window
! used for range resolution
INTEGER NX ! Number of gridpoints to the East
INTEGER NY ! Number of gridpoints to the South
REAL RAN_OFF ! Distance zero at range cell #
C*******************************************************************************
C
C Open the data file
C
IUN_DAT = 1
WERA_DAT = '$DATA1:[GURGEL.PETTEN.GRID]963180000.VRA_WERA_SPEC'
CALL OPEN_READ(IUN_DAT,WERA_DAT,IOS)
C*******************************************************************************
C
C Read header information (512 bytes) from unit IUN_DAT to HEAD
C
CALL READ_HEADER_WERA(IUN_DAT,HEAD)
C
C*******************************************************************************
C
C
DECODE( 4,'(I4)' , HEAD( 1)) NSER
DECODE( 2,'(I2)' , HEAD( 16)) DAY
DECODE( 3,'(A3)' , HEAD( 19)) MONTH
DECODE( 4,'(I4)' , HEAD( 81)) YEAR ! Additional entry for Y2K
DECODE( 2,'(I2)' , HEAD( 26)) HH
DECODE( 2,'(I2)' , HEAD( 29)) MM
DECODE( 3,'(A3)' , HEAD( 32)) TIME_BASE
DECODE(12,'(A12)' , HEAD( 37)) SITE_NAME
DECODE( 6,'(A6)' , HEAD( 49)) MODE
DECODE( 6,'(F6.2)', HEAD( 65)) FREQ
DECODE( 7,'(F7.4)', HEAD( 97)) RANGE_WIDTH
DECODE( 3,'(I3)' , HEAD(118)) NORD
DECODE( 8,'(F8.6)', HEAD(132)) DELTA_T
DECODE( 3,'(I3)' , HEAD(151)) NROB
DECODE( 3,'(I3)' , HEAD(170)) LON_GRAD
DECODE( 2,'(I2)' , HEAD(174)) LON_MIN
DECODE( 2,'(I2)' , HEAD(177)) LON_SEC
DECODE( 1,'(A1)' , HEAD(180)) EAST_OR_WEST
DECODE( 3,'(I3)' , HEAD(188)) LAT_GRAD
DECODE( 2,'(I2)' , HEAD(192)) LAT_MIN
DECODE( 2,'(I2)' , HEAD(195)) LAT_SEC
DECODE( 1,'(A1)' , HEAD(198)) NORTH_OR_SOUTH
DECODE( 1,'(I1)' , HEAD(218)) WINDOW
DECODE( 2,'(I2)' , HEAD(224)) NX
DECODE( 2,'(I2)' , HEAD(231)) NY
DECODE( 4,'(F4.2)', HEAD(241)) RAN_OFF
TYPE *, 'NSER............ ',NSER
TYPE *, 'DAY............. ',DAY
TYPE *, 'MONTH........... ',MONTH
TYPE *, 'YEAR............ ',YEAR
TYPE *, 'HH.............. ',HH
TYPE *, 'MM.............. ',MM
TYPE *, 'TIME_BASE....... ',TIME_BASE
TYPE *, 'SITE_NAME....... ',SITE_NAME
TYPE *, 'MODE............ ',MODE
TYPE *, 'FREQ............ ',FREQ
TYPE *, 'RANGE_WIDTH..... ',RANGE_WIDTH
TYPE *, 'NORD............ ',NORD
TYPE *, 'DELTA_T......... ',DELTA_T
TYPE *, 'NROB............ ',NROB
TYPE *, 'LON_GRAD........ ',LON_GRAD
TYPE *, 'LON_MIN......... ',LON_MIN
TYPE *, 'LON_SEC......... ',LON_SEC
TYPE *, 'EAST_OR_WEST.... ',EAST_OR_WEST
TYPE *, 'LAT_GRAD........ ',LAT_GRAD
TYPE *, 'LAT_MIN......... ',LAT_MIN
TYPE *, 'LAT_SEC......... ',LAT_SEC
TYPE *, 'NORTH_OR_SOUTH.. ',NORTH_OR_SOUTH
TYPE *, 'WINDOW.......... ',WINDOW
TYPE *, 'NX.............. ',NX
TYPE *, 'NY.............. ',NY
TYPE *, 'RAN_OFF......... ',RAN_OFF
CALL EXIT
END