Updated on October 30, 2017 by Emma Unander

meteor-u.tlan


%%%%%%%%%%%%%%%%%%%%
% Written by Assar Westman/Gudmund Wannberg EISCAT HQ
%%%%%%%%%%%%%%%%%%%%
SETTCR	0
AT	1	CHQPULS,STFIR
AT	5.0	BUFLIP
AT	10.0	RXPROT,LOPROT
AT	40.0	BEAMON,F5
%%%%
%%%% - RF TRANSMISSION -
%%%%
%%%%%% Tromso TRX
AT	80 	RFON,PHA180 		% +++++++
AT	96.8 	PHA0 		% -
AT	99.2 	PHA180 		% +
AT	101.6 	PHA0 		% -
AT	104.0 	PHA180 		% ++
AT	108.8 	PHA0 		% -
AT	111.2 	PHA180 		% +
AT	113.6 	PHA0 		% -
AT	116.0 	PHA180 		% +
AT	118.4 	PHA0 		% ---
AT	125.6 	PHA180 		% +++
AT	132.8 	PHA0 		% --
AT	137.6 	PHA180 		% ++
AT	142.4 	PHA0 		% -
AT	144.8 	PHA180 		% ++
AT	149.6 	PHA0 		% --
AT	154.4 	PHA180 		% + 
AT	156.8	RFOFF,PHA0
AT	157.0	F12
SETTCR	90
%%%%%% Remote TRX
AT	80 	RFON,PHA180 		% +++++++
AT	96.8 	PHA0 		% -
AT	99.2 	PHA180 		% +
AT	101.6 	PHA0 		% -
AT	104.0 	PHA180 		% ++
AT	108.8 	PHA0 		% -
AT	111.2 	PHA180 		% +
AT	113.6 	PHA0 		% -
AT	116.0 	PHA180 		% +
AT	118.4 	PHA0 		% ---
AT	125.6 	PHA180 		% +++
AT	132.8 	PHA0 		% --
AT	137.6 	PHA180 		% ++
AT	142.4 	PHA0 		% -
AT	144.8 	PHA180 		% ++
AT	149.6 	PHA0 		% --
AT	154.4 	PHA180 		% + 
AT	156.8	RFOFF,PHA0,BEAMOFF
AT	356.8	RXPOFF
AT	406.8	LOPOFF
SETTCR	0
%%%% SIGNAL RECEPTION
AT	880.0	CH1,CH2
%% The next long block is a replica of the transmitter code
%% used for test purposes
AT	920 	BRX4,B5OFF 		% +++++++
AT	936.8 	BRX5 		% -
AT	939.2 	BRX5OFF 		% +
AT	941.6 	BRX5 		% -
AT	944.0 	BRX5OFF 		% ++
AT	948.8 	BRX5 		% -
AT	951.2 	BRX5OFF 		% +
AT	953.6 	BRX5 		% -
AT	956.0 	BRX5OFF 		% +
AT	958.4 	BRX5 		% ---
AT	965.6 	BRX5OFF 		% +++
AT	972.8 	BRX5 		% --
AT	977.6 	BRX5OFF 		% ++
AT	982.4 	BRX5 		% -
AT	984.8 	BRX5OFF 		% ++
AT	989.6 	BRX5 		% --
AT	994.4 	BRX5OFF 		% + 
AT	996.8	BRX4OFF,BRX5
%% test tranmission block stop here
AT	1192.0	ALLOFF
AT	1197.0	NCOSEL1
AT	1777.0	CH1,CH2
AT	1837.0	ALLOFF
%%%% CALIBRATION ON CHANNEL CH1,CH2
AT	1857.0	CALON
AT	1877.0	CH1,CH2
AT	1937.0	ALLOFF,CALOFF
%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%
% Code cut here
.
.
.
.
.
.
SETTCR	0
AT	4329.0	STC
AT	4334.0	REP



