PlaSim/puma/dox/latex/puma_8f90.tex

\hypertarget{puma_8f90}{
\section{/\-Users/home/\-W\-C/puma/src/puma.f90 \-File \-Reference}
\label{puma_8f90}\index{/\-Users/home/\-W\-C/puma/src/puma.\-f90@{/\-Users/home/\-W\-C/puma/src/puma.\-f90}}
}
\subsection*{\-Data \-Types}
\begin{DoxyCompactItemize}
\item 
module \hyperlink{classpumamod}{pumamod}
\item 
module \hyperlink{classradmod}{radmod}
\item 
module \hyperlink{classprepmod}{prepmod}
\item 
type \hyperlink{structprepmod_1_1ppp__type}{prepmod\-::ppp\-\_\-type}
\item 
interface \hyperlink{interfaceprepmod_1_1ppp__def__int}{prepmod\-::ppp\-\_\-def\-\_\-int}
\item 
interface \hyperlink{interfaceprepmod_1_1ppp__def__real}{prepmod\-::ppp\-\_\-def\-\_\-real}
\end{DoxyCompactItemize}
\subsection*{\-Functions/\-Subroutines}
\begin{DoxyCompactItemize}
\item 
program \hyperlink{puma_8f90_ab9b07e4288c177e089731e7560c18ac1}{puma\-\_\-main}
\item 
subroutine \hyperlink{puma_8f90_a37eac16619683a2be841fc68b9281299}{setfilenames}
\item 
subroutine \hyperlink{puma_8f90_ab7757291a70ca39d0c7a7e8db515c058}{opendiag}
\item 
subroutine \hyperlink{puma_8f90_a486bae2289e6e28e652b41555030d3e6}{allocate\-\_\-arrays}
\item 
subroutine \hyperlink{puma_8f90_afde378004f20ed8741a7e9bcd82cbfe4}{prolog}
\item 
subroutine \hyperlink{puma_8f90_af02944c9cc5103c31e4ed9b779e7cc79}{master}
\item 
subroutine \hyperlink{puma_8f90_a35d7c22447dc50ab86832b4615994d32}{epilog}
\item 
subroutine \hyperlink{puma_8f90_aa07fedd638dbdd8e1799b83d34eb35e3}{read\-\_\-atmos\-\_\-restart}
\item 
subroutine \hyperlink{puma_8f90_a51f5938296dd343ce807dbb6d1a16e49}{initfd}
\item 
subroutine \hyperlink{puma_8f90_a811c67568d6f12806d6b6f86813d2bc4}{read\-\_\-resolution}
\item 
subroutine \hyperlink{puma_8f90_a0952e51b37b6196b4f5d85a5cb93c75b}{resolution}
\item 
subroutine \hyperlink{puma_8f90_a8a75958ca9ba25aeec49db140b483871}{readnl}
\item 
subroutine \hyperlink{puma_8f90_ad3f0e22c057591beabda5d99c3f40c4c}{ppp\-\_\-def\-\_\-int} (pname, nvar, ndim)
\item 
subroutine \hyperlink{puma_8f90_a3e4cf6a68be16437f50762bf77e52370}{ppp\-\_\-def\-\_\-real} (pname, rvar, ndim)
\item 
subroutine \hyperlink{puma_8f90_a4c83f2cca37be70c03946309fc4e2a52}{ppp\-\_\-read\-\_\-i} (a, ndim, nread)
\item 
subroutine \hyperlink{puma_8f90_a1e7bdf5ee1faa40d34b6cc93ebc3acc3}{ppp\-\_\-read\-\_\-r} (a, ndim, nread)
\item 
subroutine \hyperlink{puma_8f90_a859f80933ca252bcc87f27d3996fea05}{ppp\-\_\-interface}
\item 
subroutine \hyperlink{puma_8f90_af1e6869836cefedb3f5cc8a574944d91}{select\-\_\-zonal\-\_\-waves}
\item 
subroutine \hyperlink{puma_8f90_a01c0a9ea1eee2f86044600c5e81dbebd}{select\-\_\-spectral\-\_\-modes}
\item 
subroutine \hyperlink{puma_8f90_a00e3481744c3185f0f91d35c101f28e4}{set\-\_\-vertical\-\_\-grid}
\item 
subroutine \hyperlink{puma_8f90_a5087a1dafe7b39d03c6547fde711b55a}{initpm}
\item 
subroutine \hyperlink{puma_8f90_aa2b3f98ff1c27bb557c695c15708ad1f}{makebm}
\item 
subroutine \hyperlink{puma_8f90_a96b9223819624937b18b4e5b29e95a91}{initsi}
\item 
subroutine \hyperlink{puma_8f90_acbd8e7fdd2e1f60dbca741a700fb292a}{initrandom}
\item 
subroutine \hyperlink{puma_8f90_a9a888c599145a63cdd108dffa553b509}{printseed}
\item 
subroutine \hyperlink{puma_8f90_aea6c13c68157972ea21768a5ea43e154}{initruido}
\item 
subroutine \hyperlink{puma_8f90_ab257e27330a3ab13c9c90ebd985ef60e}{stepruido}
\item 
subroutine \hyperlink{puma_8f90_ac5b1247975fc97ef45931e410766a417}{minvers} (a, n)
\item 
subroutine \hyperlink{puma_8f90_a13d49d9c008cbc01f37c0c31d2012ad4}{lubksb} (a, n, indx, b)
\item 
subroutine \hyperlink{puma_8f90_afa767a8d587c360ca92357e066b6bf22}{ludcmp} (a, n, indx)
\item 
subroutine \hyperlink{puma_8f90_a7278b4e4c576939f77bc4055e51cdaef}{filter\-\_\-zonal\-\_\-waves} (pfc)
\item 
subroutine \hyperlink{puma_8f90_a9a1e7493444984ad2c2161609dbb6e69}{filter\-\_\-spectral\-\_\-modes}
\item 
subroutine \hyperlink{puma_8f90_abdcee9a4a4d07fc6e5b7a7f5768026ac}{noise} (kickval)
\item 
subroutine \hyperlink{puma_8f90_a4a662c6d6619fc6405eb110f62653dc0}{setzt}
\item 
subroutine \hyperlink{puma_8f90_aa92d6879772b364173e13521d835895e}{printprofile}
\item 
subroutine \hyperlink{puma_8f90_aa8533c8ebc4415ef95ca9c34c4ba7d6b}{read\-\_\-surf} (kcode, psp, klev, kread)
\item 
subroutine \hyperlink{puma_8f90_a9dfa3f46641f3df498d07ff40df08a57}{read\-\_\-vargp} (kcode, klev, kread)
\item 
subroutine \hyperlink{puma_8f90_ad0981694b4fc7644f20d9ad785deba27}{diag}
\item 
subroutine \hyperlink{puma_8f90_a901150c868c1f2d65744ec49df0c24ed}{prisp}
\item 
subroutine \hyperlink{puma_8f90_a8625954404de5b08c55626c4f8a62972}{powerspec} (pf, pspec)
\item 
subroutine \hyperlink{puma_8f90_a53adeff6424dd4b2f124771625a47ca5}{powerprint} (text, pspec)
\item 
function \hyperlink{puma_8f90_a87f2e4ed3831dc32e18d25fe42d0bfab}{rmssp} (pf)
\item 
subroutine \hyperlink{puma_8f90_a9617b01410b9d0a76ca6ceb1b333bb96}{energy}
\item 
subroutine \hyperlink{puma_8f90_a6628dcb7258ff7477a7bc7f3098cded3}{ntomin} (kstep, imin, ihou, iday, imon, iyea)
\item 
subroutine \hyperlink{puma_8f90_a6b0de7569cc691823dd1104ff42a6993}{ntodat} (istep, \hyperlink{pumax_8c_a3c3df9a533eb74fcdcd614a15a8026dc}{datch})
\item 
subroutine \hyperlink{puma_8f90_a7d2fe5c057c4ef8c0b7981ddeb0cce41}{wrspam} (ps, klev, title, scale)
\item 
function \hyperlink{puma_8f90_a41d141fdb78d222639310fec575eaea5}{cab} (i)
\item 
subroutine \hyperlink{puma_8f90_a03b2185c8a9dc75ed4169a7d9bf65863}{wrzs} (zs, title, scale)
\item 
subroutine \hyperlink{puma_8f90_a8e59ae6d7b5a22b0e46c56187cdd62cf}{xsect}
\item 
subroutine \hyperlink{puma_8f90_a29f97b19d997b3a5c29df1fd4cdd4792}{writesp} (kunit, pf, kcode, klev, pscale, poff)
\item 
subroutine \hyperlink{puma_8f90_a8f8e06ff9c98bc44f6c356d5ffc0a426}{writegp} (kunit, pf, kcode, klev)
\item 
subroutine \hyperlink{puma_8f90_a0352cc6bbeedace31c54d9afba847ad6}{outsp}
\item 
subroutine \hyperlink{puma_8f90_a1f5ebb3d7ab8cc007a6ed2d81b858f03}{outgp}
\item 
subroutine \hyperlink{puma_8f90_ab608e12bdff55ab600a9d975673c5a53}{checkunit}
\item 
subroutine \hyperlink{puma_8f90_a03d027a1b5f735efb9bce2396d5fc2b6}{legpri}
\item 
subroutine \hyperlink{puma_8f90_a7780f6c3a813605c014f7da964ff83d2}{inilat}
\item 
subroutine \hyperlink{puma_8f90_aefdbfd36b330ce29d344d428431119c9}{gridpoint}
\item 
subroutine \hyperlink{puma_8f90_a0e2e6d98e219c0540bd78f5673a2dd57}{calcgp} (gtn, gpm, gvp)
\item 
subroutine \hyperlink{puma_8f90_a218b1f5483f314ea3a7eeba949933773}{spectral}
\item 
subroutine \hyperlink{puma_8f90_a1ad2c0878e366bb7f12ca880fd36c654}{mrcheck} (f)
\item 
subroutine \hyperlink{puma_8f90_a28029d854398252d4d3b4eb9f161fed7}{diagp} (zampl)
\item 
subroutine \hyperlink{puma_8f90_a6cbd3f404dc5fbac334929a64cf2757f}{heatgp} (zampl)
\item 
subroutine \hyperlink{puma_8f90_ad1bea0bb9fdda56c5251fa64e712b7b1}{vdiff} (pt, pz, pd, ptt, pzt, pdt)
\item 
real function \hyperlink{puma_8f90_abc1c514e88a9fc8af7e7fb69f67c2340}{gasdev} ()
\item 
subroutine \hyperlink{puma_8f90_a0c040011dabc1b712353c37a4d90cc68}{sponge}
\item 
subroutine \hyperlink{puma_8f90_a4f476f8f243b066b52526d1a2696b48f}{mkenerdiag} (pst, pstt, psp, pspt, penergy)
\item 
subroutine \hyperlink{puma_8f90_a36962178b35132627d3f0c4a2b816a92}{mkentrodiag} (pst, pstt, psp, pentropy)
\item 
subroutine \hyperlink{puma_8f90_a079a9ea6caa3eb9d5ef5e0c82f76a2b9}{mkdheat} (zszt1, zszt2, zsdt1, zsdt2, zsp)
\item 
subroutine \hyperlink{puma_8f90_a30cefc96eb08dde625692abb8eae576e}{mkekin} (zszp, zsdp, zp, zekin)
\item 
subroutine \hyperlink{puma_8f90_abc6f135f96d6f8c9636cef2d9c9dd796}{mkekin2} (zszp, zsdp, zspp, zekin)
\item 
subroutine \hyperlink{puma_8f90_a0af984bd0f7283956290a0964e69cf0e}{mkepot} (zstp, zp, zepot)
\item 
subroutine \hyperlink{puma_8f90_a23384f45e8ba553e7aaed8b22a9a80e8}{mkepot2} (zstp, zspp, zepot)
\end{DoxyCompactItemize}


