%%  jgrga.sty -- March 22, 1999 version
%   Table breaking problem fixed (by Jen Harvey, AGU)
%  
%%  revisions by Amy Hendrickson, TeXnology Inc, 1/5/96
%
%%  This file (jgrga.sty) creates camera-ready
%   manuscripts for two journals: the Journal 
%   of Geophysical Research, Global Biogeochemical 
%   Cycles.
 
 
\def\revtex@ver{5.01}
\def\revtex@date{March 22, 1999}
\def\revtex@org{AGU}
\def\revtex@jnl{JGR}
\def\revtex@genre{galley}  
\typeout{\revtex@org\space \revtex@jnl\space \revtex@genre\space 
substyle,
v\revtex@ver\space <\revtex@date>.}
\def\revtex@pageid{\xdef\@thefnmark{\null}
\@footnotetext{This \revtex@genre\space was prepared with the
\revtex@org\space \revtex@jnl\space \LaTeX\ macros v\revtex@ver.}}
\def\genre@MS{manuscript}
\def\genre@PP{preprint}
\ifx\revtex@genre\genre@MS
\ifnum\@ptsize<2
\typeout{Warning: Undersize \revtex@genre\space font 
(1\@ptsize\space pts).
  Using 12pt documentstyle option.}
\@input{art12.sty}
\fi
\fi
\@input{agu10.sty}
\def\ps@plaintop{\let\@mkboth\@gobbletwo
\def\@oddfoot{}\def\@oddhead{\rm\hfil--\space\thepage\space--\hfil}
\def\@evenfoot{}\let\@evenhead\@oddhead}
\def\ps@tagtitle{\let\@mkboth\@gobbletwo
\def\@oddfoot{\hbox to\twowide{\rm\hfil\thepage\hfil}\hss}
\def\@oddhead{\hfill}
\let\@evenfoot\@oddfoot\let\@evenhead\@oddhead}
\ps@plain
  
\newdimen\@fmwidth \@fmwidth=14cm
 
\newdimen\savefmwidth
\savefmwidth=\@fmwidth
 
\newdimen\@bodywidth \@bodywidth=20pc
\newdimen\twowide
\twowide=41pc
\textwidth=\@bodywidth
\textheight=8.6in
\topmargin=0in
\headheight=9pt
\headsep=12pt
\oddsidemargin=0in
\evensidemargin=0in
\parindent=1em
 
\newdimen\saveparindent
\saveparindent=\parindent
 
