\hypertarget{namespacewa__module__base}{}\section{wa\+\_\+module\+\_\+base Module Reference}
\label{namespacewa__module__base}\index{wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}}


\hyperlink{namespacewa__module}{wa\+\_\+module} の下部モジュール\+: 基本変換  


\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \hyperlink{namespacewa__module__base_ad6b9fa987cdb280f839a7ec1e80665a3}{wa\+\_\+base\+\_\+initial} (k\+\_\+in)
\begin{DoxyCompactList}\small\item\em S\+N\+P\+A\+CK 用 wa\+\_\+base\+\_\+initial の互換のためのダミーサブルーチン \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:im-\/1, 1\+:jm, size(wa\+\_\+data, 2)), public \hyperlink{namespacewa__module__base_aa9be1c08f985cd84ed96076d55acce07}{xya\+\_\+wa} (wa\+\_\+data, ipow, iflag)
\begin{DoxyCompactList}\small\item\em 球面調和関数スペクトル -\/$>$ 格子点\+: スペクトルデータから格子点へと逆変換する(多層用) \end{DoxyCompactList}\item 
real(dp) function, dimension((nm+1) $\ast$(nm+1), size(xya\+\_\+data, 3)), public \hyperlink{namespacewa__module__base_a80c96fda91fa12bb5ffc356d73ceb161}{wa\+\_\+xya} (xya\+\_\+data, ipow, iflag)
\begin{DoxyCompactList}\small\item\em 格子点 -\/$>$ 球面調和関数スペクトル\+: 格子データからスペクトルデータへ(正)変換する(多層用). \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacewa__module__base_aec8c477c419e359b50ec4e78718a96ee}{wa\+\_\+streampotential2vector} (wa\+\_\+\+Psi, wa\+\_\+\+Chi, xya\+\_\+U, xya\+\_\+V)
\begin{DoxyCompactList}\small\item\em 流線・ポテンシャル(スペクトルデータ)から速度場(格子データ)に (逆)変換する(多層用) \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacewa__module__base_ac4326534876aad64918772a57adbf158}{wa\+\_\+vector2vordiv} (xya\+\_\+U, xya\+\_\+V, wa\+\_\+\+Vor, wa\+\_\+\+Div)
\begin{DoxyCompactList}\small\item\em 速度場(格子データ)から渦度・発散(スペクトルデータ)に (正)変換する(多層用) \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacewa__module__base_a66e798da3f249687f9322b5b7748182a}{wa\+\_\+vectorcoslat2vordiv} (xya\+\_\+\+U\+Cos\+Lat, xya\+\_\+\+V\+Cos\+Lat, wa\+\_\+\+Vor, wa\+\_\+\+Div)
\begin{DoxyCompactList}\small\item\em 速度場(格子データ)から渦度・発散(スペクトルデータ)に (正)変換する(多層用) \end{DoxyCompactList}\item 
subroutine, public \hyperlink{namespacewa__module__base_af6a7fde17ecc0c958b54f157c703e500}{wa\+\_\+base\+\_\+finalize}
\begin{DoxyCompactList}\small\item\em 後方互換性のためのダミールーチン. 上位サブルーチン wa\+\_\+\+Finalize を使用すること. \end{DoxyCompactList}\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer(8), save, public \hyperlink{namespacewa__module__base_ae4a1d47ec6a131516579c124c05df9bd}{km} =16
\begin{DoxyCompactList}\small\item\em 同時に処理する最大データ数(層の数)\+: S\+N\+P\+A\+CK 用ルーチンとの互換性のため. \end{DoxyCompactList}\end{DoxyCompactItemize}


\subsection{Detailed Description}
\hyperlink{namespacewa__module}{wa\+\_\+module} の下部モジュール\+: 基本変換 

\begin{DoxyCopyright}{Copyright}
Copyright (C) S\+P\+M\+O\+D\+EL Development Group, 2002-\/2019. License is M\+I\+T/\+X11. see \hyperlink{COPYRIGHT}{C\+O\+P\+Y\+R\+I\+G\+HT} in detail 
\end{DoxyCopyright}
\begin{DoxyAuthor}{Author}
Shin-\/ichi Takehiro, Youhei S\+A\+S\+A\+KI 
\end{DoxyAuthor}
\begin{DoxyWarning}{Warning}
本モジュールを直接呼ぶ事は想定されていないことに注意されたい． ユーザは \hyperlink{namespacewa__module}{wa\+\_\+module} を呼ぶこと． 
\end{DoxyWarning}


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



