\hypertarget{namespacewa__wave__module}{}\section{wa\+\_\+wave\+\_\+module Module Reference}
\label{namespacewa__wave__module}\index{wa\+\_\+wave\+\_\+module@{wa\+\_\+wave\+\_\+module}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \hyperlink{namespacewa__wave__module_a5b707dcbcbd4aca989fe34e2a08a7adb}{wa\+\_\+initial} (n\+\_\+in, m\+\_\+in, i\+\_\+in, j\+\_\+in, k\+\_\+in)
\item 
subroutine, public \hyperlink{namespacewa__wave__module_aa71b87553a61cedb2b66e1dd97f767df}{wa\+\_\+finalize}
\end{DoxyCompactItemize}


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



Definition at line 260 of file wa\+\_\+wave\+\_\+module.\+f90.



References w\+\_\+wave\+\_\+module\+::w\+\_\+finalize(), and wa\+\_\+wave\+\_\+module\+\_\+base\+::wa\+\_\+base\+\_\+finalize().


\begin{DoxyCode}
260     \textcolor{comment}{!}
261     \textcolor{comment}{! モジュールの終了処理(割り付け配列の解放)をおこなう. }
262     \textcolor{comment}{!}
263     \textcolor{comment}{! 解像度を変更する際にはこのサブルーチンを呼んで終了処理を}
264     \textcolor{comment}{! おこなったのちに再度 wa\_Initial で初期設定しなければ}
265     \textcolor{comment}{! ならない. }
266     \textcolor{comment}{!}
267     \textcolor{keyword}{call }w\_finalize
268     \textcolor{keyword}{call }wa\_base\_finalize
269 
270     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'wa\_Finalize'}, &
271                        \textcolor{stringliteral}{'wa\_wave\_module (2020/11/24) is finalized'})
272 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__wave__module_aa71b87553a61cedb2b66e1dd97f767df_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__wave__module_a5b707dcbcbd4aca989fe34e2a08a7adb}\label{namespacewa__wave__module_a5b707dcbcbd4aca989fe34e2a08a7adb}} 
\index{wa\+\_\+wave\+\_\+module@{wa\+\_\+wave\+\_\+module}!wa\+\_\+initial@{wa\+\_\+initial}}
\index{wa\+\_\+initial@{wa\+\_\+initial}!wa\+\_\+wave\+\_\+module@{wa\+\_\+wave\+\_\+module}}
\subsubsection{\texorpdfstring{wa\+\_\+initial()}{wa\_initial()}}
{\footnotesize\ttfamily subroutine, public wa\+\_\+wave\+\_\+module\+::wa\+\_\+initial (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{n\+\_\+in,  }\item[{integer, intent(in)}]{m\+\_\+in,  }\item[{integer, intent(in)}]{i\+\_\+in,  }\item[{integer, intent(in)}]{j\+\_\+in,  }\item[{integer, intent(in)}]{k\+\_\+in }\end{DoxyParamCaption})}



Definition at line 234 of file wa\+\_\+wave\+\_\+module.\+f90.



References w\+\_\+wave\+\_\+module\+::w\+\_\+initial(), and wa\+\_\+wave\+\_\+module\+\_\+base\+::wa\+\_\+base\+\_\+initial().


\begin{DoxyCode}
234     \textcolor{comment}{!}
235     \textcolor{comment}{! スペクトル変換の格子点数, 波数, 最大データ数(層数)および }
236     \textcolor{comment}{! OPENMP 使用時の最大スレッド数を設定する.}
237     \textcolor{comment}{!}
238     \textcolor{comment}{! 他の関数を呼ぶ前に, 最初にこのサブルーチンを呼んで初期設定を}
239     \textcolor{comment}{! しなければならない. }
240     \textcolor{comment}{!}
241     \textcolor{comment}{! SNPACK 用 wa\_initial との互換性のために引数 k\_in が用意されているが, }
242     \textcolor{comment}{! このパラメターによって同時に処理できる変数の数(層数)を制限される事はない.}
243     \textcolor{comment}{!}
244     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: i\_in                \textcolor{comment}{! 格子点数(東西)}
245     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: j\_in                \textcolor{comment}{! 格子点数(南北)}
246     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: n\_in                \textcolor{comment}{! 切断波数}
247     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: m\_in                \textcolor{comment}{! 東西波数}
248     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: k\_in                \textcolor{comment}{! 最大データ数(層数)}
249 
250     \textcolor{keyword}{call }w\_initial(n\_in,m\_in,i\_in,j\_in)
251     \textcolor{keyword}{call }wa\_base\_initial(k\_in)
252 
253     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'wa\_initial'}, &
254                        \textcolor{stringliteral}{'wa\_wave\_module (2020/11/24) is initialized'})
255 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__wave__module_a5b707dcbcbd4aca989fe34e2a08a7adb_cgraph}
\end{center}
\end{figure}