meteor.elan


# -*- tcl -*-
#############################################################################
# meteor.elan
#
#   EROS3 script for meteor experiment. 
#	AZs=312.68 ELs=18.95
#	AMPs=-21.83 PHAs=90	
#   Versions: 1.00  Initial version, Feb. 2002
#   Version: 2.00 same elan file for all sites Sep. 2002
#   Version 2.00 we have 2.4 us sampling on the slow channel which is
#   matched to the Baud length
#
#   Assar Westman 
#
############################################################################
proc meteor { azim  elev altitude } {
    set Azim  $azim                 ;# These values will go to parameteor block
    set Elev  $elev                 ;# 

    #############
    # Definitions
    #############
    set Azim  $azim                 ;# these values will go to parameteor block
    set Elev  $elev                 ;# 
    set Altitude $altitude          ; 
    set XDIR /kst/exp/ei/meteor2
    set FIR /kst/dsp/fir

    if {[ISSOD ]|[ISKIR]} {set Expname  "meteor-r
	                   set Expid    "kst0 meteor-r 2.00
                           set NCO1 $XDIR/ch1_meteor-r.nco
                           }

    if [ISUHF ] {set Expname  "meteor-u
	            set Expid    "kst0 meteor-u 2.00
	            set Data_Disk  "/data2
                    set NCO1 $XDIR/ch1_meteor-u.nco
	        }
    set Corrfile $XDIR/$Expname.fil
    set Iper_us  5000000
    set RADAR  uhf


    set Filter $FIR/b900d9.fir     ;# +-900 KHz filter for 0.6 usec sampling
    set Filter2 $FIR/b210d36.fir   ;# +-210 KHz filter for 2.4 usec sampling

    #############
    # Actual work
    #############

    # Stop receiver --

    SYNC -10

    stopradar -all
    stopdata
    if [ISUHF] {mount $Data_Disk}

    # Load radar controller --
    if {[ISSOD ]|[ISKIR]} {
    loadradar rec -loopc 1153 -sync 28980 -file $XDIR/meteor-r_uhf.rbin  -prog1 0    
	                  }

    if [ISUHF] {
	loadradar rec -loopc 1153 -sync 28980 -file $XDIR/meteor-u_uhf.rbin  -prog1 0    
        loadradar trans -loopc 1153 -sync 28980 -file $XDIR/meteor-u_uhf.tbin -prog1 0    
               }

    # Load filters --

    loadfilter $Filter ch1
    loadfilter $Filter2 ch2

    # Set frequencies --

    loadfrequency $NCO1 ch1,ch2
    setfrequency ch1 11.6
    setfrequency ch2 11.6
    # Start radar controllers --

    SYNC 2
    armradar rec -prog1
    if [ISUHF] {armradar trans -prog1}
    startradar EXPSTART 5.00

    if [ISSOD] { setpolariser  90.0 -21.8  }
    if [ISKIR] { setpolariser  330.6 10.7  }
    # Poke antenna parameteors to rtcommon ---------------------------------------

    pointrheight $Azim $Elev $Altitude

    # Start data access ---------------------------------------------------------

    SYNC 4
    startdata $Corrfile $Expid $Iper_us

    # Start recording ------------------------------------------------------------

    SYNC 4
    disablerecording

    # Infinite loop, to be keep the experiment alive ---------------------------
    DO -1 {
        DISP "[TimeStamp now -noyear] -- $Expname running
        SYNC 60
    }    
};
meteor 125.8 35.3 96.0



meteor-u.fil


