BYTE HEAD(512)
WRITE(IUN_RAD) (HEAD(I),I=1,512) ! header info BYTE
NTL ! NTL: number of fractional series INTEGER*2
KSIG = -1 * NANT ! new data format, linear array NANT ant. INTEGER*2
KWIN = -4 ! new data format, cartesian radials INTEGER*2
I2NX = NX ! Number of grid points LON INTEGER*2
I2NY = NY ! Number of grid points LAT INTEGER*2
I2NN = 0 ! Dummy, for compatibility INTEGER*2
WRITE(IUN_ERG) NTL,KSIG,KWIN,I2NX,I2NY,I2NN
C Write grid coordinates
C
WRITE(IUN_ERG) LAT !LAT(NX,NY)
WRITE(IUN_ERG) LON !LON(NX,NY)
C Write radial current components
C
C VRAD radial current velocity
C S2N signal to noise ratio
C POWR backscatter power
C
WRITE(IUN_ERG) KUR !KUR(NX,NY): number of contributions
WRITE(IUN_ERG) URM !URM(NX,NY): SUM(S2N * VRAD)
WRITE(IUN_ERG) URS !URS(NX,NY): SUM(S2N * VRAD**2)
WRITE(IUN_ERG) USM !USM(NX,NY): SUM(S2N)
WRITE(IUN_ERG) PWR !PWR(NX,NY): SUM(POWR)
|