\hypertarget{namespaceua__mpi__module}{}\doxysection{ua\+\_\+mpi\+\_\+module Module Reference}
\label{namespaceua__mpi__module}\index{ua\_mpi\_module@{ua\_mpi\_module}}
\doxysubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \mbox{\hyperlink{namespaceua__mpi__module_a98ac0b53ca72a5a0f9b890e1f5235f1b}{ua\+\_\+mpi\+\_\+initial}} (n\+\_\+in, i\+\_\+in, j\+\_\+in, k\+\_\+in, np, npv)
\item 
subroutine, public \mbox{\hyperlink{namespaceua__mpi__module_a99cc3c1599215b14d7fbf3cad9dcd27b}{ua\+\_\+mpi\+\_\+finalize}}
\end{DoxyCompactItemize}


\doxysubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespaceua__mpi__module_a99cc3c1599215b14d7fbf3cad9dcd27b}\label{namespaceua__mpi__module_a99cc3c1599215b14d7fbf3cad9dcd27b}} 
\index{ua\_mpi\_module@{ua\_mpi\_module}!ua\_mpi\_finalize@{ua\_mpi\_finalize}}
\index{ua\_mpi\_finalize@{ua\_mpi\_finalize}!ua\_mpi\_module@{ua\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ua\_mpi\_finalize()}{ua\_mpi\_finalize()}}
{\footnotesize\ttfamily subroutine, public ua\+\_\+mpi\+\_\+module\+::ua\+\_\+mpi\+\_\+finalize (\begin{DoxyParamCaption}{ }\end{DoxyParamCaption})}



Definition at line 405 of file ua\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{405     \textcolor{comment}{!}}
\DoxyCodeLine{406     \textcolor{comment}{! モジュールの終了処理(割り付け配列の解放)をおこなう.}}
\DoxyCodeLine{407     \textcolor{comment}{!}}
\DoxyCodeLine{408     \textcolor{comment}{! 解像度を変更する際にはこのサブルーチンを呼んで終了処理を}}
\DoxyCodeLine{409     \textcolor{comment}{! おこなったのちに再度 ua\_mpi\_Initial で初期設定しなければ}}
\DoxyCodeLine{410     \textcolor{comment}{! ならない.}}
\DoxyCodeLine{411     \textcolor{comment}{!}}
\DoxyCodeLine{412     \textcolor{keyword}{call }ua\_base\_mpi\_finalize}
\DoxyCodeLine{413     \textcolor{keyword}{call }ua\_deriv\_mpi\_finalize}
\DoxyCodeLine{414 }
\DoxyCodeLine{415     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ua\_mpi\_Finalize'}, \&}
\DoxyCodeLine{416       \textcolor{stringliteral}{'ua\_mpi\_module (2020/01/25) is finalized'})}
\DoxyCodeLine{417 }

\end{DoxyCode}


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



