#!/usr/local/bin/perl -w ### $Id$ ### Author: GRHamell ### NAME: 22ne20ne.pl ### Copyright (c) 2003, California Institute of Technology. All rights ### reserved. Unauthorized reproduction prohibited. ### ### ### CALLING SEQUENCE: perl 22ne20ne.pl ### ### PURPOSE: ### This script contains a contribution from Dr.R.Leske. ### It generates a web page containing the 22Ne/20Ne ratio in ### 32 large SEP events from launch through the end of 2001. ### A link to this web page is made from ### http://www.srl.caltech.edu/ACE/ASC/DATA/level3/index.html ### ### INPUT: ### ### ### OUTPUT: ### ### ### RETURN: ### ### ### MODIFICATION HISTORY: ### ===================== ### 2003 Apr 25 - GRHamell, Created. ### ################################################### $date = `date`; # FILENAMES $tbl_out = "sep_ne_ratios.html"; # Output HTML file #$tbl_out = "gh_tbl_out.html"; $filein = "22ne20ne.dat" ; # input filename open(HTML_PG, ">$tbl_out") or die "can't open file $tbl_out"; open(FH, "<$filein" ) or die "can't open file $filein"; # get records: yr doy doy ratio +/- @yddr = ; $i_last = $#yddr ; # & index of last element of list @yddr = reverse @yddr ; # put most current first #print "@yddr\n"; print HTML_PG " ACE/SIS Neon isotope ratios in Large SEP Events

Solar Energetic Particle ²²Ne/²⁰Ne Ratios from ACE/SIS

~15-72 MeV/nucleon

"; print HTML_PG "

\n"; $yr_frst = 0; $yr_last = 0; # Find the First & last YEAR values $yddr[ 0 ] =~ /(\d\d\d\d).*/ ; $yr_frst = $1; $yddr[ $i_last ] =~ /(\d\d\d\d).*/ ; $yr_last = $1; #print "yr_last='$yr_last'\n"; # Make Links (jump tbl) to each year $yr = $yr_frst; print HTML_PG "

$yr\n"; $yr--; } print HTML_PG "
References\n"; print HTML_PG "

\n"; # Get separate list for each year #print HTML_PG "\n"; $yr = $yr_frst; while( $yr >= $yr_last ) { $ftnoteflg = "off"; # used to control printing of foot note print HTML_PG "

\n"; print HTML_PG " $\"top\"$ "; print HTML_PG "

\n" ; print HTML_PG "\n
"; print HTML_PG "Large SEPs for year $yr"; print HTML_PG "\n"; print HTML_PG "
\n"; print HTML_PG ""; print HTML_PG ""; print HTML_PG ""; print HTML_PG ""; print HTML_PG ""; print HTML_PG ""; print HTML_PG ""; print HTML_PG ""; print HTML_PG ""; print HTML_PG ""; print HTML_PG ""; print HTML_PG "
\n"; @lines = (); @lines = grep( /^$yr/ , @yddr ); foreach $ln ( @lines ) { @fields = split( " ", $ln ); #print "\nln='$ln' \n"; foreach $f ( @fields ) { #print "f='$f' \n"; print HTML_PG ""; print HTML_PG ""; } print HTML_PG "\n"; #is field flagged? $ch = substr( $fields[ 2 ], -1, 1 ); if( $ch eq "*" ) { $ftnoteflg = "on" ; } } print HTML_PG "

Year		start/ DOY		end/ DOY		Ratio ²²Ne\/²⁰Ne		+\/-
$f

\n"; if( $ftnoteflg eq "on" ) { print HTML_PG "\* indicates period near peak of event"; print HTML_PG " (when isotopic resolution degrades) was omitted"; } $yr--; } print HTML_PG "

References

R.A. Leske, R.A. Mewaldt, C.M.S. Cohen, A.C. Cummings, E.C. Stone, M.E. Wiedenbeck, E.R. Christian, and T.T. von Rosenvinge, ``Event-to-event variations in the isotopic composition of neon in solar energetic particle events'', GRL 26, 2693-2696, 1999. \n

R.A. Leske, R.A. Mewaldt, C.M.S. Cohen, E.R. Christian, A.C. Cummings, P.L. Slocum, E.C. Stone, T.T. von Rosenvinge, and M.E. Wiedenbeck, ``Isotopic Abundances in the Solar Corona as Inferred from ACE Measurements of Solar Energetic Particles'',in Solar and Galactic Composition, edited by R.F. Wimmer-Schweingruber, AIP Conf. Proc. 598, 127-132, 2001. \n

R.A. Leske, R.A. Mewaldt, C.M.S. Cohen, E.R. Christian, A.C. Cummings, P.L. Slocum, E.C. Stone, T.T. von Rosenvinge, and M.E. Wiedenbeck, ``Mass fractionation in solar energetic particles and the isotopic composition of the corona'', Proc. 27th ICRC (Hamburg), 8, 3124-3127, 2001. \n

R.A. Leske, R.A. Mewaldt, C.M.S. Cohen, E.R. Christian, A.C. Cummings, P.L. Slocum, E.C. Stone, T.T. von Rosenvinge, and M.E. Wiedenbeck, ``The Coronal Isotopic Composition as Determined Using Solar Energetic Particles'', in Solar Wind 10, edited by M. Velli, AIP Conf. Proc. 679, 616-619, 2003. \n

R.A. Leske, R.A. Mewaldt, C.M.S. Cohen, A.C. Cummings, E.C. Stone, M.E. Wiedenbeck, and T.T. von Rosenvinge, ``Solar Isotopic Composition as Determined Using Solar Energetic Particles'', Sp. Sci. Rev. 130, 195-205, 2007. \n

"; print HTML_PG " SIS Data Description Page

Level 3 (Contributed) Data Page

Return to ASC Home Page

Our Email Address: asc\@srl.caltech.edu
Last Updated: $date

"; close(HTML_PG); #------------------------------

Solar Energetic Particle 22Ne/20Ne Ratios from ACE/SIS

~15-72 MeV/nucleon

References

Solar Energetic Particle ²²Ne/²⁰Ne Ratios from ACE/SIS