\hypertarget{namespacewa__wave__module__base}{}\section{wa\+\_\+wave\+\_\+module\+\_\+base Module Reference}
\label{namespacewa__wave__module__base}\index{wa\+\_\+wave\+\_\+module\+\_\+base@{wa\+\_\+wave\+\_\+module\+\_\+base}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \hyperlink{namespacewa__wave__module__base_a4320975ce1dd5d55447300f3212b8f42}{wa\+\_\+base\+\_\+initial} (k\+\_\+in)
\item 
real(8) function, dimension(0\+:im-\/1, 1\+:jm, size(wa\+\_\+data, 2)), public \hyperlink{namespacewa__wave__module__base_a90766266c71e2413244d16b56a35ac47}{xya\+\_\+wa} (wa\+\_\+data, ipow, iflag)
\item 
real(8) function, dimension(2 $\ast$(nm-\/m+1), size(xya\+\_\+data, 3)), public \hyperlink{namespacewa__wave__module__base_a8d680d3f7449ce03408679f214309a23}{wa\+\_\+xya} (xya\+\_\+data, ipow, iflag)
\item 
subroutine, public \hyperlink{namespacewa__wave__module__base_a6ab8cb6d4a77191c06980a422674bc1b}{wa\+\_\+base\+\_\+finalize}
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, save, public \hyperlink{namespacewa__wave__module__base_ab560ad8d56221ab50ab7bc572732ad77}{km} =16
\end{DoxyCompactItemize}


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



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


\begin{DoxyCode}
178     \textcolor{comment}{! }
179     \textcolor{comment}{!}
180     \textcolor{comment}{! このサブルーチンを単独で用いるのでなく, }
181     \textcolor{comment}{! 上位サブルーチン wa\_Finalize を使用すること.}
182     \textcolor{comment}{!}
183     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'wa\_base\_finalize'},&
184          \textcolor{stringliteral}{'wa\_wave\_module\_base is finalized (dummy, 2020/11/24) '})
185 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__wave__module__base_a4320975ce1dd5d55447300f3212b8f42}\label{namespacewa__wave__module__base_a4320975ce1dd5d55447300f3212b8f42}} 
\index{wa\+\_\+wave\+\_\+module\+\_\+base@{wa\+\_\+wave\+\_\+module\+\_\+base}!wa\+\_\+base\+\_\+initial@{wa\+\_\+base\+\_\+initial}}
\index{wa\+\_\+base\+\_\+initial@{wa\+\_\+base\+\_\+initial}!wa\+\_\+wave\+\_\+module\+\_\+base@{wa\+\_\+wave\+\_\+module\+\_\+base}}
\subsubsection{\texorpdfstring{wa\+\_\+base\+\_\+initial()}{wa\_base\_initial()}}
{\footnotesize\ttfamily subroutine, public wa\+\_\+wave\+\_\+module\+\_\+base\+::wa\+\_\+base\+\_\+initial (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{k\+\_\+in }\end{DoxyParamCaption})}



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



References km.


\begin{DoxyCode}
74     \textcolor{comment}{! }
75     \textcolor{comment}{! SNPACK 用 wa\_base\_initial の互換のためのダミーサブルーチン}
76     \textcolor{comment}{!}
77     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: k\_in               \textcolor{comment}{!(in) 最大データ数(層数)}
78 
79     km = k\_in
80 
81     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'wa\_base\_initial'},&
82          \textcolor{stringliteral}{'No need to set maximum level number and in wa\_wave\_module\_base (2020/11/24) '})
83 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__wave__module__base_a8d680d3f7449ce03408679f214309a23}\label{namespacewa__wave__module__base_a8d680d3f7449ce03408679f214309a23}} 
\index{wa\+\_\+wave\+\_\+module\+\_\+base@{wa\+\_\+wave\+\_\+module\+\_\+base}!wa\+\_\+xya@{wa\+\_\+xya}}
\index{wa\+\_\+xya@{wa\+\_\+xya}!wa\+\_\+wave\+\_\+module\+\_\+base@{wa\+\_\+wave\+\_\+module\+\_\+base}}
\subsubsection{\texorpdfstring{wa\+\_\+xya()}{wa\_xya()}}
{\footnotesize\ttfamily real(8) function, dimension(2$\ast$(nm-\/m+1),size(xya\+\_\+data,3)), public wa\+\_\+wave\+\_\+module\+\_\+base\+::wa\+\_\+xya (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data,  }\item[{integer, intent(in), optional}]{ipow,  }\item[{integer, intent(in), optional}]{iflag }\end{DoxyParamCaption})}



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



References w\+\_\+wave\+\_\+module\+\_\+base\+::w\+\_\+xy().