\subsection{\-Function/\-Subroutine \-Documentation}
\hypertarget{puma_8f90_a486bae2289e6e28e652b41555030d3e6}{
\index{puma.\-f90@{puma.\-f90}!allocate\-\_\-arrays@{allocate\-\_\-arrays}}
\index{allocate\-\_\-arrays@{allocate\-\_\-arrays}!puma.f90@{puma.\-f90}}
\subsubsection[{allocate\-\_\-arrays}]{\setlength{\rightskip}{0pt plus 5cm}subroutine allocate\-\_\-arrays (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a486bae2289e6e28e652b41555030d3e6}


\-Definition at line 593 of file puma.\-f90.

\hypertarget{puma_8f90_a41d141fdb78d222639310fec575eaea5}{
\index{puma.\-f90@{puma.\-f90}!cab@{cab}}
\index{cab@{cab}!puma.f90@{puma.\-f90}}
\subsubsection[{cab}]{\setlength{\rightskip}{0pt plus 5cm}function wrspam\-::cab (
\begin{DoxyParamCaption}
\item[{}]{i}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a41d141fdb78d222639310fec575eaea5}


\-Definition at line 2805 of file puma.\-f90.

\hypertarget{puma_8f90_a0e2e6d98e219c0540bd78f5673a2dd57}{
\index{puma.\-f90@{puma.\-f90}!calcgp@{calcgp}}
\index{calcgp@{calcgp}!puma.f90@{puma.\-f90}}
\subsubsection[{calcgp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine calcgp (
\begin{DoxyParamCaption}
\item[{real, dimension(nhor,nlev)}]{gtn, }
\item[{real, dimension(nhor)}]{gpm, }
\item[{real, dimension(nhor)}]{gvp}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a0e2e6d98e219c0540bd78f5673a2dd57}


\-Definition at line 3252 of file puma.\-f90.

\hypertarget{puma_8f90_ab608e12bdff55ab600a9d975673c5a53}{
\index{puma.\-f90@{puma.\-f90}!checkunit@{checkunit}}
\index{checkunit@{checkunit}!puma.f90@{puma.\-f90}}
\subsubsection[{checkunit}]{\setlength{\rightskip}{0pt plus 5cm}subroutine checkunit (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_ab608e12bdff55ab600a9d975673c5a53}


\-Definition at line 3033 of file puma.\-f90.

\hypertarget{puma_8f90_ad0981694b4fc7644f20d9ad785deba27}{
\index{puma.\-f90@{puma.\-f90}!diag@{diag}}
\index{diag@{diag}!puma.f90@{puma.\-f90}}
\subsubsection[{diag}]{\setlength{\rightskip}{0pt plus 5cm}subroutine diag (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_ad0981694b4fc7644f20d9ad785deba27}


\-Definition at line 2546 of file puma.\-f90.

\hypertarget{puma_8f90_a28029d854398252d4d3b4eb9f161fed7}{
\index{puma.\-f90@{puma.\-f90}!diagp@{diagp}}
\index{diagp@{diagp}!puma.f90@{puma.\-f90}}
\subsubsection[{diagp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine diagp (
\begin{DoxyParamCaption}
\item[{real}]{zampl}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a28029d854398252d4d3b4eb9f161fed7}


\-Definition at line 3941 of file puma.\-f90.

\hypertarget{puma_8f90_a9617b01410b9d0a76ca6ceb1b333bb96}{
\index{puma.\-f90@{puma.\-f90}!energy@{energy}}
\index{energy@{energy}!puma.f90@{puma.\-f90}}
\subsubsection[{energy}]{\setlength{\rightskip}{0pt plus 5cm}subroutine energy (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a9617b01410b9d0a76ca6ceb1b333bb96}


\-Definition at line 2653 of file puma.\-f90.

\hypertarget{puma_8f90_a35d7c22447dc50ab86832b4615994d32}{
\index{puma.\-f90@{puma.\-f90}!epilog@{epilog}}
\index{epilog@{epilog}!puma.f90@{puma.\-f90}}
\subsubsection[{epilog}]{\setlength{\rightskip}{0pt plus 5cm}subroutine epilog (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a35d7c22447dc50ab86832b4615994d32}


\-Definition at line 976 of file puma.\-f90.

\hypertarget{puma_8f90_a9a1e7493444984ad2c2161609dbb6e69}{
\index{puma.\-f90@{puma.\-f90}!filter\-\_\-spectral\-\_\-modes@{filter\-\_\-spectral\-\_\-modes}}
\index{filter\-\_\-spectral\-\_\-modes@{filter\-\_\-spectral\-\_\-modes}!puma.f90@{puma.\-f90}}
\subsubsection[{filter\-\_\-spectral\-\_\-modes}]{\setlength{\rightskip}{0pt plus 5cm}subroutine filter\-\_\-spectral\-\_\-modes (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a9a1e7493444984ad2c2161609dbb6e69}


\-Definition at line 2135 of file puma.\-f90.

\hypertarget{puma_8f90_a7278b4e4c576939f77bc4055e51cdaef}{
\index{puma.\-f90@{puma.\-f90}!filter\-\_\-zonal\-\_\-waves@{filter\-\_\-zonal\-\_\-waves}}
\index{filter\-\_\-zonal\-\_\-waves@{filter\-\_\-zonal\-\_\-waves}!puma.f90@{puma.\-f90}}
\subsubsection[{filter\-\_\-zonal\-\_\-waves}]{\setlength{\rightskip}{0pt plus 5cm}subroutine filter\-\_\-zonal\-\_\-waves (
\begin{DoxyParamCaption}
\item[{, dimension(2,nlon/2,nlpp)}]{pfc}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a7278b4e4c576939f77bc4055e51cdaef}


\-Definition at line 2118 of file puma.\-f90.

\hypertarget{puma_8f90_abc1c514e88a9fc8af7e7fb69f67c2340}{
\index{puma.\-f90@{puma.\-f90}!gasdev@{gasdev}}
\index{gasdev@{gasdev}!puma.f90@{puma.\-f90}}
\subsubsection[{gasdev}]{\setlength{\rightskip}{0pt plus 5cm}real function gasdev (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_abc1c514e88a9fc8af7e7fb69f67c2340}


\-Definition at line 4162 of file puma.\-f90.

\hypertarget{puma_8f90_aefdbfd36b330ce29d344d428431119c9}{
\index{puma.\-f90@{puma.\-f90}!gridpoint@{gridpoint}}
\index{gridpoint@{gridpoint}!puma.f90@{puma.\-f90}}
\subsubsection[{gridpoint}]{\setlength{\rightskip}{0pt plus 5cm}subroutine gridpoint (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_aefdbfd36b330ce29d344d428431119c9}


\-Definition at line 3108 of file puma.\-f90.

\hypertarget{puma_8f90_a6cbd3f404dc5fbac334929a64cf2757f}{
\index{puma.\-f90@{puma.\-f90}!heatgp@{heatgp}}
\index{heatgp@{heatgp}!puma.f90@{puma.\-f90}}
\subsubsection[{heatgp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine heatgp (
\begin{DoxyParamCaption}
\item[{real}]{zampl}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a6cbd3f404dc5fbac334929a64cf2757f}


\-Definition at line 4001 of file puma.\-f90.

\hypertarget{puma_8f90_a7780f6c3a813605c014f7da964ff83d2}{
\index{puma.\-f90@{puma.\-f90}!inilat@{inilat}}
\index{inilat@{inilat}!puma.f90@{puma.\-f90}}
\subsubsection[{inilat}]{\setlength{\rightskip}{0pt plus 5cm}subroutine inilat (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a7780f6c3a813605c014f7da964ff83d2}


\-Definition at line 3086 of file puma.\-f90.

\hypertarget{puma_8f90_a51f5938296dd343ce807dbb6d1a16e49}{
\index{puma.\-f90@{puma.\-f90}!initfd@{initfd}}
\index{initfd@{initfd}!puma.f90@{puma.\-f90}}
\subsubsection[{initfd}]{\setlength{\rightskip}{0pt plus 5cm}subroutine initfd (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a51f5938296dd343ce807dbb6d1a16e49}


\-Definition at line 1168 of file puma.\-f90.

\hypertarget{puma_8f90_a5087a1dafe7b39d03c6547fde711b55a}{
\index{puma.\-f90@{puma.\-f90}!initpm@{initpm}}
\index{initpm@{initpm}!puma.f90@{puma.\-f90}}
\subsubsection[{initpm}]{\setlength{\rightskip}{0pt plus 5cm}subroutine initpm (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a5087a1dafe7b39d03c6547fde711b55a}


\-Definition at line 1625 of file puma.\-f90.

\hypertarget{puma_8f90_acbd8e7fdd2e1f60dbca741a700fb292a}{
\index{puma.\-f90@{puma.\-f90}!initrandom@{initrandom}}
\index{initrandom@{initrandom}!puma.f90@{puma.\-f90}}
\subsubsection[{initrandom}]{\setlength{\rightskip}{0pt plus 5cm}subroutine initrandom (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_acbd8e7fdd2e1f60dbca741a700fb292a}


\-Definition at line 1926 of file puma.\-f90.

\hypertarget{puma_8f90_aea6c13c68157972ea21768a5ea43e154}{
\index{puma.\-f90@{puma.\-f90}!initruido@{initruido}}
\index{initruido@{initruido}!puma.f90@{puma.\-f90}}
\subsubsection[{initruido}]{\setlength{\rightskip}{0pt plus 5cm}subroutine initruido (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_aea6c13c68157972ea21768a5ea43e154}


\-Definition at line 1975 of file puma.\-f90.

\hypertarget{puma_8f90_a96b9223819624937b18b4e5b29e95a91}{
\index{puma.\-f90@{puma.\-f90}!initsi@{initsi}}
\index{initsi@{initsi}!puma.f90@{puma.\-f90}}
\subsubsection[{initsi}]{\setlength{\rightskip}{0pt plus 5cm}subroutine initsi (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a96b9223819624937b18b4e5b29e95a91}


\-Definition at line 1812 of file puma.\-f90.

\hypertarget{puma_8f90_a03d027a1b5f735efb9bce2396d5fc2b6}{
\index{puma.\-f90@{puma.\-f90}!legpri@{legpri}}
\index{legpri@{legpri}!puma.f90@{puma.\-f90}}
\subsubsection[{legpri}]{\setlength{\rightskip}{0pt plus 5cm}subroutine legpri (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a03d027a1b5f735efb9bce2396d5fc2b6}


\-Definition at line 3061 of file puma.\-f90.

\hypertarget{puma_8f90_a13d49d9c008cbc01f37c0c31d2012ad4}{
\index{puma.\-f90@{puma.\-f90}!lubksb@{lubksb}}
\index{lubksb@{lubksb}!puma.f90@{puma.\-f90}}
\subsubsection[{lubksb}]{\setlength{\rightskip}{0pt plus 5cm}subroutine lubksb (
\begin{DoxyParamCaption}
\item[{, dimension(n,n)}]{a, }
\item[{}]{n, }
\item[{, dimension(n)}]{indx, }
\item[{, dimension(n)}]{b}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a13d49d9c008cbc01f37c0c31d2012ad4}


\-Definition at line 2047 of file puma.\-f90.

\hypertarget{puma_8f90_afa767a8d587c360ca92357e066b6bf22}{
\index{puma.\-f90@{puma.\-f90}!ludcmp@{ludcmp}}
\index{ludcmp@{ludcmp}!puma.f90@{puma.\-f90}}
\subsubsection[{ludcmp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine ludcmp (
\begin{DoxyParamCaption}
\item[{, dimension(n,n)}]{a, }
\item[{}]{n, }
\item[{, dimension(n)}]{indx}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_afa767a8d587c360ca92357e066b6bf22}


\-Definition at line 2078 of file puma.\-f90.

\hypertarget{puma_8f90_aa2b3f98ff1c27bb557c695c15708ad1f}{
\index{puma.\-f90@{puma.\-f90}!makebm@{makebm}}
\index{makebm@{makebm}!puma.f90@{puma.\-f90}}
\subsubsection[{makebm}]{\setlength{\rightskip}{0pt plus 5cm}subroutine makebm (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_aa2b3f98ff1c27bb557c695c15708ad1f}


\-Definition at line 1786 of file puma.\-f90.

\hypertarget{puma_8f90_af02944c9cc5103c31e4ed9b779e7cc79}{
\index{puma.\-f90@{puma.\-f90}!master@{master}}
\index{master@{master}!puma.f90@{puma.\-f90}}
\subsubsection[{master}]{\setlength{\rightskip}{0pt plus 5cm}subroutine master (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_af02944c9cc5103c31e4ed9b779e7cc79}


\-Definition at line 918 of file puma.\-f90.

\hypertarget{puma_8f90_ac5b1247975fc97ef45931e410766a417}{
\index{puma.\-f90@{puma.\-f90}!minvers@{minvers}}
\index{minvers@{minvers}!puma.f90@{puma.\-f90}}
\subsubsection[{minvers}]{\setlength{\rightskip}{0pt plus 5cm}subroutine minvers (
\begin{DoxyParamCaption}
\item[{, dimension(n,n)}]{a, }
\item[{}]{n}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_ac5b1247975fc97ef45931e410766a417}


\-Definition at line 2028 of file puma.\-f90.

\hypertarget{puma_8f90_a079a9ea6caa3eb9d5ef5e0c82f76a2b9}{
\index{puma.\-f90@{puma.\-f90}!mkdheat@{mkdheat}}
\index{mkdheat@{mkdheat}!puma.f90@{puma.\-f90}}
\subsubsection[{mkdheat}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mkdheat (
\begin{DoxyParamCaption}
\item[{real, dimension(nspp,nlev)}]{zszt1, }
\item[{real, dimension(nspp,nlev)}]{zszt2, }
\item[{real, dimension(nspp,nlev)}]{zsdt1, }
\item[{real, dimension(nspp,nlev)}]{zsdt2, }
\item[{real, dimension(nspp)}]{zsp}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a079a9ea6caa3eb9d5ef5e0c82f76a2b9}


\-Definition at line 4343 of file puma.\-f90.

\hypertarget{puma_8f90_a30cefc96eb08dde625692abb8eae576e}{
\index{puma.\-f90@{puma.\-f90}!mkekin@{mkekin}}
\index{mkekin@{mkekin}!puma.f90@{puma.\-f90}}
\subsubsection[{mkekin}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mkekin (
\begin{DoxyParamCaption}
\item[{real, dimension(nspp,nlev)}]{zszp, }
\item[{real, dimension(nspp,nlev)}]{zsdp, }
\item[{real, dimension(nhor)}]{zp, }
\item[{real, dimension(nhor)}]{zekin}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a30cefc96eb08dde625692abb8eae576e}


\-Definition at line 4518 of file puma.\-f90.

\hypertarget{puma_8f90_abc6f135f96d6f8c9636cef2d9c9dd796}{
\index{puma.\-f90@{puma.\-f90}!mkekin2@{mkekin2}}
\index{mkekin2@{mkekin2}!puma.f90@{puma.\-f90}}
\subsubsection[{mkekin2}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mkekin2 (
\begin{DoxyParamCaption}
\item[{real, dimension(nspp,nlev)}]{zszp, }
\item[{real, dimension(nspp,nlev)}]{zsdp, }
\item[{real, dimension(nspp)}]{zspp, }
\item[{real, dimension(nhor)}]{zekin}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_abc6f135f96d6f8c9636cef2d9c9dd796}


\-Definition at line 4550 of file puma.\-f90.

\hypertarget{puma_8f90_a4f476f8f243b066b52526d1a2696b48f}{
\index{puma.\-f90@{puma.\-f90}!mkenerdiag@{mkenerdiag}}
\index{mkenerdiag@{mkenerdiag}!puma.f90@{puma.\-f90}}
\subsubsection[{mkenerdiag}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mkenerdiag (
\begin{DoxyParamCaption}
\item[{real, dimension(nspp,nlev)}]{pst, }
\item[{real, dimension(nspp,nlev)}]{pstt, }
\item[{real, dimension(nspp)}]{psp, }
\item[{real, dimension(nspp)}]{pspt, }
\item[{real, dimension(nhor)}]{penergy}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a4f476f8f243b066b52526d1a2696b48f}


\-Definition at line 4244 of file puma.\-f90.

\hypertarget{puma_8f90_a36962178b35132627d3f0c4a2b816a92}{
\index{puma.\-f90@{puma.\-f90}!mkentrodiag@{mkentrodiag}}
\index{mkentrodiag@{mkentrodiag}!puma.f90@{puma.\-f90}}
\subsubsection[{mkentrodiag}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mkentrodiag (
\begin{DoxyParamCaption}
\item[{real, dimension(nspp,nlev)}]{pst, }
\item[{real, dimension(nspp,nlev)}]{pstt, }
\item[{real, dimension(nspp)}]{psp, }
\item[{real, dimension(nhor)}]{pentropy}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a36962178b35132627d3f0c4a2b816a92}


\-Definition at line 4298 of file puma.\-f90.

\hypertarget{puma_8f90_a0af984bd0f7283956290a0964e69cf0e}{
\index{puma.\-f90@{puma.\-f90}!mkepot@{mkepot}}
\index{mkepot@{mkepot}!puma.f90@{puma.\-f90}}
\subsubsection[{mkepot}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mkepot (
\begin{DoxyParamCaption}
\item[{real, dimension(nspp,nlev)}]{zstp, }
\item[{real, dimension(nhor)}]{zp, }
\item[{real, dimension(nhor)}]{zepot}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a0af984bd0f7283956290a0964e69cf0e}


\-Definition at line 4592 of file puma.\-f90.

\hypertarget{puma_8f90_a23384f45e8ba553e7aaed8b22a9a80e8}{
\index{puma.\-f90@{puma.\-f90}!mkepot2@{mkepot2}}
\index{mkepot2@{mkepot2}!puma.f90@{puma.\-f90}}
\subsubsection[{mkepot2}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mkepot2 (
\begin{DoxyParamCaption}
\item[{real, dimension(nspp,nlev)}]{zstp, }
\item[{real, dimension(nspp)}]{zspp, }
\item[{real, dimension(nhor)}]{zepot}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a23384f45e8ba553e7aaed8b22a9a80e8}


\-Definition at line 4621 of file puma.\-f90.

\hypertarget{puma_8f90_a1ad2c0878e366bb7f12ca880fd36c654}{
\index{puma.\-f90@{puma.\-f90}!mrcheck@{mrcheck}}
\index{mrcheck@{mrcheck}!puma.f90@{puma.\-f90}}
\subsubsection[{mrcheck}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mrcheck (
\begin{DoxyParamCaption}
\item[{real, dimension($\ast$)}]{f}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a1ad2c0878e366bb7f12ca880fd36c654}


\-Definition at line 3925 of file puma.\-f90.

\hypertarget{puma_8f90_abdcee9a4a4d07fc6e5b7a7f5768026ac}{
\index{puma.\-f90@{puma.\-f90}!noise@{noise}}
\index{noise@{noise}!puma.f90@{puma.\-f90}}
\subsubsection[{noise}]{\setlength{\rightskip}{0pt plus 5cm}subroutine noise (
\begin{DoxyParamCaption}
\item[{integer}]{kickval}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_abdcee9a4a4d07fc6e5b7a7f5768026ac}


\-Definition at line 2173 of file puma.\-f90.

\hypertarget{puma_8f90_a6b0de7569cc691823dd1104ff42a6993}{
\index{puma.\-f90@{puma.\-f90}!ntodat@{ntodat}}
\index{ntodat@{ntodat}!puma.f90@{puma.\-f90}}
\subsubsection[{ntodat}]{\setlength{\rightskip}{0pt plus 5cm}subroutine ntodat (
\begin{DoxyParamCaption}
\item[{}]{istep, }
\item[{character(18)}]{datch}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a6b0de7569cc691823dd1104ff42a6993}


\-Definition at line 2759 of file puma.\-f90.

\hypertarget{puma_8f90_a6628dcb7258ff7477a7bc7f3098cded3}{
\index{puma.\-f90@{puma.\-f90}!ntomin@{ntomin}}
\index{ntomin@{ntomin}!puma.f90@{puma.\-f90}}
\subsubsection[{ntomin}]{\setlength{\rightskip}{0pt plus 5cm}subroutine ntomin (
\begin{DoxyParamCaption}
\item[{}]{kstep, }
\item[{}]{imin, }
\item[{}]{ihou, }
\item[{}]{iday, }
\item[{}]{imon, }
\item[{}]{iyea}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a6628dcb7258ff7477a7bc7f3098cded3}


\-Definition at line 2737 of file puma.\-f90.

\hypertarget{puma_8f90_ab7757291a70ca39d0c7a7e8db515c058}{
\index{puma.\-f90@{puma.\-f90}!opendiag@{opendiag}}
\index{opendiag@{opendiag}!puma.f90@{puma.\-f90}}
\subsubsection[{opendiag}]{\setlength{\rightskip}{0pt plus 5cm}subroutine opendiag (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_ab7757291a70ca39d0c7a7e8db515c058}


\-Definition at line 578 of file puma.\-f90.

\hypertarget{puma_8f90_a1f5ebb3d7ab8cc007a6ed2d81b858f03}{
\index{puma.\-f90@{puma.\-f90}!outgp@{outgp}}
\index{outgp@{outgp}!puma.f90@{puma.\-f90}}
\subsubsection[{outgp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine outgp (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a1f5ebb3d7ab8cc007a6ed2d81b858f03}


\-Definition at line 3004 of file puma.\-f90.

\hypertarget{puma_8f90_a0352cc6bbeedace31c54d9afba847ad6}{
\index{puma.\-f90@{puma.\-f90}!outsp@{outsp}}
\index{outsp@{outsp}!puma.f90@{puma.\-f90}}
\subsubsection[{outsp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine outsp (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a0352cc6bbeedace31c54d9afba847ad6}


\-Definition at line 2934 of file puma.\-f90.

\hypertarget{puma_8f90_a53adeff6424dd4b2f124771625a47ca5}{
\index{puma.\-f90@{puma.\-f90}!powerprint@{powerprint}}
\index{powerprint@{powerprint}!puma.f90@{puma.\-f90}}
\subsubsection[{powerprint}]{\setlength{\rightskip}{0pt plus 5cm}subroutine powerprint (
\begin{DoxyParamCaption}
\item[{character(3)}]{text, }
\item[{real, dimension(ntp1)}]{pspec}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a53adeff6424dd4b2f124771625a47ca5}


\-Definition at line 2615 of file puma.\-f90.

\hypertarget{puma_8f90_a8625954404de5b08c55626c4f8a62972}{
\index{puma.\-f90@{puma.\-f90}!powerspec@{powerspec}}
\index{powerspec@{powerspec}!puma.f90@{puma.\-f90}}
\subsubsection[{powerspec}]{\setlength{\rightskip}{0pt plus 5cm}subroutine powerspec (
\begin{DoxyParamCaption}
\item[{real, dimension(2,ncsp)}]{pf, }
\item[{real, dimension(ntp1)}]{pspec}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a8625954404de5b08c55626c4f8a62972}


\-Definition at line 2592 of file puma.\-f90.

\hypertarget{puma_8f90_ad3f0e22c057591beabda5d99c3f40c4c}{
\index{puma.\-f90@{puma.\-f90}!ppp\-\_\-def\-\_\-int@{ppp\-\_\-def\-\_\-int}}
\index{ppp\-\_\-def\-\_\-int@{ppp\-\_\-def\-\_\-int}!puma.f90@{puma.\-f90}}
\subsubsection[{ppp\-\_\-def\-\_\-int}]{\setlength{\rightskip}{0pt plus 5cm}subroutine ppp\-\_\-def\-\_\-int (
\begin{DoxyParamCaption}
\item[{character ($\ast$)}]{pname, }
\item[{integer, target}]{nvar, }
\item[{}]{ndim}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_ad3f0e22c057591beabda5d99c3f40c4c}


\-Definition at line 1385 of file puma.\-f90.

\hypertarget{puma_8f90_a3e4cf6a68be16437f50762bf77e52370}{
\index{puma.\-f90@{puma.\-f90}!ppp\-\_\-def\-\_\-real@{ppp\-\_\-def\-\_\-real}}
\index{ppp\-\_\-def\-\_\-real@{ppp\-\_\-def\-\_\-real}!puma.f90@{puma.\-f90}}
\subsubsection[{ppp\-\_\-def\-\_\-real}]{\setlength{\rightskip}{0pt plus 5cm}subroutine ppp\-\_\-def\-\_\-real (
\begin{DoxyParamCaption}
\item[{character ($\ast$)}]{pname, }
\item[{real, target}]{rvar, }
\item[{}]{ndim}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a3e4cf6a68be16437f50762bf77e52370}


\-Definition at line 1405 of file puma.\-f90.

\hypertarget{puma_8f90_a859f80933ca252bcc87f27d3996fea05}{
\index{puma.\-f90@{puma.\-f90}!ppp\-\_\-interface@{ppp\-\_\-interface}}
\index{ppp\-\_\-interface@{ppp\-\_\-interface}!puma.f90@{puma.\-f90}}
\subsubsection[{ppp\-\_\-interface}]{\setlength{\rightskip}{0pt plus 5cm}subroutine ppp\-\_\-interface (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a859f80933ca252bcc87f27d3996fea05}


\-Definition at line 1450 of file puma.\-f90.

\hypertarget{puma_8f90_a4c83f2cca37be70c03946309fc4e2a52}{
\index{puma.\-f90@{puma.\-f90}!ppp\-\_\-read\-\_\-i@{ppp\-\_\-read\-\_\-i}}
\index{ppp\-\_\-read\-\_\-i@{ppp\-\_\-read\-\_\-i}!puma.f90@{puma.\-f90}}
\subsubsection[{ppp\-\_\-read\-\_\-i}]{\setlength{\rightskip}{0pt plus 5cm}subroutine ppp\-\_\-read\-\_\-i (
\begin{DoxyParamCaption}
\item[{integer, dimension(ndim)}]{a, }
\item[{}]{ndim, }
\item[{}]{nread}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a4c83f2cca37be70c03946309fc4e2a52}


\-Definition at line 1420 of file puma.\-f90.

\hypertarget{puma_8f90_a1e7bdf5ee1faa40d34b6cc93ebc3acc3}{
\index{puma.\-f90@{puma.\-f90}!ppp\-\_\-read\-\_\-r@{ppp\-\_\-read\-\_\-r}}
\index{ppp\-\_\-read\-\_\-r@{ppp\-\_\-read\-\_\-r}!puma.f90@{puma.\-f90}}
\subsubsection[{ppp\-\_\-read\-\_\-r}]{\setlength{\rightskip}{0pt plus 5cm}subroutine ppp\-\_\-read\-\_\-r (
\begin{DoxyParamCaption}
\item[{real, dimension(ndim)}]{a, }
\item[{}]{ndim, }
\item[{}]{nread}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a1e7bdf5ee1faa40d34b6cc93ebc3acc3}


\-Definition at line 1433 of file puma.\-f90.

\hypertarget{puma_8f90_aa92d6879772b364173e13521d835895e}{
\index{puma.\-f90@{puma.\-f90}!printprofile@{printprofile}}
\index{printprofile@{printprofile}!puma.f90@{puma.\-f90}}
\subsubsection[{printprofile}]{\setlength{\rightskip}{0pt plus 5cm}subroutine printprofile (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_aa92d6879772b364173e13521d835895e}


\-Definition at line 2344 of file puma.\-f90.

\hypertarget{puma_8f90_a9a888c599145a63cdd108dffa553b509}{
\index{puma.\-f90@{puma.\-f90}!printseed@{printseed}}
\index{printseed@{printseed}!puma.f90@{puma.\-f90}}
\subsubsection[{printseed}]{\setlength{\rightskip}{0pt plus 5cm}subroutine printseed (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a9a888c599145a63cdd108dffa553b509}


\-Definition at line 1954 of file puma.\-f90.

\hypertarget{puma_8f90_a901150c868c1f2d65744ec49df0c24ed}{
\index{puma.\-f90@{puma.\-f90}!prisp@{prisp}}
\index{prisp@{prisp}!puma.f90@{puma.\-f90}}
\subsubsection[{prisp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine prisp (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a901150c868c1f2d65744ec49df0c24ed}


\-Definition at line 2560 of file puma.\-f90.

\hypertarget{puma_8f90_afde378004f20ed8741a7e9bcd82cbfe4}{
\index{puma.\-f90@{puma.\-f90}!prolog@{prolog}}
\index{prolog@{prolog}!puma.f90@{puma.\-f90}}
\subsubsection[{prolog}]{\setlength{\rightskip}{0pt plus 5cm}subroutine prolog (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_afde378004f20ed8741a7e9bcd82cbfe4}


\-Definition at line 686 of file puma.\-f90.

\hypertarget{puma_8f90_ab9b07e4288c177e089731e7560c18ac1}{
\index{puma.\-f90@{puma.\-f90}!puma\-\_\-main@{puma\-\_\-main}}
\index{puma\-\_\-main@{puma\-\_\-main}!puma.f90@{puma.\-f90}}
\subsubsection[{puma\-\_\-main}]{\setlength{\rightskip}{0pt plus 5cm}program puma\-\_\-main (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_ab9b07e4288c177e089731e7560c18ac1}


\-Definition at line 484 of file puma.\-f90.

\hypertarget{puma_8f90_aa07fedd638dbdd8e1799b83d34eb35e3}{
\index{puma.\-f90@{puma.\-f90}!read\-\_\-atmos\-\_\-restart@{read\-\_\-atmos\-\_\-restart}}
\index{read\-\_\-atmos\-\_\-restart@{read\-\_\-atmos\-\_\-restart}!puma.f90@{puma.\-f90}}
\subsubsection[{read\-\_\-atmos\-\_\-restart}]{\setlength{\rightskip}{0pt plus 5cm}subroutine read\-\_\-atmos\-\_\-restart (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_aa07fedd638dbdd8e1799b83d34eb35e3}


\-Definition at line 1086 of file puma.\-f90.

\hypertarget{puma_8f90_a811c67568d6f12806d6b6f86813d2bc4}{
\index{puma.\-f90@{puma.\-f90}!read\-\_\-resolution@{read\-\_\-resolution}}
\index{read\-\_\-resolution@{read\-\_\-resolution}!puma.f90@{puma.\-f90}}
\subsubsection[{read\-\_\-resolution}]{\setlength{\rightskip}{0pt plus 5cm}subroutine read\-\_\-resolution (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a811c67568d6f12806d6b6f86813d2bc4}


\-Definition at line 1253 of file puma.\-f90.

\hypertarget{puma_8f90_aa8533c8ebc4415ef95ca9c34c4ba7d6b}{
\index{puma.\-f90@{puma.\-f90}!read\-\_\-surf@{read\-\_\-surf}}
\index{read\-\_\-surf@{read\-\_\-surf}!puma.f90@{puma.\-f90}}
\subsubsection[{read\-\_\-surf}]{\setlength{\rightskip}{0pt plus 5cm}subroutine read\-\_\-surf (
\begin{DoxyParamCaption}
\item[{}]{kcode, }
\item[{real, dimension(nesp,klev)}]{psp, }
\item[{}]{klev, }
\item[{integer}]{kread}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_aa8533c8ebc4415ef95ca9c34c4ba7d6b}


\-Definition at line 2380 of file puma.\-f90.

\hypertarget{puma_8f90_a9dfa3f46641f3df498d07ff40df08a57}{
\index{puma.\-f90@{puma.\-f90}!read\-\_\-vargp@{read\-\_\-vargp}}
\index{read\-\_\-vargp@{read\-\_\-vargp}!puma.f90@{puma.\-f90}}
\subsubsection[{read\-\_\-vargp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine read\-\_\-vargp (
\begin{DoxyParamCaption}
\item[{}]{kcode, }
\item[{}]{klev, }
\item[{}]{kread}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a9dfa3f46641f3df498d07ff40df08a57}


\-Definition at line 2434 of file puma.\-f90.

\hypertarget{puma_8f90_a8a75958ca9ba25aeec49db140b483871}{
\index{puma.\-f90@{puma.\-f90}!readnl@{readnl}}
\index{readnl@{readnl}!puma.f90@{puma.\-f90}}
\subsubsection[{readnl}]{\setlength{\rightskip}{0pt plus 5cm}subroutine readnl (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a8a75958ca9ba25aeec49db140b483871}


\-Definition at line 1307 of file puma.\-f90.

\hypertarget{puma_8f90_a0952e51b37b6196b4f5d85a5cb93c75b}{
\index{puma.\-f90@{puma.\-f90}!resolution@{resolution}}
\index{resolution@{resolution}!puma.f90@{puma.\-f90}}
\subsubsection[{resolution}]{\setlength{\rightskip}{0pt plus 5cm}subroutine resolution (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a0952e51b37b6196b4f5d85a5cb93c75b}


\-Definition at line 1276 of file puma.\-f90.

\hypertarget{puma_8f90_a87f2e4ed3831dc32e18d25fe42d0bfab}{
\index{puma.\-f90@{puma.\-f90}!rmssp@{rmssp}}
\index{rmssp@{rmssp}!puma.f90@{puma.\-f90}}
\subsubsection[{rmssp}]{\setlength{\rightskip}{0pt plus 5cm}function rmssp (
\begin{DoxyParamCaption}
\item[{real, dimension(nesp,nlev)}]{pf}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a87f2e4ed3831dc32e18d25fe42d0bfab}


\-Definition at line 2635 of file puma.\-f90.

\hypertarget{puma_8f90_a01c0a9ea1eee2f86044600c5e81dbebd}{
\index{puma.\-f90@{puma.\-f90}!select\-\_\-spectral\-\_\-modes@{select\-\_\-spectral\-\_\-modes}}
\index{select\-\_\-spectral\-\_\-modes@{select\-\_\-spectral\-\_\-modes}!puma.f90@{puma.\-f90}}
\subsubsection[{select\-\_\-spectral\-\_\-modes}]{\setlength{\rightskip}{0pt plus 5cm}subroutine select\-\_\-spectral\-\_\-modes (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a01c0a9ea1eee2f86044600c5e81dbebd}


\-Definition at line 1540 of file puma.\-f90.

\hypertarget{puma_8f90_af1e6869836cefedb3f5cc8a574944d91}{
\index{puma.\-f90@{puma.\-f90}!select\-\_\-zonal\-\_\-waves@{select\-\_\-zonal\-\_\-waves}}
\index{select\-\_\-zonal\-\_\-waves@{select\-\_\-zonal\-\_\-waves}!puma.f90@{puma.\-f90}}
\subsubsection[{select\-\_\-zonal\-\_\-waves}]{\setlength{\rightskip}{0pt plus 5cm}subroutine select\-\_\-zonal\-\_\-waves (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_af1e6869836cefedb3f5cc8a574944d91}


\-Definition at line 1527 of file puma.\-f90.

\hypertarget{puma_8f90_a00e3481744c3185f0f91d35c101f28e4}{
\index{puma.\-f90@{puma.\-f90}!set\-\_\-vertical\-\_\-grid@{set\-\_\-vertical\-\_\-grid}}
\index{set\-\_\-vertical\-\_\-grid@{set\-\_\-vertical\-\_\-grid}!puma.f90@{puma.\-f90}}
\subsubsection[{set\-\_\-vertical\-\_\-grid}]{\setlength{\rightskip}{0pt plus 5cm}subroutine set\-\_\-vertical\-\_\-grid (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a00e3481744c3185f0f91d35c101f28e4}


\-Definition at line 1553 of file puma.\-f90.

\hypertarget{puma_8f90_a37eac16619683a2be841fc68b9281299}{
\index{puma.\-f90@{puma.\-f90}!setfilenames@{setfilenames}}
\index{setfilenames@{setfilenames}!puma.f90@{puma.\-f90}}
\subsubsection[{setfilenames}]{\setlength{\rightskip}{0pt plus 5cm}subroutine setfilenames (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a37eac16619683a2be841fc68b9281299}


\-Definition at line 552 of file puma.\-f90.

\hypertarget{puma_8f90_a4a662c6d6619fc6405eb110f62653dc0}{
\index{puma.\-f90@{puma.\-f90}!setzt@{setzt}}
\index{setzt@{setzt}!puma.f90@{puma.\-f90}}
\subsubsection[{setzt}]{\setlength{\rightskip}{0pt plus 5cm}subroutine setzt (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a4a662c6d6619fc6405eb110f62653dc0}


\-Definition at line 2267 of file puma.\-f90.

\hypertarget{puma_8f90_a218b1f5483f314ea3a7eeba949933773}{
\index{puma.\-f90@{puma.\-f90}!spectral@{spectral}}
\index{spectral@{spectral}!puma.f90@{puma.\-f90}}
\subsubsection[{spectral}]{\setlength{\rightskip}{0pt plus 5cm}subroutine spectral (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a218b1f5483f314ea3a7eeba949933773}


\-Definition at line 3477 of file puma.\-f90.

\hypertarget{puma_8f90_a0c040011dabc1b712353c37a4d90cc68}{
\index{puma.\-f90@{puma.\-f90}!sponge@{sponge}}
\index{sponge@{sponge}!puma.f90@{puma.\-f90}}
\subsubsection[{sponge}]{\setlength{\rightskip}{0pt plus 5cm}subroutine sponge (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a0c040011dabc1b712353c37a4d90cc68}


\-Definition at line 4191 of file puma.\-f90.

\hypertarget{puma_8f90_ab257e27330a3ab13c9c90ebd985ef60e}{
\index{puma.\-f90@{puma.\-f90}!stepruido@{stepruido}}
\index{stepruido@{stepruido}!puma.f90@{puma.\-f90}}
\subsubsection[{stepruido}]{\setlength{\rightskip}{0pt plus 5cm}subroutine stepruido (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_ab257e27330a3ab13c9c90ebd985ef60e}


\-Definition at line 1990 of file puma.\-f90.

\hypertarget{puma_8f90_ad1bea0bb9fdda56c5251fa64e712b7b1}{
\index{puma.\-f90@{puma.\-f90}!vdiff@{vdiff}}
\index{vdiff@{vdiff}!puma.f90@{puma.\-f90}}
\subsubsection[{vdiff}]{\setlength{\rightskip}{0pt plus 5cm}subroutine vdiff (
\begin{DoxyParamCaption}
\item[{real, dimension(nspp,nlev)}]{pt, }
\item[{real, dimension(nspp,nlev)}]{pz, }
\item[{real, dimension(nspp,nlev)}]{pd, }
\item[{real, dimension(nspp,nlev)}]{ptt, }
\item[{real, dimension(nspp,nlev)}]{pzt, }
\item[{real, dimension(nspp,nlev)}]{pdt}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_ad1bea0bb9fdda56c5251fa64e712b7b1}


\-Definition at line 4039 of file puma.\-f90.

\hypertarget{puma_8f90_a8f8e06ff9c98bc44f6c356d5ffc0a426}{
\index{puma.\-f90@{puma.\-f90}!writegp@{writegp}}
\index{writegp@{writegp}!puma.f90@{puma.\-f90}}
\subsubsection[{writegp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine writegp (
\begin{DoxyParamCaption}
\item[{}]{kunit, }
\item[{real, dimension(nhor)}]{pf, }
\item[{}]{kcode, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a8f8e06ff9c98bc44f6c356d5ffc0a426}


\-Definition at line 2901 of file puma.\-f90.

\hypertarget{puma_8f90_a29f97b19d997b3a5c29df1fd4cdd4792}{
\index{puma.\-f90@{puma.\-f90}!writesp@{writesp}}
\index{writesp@{writesp}!puma.f90@{puma.\-f90}}
\subsubsection[{writesp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine writesp (
\begin{DoxyParamCaption}
\item[{}]{kunit, }
\item[{real, dimension(nrsp)}]{pf, }
\item[{}]{kcode, }
\item[{}]{klev, }
\item[{}]{pscale, }
\item[{}]{poff}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a29f97b19d997b3a5c29df1fd4cdd4792}


\-Definition at line 2870 of file puma.\-f90.

\hypertarget{puma_8f90_a7d2fe5c057c4ef8c0b7981ddeb0cce41}{
\index{puma.\-f90@{puma.\-f90}!wrspam@{wrspam}}
\index{wrspam@{wrspam}!puma.f90@{puma.\-f90}}
\subsubsection[{wrspam}]{\setlength{\rightskip}{0pt plus 5cm}subroutine wrspam (
\begin{DoxyParamCaption}
\item[{, dimension(nrsp)}]{ps, }
\item[{}]{klev, }
\item[{character(30)}]{title, }
\item[{}]{scale}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a7d2fe5c057c4ef8c0b7981ddeb0cce41}


\-Definition at line 2774 of file puma.\-f90.

\hypertarget{puma_8f90_a03b2185c8a9dc75ed4169a7d9bf65863}{
\index{puma.\-f90@{puma.\-f90}!wrzs@{wrzs}}
\index{wrzs@{wrzs}!puma.f90@{puma.\-f90}}
\subsubsection[{wrzs}]{\setlength{\rightskip}{0pt plus 5cm}subroutine wrzs (
\begin{DoxyParamCaption}
\item[{, dimension(nlat,nlev)}]{zs, }
\item[{character(30)}]{title, }
\item[{}]{scale}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a03b2185c8a9dc75ed4169a7d9bf65863}


\-Definition at line 2814 of file puma.\-f90.

\hypertarget{puma_8f90_a8e59ae6d7b5a22b0e46c56187cdd62cf}{
\index{puma.\-f90@{puma.\-f90}!xsect@{xsect}}
\index{xsect@{xsect}!puma.f90@{puma.\-f90}}
\subsubsection[{xsect}]{\setlength{\rightskip}{0pt plus 5cm}subroutine xsect (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{puma_8f90_a8e59ae6d7b5a22b0e46c56187cdd62cf}


\-Definition at line 2851 of file puma.\-f90.