%%%%%%
% Written by Assar Westman EISCAT HQ
%%%%%%
nr_stc=1;
% Channel one
channel=1;
% Data layout in channel board memory channel 1:
% 0-519 Signal from F5 
% 520-619 Background (F9)
% 620-719 Noise+Background (F9)
% 720-1239 Signal from F9
% 1240-1339 Background (F5)
% 1340-1439 Noise+Background (F5)
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Some remarks on raw data taking!
% The raw data taking are very demanding on the avaible CPU resources, 
% especially during the start period of a new integration period. During the
% start period the crate computer which have only one CPU must do data dumping
% to server and also take care of STC interrupts and data computations in 
% parallel (multi threaded). The handling of the STC interrupts are very time
% consuming, during the data dumping periods and short IPP STC
% interrupts can be very easily lost. To make as robust experiments as possible
% one should try to have the IPP or the time between STC as long as possible.
% If you have STC to STC shorter than a couple of ms you can get into trouble,
% but one should know that it is no clear rules, you need to do tests with
% your experiment and try different approaches and se what works best.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
type=0;			% This is a raw data data block
	vec_len=520;	% We have 520 data points in channel board memory
	sub_vec_len=520;% We will dump all of these 520 data points
	sub_data_start=0;% Data starts at 0 
	data_start=0;	% These data are the first in channel board memory
	nr_loops=1;	% We have one complete data cycle in each IPP
	nr_rep=1153;	% We have 1153 IPP in each integration period
	res_mult=1153;	% We want to store all of these IPP individual
	res_save=1;	% We will save these raw data temporarily on the server
			% and use them later, look for the res_use=1;
	send_raw=1;	% Store all IPP for one integration period localy
			% on the crate computer before dump it over to the
			% server for further data handling
	raw_short=1;	% Save the result as 16+16 bit real/imag. pairs
			% in a separate vector called d_raw in the matlab file
			% to save space. Data in d_data are saved as
			% 32+32 bit floats
end_type
type=1;			% A lag profile calculation 
	vec_len=520;	% We have a total of 520 data points in channel board mem.
	sub_vec_len=520;% We will deal with 520 data points
	data_start=0;	% Thes data starts at position 0 in channel board mem.
	max_lag=0;	% Calculate a power profile
	nr_loops=1;	% One data cycle in the IPP
	fir_len=128;	% We have 128 bit FIR filter
	fir_file=b128_inv.txt;	% Where to find the taps for this filter
	nr_rep=1153;	% We will do 1153 IPP for a one integration period
	res_mult=1;	% Integrate all data into one single power profile
	res_use=1;	% Use the same raw data as used where we had res_save=1;
	send_raw=1;	% Do the calulations on the server
end_type
			% The next type will be calculated in crate computer 
			% a calculation every IPP and data will be integrated
			% for the whole integration period
type=1;			% Power profile
	vec_len=100;	% 100 data points
	data_start=520;	% Data start at position 520 in channel board mem.
	max_lag=0;	% A power profile
end_type
%%%%%%%%%
% The up coming types are in principal exactly the same as the above. 
% The differences are where the data can be found (channel baords and data_start)
%%%%%%%%%
type=1;
	vec_len=100;
	data_start=620;
	max_lag=0;
end_type
type=0;
	vec_len=520;
	sub_vec_len=520;
	data_start=720;
	nr_loops=1;
	nr_rep=1153;
	res_mult=1153;
	res_save=1;
	send_raw=1;
	raw_short=1;
end_type
type=1;
	vec_len=520;
	sub_vec_len=520;
	data_start=720;
	max_lag=0;
	nr_loops=1;
	fir_len=128;
	fir_file=b128_inv.txt;
	nr_loops=1;
	nr_rep=1153;
	res_mult=1;
	res_use=1;
	send_raw=1;
end_type
% Code cut here
.
.
.
.
end_chan
channel=2;
type=1;
	vec_len=130;
	fir_len=32;
	fir_file=b32_inv.txt;
	data_start=0;
	max_lag=0;
end_type
type=1;
	vec_len=25;
	data_start=130;
	max_lag=0;
end_type
type=1;
	vec_len=25;
	data_start=155;
	max_lag=0;
end_type
% Code cute here
.
.
.
.
end_chan