後方互換性のためのダミールーチン. 上位サブルーチン wa\+\_\+\+Finalize を使用すること. 



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


\begin{DoxyCode}
270     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'wa\_base\_finalize: dummy'}, &
271       & \textcolor{stringliteral}{'wa\_base\_module is finalized'})
272 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__base_ad6b9fa987cdb280f839a7ec1e80665a3}\label{namespacewa__module__base_ad6b9fa987cdb280f839a7ec1e80665a3}} 
\index{wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}!wa\+\_\+base\+\_\+initial@{wa\+\_\+base\+\_\+initial}}
\index{wa\+\_\+base\+\_\+initial@{wa\+\_\+base\+\_\+initial}!wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}}
\subsubsection{\texorpdfstring{wa\+\_\+base\+\_\+initial()}{wa\_base\_initial()}}
{\footnotesize\ttfamily subroutine, public wa\+\_\+module\+\_\+base\+::wa\+\_\+base\+\_\+initial (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{k\+\_\+in }\end{DoxyParamCaption})}



S\+N\+P\+A\+CK 用 wa\+\_\+base\+\_\+initial の互換のためのダミーサブルーチン 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em k\+\_\+in} & 最大データ数(層数) \\
\hline
\end{DoxyParams}


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



References km.


\begin{DoxyCode}
89 
90     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: k\_in
91 
92     km = k\_in
93     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'wa\_base\_initial: dummy'},&
94       \textcolor{stringliteral}{'No need to set maximum level number and in wa\_base\_module'})
95 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__base_aec8c477c419e359b50ec4e78718a96ee}\label{namespacewa__module__base_aec8c477c419e359b50ec4e78718a96ee}} 
\index{wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}!wa\+\_\+streampotential2vector@{wa\+\_\+streampotential2vector}}
\index{wa\+\_\+streampotential2vector@{wa\+\_\+streampotential2vector}!wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}}
\subsubsection{\texorpdfstring{wa\+\_\+streampotential2vector()}{wa\_streampotential2vector()}}
{\footnotesize\ttfamily subroutine, public wa\+\_\+module\+\_\+base\+::wa\+\_\+streampotential2vector (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+\+Psi,  }\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+\+Chi,  }\item[{real(dp), dimension(0\+:im-\/1,1\+:jm,size(wa\+\_\+psi,2)), intent(out)}]{xya\+\_\+U,  }\item[{real(dp), dimension(0\+:im-\/1,1\+:jm,size(wa\+\_\+psi,2)), intent(out)}]{xya\+\_\+V }\end{DoxyParamCaption})}



流線・ポテンシャル(スペクトルデータ)から速度場(格子データ)に (逆)変換する(多層用) 

スペクトル変換を用いず微分を計算するために, 変換回数が 2 回ですむ. \begin{align*} u \cosφ & = ∂χ/∂λ - \cosφ∂ψ/∂φ, \\ v \cosφ = \cosφ∂χ/∂φ + ∂ψ/∂λ \end{align*}


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em wa\+\_\+psi} & 流線関数((nm+1)$\ast$(nm+1),\+:)\\
\hline
\mbox{\tt in}  & {\em wa\+\_\+chi} & 速度ポテンシャル((nm+1)$\ast$(nm+1),\+:)\\
\hline
\mbox{\tt out}  & {\em xya\+\_\+u} & 速度経度成分(0\+:im-\/1,1\+:jm,\+:)\\
\hline
\mbox{\tt out}  & {\em xya\+\_\+v} & 速度緯度成分(0\+:im-\/1,1\+:jm,\+:) \\
\hline
\end{DoxyParams}


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



References w\+\_\+module\+\_\+base\+::w\+\_\+streampotential2vector().


