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


\subsection{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}}
\subsubsection{\texorpdfstring{ua\+\_\+mpi\+\_\+finalize()}{ua\_mpi\_finalize()}}
{\footnotesize\ttfamily subroutine, public ua\+\_\+mpi\+\_\+module\+::ua\+\_\+mpi\+\_\+finalize (\begin{DoxyParamCaption}{ }\end{DoxyParamCaption})}



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



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


\begin{DoxyCode}
469     \textcolor{comment}{!}
470     \textcolor{comment}{! モジュールの終了処理(割り付け配列の解放)をおこなう.}
471     \textcolor{comment}{!}
472     \textcolor{comment}{! 解像度を変更する際にはこのサブルーチンを呼んで終了処理を}
473     \textcolor{comment}{! おこなったのちに再度 ua\_mpi\_Initial で初期設定しなければ}
474     \textcolor{comment}{! ならない.}
475     \textcolor{comment}{!}
476     \textcolor{keyword}{call }ua\_base\_mpi\_finalize
477     \textcolor{keyword}{call }ua\_deriv\_mpi\_finalize
478 
479     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ua\_mpi\_Finalize'}, &
480       \textcolor{stringliteral}{'ua\_mpi\_module (2020/08/04) is finalized'})
481 
\end{DoxyCode}
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}
\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}}
\subsubsection{\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 428 of file ua\+\_\+mpi\+\_\+module.\+f90.



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


\begin{DoxyCode}
428     \textcolor{comment}{!}
429     \textcolor{comment}{! スペクトル変換の格子点数, 波数, 最大データ数(層数)および}
430     \textcolor{comment}{! OPENMP 使用時の最大スレッド数を設定する.}
431     \textcolor{comment}{!}
432     \textcolor{comment}{! 他の関数を呼ぶ前に, 最初にこのサブルーチンを呼んで初期設定を}
433     \textcolor{comment}{! しなければならない.}
434     \textcolor{comment}{!}
435     \textcolor{comment}{! SNPACK 用 wa\_initial との互換性のために引数 k\_in が用意されているが,}
436     \textcolor{comment}{! このパラメターによって同時に処理できる変数の数(層数)を制限される事はない.}
437     \textcolor{comment}{!}
438     \textcolor{comment}{! np\_in に 1 より大きな値を指定すれば ISPACK の球面調和函数変換}
439     \textcolor{comment}{! OPENMP 並列計算ルーチンが用いられる. 並列計算を実行するには,}
440     \textcolor{comment}{! 実行時に環境変数 OMP\_NUM\_THREADS を np\_in 以下の数字に設定する等の}
441     \textcolor{comment}{! システムに応じた準備が必要となる.}
442     \textcolor{comment}{!}
443     \textcolor{comment}{! np\_in に 1 より大きな値を指定しなければ並列計算ルーチンは呼ばれない.}
444     \textcolor{comment}{!}
445     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: i\_in                \textcolor{comment}{! 格子点数(東西)}
446     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: j\_in                \textcolor{comment}{! 格子点数(南北)}
447     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: n\_in                \textcolor{comment}{! 切断波数}
448     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: k\_in                \textcolor{comment}{! 最大データ数(層数)}
449     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: np        \textcolor{comment}{! OPENMP での最大スレッド数(dummy)}
450     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: npv       \textcolor{comment}{! OPENMP での最大スレッド数}
451 
452     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(np) ) &
453       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ua\_mpi\_Initial'},\textcolor{stringliteral}{'Optional argument np is dummy'})
454     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(npv) ) \textcolor{keywordflow}{then}
455       \textcolor{keyword}{call }ua\_base\_mpi\_initial(n\_in,i\_in,j\_in,k\_in,npv=npv)
456     \textcolor{keywordflow}{else}
457       \textcolor{keyword}{call }ua\_base\_mpi\_initial(n\_in,i\_in,j\_in,k\_in)
458 \textcolor{keywordflow}{    endif}
459     \textcolor{keyword}{call }ua\_deriv\_mpi\_initial
460 
461     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},&
462       & \textcolor{stringliteral}{'ua\_mpi\_initial'}, &
463       & \textcolor{stringliteral}{'ua\_mpi\_module (2020/08/04) is initialized'})
464 
\end{DoxyCode}
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}
