\hypertarget{namespacewb__mpi__module}{}\section{wb\+\_\+mpi\+\_\+module Module Reference}
\label{namespacewb__mpi__module}\index{wb\+\_\+mpi\+\_\+module@{wb\+\_\+mpi\+\_\+module}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \hyperlink{namespacewb__mpi__module_a7e2f1d62c79ba72e0a95950e3ab5ceca}{wb\+\_\+mpi\+\_\+initial} (n\+\_\+in, i\+\_\+in, j\+\_\+in, k\+\_\+in, np, npv)
\item 
subroutine, public \hyperlink{namespacewb__mpi__module_a5fddf2ed44d8bd1c8df5d64987bdd688}{wb\+\_\+mpi\+\_\+finalize}
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacewb__mpi__module_a5fddf2ed44d8bd1c8df5d64987bdd688}\label{namespacewb__mpi__module_a5fddf2ed44d8bd1c8df5d64987bdd688}} 
\index{wb\+\_\+mpi\+\_\+module@{wb\+\_\+mpi\+\_\+module}!wb\+\_\+mpi\+\_\+finalize@{wb\+\_\+mpi\+\_\+finalize}}
\index{wb\+\_\+mpi\+\_\+finalize@{wb\+\_\+mpi\+\_\+finalize}!wb\+\_\+mpi\+\_\+module@{wb\+\_\+mpi\+\_\+module}}
\subsubsection{\texorpdfstring{wb\+\_\+mpi\+\_\+finalize()}{wb\_mpi\_finalize()}}
{\footnotesize\ttfamily subroutine, public wb\+\_\+mpi\+\_\+module\+::wb\+\_\+mpi\+\_\+finalize (\begin{DoxyParamCaption}{ }\end{DoxyParamCaption})}



Definition at line 379 of file wb\+\_\+mpi\+\_\+module.\+f90.



References wb\+\_\+mpi\+\_\+module\+\_\+base\+::wb\+\_\+base\+\_\+mpi\+\_\+finalize(), and wb\+\_\+mpi\+\_\+module\+\_\+deriv\+::wb\+\_\+deriv\+\_\+mpi\+\_\+finalize().


\begin{DoxyCode}
379     \textcolor{comment}{!}
380     \textcolor{comment}{! モジュールの終了処理(割り付け配列の解放)をおこなう.}
381     \textcolor{comment}{!}
382     \textcolor{comment}{! 解像度を変更する際にはこのサブルーチンを呼んで終了処理を}
383     \textcolor{comment}{! おこなったのちに再度 ua\_mpi\_Initial で初期設定しなければ}
384     \textcolor{comment}{! ならない.}
385     \textcolor{comment}{!}
386     \textcolor{keyword}{call }wb\_base\_mpi\_finalize
387     \textcolor{keyword}{call }wb\_deriv\_mpi\_finalize
388 
389     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'wb\_mpi\_Finalize'}, &
390       \textcolor{stringliteral}{'wb\_mpi\_module (2020/08/02) is finalized'})
391 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewb__mpi__module_a5fddf2ed44d8bd1c8df5d64987bdd688_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewb__mpi__module_a7e2f1d62c79ba72e0a95950e3ab5ceca}\label{namespacewb__mpi__module_a7e2f1d62c79ba72e0a95950e3ab5ceca}} 
\index{wb\+\_\+mpi\+\_\+module@{wb\+\_\+mpi\+\_\+module}!wb\+\_\+mpi\+\_\+initial@{wb\+\_\+mpi\+\_\+initial}}
\index{wb\+\_\+mpi\+\_\+initial@{wb\+\_\+mpi\+\_\+initial}!wb\+\_\+mpi\+\_\+module@{wb\+\_\+mpi\+\_\+module}}
\subsubsection{\texorpdfstring{wb\+\_\+mpi\+\_\+initial()}{wb\_mpi\_initial()}}
{\footnotesize\ttfamily subroutine, public wb\+\_\+mpi\+\_\+module\+::wb\+\_\+mpi\+\_\+initial (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{n\+\_\+in,  }\item[{integer, intent(in)}]{i\+\_\+in,  }\item[{integer, intent(in)}]{j\+\_\+in,  }\item[{integer, intent(in)}]{k\+\_\+in,  }\item[{integer, intent(in), optional}]{np,  }\item[{integer, intent(in), optional}]{npv }\end{DoxyParamCaption})}



Definition at line 348 of file wb\+\_\+mpi\+\_\+module.\+f90.



References wb\+\_\+mpi\+\_\+module\+\_\+base\+::wb\+\_\+base\+\_\+mpi\+\_\+initial(), and wb\+\_\+mpi\+\_\+module\+\_\+deriv\+::wb\+\_\+deriv\+\_\+mpi\+\_\+initial().


\begin{DoxyCode}
348     \textcolor{comment}{!}
349     \textcolor{comment}{! スペクトル変換の格子点数, 波数, 最大データ数(層数)および}
350     \textcolor{comment}{! OPENMP 使用時の最大スレッド数を設定する.}
351     \textcolor{comment}{!}
352     \textcolor{comment}{! 他の関数を呼ぶ前に, 最初にこのサブルーチンを呼んで初期設定を}
353     \textcolor{comment}{! しなければならない.}
354     \textcolor{comment}{!}
355     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: i\_in                \textcolor{comment}{! 格子点数(東西)}
356     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: j\_in                \textcolor{comment}{! 格子点数(南北)}
357     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: n\_in                \textcolor{comment}{! 切断波数}
358     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: k\_in                \textcolor{comment}{! 最大データ数(層数)}
359     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: np        \textcolor{comment}{! OPENMP での最大スレッド数(dummy)}
360     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: npv       \textcolor{comment}{! OPENMP での最大スレッド数}
361 
362     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(np) ) &
363       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'wb\_mpi\_Initial'},\textcolor{stringliteral}{'Optional argument np is dummy'})
364     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(npv) ) \textcolor{keywordflow}{then}
365       \textcolor{keyword}{call }wb\_base\_mpi\_initial(n\_in,i\_in,j\_in,k\_in,npv=npv)
366     \textcolor{keywordflow}{else}
367       \textcolor{keyword}{call }wb\_base\_mpi\_initial(n\_in,i\_in,j\_in,k\_in)
368 \textcolor{keywordflow}{    endif}
369     \textcolor{keyword}{call }wb\_deriv\_mpi\_initial
370 
371     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},&
372       & \textcolor{stringliteral}{'wb\_mpi\_initial'}, &
373       & \textcolor{stringliteral}{'wb\_mpi\_module (2020/08/02) is initialized'})
374 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewb__mpi__module_a7e2f1d62c79ba72e0a95950e3ab5ceca_cgraph}
\end{center}
\end{figure}