\begin{DoxyCode}
193 
194     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: wa\_psi(:,:)
196     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: wa\_chi(:,:)
198     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}   :: xya\_u(0:im-1,1:jm,size(wa\_psi,2))
200     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}   :: xya\_v(0:im-1,1:jm,size(wa\_psi,2))
201 
202     \textcolor{keywordtype}{integer} :: k
203 
204     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(wa\_psi,2)
205       \textcolor{keyword}{call }w\_streampotential2vector( &
206         & wa\_psi(:,k), wa\_chi(:,k), xya\_u(:,:,k), xya\_v(:,:,k) )
207 \textcolor{keywordflow}{    enddo}
208 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__base_aec8c477c419e359b50ec4e78718a96ee_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__base_ac4326534876aad64918772a57adbf158}\label{namespacewa__module__base_ac4326534876aad64918772a57adbf158}} 
\index{wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}!wa\+\_\+vector2vordiv@{wa\+\_\+vector2vordiv}}
\index{wa\+\_\+vector2vordiv@{wa\+\_\+vector2vordiv}!wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}}
\subsubsection{\texorpdfstring{wa\+\_\+vector2vordiv()}{wa\_vector2vordiv()}}
{\footnotesize\ttfamily subroutine, public wa\+\_\+module\+\_\+base\+::wa\+\_\+vector2vordiv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+U,  }\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+V,  }\item[{real(dp), dimension((nm+1)$\ast$(nm+1),size(xya\+\_\+u,3)), intent(out)}]{wa\+\_\+\+Vor,  }\item[{real(dp), dimension((nm+1)$\ast$(nm+1),size(xya\+\_\+u,3)), intent(out)}]{wa\+\_\+\+Div }\end{DoxyParamCaption})}



速度場(格子データ)から渦度・発散(スペクトルデータ)に (正)変換する(多層用) 

スペクトル変換を用いず微分を計算するために, 変換回数が 2 回ですむ. \begin{align*} ζ & = 1/\cosφ ∂v/∂λ - 1/\cosφ ∂(u \cosφ)/∂φ, \\ D = 1/\cosφ ∂u/∂λ + 1/\cosφ ∂(v \cosφ)/∂φ \end{align*}


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em xya\+\_\+u} & 速度経度成分(0\+:im-\/1,1\+:jm,\+:)\\
\hline
\mbox{\tt in}  & {\em xya\+\_\+v} & 速度緯度成分(0\+:im-\/1,1\+:jm,\+:)\\
\hline
\mbox{\tt out}  & {\em wa\+\_\+vor} & 流線関数\\
\hline
\mbox{\tt out}  & {\em wa\+\_\+div} & 速度ポテンシャル \\
\hline
\end{DoxyParams}


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



References w\+\_\+module\+\_\+base\+::w\+\_\+vector2vordiv().


\begin{DoxyCode}
221 
222     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: xya\_u(0:,:,:)
224     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: xya\_v(0:,:,:)
226     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}   :: wa\_vor((nm+1)*(nm+1),size(xya\_u,3))
228     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}   :: wa\_div((nm+1)*(nm+1),size(xya\_u,3))
229 
230     \textcolor{keywordtype}{integer} :: k
231 
232     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(xya\_u,3)
233       \textcolor{keyword}{call }w\_vector2vordiv( &
234         & xya\_u(:,:,k), xya\_v(:,:,k), wa\_vor(:,k), wa\_div(:,k))
235 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__base_ac4326534876aad64918772a57adbf158_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__base_a66e798da3f249687f9322b5b7748182a}\label{namespacewa__module__base_a66e798da3f249687f9322b5b7748182a}} 
\index{wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}!wa\+\_\+vectorcoslat2vordiv@{wa\+\_\+vectorcoslat2vordiv}}
\index{wa\+\_\+vectorcoslat2vordiv@{wa\+\_\+vectorcoslat2vordiv}!wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}}
\subsubsection{\texorpdfstring{wa\+\_\+vectorcoslat2vordiv()}{wa\_vectorcoslat2vordiv()}}
{\footnotesize\ttfamily subroutine, public wa\+\_\+module\+\_\+base\+::wa\+\_\+vectorcoslat2vordiv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+\+U\+Cos\+Lat,  }\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+\+V\+Cos\+Lat,  }\item[{real(dp), dimension((nm+1)$\ast$(nm+1),size(xya\+\_\+ucoslat,3)), intent(out)}]{wa\+\_\+\+Vor,  }\item[{real(dp), dimension((nm+1)$\ast$(nm+1),size(xya\+\_\+ucoslat,3)), intent(out)}]{wa\+\_\+\+Div }\end{DoxyParamCaption})}



