############################################################################# # tau2pl.elan # # EROS3 script for tau2pl experiment. # # Versions: 1.00 Initial version, Feb. 2003 AW # Versions: 1.10 Change name to tau2pl from tau2_pl Oct. 2003 AW ############################################################################ # For UHF Tromso # 0-363 364 points zero lag from channel board 1 F13 (signal) # 364-727 364 points zero lag from channel board 1 F14 (signal) # 334-17103 29 lags with fractionality of 3 vector length 364 channel board 1 (signal) # 17104-17118 15 points calibration zero lag channel board 1 (signal) # 17119-17133 15 points background zero lag channel board 1 (signal) #### # 17134-17497 364 points zero lag background (gain) channel board 2 (gain channel) # 17498-17512 15 points calibration zero lag channel board 2 (gain channel) # Ion line height coverage: lowest partial decode range gate 50 km, lowest fully decoded # range gate 129 km, highest decoded range gate at 702 km #### CHANNEL 3 # 17513-19513 336 points plasma line 4.0 MHz zero lag + 5 lags AC # 19514-21514 336 points plasma line 4.78 MHz zero lag + 5 lags AC # 21515-21544 30 points background plasma line 4.0 MHz # 21545-21574 30 points background plasma line 4.78 MHz # 21575-21604 30 points calibration plasma line 4.0 MHz # 21605-21634 30 points calibration plasma line 4.78 MHz #### CHANNEL 4 # 21635-23635 336 points plasma line 5.45 MHz zero lag + 5 lags AC # 23636-25636 336 points plasma line 6.05 MHz zero lag + 5 lags AC # 25637-25666 30 points background plasma line 5.45 MHz # 25667-25696 30 points background plasma line 6.05 MHz # 25697-25726 30 points calibration plasma line 5.45 MHz # 25727-25756 30 points calibration plasma line 6.05 MHz #### CHANNEL 5 # 25757-27757 336 points plasma line 6.59 MHz zero lag + 5 lags AC # 27758-29758 336 points plasma line 7.09 MHz zero lag + 5 lags AC # 29759-29788 30 points background plasma line 6.59 MHz # 29789-29818 30 points background plasma line 7.09 MHz # 29819-29848 30 points calibration plasma line 6.59 MHz # 29849-29878 30 points calibration plasma line 7.09 MHz #### CHANNEl 6 # 29879-31879 336 points plasma line 7.56 MHz zero lag + 5 lags AC # 31880-33880 336 points plasma line 8.0 MHz zero lag + 5 lags AC # 33881-33910 30 points background plasma line 7.56 MHz # 33911-33940 30 points background plasma line 8.0 MHz # 33941-33970 30 points calibration plasma line 7.56 MHz # 33971-34000 30 points calibration plasma line 8.0 MHz #### ########################################################################### # For UHF Remotes # 0-63 64 points zero lag from channel board 1 F13 (signal) # 64-2339 29 lags lags with fractionality of 3 vector length 64 channel board 1 (signal) # 2340-2403 64 points calibration channel 1 # 2404-2659 256 points background channel 2 # 2660-2723 64 points calibration channel 2 # 2724-2979 264 points FFT background channel 2 ############################################################################# BLOCK tau2pl {{scan cp1} {owner CP} {height 292.9}} { set SCAN_PAT $scan ;# Scan pattern to use (cp1, cp2 or cp3) set Owner $owner ;# Who is running the experiment (CP, SW ... so on) set Height $height ;# Height used in cp1 cp2 and cp3 ############# # Definitions ############# set Version 1.10 ;# What version set HF 0 ;# If HF 1 than a nco file set with heating frq. will be loaded set XDIR /kst/exp/tau2pl ;# Default directory set DataDisk "/data" ;# Where should data go set FIR /kst/dsp/fir ;# Where we have fir filters set RADAR uhf ;# radar system used set Expname "tau2pl" ;# experiment name set LOOPC 14 ;# loops for one integration set SYNC 3200 ;# sync time between integrations set Iper_us 5000000 ;# Integration time in us set SCAN_FILE "/kst/exp/scans/kst/${SCAN_PAT}_pattern.elan" ;# Where we have the scan file # On what radar are we if {[ISKIR]|[ISSOD]} { set Site "r" } if {[ISUHF]} { set Site "u" } if { ${HF} == 1 } { set Version "${Version}HF" } set PAT_LIST [split $SCAN_PAT /] ;# Split the user supplied scanning path set SCAN_PAT1 [lindex $PAT_LIST [expr [llength $PAT_LIST]-1]] set Expid "kst0 ${Expname}_${Site}_${SCAN_PAT1}_${Version}_${Owner}" # Put the proper rtg_def to use depending on site exec cp $XDIR/rtg_def_${Site}.m $XDIR/rtg_def.m # Filter to use set Filter12 $FIR/b42d180.fir ;# +-42kHz filter for 12 usec sampling if {[ISKIR]|[ISSOD]} { set Filter45 $FIR/b42d180.fir ;# +-42kHz filter for 12 usec sampling } if {[ISUHF]} { set Filter3 $FIR/b42d90.fir ;# +-42 kHz filter for 6 usec sampling set Filter456 $FIR/b42d90.fir ;# +-42 kHz filter for 6 usec sampling } # NCO file to load into channels boards set NCO1 $XDIR/ch1_${Expname}-${Site}.nco set NCO2 $XDIR/ch2_${Expname}-${Site}.nco if {[ISKIR]|[ISSOD]} { set NCO4 $XDIR/ch5_${Expname}-${Site}.nco set NCO5 $XDIR/ch4_${Expname}-${Site}.nco } if {[ISUHF]} { if { ${HF} == 1 } { set NCO3 $XDIR/ch3_${Expname}_hf-${Site}.nco set NCO4 $XDIR/ch4_${Expname}_hf-${Site}.nco set NCO5 $XDIR/ch5_${Expname}_hf-${Site}.nco set NCO6 $XDIR/ch6_${Expname}_hf-${Site}.nco } else { set NCO3 $XDIR/ch3_${Expname}-${Site}.nco set NCO4 $XDIR/ch4_${Expname}-${Site}.nco set NCO5 $XDIR/ch5_${Expname}-${Site}.nco set NCO6 $XDIR/ch6_${Expname}-${Site}.nco } } # DSP file to use set Corrfile $XDIR/${Expname}-${Site}.fil if {[ISKIR]|[ISSOD]} { set Expfiles [list $XDIR/$Expname.elan $SCAN_FILE $Corrfile \ $XDIR/${Expname}-$Site.tlan $XDIR/rtg_def.m \ $NCO1 $NCO2 $NCO4 $NCO5 $Filter12 $Filter45] } elseif { [ISUHF] } { set Expfiles [list $XDIR/$Expname.elan $SCAN_FILE $Corrfile \ $XDIR/${Expname}-$Site.tlan $XDIR/rtg_def.m \ $NCO1 $NCO2 $NCO3 $NCO4 $NCO5 $NCO6 $Filter12 $Filter3 $Filter456] } ############# # Actual work ############# # Get all different scan patterns source ${SCAN_FILE} # Stop receiver -- SYNC -10 stopradar -rec if {[ISUHF]} { stopradar -trans } stopdata if {[ISUHF]} { mount $DataDisk ;# mount the desired data disk } # Load radar controller -- loadradar rec -loopc ${LOOPC} -sync ${SYNC} -file $XDIR/${Expname}-${Site}_${RADAR}.rbin -prog1 0 if {[ISUHF]} { loadradar trans -loopc ${LOOPC} -sync ${SYNC} -file $XDIR/${Expname}-${Site}_${RADAR}.tbin -prog1 0 } # Load filters -- loadfilter $Filter12 ch1,2 if {[ISKIR]|[ISSOD]} { loadfilter $Filter45 ch4,5 } if {[ISUHF]} { loadfilter $Filter3 ch3 loadfilter $Filter456 ch4,5,6 } # Set frequencies -- loadfrequency $NCO1 ch1 loadfrequency $NCO2 ch2 if {[ISKIR]|[ISSOD]} { loadfrequency $NCO4 ch4 loadfrequency $NCO5 ch5 } if {[ISUHF]} { loadfrequency $NCO3 ch3 loadfrequency $NCO4 ch4 loadfrequency $NCO5 ch5 loadfrequency $NCO6 ch6 } setfrequency ch1, ch2, ch3, ch4, ch5, ch6 12.0 # Start radar controllers -- SYNC 2 armradar rec -prog1 if {[ISUHF]} { armradar trans -prog1 } startradar EXPSTART [expr double($Iper_us)/double(1000000)] # Start data access -- SYNC 4 startdata $Corrfile $Expid $Iper_us # Write experiment files to the information dir. writeexperimentfile $Expfiles SYNC 4 disablerecording # Infinite loop, to be keep the experiment alive --------------------------- set ExpStart [timestamp [getstarttime exp]] set PAT_LIST [split $SCAN_PAT /] ;# Split the user supplied scanning path # for example ei/cp1 will give a list like this [ei cp] # next line just take the last command after the last / as the scan pattern set SCAN_PAT [lindex $PAT_LIST [expr [llength $PAT_LIST]-1]] gotoblock ${SCAN_PAT} $ExpStart $Expname $Height DO -1 { SYNC 100 } }; # tau2pl # proc name, scan name, owner, and height used for cp2/cp3 scan eval callblock tau2pl [argv]