\hypertarget{mpimod__multi_8f90}{
\section{/\-Users/home/\-W\-C/puma/src/mpimod\-\_\-multi.f90 \-File \-Reference}
\label{mpimod__multi_8f90}\index{/\-Users/home/\-W\-C/puma/src/mpimod\-\_\-multi.\-f90@{/\-Users/home/\-W\-C/puma/src/mpimod\-\_\-multi.\-f90}}
}
\subsection*{\-Data \-Types}
\begin{DoxyCompactItemize}
\item 
module \hyperlink{classmpimod}{mpimod}
\end{DoxyCompactItemize}
\subsection*{\-Functions/\-Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{mpimod__multi_8f90_a41bbd9334a3d0412c73399d699bbb237}{mpstart}
\item 
subroutine \hyperlink{mpimod__multi_8f90_acb4a2403b5f65a70e7e5ff01ea4577f7}{mrdimensions}
\item 
subroutine \hyperlink{mpimod__multi_8f90_ac80e83b9bc0a4b459fed5f3b79cfafa0}{mpstop}
\item 
subroutine \hyperlink{mpimod__multi_8f90_a5d2bb9cfe68e5feb6de6b359f04398e3}{mrsum} (k)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a81baf40d09fd23640c01877173e0813a}{mrdiff} (pa, pd, kesp, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a7fd328bc0c83a30f521615978d5d44b2}{mrbcin} (k, n)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a63020ca5fd4738534a8ad6f1ce97133d}{mrtrunc} (sphi, nthi, splo, ntlo)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a7878a87944a3261177c0321cb0d01174}{mrexpand} (splo, ntlo, sphi, nthi)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a89982355acc98319bfc191dab28da805}{mpbci} (k)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a85cfae5acde5c37604edf690e9c2f7cf}{mpbcin} (k, n)
\item 
subroutine \hyperlink{mpimod__multi_8f90_aded092db7f8071a727e2e96887702ca7}{mpbcr} (p)
\item 
subroutine \hyperlink{mpimod__multi_8f90_af2a0a009162180d4abb1daa1bad60cf2}{mpbcrn} (p, n)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a40b910e38273e7f3c9dc4ed36d3e67a0}{mpbcl} (k)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a8338d8609afcefbb1faa41f353c10ef9}{mpscin} (k, n)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a1504cf64a1ffc198a8a1fe54ba00d775}{mpscrn} (p, n)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a3d2a5d231fd9527bcbc1fde327326922}{mpscdn} (p, n)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a0c5adf4e8c7e39cf5a1038a1d34ebf30}{mpscsp} (pf, pp, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_ac66e76c6144dfeadbc03bc5817553250}{mpscgp} (pf, pp, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_ac053a575b1230f8e4a296164dba5ab27}{mpgasp} (pf, pp, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_aaa1210298789f4fd7b7702c276eb80a9}{mpgagp} (pf, pp, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a5aef7e33503e0c46b1d8c0b984c398d1}{mpgacs} (pcs)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a54cf45feb57177de8eaab2e6b01a7aa2}{mpgallsp} (pf, pp, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_af894efd9525c935f22415e017dcbc482}{mpsum} (psp, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a75a681a8d4b9ab5ba0d4fa97f909647b}{mpsumsc} (psf, psp, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_af2111ef6d5b772479a74e94d351440f0}{mpsumr} (pr, kdim)
\item 
subroutine \hyperlink{mpimod__multi_8f90_ad703e6ecd123e9b8280322e402d57d20}{mpsumbcr} (pr, kdim)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a4aceba15459fefd864a0ed3313b0073d}{mpreadsp} (ktape, p, kdim, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a463456bde27045e2cf286e6e6082b9aa}{mpreadgp} (ktape, p, kdim, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_aca5ad2279542f783c1d862333da96744}{mpwritesp} (ktape, p, kdim, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a3e3ab4b6cd8d7863f7bfc0e74b370488}{mpwritegp} (ktape, p, kdim, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a325e1b8f8412b422a06fb7558f212f7e}{mpwritegph} (ktape, p, kdim, klev, ihead)
\item 
subroutine \hyperlink{mpimod__multi_8f90_acb4faf87d9aa8c0bfc86d75f261989c5}{mpi\-\_\-info} (nprocess, pid)
\item 
subroutine \hyperlink{mpimod__multi_8f90_acf82ae878fff75151cab59cdd0925ae0}{mpgetsp} (yn, p, kdim, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a58d54c2e0590e63a7459417831afe5cf}{mpgetgp} (yn, p, kdim, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a79c341b7b52bf44470898581072660b8}{mpputsp} (yn, p, kdim, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a7e675330db7b46cf0bf0cc8edd2d413c}{mpputgp} (yn, p, kdim, klev)
\item 
subroutine \hyperlink{mpimod__multi_8f90_a1b6ac2b98059a43359ac0edfeb9c2ad7}{mpmaxval} (p, kdim, klev, pmax)
\item 
subroutine \hyperlink{mpimod__multi_8f90_ac1dfb34daad89cf72ff04b6a58919b2b}{mpsumval} (p, kdim, klev, psum)
\end{DoxyCompactItemize}