\parskip=0ex
\def\@tolerant{400}  
\def\@verytolerant{10000}
\tolerance\@tolerant
\def\@tightleading{1.1}
\def\@doubleleading{1.6}
\let\tighten=\relax
\let\tightenlines=\tighten
\let\singlespace=\relax
\let\doublespace=\relax
\def\sec@upcase#1{\relax{#1}}
\def\eqsecnum{
\@newctr{equation}[section]
\def\theequation{\hbox{\normalsize\arabic{section}-\arabic{equation}}}
}
\def\@journalname{Journal of Geophysical Research}
\def\cpr@holder{American Geophysical Union}
\def\received#1{\gdef\@recvdate{#1}} \received{}
\def\revised#1{\gdef\@revisedate{#1}} \revised{}
\def\accepted#1{\gdef\@accptdate{#1}} \accepted{}
\def\journalid#1#2{\gdef\@jourvol{#1}\gdef\@jourdate{#2}}
\def\articleid#1#2{\gdef\@startpage{#1}\gdef\@finishpage{#2}}
\def\paperid#1{\gdef\@paperid{#1}} \paperid{}
\def\ccc#1{\gdef\CCC@code{#1}} \ccc{}
\def\cpright#1#2{\@nameuse{cpr@#1} \gdef\cpr@year{#2}
\typeout{`#1' copyright \cpr@year.}}
\newcount\@cprtype \@cprtype=\@ne  
\def\cpr@AGU{\@cprtype=1}
\def\cpr@PD{\@cprtype=2}
\def\cpr@Crown{\@cprtype=3}
\def\cpr@none{\@cprtype=4}
\def\cpr@year{\number\year}
\def\@slug{\vskip -2\p@\noindent
\ifcase\@cprtype
   \relax
\or
   Copyright \cpr@year\space by the \cpr@holder.
\or
   This paper is not subject to U.S. copyright.
   Published in \cpr@year\space by the \cpr@holder.
\or
   Published in \cpr@year\space by the \cpr@holder.
\or
   No copyright is claimed for this article.
\fi
\par\vskip 9\p@\noindent
Paper number \@paperid.\par\noindent
\CCC@code
}
\def\lefthead#1{\gdef\@versohead{#1}} \lefthead{\relax}
\def\righthead#1{\gdef\@rectohead{#1}} \righthead{\relax}
\newdimen\@rhdwidth \@rhdwidth=30pc
  
\def\@runheads{
\vskip 6ex
\@tempcnta\c@page\hsize\@rhdwidth\parindent\z@
\setbox\@tempboxa\hbox{%
\small\expandafter\uppercase\expandafter{\@versohead}:
   \expandafter\uppercase\expandafter{\@rectohead}}
\@tempdima\wd\@tempboxa \advance\@tempdima by-\@rhdwidth
\ifdim \@tempdima >\z@
       \typeout{Running head information too long by 
\the\@tempdima.}\fi
\@whilenum \@tempcnta >0\do{
   \vskip 0ex
   \hbox{\copy\@tempboxa\hfil}
   \vskip 3ex
   {\copy\@tempboxa\hfil}
   \advance\@tempcnta by\m@ne}
}
\def\slugcomment#1{\gdef\slug@comment{#1}} \slugcomment{}
\newdimen\@slugcmmntwidth \@slugcmmntwidth \textwidth
\long\def\@makeslugcmmnt{\ifx\slug@comment\@empty\relax\else
\vskip 5ex
\setbox\@tempboxa\hbox{\slug@comment}
\ifdim \wd\@tempboxa >\@slugcmmntwidth
\hbox to\textwidth{\hss
       \parbox\@slugcmmntwidth\slug@comment}
\else
\hbox to\textwidth{\hfil\box\@tempboxa\hfil}
\fi
\fi}
\def\@rcvaccrule{\vrule\@width1.75in\@height0.5pt\@depth\z@}
  
  
\def\@dates{({\rm Received}\space%
\ifx\@recvdate\@empty\@rcvaccrule\else\@recvdate\fi%
\ifx\@revisedate\@empty\relax\else%
; \space{\rm revised}\space\@revisedate;\\ \fi%
\ifx\@accptdate\@empty\else
\ifx\@revisedate\@empty;\fi\space{\rm accepted}\space%
\@accptdate.\fi)%
\doaltaffils
\@slug
}
  
\def\@authaddrs{\ifx\authaddr@list\@empty\relax
\else
\noindent\minipage{20pc}\parindent=1em
\small\authaddr@list\endminipage
\gdef\authaddr@list{}
\fi}
  
\def\@sluginfo{{\parindent\z@\vskip 9\p@
\footnoterule
\vspace{0ex}
\@authaddrs\par
\vspace{2ex}
\@dates
\hsize\@fmwidth
%\@runheads
}}
\let\dates=\relax  
\let\sluginfo=\relax 
\let\forcesluginfo=\@sluginfo
  
\newcount\c@author \c@author=\@ne
\def\auth@skip{10.5pt}
\def\affil@skip{4.5pt}
  
\def\title#1{\hsize\@fmwidth\par
\noindent\parbox{\@fmwidth}%
{\pretolerance=10000\raggedright\Large\bf#1\hfil}
\vskip1pt}
  
\def\author#1{%
\par\vskip\auth@skip\noindent\parbox{\@fmwidth}%
{\pretolerance=10000\raggedright\large#1\hfil}%
\gdef\auth@skip{12pt}\advance\c@author by1}
  
\def\affil#1{\par\vskip\affil@skip\noindent\parbox{\@fmwidth}%
{\pretolerance=10000\raggedright\small#1\hfil}}
  
\def\altaffilmark#1{$^{#1}$}
\let\and=\relax
\newtoks\@temptokenb
\def\authaddr@list{}
\def\authoraddress#1{\par
\@temptokena={\par\noindent\hskip1em#1}
\@temptokenb=\expandafter{\authaddr@list}
\xdef\authaddr@list{\the\@temptokenb\the\@temptokena}}
\let\authoraddr=\authoraddress
\def\@keywordtext{Subject headings}
\def\@keyworddelim{---}
\let\keywords=\@gobble
\let\subjectheadings=\keywords
\def\@kwds#1{#1\relax}
\skip\footins 3ex plus 1ex minus .5ex
\footnotesep 13pt
\def\footnoterule{\kern-3\p@
\hrule\@width4pc\kern 2.6\p@}
  
% Make Section heads with numbers 
% and text wraps flush left.
  
\setcounter{secnumdepth}{0}
  
\def\@sect#1#2#3#4#5#6[#7]#8{\ifnum #2>\c@secnumdepth
  \let\@svsec\@empty\else
  \refstepcounter{#1}\edef\@svsec{\csname the#1\endcsname.\ \ }\fi
  %
  \@tempskipa #5\relax
  \ifdim \@tempskipa>\z@
  \begingroup #6\relax
% \@hangfrom{\hskip #3\relax
  \@svsec%}
  {\hyphenpenalty=10000\relax\interlinepenalty \@M #8\par}%
    \endgroup
  \csname #1mark\endcsname{#7}\addcontentsline
  {toc}{#1}{\ifnum #2>\c@secnumdepth \else
    \protect\numberline{\csname the#1\endcsname}\fi
    #7}\else
    \def\@svsechd{#6\hskip #3\relax  
%% \relax added 2 May 90
   \@svsec #8\ifnum#2=4:\else\ifnum#2=3.\fi\fi%
     \csname #1mark\endcsname
       {#7}\addcontentsline
       {toc}{#1}{\ifnum #2>\c@secnumdepth \else
       \protect\numberline{\csname 
the#1\endcsname}\fi
       #7}}\fi
       \@xsect{#5}}
 
% \@startsection 
% {NAME}{LEVEL}{INDENT}{BEFORESKIP}{AFTERSKIP}{STYLE}
%            optional * [ALTHEADING]{HEADING}
%    Generic command to start a section.
%    NAME       : e.g., `subsection'
%    LEVEL      : a number, denoting depth of 
%                 section -- e.g., chapter=1,
%                 section = 2, etc.
%    INDENT     : Indentation of heading from 
%                 left margin
%    BEFORESKIP : Absolute value = skip to leave 
%                 above the heading.
%                 If negative, then paragraph 
%                 indent of text following heading 
%                 is suppressed.
%    AFTERSKIP  : if positive, then skip to leave 
%                 below heading, else negative of 
%                 skip to leave to right of run-in 
%                 heading.
%    STYLE      : commands to set style
%  If `*' missing, then increments the counter.  
%  If it is present, then there should be no 
%  [ALTHEADING] argument.  Uses the counter 
%  `secnumdepth' whose value is the highest 
%  section level that is to be numbered.

  \def\section{\@startsection{section}{1}{\z@}
  {14pt plus 4pt minus 2pt}{6pt plus 3pt}
  {\large\bf\pretolerance=10000\raggedright
}}

  \def\subsection{\@startsection{subsection}{2}{\z@}
{10pt plus 4pt minus 2pt}{5pt plus 3pt}{\normalsize\bf\raggedright
}}
  
\def\subsubsection{\@startsection{subsubsection}{3}{1em}
{1sp}{-1em}{\normalsize\bf}}
  
\def\paragraph{\@startsection{paragraph}{4}{1em}
{1sp}{-1em}{\normalsize\bf}}
  
\let\subsubsubsection\paragraph
  
\def\thesection{\@arabic{\c@section}}
\def\thesubsection{\thesection.\@arabic{\c@subsection}}
\def\thesubsubsection{\thesubsection.\@arabic{\c@subsubsection}}
\def\theparagraph{\thesubsubsection.\@arabic{\c@paragraph}}
  
\def\appendix{\par
\setcounter{section}{0}
\setcounter{equation}{0}
%
\def\theequation{\hbox{\Alph{section}\arabic{equation}}}
\let\body@section=\section
\def\section{\setcounter{equation}{0}%
\setcounter{table}{0}\refstepcounter{section}%
\def\theappendix{\expandafter\alpha{section}}%
\def\@currentlabel{\Alph{section}}\body@section*}}
  
\newcounter{cureqno}
\newenvironment{mathletters}{\refstepcounter{equation}%
\setcounter{cureqno}{\value{equation}}%
\let\@curtheeqn\theequation%
\edef\cur@eqn{\csname theequation\endcsname}%
\def\theequation{\cur@eqn\alph{equation}}%
\def\savetheequation{\theequation}%
\setcounter{equation}{0}}%
{\let\theequation\@curtheeqn%
\setcounter{equation}{\value{cureqno}}\hskip-4pt\relax}
\def\eqnum#1{\def\theequation{#1}\let\@currentlabel\theequation
\addtocounter{equation}{\m@ne}}
  
  
\def\references{\@startsection{section}{1}{\z@}
{13pt plus 4pt minus 2pt}{6pt plus 3pt}{\large\bf}*{References}
\bgroup\small\parindent=\z@\parskip=\z@
\def\refpar{\par\hangindent=1em\hangafter=1}}
  