速度場(格子データ)から渦度・発散(スペクトルデータ)に (正)変換する(多層用) 

スペクトル変換を用いず微分を計算するために, 変換回数が 2 回ですむ. \begin{align*} ζ & = 1/\cosφ∂v/∂λ - 1/\cosφ ∂(u \cosφ)/∂φ, \\ D & = 1/\cosφ∂u/∂λ + 1/\cosφ ∂(v \cosφ)/∂φ \end{align*}


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em xya\+\_\+ucoslat} & 速度経度成分 $\ast$ cos(lat) (0\+:im-\/1,1\+:jm,\+:)\\
\hline
\mbox{\tt in}  & {\em xya\+\_\+vcoslat} & 速度緯度成分 $\ast$ cos(lat) (0\+:im-\/1,1\+:jm,\+:)\\
\hline
\mbox{\tt out}  & {\em wa\+\_\+vor} & 流線関数\\
\hline
\mbox{\tt out}  & {\em wa\+\_\+div} & 速度ポテンシャル \\
\hline
\end{DoxyParams}


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



References w\+\_\+module\+\_\+base\+::w\+\_\+vectorcoslat2vordiv().


\begin{DoxyCode}
248 
249     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: xya\_ucoslat(0:,:,:)
251     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: xya\_vcoslat(0:,:,:)
253     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}   :: wa\_vor((nm+1)*(nm+1),size(xya\_ucoslat,3))
255     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(out)}   :: wa\_div((nm+1)*(nm+1),size(xya\_ucoslat,3))
256 
257     \textcolor{keywordtype}{integer} :: k
258 
259     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(xya\_ucoslat,3)
260       \textcolor{keyword}{call }w\_vectorcoslat2vordiv &
261         (xya\_ucoslat(:,:,k), xya\_vcoslat(:,:,k), wa\_vor(:,k), wa\_div(:,k))
262 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__base_a66e798da3f249687f9322b5b7748182a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__base_a80c96fda91fa12bb5ffc356d73ceb161}\label{namespacewa__module__base_a80c96fda91fa12bb5ffc356d73ceb161}} 
\index{wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}!wa\+\_\+xya@{wa\+\_\+xya}}
\index{wa\+\_\+xya@{wa\+\_\+xya}!wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}}
\subsubsection{\texorpdfstring{wa\+\_\+xya()}{wa\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension((nm+1)$\ast$(nm+1),size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+base\+::wa\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data,  }\item[{integer, intent(in), optional}]{ipow,  }\item[{integer, intent(in), optional}]{iflag }\end{DoxyParamCaption})}



格子点 -\/$>$ 球面調和関数スペクトル\+: 格子データからスペクトルデータへ(正)変換する(多層用). 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em xya\+\_\+data} & 格子点データ(0\+:im-\/1,1\+:jm,\+:)\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ((nm+1)$\ast$(nm+1),\+:)
\end{DoxyReturn}

\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em ipow} & 変換時に同時に作用させる $1/cosφ$ の次数. 省略時は 0.\\
\hline
\mbox{\tt in}  & {\em iflag} & 変換の種類. 省略時は 0
\begin{DoxyItemize}
\item 0 \+: 通常の正変換
\item -\/1 \+: 経度微分を作用させた正変換
\item 1 \+: 緯度微分 $1/cosφ・∂(f \cos^2φ)/∂φ$ を作用させた正変換
\item 2 \+: $sinφ$を作用させた正変換 
\end{DoxyItemize}\\
\hline
\end{DoxyParams}


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



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