\subsection{\-Function/\-Subroutine \-Documentation}
\hypertarget{mpimod__multi_8f90_a89982355acc98319bfc191dab28da805}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpbci@{mpbci}}
\index{mpbci@{mpbci}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpbci}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpbci (
\begin{DoxyParamCaption}
\item[{}]{k}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a89982355acc98319bfc191dab28da805}


\-Definition at line 176 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a85cfae5acde5c37604edf690e9c2f7cf}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpbcin@{mpbcin}}
\index{mpbcin@{mpbcin}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpbcin}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpbcin (
\begin{DoxyParamCaption}
\item[{integer, dimension(n)}]{k, }
\item[{}]{n}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a85cfae5acde5c37604edf690e9c2f7cf}


\-Definition at line 180 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a40b910e38273e7f3c9dc4ed36d3e67a0}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpbcl@{mpbcl}}
\index{mpbcl@{mpbcl}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpbcl}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpbcl (
\begin{DoxyParamCaption}
\item[{logical}]{k}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a40b910e38273e7f3c9dc4ed36d3e67a0}


\-Definition at line 194 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_aded092db7f8071a727e2e96887702ca7}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpbcr@{mpbcr}}
\index{mpbcr@{mpbcr}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpbcr}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpbcr (
\begin{DoxyParamCaption}
\item[{}]{p}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_aded092db7f8071a727e2e96887702ca7}


\-Definition at line 185 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_af2a0a009162180d4abb1daa1bad60cf2}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpbcrn@{mpbcrn}}
\index{mpbcrn@{mpbcrn}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpbcrn}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpbcrn (
\begin{DoxyParamCaption}
\item[{real, dimension(n)}]{p, }
\item[{}]{n}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_af2a0a009162180d4abb1daa1bad60cf2}


\-Definition at line 189 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a5aef7e33503e0c46b1d8c0b984c398d1}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpgacs@{mpgacs}}
\index{mpgacs@{mpgacs}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpgacs}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpgacs (
\begin{DoxyParamCaption}
\item[{}]{pcs}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a5aef7e33503e0c46b1d8c0b984c398d1}


