| https:///weradocs/Header_SPEC_Fortran.shtml |
Virtual block number 1 (00000001), 512 (0200) bytes 31202020 53454C50 4D415320 38343032 2048 SAMPLES 1 000000 55203531 3A343020 30302D54 434F2D38 8-OCT-00 04:15 U 000010 20736572 726F542D 6F626143 20204354 TC Cabo-Torres 000020 5A4E4555 51455246 20204345 50534D46 FMSPEC FREQUENZ 000030 20524145 59205A48 4D203536 2E373220 27.65 MHZ YEAR 000040 203A4547 4E415220 20202020 30303032 2000 RANGE: 000050 4E455552 542C4D4B 20393230 322E3120 1.2029 KM,TRUEN 000060 41522C44 41524720 3539203A 4854524F ORTH: 95 GRAD,RA 000070 52524E2C 53303030 3036322E 303A4554 TE:0.260000S,NRR 000080 20202020 20202034 36203A53 45474E41 ANGES: 64 000090 2D32342D 3530303A 45474E45 414C2020 LAENGE:005-42- 0000A0 332D3334 203A4554 49455242 57203030 00 WBREITE: 43-3 0000B0 33312020 3D4C544E 20204E20 38312D34 4-18 N NTL= 13 0000C0 36203D58 4E203231 35203D4C 54464E20 NFTL= 512 NX= 6 0000D0 3A544553 46464F20 3036203D 594E2030 0 NY= 60 OFFSET: 0000E0 365F6469 72675F6E 6F6A6947 20352E30 0.5 Gijon_grid_6 0000F0 20202020 20202020 6373612E 30365F30 0_60.asc 000100 20202020 20202020 20202020 20202020 000110 6D697265 70784520 45534F52 6F727545 EuroROSE Experim 000120 20295545 4E28204E 4F4A4947 20746E65 ent GIJON (NEU) 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 20202020 20202020 20202020 20202020 0001C0 20333536 3639302E 34342020 3D54414C LAT= 44.096653 0001D0 20353636 3636382E 352D2020 3D4E4F4C LON= -5.866665 0001E0 20303030 3030302E 31202020 3D544744 DGT= 1.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 #
CHARACTER*12 GRID_NAME ! Name of file containing positions
! of the (NX*NY) grid points
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
DECODE(12,'(A12)' , HEAD(245)) GRID_NAME
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
TYPE *, 'GRID_NAME....... ',GRID_NAME
CALL EXIT
END