\begin{DoxyCode}
144 
145     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: xya\_data(0:,:,:)
147     \textcolor{keywordtype}{real(DP)}               :: wa\_xya((nm+1)*(nm+1),size(xya\_data,3))
149     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: ipow
155     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: iflag
156 
157     \textcolor{comment}{! スイッチデフォルト値}
158     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: ipow\_default  = 0
159     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: iflag\_default = 0
160 
161     \textcolor{keywordtype}{integer} ipval
162     \textcolor{keywordtype}{integer} ifval
163     \textcolor{keywordtype}{integer} k
164 
165     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ipow)) \textcolor{keywordflow}{then}
166       ipval = ipow
167     \textcolor{keywordflow}{else}
168       ipval = ipow\_default
169 \textcolor{keywordflow}{    endif}
170 
171     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(iflag)) \textcolor{keywordflow}{then}
172       ifval = iflag
173     \textcolor{keywordflow}{else}
174       ifval = iflag\_default
175 \textcolor{keywordflow}{    endif}
176 
177     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(xya\_data,3)
178       wa\_xya(:,k) = w\_xy(xya\_data(:,:,k),iflag=ifval,ipow=ipval)
179 \textcolor{keywordflow}{    enddo}
180 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__base_a80c96fda91fa12bb5ffc356d73ceb161_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__base_aa9be1c08f985cd84ed96076d55acce07}\label{namespacewa__module__base_aa9be1c08f985cd84ed96076d55acce07}} 
\index{wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}!xya\+\_\+wa@{xya\+\_\+wa}}
\index{xya\+\_\+wa@{xya\+\_\+wa}!wa\+\_\+module\+\_\+base@{wa\+\_\+module\+\_\+base}}
\subsubsection{\texorpdfstring{xya\+\_\+wa()}{xya\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1,1\+:jm,size(wa\+\_\+data,2)), public wa\+\_\+module\+\_\+base\+::xya\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+data,  }\item[{integer, intent(in), optional}]{ipow,  }\item[{integer, intent(in), optional}]{iflag }\end{DoxyParamCaption})}



球面調和関数スペクトル -\/$>$ 格子点\+: スペクトルデータから格子点へと逆変換する(多層用) 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em wa\+\_\+data} & スペクトルデータ((nm+1)$\ast$(nm+1),\+:)\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
格子点データ(0\+:im-\/1,1\+:jm,\+:)
\end{DoxyReturn}

\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em ipow} & 作用させる 1/cosφ の次数. 省略時は 0.\\
\hline
\mbox{\tt in}  & {\em iflag} & 変換の種類. 省略時は 0
\begin{DoxyItemize}
\item 0 \+: 通常の正変換
\item -\/1 \+: 経度微分を作用させた逆変換
\item 1 \+: 緯度微分 $cosφ・∂/∂φ $ を作用させた逆変換
\item 2 \+: $sinφ$を作用させた逆変換 
\end{DoxyItemize}\\
\hline
\end{DoxyParams}


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



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


\begin{DoxyCode}
103 
104     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: wa\_data(:,:)
106     \textcolor{keywordtype}{real(DP)}               :: xya\_wa(0:im-1,1:jm,size(wa\_data,2))
108     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: ipow
114     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: iflag
115 
116     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: ipow\_default  = 0
117     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: iflag\_default = 0
118     \textcolor{keywordtype}{integer} ipval, ifval
119     \textcolor{keywordtype}{integer} k
120 
121     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ipow)) \textcolor{keywordflow}{then}
122       ipval = ipow
123     \textcolor{keywordflow}{else}
124       ipval = ipow\_default
125 \textcolor{keywordflow}{    endif}
126 
127     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(iflag)) \textcolor{keywordflow}{then}
128       ifval = iflag
129     \textcolor{keywordflow}{else}
130       ifval = iflag\_default
131 \textcolor{keywordflow}{    endif}
132 
133     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(wa\_data,2)
134       xya\_wa(:,:,k) = xy\_w(wa\_data(:,k),iflag=ifval,ipow=ipval)
135 \textcolor{keywordflow}{    enddo}
136 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__base_aa9be1c08f985cd84ed96076d55acce07_cgraph}
\end{center}
\end{figure}


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



同時に処理する最大データ数(層の数)\+: S\+N\+P\+A\+CK 用ルーチンとの互換性のため. 



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


\begin{DoxyCode}
75   \textcolor{keywordtype}{integer(8)} :: km=16
\end{DoxyCode}