\-Definition at line 246 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_aaa1210298789f4fd7b7702c276eb80a9}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpgagp@{mpgagp}}
\index{mpgagp@{mpgagp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpgagp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpgagp (
\begin{DoxyParamCaption}
\item[{real, dimension(nhor,klev)}]{pf, }
\item[{real, dimension(nhor,klev)}]{pp, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_aaa1210298789f4fd7b7702c276eb80a9}


\-Definition at line 238 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a54cf45feb57177de8eaab2e6b01a7aa2}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpgallsp@{mpgallsp}}
\index{mpgallsp@{mpgallsp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpgallsp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpgallsp (
\begin{DoxyParamCaption}
\item[{real, dimension(nesp,klev)}]{pf, }
\item[{real, dimension(nspp,klev)}]{pp, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a54cf45feb57177de8eaab2e6b01a7aa2}


\-Definition at line 250 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_ac053a575b1230f8e4a296164dba5ab27}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpgasp@{mpgasp}}
\index{mpgasp@{mpgasp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpgasp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpgasp (
\begin{DoxyParamCaption}
\item[{real, dimension(nesp,klev)}]{pf, }
\item[{real, dimension(nspp,klev)}]{pp, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_ac053a575b1230f8e4a296164dba5ab27}


\-Definition at line 230 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a58d54c2e0590e63a7459417831afe5cf}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpgetgp@{mpgetgp}}
\index{mpgetgp@{mpgetgp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpgetgp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpgetgp (
\begin{DoxyParamCaption}
\item[{character (len=$\ast$)}]{yn, }
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a58d54c2e0590e63a7459417831afe5cf}


\-Definition at line 328 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_acf82ae878fff75151cab59cdd0925ae0}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpgetsp@{mpgetsp}}
\index{mpgetsp@{mpgetsp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpgetsp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpgetsp (
\begin{DoxyParamCaption}
\item[{character (len=$\ast$)}]{yn, }
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_acf82ae878fff75151cab59cdd0925ae0}


\-Definition at line 320 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_acb4faf87d9aa8c0bfc86d75f261989c5}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpi\-\_\-info@{mpi\-\_\-info}}
\index{mpi\-\_\-info@{mpi\-\_\-info}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpi\-\_\-info}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpi\-\_\-info (
\begin{DoxyParamCaption}
\item[{integer}]{nprocess, }
\item[{integer}]{pid}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_acb4faf87d9aa8c0bfc86d75f261989c5}


\-Definition at line 312 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a1b6ac2b98059a43359ac0edfeb9c2ad7}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpmaxval@{mpmaxval}}
\index{mpmaxval@{mpmaxval}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpmaxval}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpmaxval (
\begin{DoxyParamCaption}
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev, }
\item[{}]{pmax}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a1b6ac2b98059a43359ac0edfeb9c2ad7}


\-Definition at line 376 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a7e675330db7b46cf0bf0cc8edd2d413c}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpputgp@{mpputgp}}
\index{mpputgp@{mpputgp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpputgp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpputgp (
\begin{DoxyParamCaption}
\item[{character (len=$\ast$)}]{yn, }
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a7e675330db7b46cf0bf0cc8edd2d413c}


\-Definition at line 344 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a79c341b7b52bf44470898581072660b8}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpputsp@{mpputsp}}
\index{mpputsp@{mpputsp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpputsp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpputsp (
\begin{DoxyParamCaption}
\item[{character (len=$\ast$)}]{yn, }
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a79c341b7b52bf44470898581072660b8}


\-Definition at line 336 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a463456bde27045e2cf286e6e6082b9aa}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpreadgp@{mpreadgp}}
\index{mpreadgp@{mpreadgp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpreadgp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpreadgp (
\begin{DoxyParamCaption}
\item[{}]{ktape, }
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a463456bde27045e2cf286e6e6082b9aa}


\-Definition at line 284 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a4aceba15459fefd864a0ed3313b0073d}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpreadsp@{mpreadsp}}
\index{mpreadsp@{mpreadsp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpreadsp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpreadsp (
\begin{DoxyParamCaption}
\item[{}]{ktape, }
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a4aceba15459fefd864a0ed3313b0073d}


\-Definition at line 278 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a3d2a5d231fd9527bcbc1fde327326922}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpscdn@{mpscdn}}
\index{mpscdn@{mpscdn}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpscdn}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpscdn (
\begin{DoxyParamCaption}
\item[{real (kind=8), dimension(n)}]{p, }
\item[{}]{n}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a3d2a5d231fd9527bcbc1fde327326922}