Referenced by ut\+\_\+mpi\+\_\+module\+::ut\+\_\+mpi\+\_\+finalize().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module_a99cc3c1599215b14d7fbf3cad9dcd27b_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module_a99cc3c1599215b14d7fbf3cad9dcd27b_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module_a98ac0b53ca72a5a0f9b890e1f5235f1b}\label{namespaceua__mpi__module_a98ac0b53ca72a5a0f9b890e1f5235f1b}} 
\index{ua\_mpi\_module@{ua\_mpi\_module}!ua\_mpi\_initial@{ua\_mpi\_initial}}
\index{ua\_mpi\_initial@{ua\_mpi\_initial}!ua\_mpi\_module@{ua\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ua\_mpi\_initial()}{ua\_mpi\_initial()}}
{\footnotesize\ttfamily subroutine, public ua\+\_\+mpi\+\_\+module\+::ua\+\_\+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 364 of file ua\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{364     \textcolor{comment}{!}}
\DoxyCodeLine{365     \textcolor{comment}{! スペクトル変換の格子点数, 波数, 最大データ数(層数)および}}
\DoxyCodeLine{366     \textcolor{comment}{! OPENMP 使用時の最大スレッド数を設定する.}}
\DoxyCodeLine{367     \textcolor{comment}{!}}
\DoxyCodeLine{368     \textcolor{comment}{! 他の関数を呼ぶ前に, 最初にこのサブルーチンを呼んで初期設定を}}
\DoxyCodeLine{369     \textcolor{comment}{! しなければならない.}}
\DoxyCodeLine{370     \textcolor{comment}{!}}
\DoxyCodeLine{371     \textcolor{comment}{! SNPACK 用 wa\_initial との互換性のために引数 k\_in が用意されているが,}}
\DoxyCodeLine{372     \textcolor{comment}{! このパラメターによって同時に処理できる変数の数(層数)を制限される事はない.}}
\DoxyCodeLine{373     \textcolor{comment}{!}}
\DoxyCodeLine{374     \textcolor{comment}{! np\_in に 1 より大きな値を指定すれば ISPACK の球面調和函数変換}}
\DoxyCodeLine{375     \textcolor{comment}{! OPENMP 並列計算ルーチンが用いられる. 並列計算を実行するには,}}
\DoxyCodeLine{376     \textcolor{comment}{! 実行時に環境変数 OMP\_NUM\_THREADS を np\_in 以下の数字に設定する等の}}
\DoxyCodeLine{377     \textcolor{comment}{! システムに応じた準備が必要となる.}}
\DoxyCodeLine{378     \textcolor{comment}{!}}
\DoxyCodeLine{379     \textcolor{comment}{! np\_in に 1 より大きな値を指定しなければ並列計算ルーチンは呼ばれない.}}
\DoxyCodeLine{380     \textcolor{comment}{!}}
\DoxyCodeLine{381     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: i\_in                \textcolor{comment}{! 格子点数(東西)}}
\DoxyCodeLine{382     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: j\_in                \textcolor{comment}{! 格子点数(南北)}}
\DoxyCodeLine{383     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: n\_in                \textcolor{comment}{! 切断波数}}
\DoxyCodeLine{384     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: k\_in                \textcolor{comment}{! 最大データ数(層数)}}
\DoxyCodeLine{385     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: np        \textcolor{comment}{! OPENMP での最大スレッド数(dummy)}}
\DoxyCodeLine{386     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: npv       \textcolor{comment}{! OPENMP での最大スレッド数}}
\DoxyCodeLine{387 }
\DoxyCodeLine{388     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(np) ) \&}
\DoxyCodeLine{389       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ua\_mpi\_Initial'},\textcolor{stringliteral}{'Optional argument np is dummy'})}
\DoxyCodeLine{390     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(npv) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{391       \textcolor{keyword}{call }ua\_base\_mpi\_initial(n\_in,i\_in,j\_in,k\_in,npv=npv)}
\DoxyCodeLine{392     \textcolor{keywordflow}{else}}
\DoxyCodeLine{393       \textcolor{keyword}{call }ua\_base\_mpi\_initial(n\_in,i\_in,j\_in,k\_in)}
\DoxyCodeLine{394 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{395     \textcolor{keyword}{call }ua\_deriv\_mpi\_initial}
\DoxyCodeLine{396 }
\DoxyCodeLine{397     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\&}
\DoxyCodeLine{398       \& \textcolor{stringliteral}{'ua\_mpi\_initial'}, \&}
\DoxyCodeLine{399       \& \textcolor{stringliteral}{'ua\_mpi\_module (2020/01/25) is initialized'})}
\DoxyCodeLine{400 }

\end{DoxyCode}


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



Referenced by ut\+\_\+mpi\+\_\+module\+::ut\+\_\+mpi\+\_\+initial().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module_a98ac0b53ca72a5a0f9b890e1f5235f1b_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module_a98ac0b53ca72a5a0f9b890e1f5235f1b_icgraph}
\end{center}
\end{figure}