\def\endreferences{\refpar\egroup\vskip 
1.5ex{\small\@sluginfo}\normalsize}
  
\def\forcesluginfo{\vskip 1.5ex{\small\@sluginfo}\normalsize}
  
\def\thebibliography#1{\@startsection{section}{1}{\z@}
{13pt plus 4pt minus 2pt}{6pt plus 3pt}{\large\bf}*{References}
\bgroup\small% <== nov 14, '95
\list{\null}{\leftmargin 1em\labelwidth\z@\itemsep\z@\parsep\z@
\labelsep\z@\itemindent -1em\usecounter{enumi}}
\def\refpar{\relax}
\def\newblock{\hskip .11em plus .33em minus .07em}
\sloppy\clubpenalty4000\widowpenalty4000
\sfcode`\.=1000\relax}
\def\endthebibliography{\endlist\egroup{\small\@sluginfo}\normalsize}
\def\@biblabel#1{\relax}
  
\def\reference{\relax\refpar}
\def\markcite#1{#1\relax}
  
  
\@namedef{endtable*}{\spew@tblnotes\end@dblfloat}
  
\let\saveAA\AA
\def\captionAA{\protect{\footnotesize\saveAA}}
  
\long\def\@makecaption#1#2{{\let\AA\captionAA
\vskip 2ex\normalbaselineskip 10.5\p@
\noindent\parbox{\pt@width}{#1 #2}\par}}
  
  
\def\figurenum#1{\def\thefigure{#1}\let\@currentlabel\thefigure}
  
  
\def\sidehead#1{\noalign{\vskip 1.5ex}
\multicolumn{\pt@ncol}{@{\hskip\z@}l}{#1}\pt@nl
\noalign{\vskip .5ex}}
\def\set@tblnotetext{\def\tablenotetext##1##2{{%
\@temptokena={\vspace{0.0pt}{%
\parbox{\pt@width}{\hskip1em\strut\lower1pt\hbox{$^{\rm 
##1}$}##2}\par}}%
\@temptokenb=\expandafter{\tblnote@list}
\xdef\tblnote@list{\the\@temptokenb\the\@temptokena}}}}
\def\spew@ptblnotes{\ifx\tblnote@list\@empty\relax
\else
\par
\vspace*{1.1ex}
{\tblnote@list}
\gdef\tblnote@list{}
\fi}
\def\tablerefs#1{\@temptokena={\vspace*{0.0ex}{%
\parbox{\pt@width}{\hskip1em\rm #1}\par}}%
\@temptokenb=\expandafter{\tblnote@list}
\xdef\tblnote@list{\the\@temptokenb\the\@temptokena}}
  
\def\tablecomments#1{\@temptokena={\vspace*{0.0ex}{%
\parbox{\pt@width}{\hskip1em\rm #1}\par}}%
\@temptokenb=\expandafter{\tblnote@list}
  
\xdef\tblnote@list{\the\@temptokenb\the\@temptokena}}
\newcounter{plate}
\def\theplate{\@arabic\c@plate}
\def\fps@plate{bp}
\def\ftype@plate{4}
\def\ext@plate{lof}
\def\fnum@plate{{\bf Plate \theplate.}}
%\def\plate{\@float{plate}}
%\let\endplate\end@float
\@namedef{plate*}{\@dblfloat{plate}}
\@namedef{endplate*}{\end@dblfloat}
%\let\platewidth=\tablewidth
\def\platenum#1{\def\theplate{#1}\let\@currentlabel\theplate
\addtocounter{plate}{\m@ne}}
\def\thefigure{\@arabic\c@figure}
\def\fnum@figure{{\bf Figure \thefigure.}}
\def\fnum@table{{\bf Table \thetable.}}
\def\fps@figure{bp}
\def\fps@table{bp}
\def\plotone#1{\centering \leavevmode
\epsfxsize=\columnwidth \epsfbox{#1}}
\def\plottwo#1#2{\centering \leavevmode
\epsfxsize=.45\columnwidth \epsfbox{#1} \hfil
\epsfxsize=.45\columnwidth \epsfbox{#2}}
\def\plotfiddle#1#2#3#4#5#6#7{\centering \leavevmode
\vbox to#2{\rule{0pt}{#2}}
\special{psfile=#1 voffset=#7 hoffset=#6 vscale=#5 hscale=#4 
angle=#3}}
\let\jnl@style=\it
\def\ref@jnl#1{{\jnl@style#1}}
\def\aj{\ref@jnl{Astron.\ J., }}  
\def\apj{\ref@jnl{Astrophys.\ J., }} 
\def\apjl{\ref@jnl{Astrophys.\ J., }}
\def\apjs{\ref@jnl{Astrophys.\ J.\ (Supp.), }}
\def\aap{\ref@jnl{Astron.\ Astrophys., }}  
\def\bams{\ref@jnl{Bull.\ Am.\ Meteorol.\ Soc., }}
\def\bssa{\ref@jnl{Bull.\ Seismol.\ Soc.\ Am., }}
\def\eos{\ref@jnl{Eos Trans.\ AGU, }}
\def\epsl{\ref@jnl{Earth Planet.\ Sci.\ Lett., }}  
\def\gca{\ref@jnl{Geochim.\ Cosmochim.\ Acta, }}
\def\gjras{\ref@jnl{Geophys.\ J.\ R.\ Astron.\ Soc., }}
\def\grl{\ref@jnl{Geophys.\ Res.\ Lett., }}  
\def\gsab{\ref@jnl{Geol.\ Soc.\ Am.\ Bull., }}  
\def\jatp{\ref@jnl{J.\ Atmos.\ Terr.\ Phys., }} 
\def\jgr{\ref@jnl{J.\ Geophys.\ Res., }}
\def\jpo{\ref@jnl{J.\ Phys.\ Oceanogr., }} 
\def\mnras{\ref@jnl{Mon.\ Not.\ R.\ Astron.\ Soc., }}
\def\mwr{\ref@jnl{Mon.\ Weather Rev., }}
\def\pepi{\ref@jnl{Phys.\ Earth Planet.\ Inter., }}  
\def\pra{\ref@jnl{Phys.\ Rev.\ A, }}
\def\prl{\ref@jnl{Phys.\ Rev.\ Lett., }}
\def\pasp{\ref@jnl{Publ.\ A.\ S.\ P., }}
\def\qjrms{\ref@jnl{Q.\ J.\ R.\ Meteorol.\ Soc., }}  
\def\rg{\ref@jnl{Rev.\ Geophys., }}  
\def\rs{\ref@jnl{Radio Sci., }}
\def\usgsof{\ref@jnl{U.S.\ Geol.\ Surv.\ Open File Rep., }}
\def\usgspp{\ref@jnl{U.S.\ Geol.\ Surv.\ Prof.\ Pap., }}
\let\astap=\aap
\let\apjlett=\apjl
\let\apjsupp=\apjs
 
% Add on, Aug 24, 1995
\def\lookforpunct{\ifcat\next]\else, \fi}
\def\dsr#1{\ifcase#1\or{\it Deep Sea Res.\ Part I}\or%
{\it Deep Sea Res.\ Part II}\fi\futurelet\next\lookforpunct}
 
\def\gji{{\frenchspacing\it Geophys. J. 
Int.}\futurelet\next\lookforpunct}
 
\def\prb{{\frenchspacing\it Phys. Rev. B Condens. Matter}%
\futurelet\next\lookforpunct}
 
\def\prc{{\frenchspacing\it Phys. Rev. C Nucl. Phys.}%
\futurelet\next\lookforpunct}
 
\def\prd{{\frenchspacing\it Phys. Rev. D Part. Fields}%
\futurelet\next\lookforpunct}
 
\def\pag{{\frenchspacing\it Pure Appl. Geophys.}%
\futurelet\next\lookforpunct}
 
%%
\let\astap=\aap
\let\apjlett=\apjl
\let\apjsupp=\apjs
\def\deg{\hbox{$^\circ$}}
\def\sun{\hbox{$\odot$}}
\def\earth{\hbox{$\oplus$}}
\def\lesssim{\mathrel{\hbox{\rlap{\hbox{\lower4pt\hbox{$\sim$}}}\hbox{
$<$}}}}
\def\gtrsim{\mathrel{\hbox{\rlap{\hbox{\lower4pt\hbox{$\sim$}}}\hbox{$
>$}}}}
\def\sq{\hbox{\rlap{$\sqcap$}$\sqcup$}}
\def\arcmin{\hbox{$^\prime$}}
\def\arcsec{\hbox{$^{\prime\prime}$}}
\def\fd{\hbox{$.\!\!^{\rm d}$}}
\def\fh{\hbox{$.\!\!^{\rm h}$}}
\def\fm{\hbox{$.\!\!^{\rm m}$}}
\def\fs{\hbox{$.\!\!^{\rm s}$}}
\def\fdg{\hbox{$.\!\!^\circ$}}
\def\farcm{\hbox{$.\mkern-4mu^\prime$}}
\def\farcs{\hbox{$.\!\!^{\prime\prime}$}}
\def\fp{\hbox{$.\!\!^{\scriptscriptstyle\rm p}$}}
\def\micron{\hbox{$\mu$m}}
\let\la=\lesssim
\let\ga=\gtrsim
\def\case#1#2{\hbox{$\frac{#1}{#2}$}}
\def\slantfrac#1#2{\hbox{$\,^#1\!/_#2$}}
\def\onehalf{\slantfrac{1}{2}}
\def\onethird{\slantfrac{1}{3}}
\def\twothirds{\slantfrac{2}{3}}
\def\onequarter{\slantfrac{1}{4}}
\def\threequarters{\slantfrac{3}{4}}
\def\ubvr{\hbox{$U\!BV\!R$}}
\def\ub{\hbox{$U\!-\!B$}} 
\def\bv{\hbox{$B\!-\!V$}} 
\def\vr{\hbox{$V\!-\!R$}} 
\def\ur{\hbox{$U\!-\!R$}} 
\def\ion#1#2{#1$\;${\small\rm\@Roman{#2}}\relax}
\def\nodata{\multicolumn{1}{c}{$\cdots$}}
\newcount\lecurrentfam
\def\LaTeX{\lecurrentfam=\the\fam \leavevmode L\raise.42ex
\hbox{$\fam\lecurrentfam\scriptstyle\kern-.3em A$}\kern-.15em\TeX}
\def\sizrpt{
(\fontname\the\font): em=\the\fontdimen6\font, ex=\the\fontdimen5\font
\typeout{
(\fontname\the\font): em=\the\fontdimen6\font, ex=\the\fontdimen5\font
}}
 
% Add on by Amy Hendrickson

\def\abstract{\vskip1pt\insert\absinsert{{\parindent=.15in
\rightskip=0pt
\noindent\hbox to 20pc{\hfill%
\small\@paperid}\vskip8.5pt}}
\pickup\ignorespaces}
 
\def\endabstract{\vskip-6pt\vskip1pt}
 
\def\xabstract{abstract}
 
\newinsert\absinsert
\dimen\absinsert=\maxdimen
 
\long\def\pickup#1\end#2{\par\vspace{4ex}
\hsize=\@fmwidth
\pretolerance=100
\@rightskip=\z@ plus 2em\rightskip\@rightskip
\noindent\slarge{\bf Abstract.}\ \ #1\end{#2}
\def\two{#2}%
\ifx\two\xabstract\let\go\relax
\gdef\stuff{\immediate\insert\absinsert{{\parindent.15in
\tolerance=600
\rightskip=0pt
\small\hsize=20pc \baselineskip=10pt
\hskip.15in#1\vskip1sp}}}\else
\gdef\stuff{\insert\absinsert{{\parindent.15in
\tolerance=600
\rightskip=0pt
\small\hsize=20pc \baselineskip=9pt
\hskip.15in#1\vskip1sp\end{#2}}}}
\let\go\xpickup\fi
{\hsize=20pc\stuff}\go}
 
\long\def\xpickup#1\end#2{#1\end{#2}
\def\two{#2}%
\ifx\two\xabstract\let\go\relax
\gdef\stuff{\insert\absinsert{{\parindent.15in
\tolerance=600
\rightskip=0pt
\small\hsize=20pc \baselineskip=9pt
#1\vskip1sp}}}\else
\gdef\stuff{\insert\absinsert{{\parindent.15in
\tolerance=600
\rightskip=0pt
\small\hsize=20pc \baselineskip=9pt
#1\skip1sp\end{#2}}}}\let\go\xpickup\fi
{\hsize=20pc\stuff}\go}
 
 
\def\printabstract{\clearpage
\title{\hbox to 0pt{Supplemental Abstract 
for\protect\boldmath $JGR$--\protect\boldmath $Space~Physics$ 
Manuscripts\hss}}
\ifvoid\absinsert\else\unvbox\absinsert\fi
\clearpage
\ifvoid\absinsert\else\unvbox\absinsert\fi
\clearpage
\ifvoid\absinsert\else\unvbox\absinsert\fi
\clearpage
\ifvoid\absinsert\else\unvbox\absinsert\fi
\clearpage
\ifvoid\absinsert\else\unvbox\absinsert\fi
\clearpage
\ifvoid\absinsert\else\unvbox\absinsert\fi
\clearpage
\ifvoid\absinsert\else\unvbox\absinsert\fi
\clearpage
\ifvoid\absinsert\else\unvbox\absinsert\fi
\clearpage
\ifvoid\absinsert\else\unvbox\absinsert\fi
}
 
 
\def\article{\global\hsize\@bodywidth
\xdef\@thefnmark{\null}\vskip28pt}
 
\def\endarticle{\clearpage
\@normalsize\global\hsize=345pt}
 
% Rewritten Table Macros:
% Sept. 2, 1995, Amy Hendrickson

\let\tableline=\hline
\newtoks\@temptokena
\newtoks\@temptokenb
 
\def\tablenotemark#1{\rlap{$^{\rm #1}$}}
\def\nodata{\multicolumn{1}{c}{$\cdots$}}
\newcount\pt@ncol
\def\tblnote@list{}
 
\newdimen\pt@width
\pt@width=\textwidth
 
\def\tablecaption#1{\gdef\pt@caption{#1}} 
 
\def\pt@caption{\relax}
 
\newcount\ampcount
\def\saveamp{&}
\def\saveandcountamps{\global\advance\ampcount by1\saveamp}
\catcode`\&=\active
 