\-Definition at line 209 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_ac66e76c6144dfeadbc03bc5817553250}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpscgp@{mpscgp}}
\index{mpscgp@{mpscgp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpscgp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpscgp (
\begin{DoxyParamCaption}
\item[{real, dimension(nlon$\ast$nlat,klev)}]{pf, }
\item[{real, dimension(nhor,klev)}]{pp, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_ac66e76c6144dfeadbc03bc5817553250}


\-Definition at line 222 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a8338d8609afcefbb1faa41f353c10ef9}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpscin@{mpscin}}
\index{mpscin@{mpscin}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpscin}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpscin (
\begin{DoxyParamCaption}
\item[{integer, dimension(n)}]{k, }
\item[{}]{n}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a8338d8609afcefbb1faa41f353c10ef9}


\-Definition at line 199 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a1504cf64a1ffc198a8a1fe54ba00d775}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpscrn@{mpscrn}}
\index{mpscrn@{mpscrn}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpscrn}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpscrn (
\begin{DoxyParamCaption}
\item[{real, dimension(n)}]{p, }
\item[{}]{n}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a1504cf64a1ffc198a8a1fe54ba00d775}


\-Definition at line 204 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a0c5adf4e8c7e39cf5a1038a1d34ebf30}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpscsp@{mpscsp}}
\index{mpscsp@{mpscsp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpscsp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpscsp (
\begin{DoxyParamCaption}
\item[{real, dimension(nesp,klev)}]{pf, }
\item[{real, dimension(nspp,klev)}]{pp, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a0c5adf4e8c7e39cf5a1038a1d34ebf30}


\-Definition at line 214 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a41bbd9334a3d0412c73399d699bbb237}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpstart@{mpstart}}
\index{mpstart@{mpstart}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpstart}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpstart (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a41bbd9334a3d0412c73399d699bbb237}


\-Definition at line 16 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_ac80e83b9bc0a4b459fed5f3b79cfafa0}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpstop@{mpstop}}
\index{mpstop@{mpstop}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpstop}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpstop (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_ac80e83b9bc0a4b459fed5f3b79cfafa0}


\-Definition at line 62 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_af894efd9525c935f22415e017dcbc482}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpsum@{mpsum}}
\index{mpsum@{mpsum}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpsum}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpsum (
\begin{DoxyParamCaption}
\item[{}]{psp, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_af894efd9525c935f22415e017dcbc482}


\-Definition at line 258 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_ad703e6ecd123e9b8280322e402d57d20}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpsumbcr@{mpsumbcr}}
\index{mpsumbcr@{mpsumbcr}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpsumbcr}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpsumbcr (
\begin{DoxyParamCaption}
\item[{}]{pr, }
\item[{}]{kdim}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_ad703e6ecd123e9b8280322e402d57d20}


\-Definition at line 274 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_af2111ef6d5b772479a74e94d351440f0}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpsumr@{mpsumr}}
\index{mpsumr@{mpsumr}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpsumr}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpsumr (
\begin{DoxyParamCaption}
\item[{}]{pr, }
\item[{}]{kdim}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_af2111ef6d5b772479a74e94d351440f0}


\-Definition at line 270 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a75a681a8d4b9ab5ba0d4fa97f909647b}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpsumsc@{mpsumsc}}
\index{mpsumsc@{mpsumsc}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpsumsc}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpsumsc (
\begin{DoxyParamCaption}
\item[{real, dimension(nesp,klev)}]{psf, }
\item[{real, dimension(nspp,klev)}]{psp, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a75a681a8d4b9ab5ba0d4fa97f909647b}


\-Definition at line 262 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_ac1dfb34daad89cf72ff04b6a58919b2b}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpsumval@{mpsumval}}
\index{mpsumval@{mpsumval}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpsumval}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpsumval (
\begin{DoxyParamCaption}
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev, }
\item[{}]{psum}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_ac1dfb34daad89cf72ff04b6a58919b2b}