\begin{DoxyCode}
132     \textcolor{comment}{!}
133     \textcolor{comment}{! 格子データからスペクトルデータへ(正)変換する(多層用).}
134     \textcolor{comment}{!}
135     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: xya\_data(0:,:,:)
136     \textcolor{comment}{!(in) 格子点データ(0:im-1,1:jm,:)}
137 
138     \textcolor{keywordtype}{real(8)}               :: wa\_xya(2*(nm-m+1),size(xya\_data,3))
139     \textcolor{comment}{!(out) スペクトルデータ(2*(nm-m+1),:)}
140 
141     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: ipow
142     \textcolor{comment}{!(in) 変換時に同時に作用させる 1/cosφ の次数. 省略時は 0.}
143 
144     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: iflag
145     \textcolor{comment}{! 変換の種類}
146     \textcolor{comment}{!    0 : 通常の正変換}
147     \textcolor{comment}{!   -1 : 経度微分を作用させた正変換 }
148     \textcolor{comment}{!    1 : 緯度微分 1/cosφ・∂(f cos^2φ)/∂φ を作用させた正変換}
149     \textcolor{comment}{!    2 : sinφを作用させた正変換}
150     \textcolor{comment}{!  省略時は 0.}
151     \textcolor{comment}{!}
152     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: ipow\_default  = 0      \textcolor{comment}{! スイッチデフォルト値}
153     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: iflag\_default = 0      \textcolor{comment}{! スイッチデフォルト値}
154 
155     \textcolor{keywordtype}{integer} ipval, ifval
156     \textcolor{keywordtype}{integer} k
157 
158     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ipow)) \textcolor{keywordflow}{then}
159        ipval = ipow
160     \textcolor{keywordflow}{else}
161        ipval = ipow\_default
162 \textcolor{keywordflow}{    endif}
163 
164     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(iflag)) \textcolor{keywordflow}{then}
165        ifval = iflag
166     \textcolor{keywordflow}{else}
167        ifval = iflag\_default
168 \textcolor{keywordflow}{    endif}
169 
170     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(xya\_data,3)
171        wa\_xya(:,k) = w\_xy(xya\_data(:,:,k),iflag=ifval,ipow=ipval)
172 \textcolor{keywordflow}{    enddo}
173 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__wave__module__base_a8d680d3f7449ce03408679f214309a23_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__wave__module__base_a90766266c71e2413244d16b56a35ac47}\label{namespacewa__wave__module__base_a90766266c71e2413244d16b56a35ac47}} 
\index{wa\+\_\+wave\+\_\+module\+\_\+base@{wa\+\_\+wave\+\_\+module\+\_\+base}!xya\+\_\+wa@{xya\+\_\+wa}}
\index{xya\+\_\+wa@{xya\+\_\+wa}!wa\+\_\+wave\+\_\+module\+\_\+base@{wa\+\_\+wave\+\_\+module\+\_\+base}}
\subsubsection{\texorpdfstring{xya\+\_\+wa()}{xya\_wa()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:im-\/1,1\+:jm,size(wa\+\_\+data,2)), public wa\+\_\+wave\+\_\+module\+\_\+base\+::xya\+\_\+wa (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{wa\+\_\+data,  }\item[{integer, intent(in), optional}]{ipow,  }\item[{integer, intent(in), optional}]{iflag }\end{DoxyParamCaption})}



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



References w\+\_\+wave\+\_\+module\+\_\+base\+::xy\+\_\+w().


\begin{DoxyCode}
89     \textcolor{comment}{!}
90     \textcolor{comment}{! スペクトルデータから格子データへ変換する(多層用).}
91     \textcolor{comment}{!}
92     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: wa\_data(:,:)
93     \textcolor{comment}{!(in) スペクトルデータ(2*(nm-m+1))}
94     \textcolor{comment}{!}
95     \textcolor{keywordtype}{real(8)}               :: xya\_wa(0:im-1,1:jm,size(wa\_data,2))
96     \textcolor{comment}{!(out) 格子点データ(0:im-1,1:jm,:)}
97     \textcolor{comment}{!}
98     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: ipow
99     \textcolor{comment}{!(in) 作用させる 1/cosφ の次数. 省略時は 0. }
100     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: iflag
101     \textcolor{comment}{!(in) 変換の種類}
102     \textcolor{comment}{!    0 : 通常の正変換}
103     \textcolor{comment}{!   -1 : 経度微分を作用させた逆変換}
104     \textcolor{comment}{!    1 : 緯度微分 cosφ・∂/∂φ を作用させた逆変換}
105     \textcolor{comment}{!    2 : sinφを作用させた逆変換}
106     \textcolor{comment}{!    省略時は 0.}
107     \textcolor{comment}{!}
108     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: ipow\_default  = 0
109     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: iflag\_default = 0
110     \textcolor{keywordtype}{integer} ipval, ifval
111     \textcolor{keywordtype}{integer} k
112 
113     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ipow)) \textcolor{keywordflow}{then}
114        ipval = ipow
115     \textcolor{keywordflow}{else}
116        ipval = ipow\_default
117 \textcolor{keywordflow}{    endif}
118 
119     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(iflag)) \textcolor{keywordflow}{then}
120        ifval = iflag
121     \textcolor{keywordflow}{else}
122        ifval = iflag\_default
123 \textcolor{keywordflow}{    endif}
124 
125     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(wa\_data,2)
126        xya\_wa(:,:,k) = xy\_w(wa\_data(:,k),iflag=ifval,ipow=ipval)
127 \textcolor{keywordflow}{    enddo}
128 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__wave__module__base_a90766266c71e2413244d16b56a35ac47_cgraph}
\end{center}
\end{figure}


\subsection{Variable Documentation}
\mbox{\Hypertarget{namespacewa__wave__module__base_ab560ad8d56221ab50ab7bc572732ad77}\label{namespacewa__wave__module__base_ab560ad8d56221ab50ab7bc572732ad77}} 
\index{wa\+\_\+wave\+\_\+module\+\_\+base@{wa\+\_\+wave\+\_\+module\+\_\+base}!km@{km}}
\index{km@{km}!wa\+\_\+wave\+\_\+module\+\_\+base@{wa\+\_\+wave\+\_\+module\+\_\+base}}
\subsubsection{\texorpdfstring{km}{km}}
{\footnotesize\ttfamily integer, save, public wa\+\_\+wave\+\_\+module\+\_\+base\+::km =16}



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


\begin{DoxyCode}
56   \textcolor{keywordtype}{integer}               :: km=16         \textcolor{comment}{! 同時に処理する最大データ数(層の数).}
\end{DoxyCode}