\def\htabular #1{\def\@halignto{to#1}\@tabular[t]}
 
\def\xendtabular{\crcr\egroup\egroup}
 
\let\endhtabular\xendtabular
 
\def\x@tabular{\let\@acol\@tabacol
   \let\@classz\@tabclassz
   \let\@classiv\@tabclassiv \let\\\@tabularcr\@tabarray}
 
\def\multicolumn#1#2#3{\multispan{#1}\begingroup
\@mkpream{#2}%
\def\@sharp{#3}\let\protect\relax
  \let\@startpbox\@@startpbox\let\@endpbox\@@endpbox
  \@arstrut \@preamble\hbox{}\endgroup\ignorespaces}
 
\def\tablecomments#1{\@temptokena={\hskip1em\rm #1\par}%
\@temptokenb=\expandafter{\tblnote@list}
\xdef\tblnote@list{\the\@temptokenb\the\@temptokena}}
 
\let\tablerefs\tablecomments
 
\def\tablenotetext#1#2{{%
\@temptokena={\vspace{0.0ex}{%
\vskip1sp\noindent\strut\hskip1em\lower1pt\hbox{$^{\rm #1}$}#2}\par}%
\@temptokenb=\expandafter{\tblnote@list}
\xdef\tblnote@list{\the\@temptokenb\the\@temptokena}}}
 
\def\spew@tblnotes{\ifx\tblnote@list\@empty\relax
\else
\vspace{.4ex}
{\small\tblnote@list}
\gdef\tblnote@list{}
\fi}
 
\def\spew@ptblnotes{\ifx\tblnote@list\@empty\relax
\else
\par
\vspace{2ex}
{\small\tblnote@list}
\gdef\tblnote@list{}
\fi}
 
\def\continuedcaption{{\bf Table \thetable.} 
({\rm continued})}
 
\newbox\tabbox
\newdimen\totaltabdp
 
%
\setcounter{topnumber}{10}
\setcounter{bottomnumber}{10}
 
\def\topfraction{.99}
\def\bottomfraction{.99}
\def\textfraction{.01}
\def\floatpagefraction{.5}
 
\setcounter{totalnumber}{20}
 
\setcounter{dbltopnumber}{2}
\def\dbltopfraction{.7}
\def\dblfloatpagefraction{.5}
%
 
\def\xplanotable{planotable}
 
\def\HasNoWidth#1{\cr\noalign{\vskip-2ex}%
\multicolumn{\the\finalcolcount}{c}{$\vcenter{\parindent=0pt
\center\baselineskip=14pt\relax%
\it\relax#1
\endcenter\vskip1sp}$}\cr%
\noalign{\vskip-2ex}}
 
\def\haswidth#1{\cr\noalign{\center\baselineskip=14pt\relax%
\hsize=\pt@width
\it\relax\vskip-14pt#1}}
 
\def\cutinhead#1{\ifdim\pt@width=0pt\let\go\HasNoWidth\else%
\let\go\haswidth\fi\go{#1}}
 
\def\xend{\end}
\def\lookforending{%
\ifx\next\end
\global\let\xgo\pickuparg\else
\global\let\xgo\xendline\fi\xgo}
 
\def\pickuparg#1#2{\def\two{#2}\ifx\two\xplanotable
\gdef\ygo{\end{planotable}}\else\gdef\ygo{#1#2\endline}\fi\ygo}
 
\def\endline{\futurelet\next\lookforending}
 
\long\def\xendline#1\nl{\let&\saveandcountamps
\setbox0=\vbox{\hbox{\tabular[t]{\pt@format}
#1\cr\doendtabular}}%
\ifnum\ampcount>\finalcolcount \global\finalcolcount=\ampcount\fi
\global\ampcount=0
\ifdim\wd0>\insidetablewd
\global\insidetablewd=\wd0\fi
\global\advance\totaltabdp by\ht0
\global\advance\totaltabdp by\dp0
\ifdim\totaltabdp >.85\textheight\global\let\zgo\endpage\else
\global\let\zgo\endline\fi#1\cr\let&\relax\zgo}%% 
 
\def\endpage{\crcr\noalign{\vskip-\the\baselineskip\hrule\vskip4pt}
\doendtabular\egroup%
\expandafter\ifx\csname pt@caption\endcsname\relax
\else
\noindent%
{\normalsize{\bf Table \thetable.} \pt@caption 
\vskip10pt}\global\let\pt@caption\relax
\fi
\noindent\unvbox\tabbox
\newpage
\global\totaltabdp=0pt
\startcontinueddata}
 
\def\dofirstpreamble{\htabular{\the\pt@width}{@{\extracolsep{\fill}}
\pt@format}}
\def\dofirstend{\endhtabular}
 
\def\dosecondpreamble{\tabular[t]{\pt@format}}
 
\def\dosecondend{\endtabular}
 
\newdimen\insidetablewd
 
\def\startdata{\advance\totaltabdp by \the\baselineskip
\let\endtabular\xendtabular
\let\@tabular\x@tabular
\let&\saveamp
\setbox\tabbox=\vbox\bgroup%
%
\ifdim\pt@width=0pt\relax%
\gdef\dopreamble{\dosecondpreamble}%
\gdef\doendtabular{\dosecondend}%
\else%
\gdef\dopreamble{\dofirstpreamble}%
\gdef\doendtabular{\dofirstend}%
\fi\dopreamble\pt@head\cr%
\noalign{\vskip-\the\baselineskip
\global\finalcolcount=\the\pt@ncol\relax}
\let&\relax
\xendline}
 
\def\xrelax{\relax}
 
\def\startcontinueddata{\let&\saveamp
\let\endtabular\xendtabular
\let\@tabular\x@tabular
\setbox\tabbox=\vbox\bgroup%
%
\ifx\pt@caption\xrelax\else
\hbox{\normalsize\continuedcaption}\fi
\let&\saveamp
\setbox0=\vbox{\tabular[t]{\pt@format}\pt@head\cr\doendtabular}%
\global\advance\totaltabdp by\ht0
\global\advance\totaltabdp by\dp0
\advance\totaltabdp by\the\baselineskip
\ifdim\wd0>\insidetablewd
\global\insidetablewd=\wd0\fi
%
\dopreamble\pt@head\cr%
\noalign{\vskip-\the\baselineskip}%
\let&\relax\xendline}
 
\let\nl\relax
 
\long\def\pickupend#1\end#2{\def\two{#2}\ifx\two\xplanotable
\gdef\ago{#1\nl\end{planotable}}\else
\gdef\ago{#1\end{#2}\pickupend}\fi\ago}
 
\def\planotable#1{\clearpage%
\global\pt@width=0pt
\catcode`\&=\active
\let\ltx@label=\label\gdef\pt@label{\let\label=\ltx@label}%
\def\label##1{\gdef\pt@labeltag{##1}%
\gdef\pt@label{\ltx@label{\pt@labeltag}\let\label=\ltx@label}}
\global\advance\c@table by1
\def\@captype{table}
\def\pt@format{#1}
%col position specs, i.e., cccrrr
\small\pickupend}
 
\def\endplanotable{\crcr
\noalign{\vskip-\the\baselineskip\hrule}
\doendtabular
\egroup%
\hsize=\wd\tabbox
\expandafter\ifx\csname pt@caption\endcsname\relax
\else
\noindent%
{\normalsize
{\bf Table \thetable.} \pt@caption} \vskip10pt\global\let\pt@caption\relax
\fi
\noindent\unvbox\tabbox
\pt@label
\vskip1sp
%
\spew@ptblnotes
\vskip1sp
\hsize=\textwidth
\catcode`\&=4
\global\pt@ncol=0
\gdef\pt@caption{\relax}
\global\totaltabdp=0pt
\global\pt@width=\textwidth\relax\gdef\thespnum{}}
 
\edef\tablewidth#1{\global\pt@width=#1}
 
\def\tablehead#1{\gdef\pt@head{\noalign{\hrule\vskip3pt}
#1\strut\cr\noalign{\vskip3pt\hrule}}}
 
\def\colhead#1{\hfill\relax #1\global\advance\pt@ncol by\@ne\hfill\relax}
 
\newcount\finalcolcount
 
% Tablenum
%
% If a letter is given preceding the number, that letter
% is assumed to be an appendix letter and is repeated on
% following tables until a new appendix letter is given.
% If a letter follows the table number, it is used for
% that table number only.
 
\let\thespnum\relax
\def\saveapos{'}
\def\savedoll{$}
\def\dodollars#1${\xdef\thespnum{$#1$}}
 
\def\gotokazowee#1\kazowee{\xdef\thespnum{\x#1}}
\def\xkazowee{\kazowee}
\def\kazowee{\relax}
\def\xrelax{\relax}
 
\def\loopthru#1{\def\x{#1}\ifx\x\xkazowee\let\go\relax\else
\ifx\x\savedoll\let\go\dodollars\else
\ifx\x\xrelax\let\go\relax\else
\let\go\loopthru
\expandafter\ifcat\x 8\ifx\x\saveapos\xdef\thespnum{'}\fi\else%
\let\go\gotokazowee\fi\fi\fi\fi\go}
 
\def\lookforletter#1#2#3\relax{\def\two{#2}
\ifx\two\empty\global\c@table=#1\relax\else
\def\x{#1}\def\y{#2}
\ifcat\x a
\ifcat\y a\gdef\theletter{#1#2}\def\test{#3}
%% in case there are 2 letters
\else\def\test{#2#3}\gdef\theletter{#1}\fi
%% in case there is one letter
%
\expandafter\loopthru\test\kazowee
\setbox0=\hbox{\global\c@table=\test}\else
\def\test{#1#2#3}\expandafter\loopthru\test\kazowee
\setbox0=\hbox{\global\c@table=\test}
\gdef\theletter{\relax}\fi\fi}
 
\def\tablenum#1{\def\xone{#1}\expandafter\lookforletter\xone\relax
\global\let\@currentlabel\thetable\relax\relax}
%
 
\def\thetable{\theletter\the\c@table\thespnum}
 
\let\theletter\relax
 
\def\endtable{\spew@tblnotes\end@float}
 
\def\tablevspace#1{\noalign{\vskip{#1}}}
 
\def\tablebreak{\global\totaltabdp=20\textheight\relax}
 
\catcode`\&=4
 
%%% <== end table macros
 
%%% Page Design
\def\ps@plaintop{\let\@mkboth\@gobbletwo
\def\@oddfoot{}\def\@oddhead{\hbox to\twowide{\rm\hfil\thepage}\hss}
\def\@evenfoot{}\let\@evenhead\@oddhead}
\ps@plaintop
 
\let\saveenddocument\enddocument
\def\enddocument{\@runheads\saveenddocument}
 
\newif\ifprintcallout
\printcallouttrue
\def\nocallouts{\global\printcalloutfalse}
\def\callout#1{#1\ifprintcallout\marginpar{\fbox{\large#1}}\fi}
 
% Macros to make caption and tablenotes 
% be the width of the table in 
% \begin{table}\begin{tabular}...
% \end{tabular}\end{table}
 
\let\savetabular\tabular
\let\saveendtabular\endtabular
 
\newdimen\tabwidth
 
\def\ytabular{\global\setbox\tabbox=\hbox\bgroup\hsize=0pt\savetabular}
\def\endytabular{\saveendtabular\egroup}
 
\let\savetable\table
\let\saveendtable\endtable
 
\def\docaption#1{\gdef\currcaption{#1}}
 
\let\savetablenum\tablenum
\def\tabtablenum#1{\savetablenum{#1}\global\advance\c@table-1\relax}
 
\let\savelabel\label
\newcount\labnum
\newcount\labloopnum
\def\keeplabel#1{\global\advance\labnum by 1
\expandafter\gdef\csname label\the\labnum\endcsname{#1}}
 
\def\xrelax{\relax}
 
\def\dolabel{\labloopnum=1\loop
\ifnum\labloopnum<\labnum
\savelabel{\csname label\the\labloopnum\endcsname}
\global\advance\labloopnum by 1
\repeat
\ifnum\labnum=0\else
\savelabel{\csname label\the\labloopnum\endcsname}\fi
\global\labloopnum=0
\global\labnum=0
\relax}
 
\newbox\tablebox
\def\table{\setbox\tablebox=\vbox\bgroup\small\let\tabular\ytabular
\let\endtabular\endytabular
\let\caption\docaption
\let\tablenum\tabtablenum
\let\label\keeplabel
\def\@captype{table}\tablook}
 
\newcount\tabnotecount
\newcount\loopnotecount
 
\def\endtable{{\hsize=\wd\tabbox
\ifx\currcaption\relax\else
\savecaption{\hsize=\wd\tabbox\currcaption}\fi
\global\tabwidth=\wd\tabbox
\vskip9pt
\noindent\unhbox\tabbox 
%\vskip-6pt
\spew@tblnotes}\egroup
\vbox{\unvbox\tablebox}
\dolabel\gdef\thespnum{}}
 
\def\addtotabnum#1{\gdef\thespnum{#1}}
\let\thespnum\relax
 
%
\def\acknowledgments{\vskip-\lastskip\vskip12pt\indent{\small\bf
Acknowledgments.}\quad\small}
 
\def\acknowledgment{\vskip-\lastskip\vskip12pt\indent{\small%
\bf Acknowledgment.}%
\quad\small}
 
\let\acknowledgements=\acknowledgments
\let\acknowledgement=\acknowledgment
 
\onecolwide=20pc
\twocolwide=35pc
 
\ponecolwide=20pc
\ptwocolwide=35pc