\-Definition at line 383 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a3e3ab4b6cd8d7863f7bfc0e74b370488}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpwritegp@{mpwritegp}}
\index{mpwritegp@{mpwritegp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpwritegp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpwritegp (
\begin{DoxyParamCaption}
\item[{}]{ktape, }
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a3e3ab4b6cd8d7863f7bfc0e74b370488}


\-Definition at line 296 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a325e1b8f8412b422a06fb7558f212f7e}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpwritegph@{mpwritegph}}
\index{mpwritegph@{mpwritegph}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpwritegph}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpwritegph (
\begin{DoxyParamCaption}
\item[{}]{ktape, }
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev, }
\item[{integer, dimension(8)}]{ihead}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a325e1b8f8412b422a06fb7558f212f7e}


\-Definition at line 302 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_aca5ad2279542f783c1d862333da96744}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mpwritesp@{mpwritesp}}
\index{mpwritesp@{mpwritesp}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mpwritesp}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mpwritesp (
\begin{DoxyParamCaption}
\item[{}]{ktape, }
\item[{real, dimension(kdim,klev)}]{p, }
\item[{}]{kdim, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_aca5ad2279542f783c1d862333da96744}


\-Definition at line 290 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a7fd328bc0c83a30f521615978d5d44b2}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mrbcin@{mrbcin}}
\index{mrbcin@{mrbcin}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mrbcin}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mrbcin (
\begin{DoxyParamCaption}
\item[{integer, dimension(n)}]{k, }
\item[{}]{n}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a7fd328bc0c83a30f521615978d5d44b2}


\-Definition at line 121 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a81baf40d09fd23640c01877173e0813a}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mrdiff@{mrdiff}}
\index{mrdiff@{mrdiff}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mrdiff}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mrdiff (
\begin{DoxyParamCaption}
\item[{real, dimension(kesp,klev)}]{pa, }
\item[{real, dimension(kesp,klev)}]{pd, }
\item[{}]{kesp, }
\item[{}]{klev}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a81baf40d09fd23640c01877173e0813a}


\-Definition at line 91 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_acb4a2403b5f65a70e7e5ff01ea4577f7}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mrdimensions@{mrdimensions}}
\index{mrdimensions@{mrdimensions}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mrdimensions}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mrdimensions (
\begin{DoxyParamCaption}
{}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_acb4a2403b5f65a70e7e5ff01ea4577f7}


\-Definition at line 43 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a7878a87944a3261177c0321cb0d01174}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mrexpand@{mrexpand}}
\index{mrexpand@{mrexpand}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mrexpand}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mrexpand (
\begin{DoxyParamCaption}
\item[{complex, dimension($\ast$)}]{splo, }
\item[{}]{ntlo, }
\item[{complex, dimension($\ast$)}]{sphi, }
\item[{}]{nthi}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a7878a87944a3261177c0321cb0d01174}


\-Definition at line 159 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a5d2bb9cfe68e5feb6de6b359f04398e3}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mrsum@{mrsum}}
\index{mrsum@{mrsum}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mrsum}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mrsum (
\begin{DoxyParamCaption}
\item[{integer}]{k}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a5d2bb9cfe68e5feb6de6b359f04398e3}


\-Definition at line 76 of file mpimod\-\_\-multi.\-f90.

\hypertarget{mpimod__multi_8f90_a63020ca5fd4738534a8ad6f1ce97133d}{
\index{mpimod\-\_\-multi.\-f90@{mpimod\-\_\-multi.\-f90}!mrtrunc@{mrtrunc}}
\index{mrtrunc@{mrtrunc}!mpimod_multi.f90@{mpimod\-\_\-multi.\-f90}}
\subsubsection[{mrtrunc}]{\setlength{\rightskip}{0pt plus 5cm}subroutine mrtrunc (
\begin{DoxyParamCaption}
\item[{complex, dimension($\ast$)}]{sphi, }
\item[{}]{nthi, }
\item[{complex, dimension($\ast$)}]{splo, }
\item[{}]{ntlo}
\end{DoxyParamCaption}
)}}
\label{mpimod__multi_8f90_a63020ca5fd4738534a8ad6f1ce97133d}


\-Definition at line 137 of file mpimod\-\_\-multi.\-f90.