\hypertarget{namespacewa__module__base}{}\doxysection{wa\+\_\+module\+\_\+base Module Reference}
\label{namespacewa__module__base}\index{wa\_module\_base@{wa\_module\_base}}


\doxysubsection{Detailed Description}
\mbox{\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 \mbox{\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}
本モジュールを直接呼ぶ事は想定されていないことに注意されたい． ユーザは \mbox{\hyperlink{namespacewa__module}{wa\+\_\+module}} を呼ぶこと． 
\end{DoxyWarning}
\doxysubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \mbox{\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 \mbox{\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 \mbox{\hyperlink{namespacewa__module__base_a80c96fda91fa12bb5ffc356d73ceb161}{wa\+\_\+xya}} (xya\+\_\+data, ipow, iflag)
\begin{DoxyCompactList}\small\item\em 格子点 -\/$>$ 球面調和関数スペクトル\+: 格子データからスペクトルデータへ(正)変換する(多層用). \end{DoxyCompactList}\item 
subroutine, public \mbox{\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 \mbox{\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 \mbox{\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 \mbox{\hyperlink{namespacewa__module__base_af6a7fde17ecc0c958b54f157c703e500}{wa\+\_\+base\+\_\+finalize}}
\begin{DoxyCompactList}\small\item\em 後方互換性のためのダミールーチン. 上位サブルーチン wa\+\_\+\+Finalize を使用すること. \end{DoxyCompactList}\end{DoxyCompactItemize}
\doxysubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer(8), save, public \mbox{\hyperlink{namespacewa__module__base_ae4a1d47ec6a131516579c124c05df9bd}{km}} =16
\begin{DoxyCompactList}\small\item\em 同時に処理する最大データ数(層の数)\+: S\+N\+P\+A\+CK 用ルーチンとの互換性のため. \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{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}}
\doxysubsubsection{\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}{0}
\DoxyCodeLine{270     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'wa\_base\_finalize: dummy'}, \&}
\DoxyCodeLine{271       \& \textcolor{stringliteral}{'wa\_base\_module is finalized'})}
\DoxyCodeLine{272 }

\end{DoxyCode}


Referenced by wa\+\_\+module\+::wa\+\_\+finalize().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{namespacewa__module__base_af6a7fde17ecc0c958b54f157c703e500_icgraph}
\end{center}
\end{figure}
\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}}
\doxysubsubsection{\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{\texttt{ in}}  & {\em k\+\_\+in} & 最大データ数(層数) \\
\hline
\end{DoxyParams}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{89 }
\DoxyCodeLine{90     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: k\_in}
\DoxyCodeLine{91 }
\DoxyCodeLine{92     km = k\_in}
\DoxyCodeLine{93     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'wa\_base\_initial: dummy'},\&}
\DoxyCodeLine{94       \textcolor{stringliteral}{'No need to set maximum level number and in wa\_base\_module'})}
\DoxyCodeLine{95 }

\end{DoxyCode}


References km.

\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}}
\doxysubsubsection{\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{\texttt{ in}}  & {\em wa\+\_\+psi} & 流線関数((nm+1)$\ast$(nm+1),\+:) \\
\hline
\mbox{\texttt{ in}}  & {\em wa\+\_\+chi} & 速度ポテンシャル((nm+1)$\ast$(nm+1),\+:) \\
\hline
\mbox{\texttt{ out}}  & {\em xya\+\_\+u} & 速度経度成分(0\+:im-\/1,1\+:jm,\+:) \\
\hline
\mbox{\texttt{ out}}  & {\em xya\+\_\+v} & 速度緯度成分(0\+:im-\/1,1\+:jm,\+:) \\
\hline
\end{DoxyParams}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{193 }
\DoxyCodeLine{194 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: wa\_Psi(:,:)}
\DoxyCodeLine{196 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: wa\_Chi(:,:)}
\DoxyCodeLine{198 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: xya\_U(0:im-\/1,1:jm,size(wa\_Psi,2))}
\DoxyCodeLine{200 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: xya\_V(0:im-\/1,1:jm,size(wa\_Psi,2))}
\DoxyCodeLine{201 }
\DoxyCodeLine{202     \textcolor{keywordtype}{integer} :: k}
\DoxyCodeLine{203 }
\DoxyCodeLine{204     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(wa\_psi,2)}
\DoxyCodeLine{205       \textcolor{keyword}{call }w\_streampotential2vector( \&}
\DoxyCodeLine{206         \& wa\_psi(:,k), wa\_chi(:,k), xya\_u(:,:,k), xya\_v(:,:,k) )}
\DoxyCodeLine{207 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{208 }

\end{DoxyCode}


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

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}}
\doxysubsubsection{\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{\texttt{ in}}  & {\em xya\+\_\+u} & 速度経度成分(0\+:im-\/1,1\+:jm,\+:) \\
\hline
\mbox{\texttt{ in}}  & {\em xya\+\_\+v} & 速度緯度成分(0\+:im-\/1,1\+:jm,\+:) \\
\hline
\mbox{\texttt{ out}}  & {\em wa\+\_\+vor} & 流線関数 \\
\hline
\mbox{\texttt{ out}}  & {\em wa\+\_\+div} & 速度ポテンシャル \\
\hline
\end{DoxyParams}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{221 }
\DoxyCodeLine{222 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xya\_U(0:,:,:)}
\DoxyCodeLine{224 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xya\_V(0:,:,:)}
\DoxyCodeLine{226 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: wa\_Vor((nm+1)*(nm+1),size(xya\_U,3))}
\DoxyCodeLine{228 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: wa\_Div((nm+1)*(nm+1),size(xya\_U,3))}
\DoxyCodeLine{229 }
\DoxyCodeLine{230     \textcolor{keywordtype}{integer} :: k}
\DoxyCodeLine{231 }
\DoxyCodeLine{232     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(xya\_u,3)}
\DoxyCodeLine{233       \textcolor{keyword}{call }w\_vector2vordiv( \&}
\DoxyCodeLine{234         \& xya\_u(:,:,k), xya\_v(:,:,k), wa\_vor(:,k), wa\_div(:,k))}
\DoxyCodeLine{235 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


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

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}}
\doxysubsubsection{\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{\texttt{ in}}  & {\em xya\+\_\+ucoslat} & 速度経度成分 $\ast$ cos(lat) (0\+:im-\/1,1\+:jm,\+:) \\
\hline
\mbox{\texttt{ in}}  & {\em xya\+\_\+vcoslat} & 速度緯度成分 $\ast$ cos(lat) (0\+:im-\/1,1\+:jm,\+:) \\
\hline
\mbox{\texttt{ out}}  & {\em wa\+\_\+vor} & 流線関数 \\
\hline
\mbox{\texttt{ out}}  & {\em wa\+\_\+div} & 速度ポテンシャル \\
\hline
\end{DoxyParams}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{248 }
\DoxyCodeLine{249 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xya\_UCosLat(0:,:,:)}
\DoxyCodeLine{251 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xya\_VCosLat(0:,:,:)}
\DoxyCodeLine{253 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: wa\_Vor((nm+1)*(nm+1),size(xya\_UCosLat,3))}
\DoxyCodeLine{255 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: wa\_Div((nm+1)*(nm+1),size(xya\_UCosLat,3))}
\DoxyCodeLine{256 }
\DoxyCodeLine{257     \textcolor{keywordtype}{integer} :: k}
\DoxyCodeLine{258 }
\DoxyCodeLine{259     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(xya\_ucoslat,3)}
\DoxyCodeLine{260       \textcolor{keyword}{call }w\_vectorcoslat2vordiv \&}
\DoxyCodeLine{261         (xya\_ucoslat(:,:,k), xya\_vcoslat(:,:,k), wa\_vor(:,k), wa\_div(:,k))}
\DoxyCodeLine{262 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


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

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}}
\doxysubsubsection{\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{\texttt{ 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{\texttt{ in}}  & {\em ipow} & 変換時に同時に作用させる $1/cosφ$ の次数. 省略時は 0. \\
\hline
\mbox{\texttt{ 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.


\begin{DoxyCode}{0}
\DoxyCodeLine{144 }
\DoxyCodeLine{145 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xya\_data(0:,:,:)}
\DoxyCodeLine{147 \textcolor{keywordtype}{    real}(DP)               :: wa\_xya((nm+1)*(nm+1),size(xya\_data,3))}
\DoxyCodeLine{149     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: ipow}
\DoxyCodeLine{155     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: iflag}
\DoxyCodeLine{156 }
\DoxyCodeLine{157     \textcolor{comment}{! スイッチデフォルト値}}
\DoxyCodeLine{158     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: ipow\_default  = 0}
\DoxyCodeLine{159     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: iflag\_default = 0}
\DoxyCodeLine{160 }
\DoxyCodeLine{161     \textcolor{keywordtype}{integer} ipval}
\DoxyCodeLine{162     \textcolor{keywordtype}{integer} ifval}
\DoxyCodeLine{163     \textcolor{keywordtype}{integer} k}
\DoxyCodeLine{164 }
\DoxyCodeLine{165     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ipow)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{166       ipval = ipow}
\DoxyCodeLine{167     \textcolor{keywordflow}{else}}
\DoxyCodeLine{168       ipval = ipow\_default}
\DoxyCodeLine{169 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{170 }
\DoxyCodeLine{171     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(iflag)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{172       ifval = iflag}
\DoxyCodeLine{173     \textcolor{keywordflow}{else}}
\DoxyCodeLine{174       ifval = iflag\_default}
\DoxyCodeLine{175 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{176 }
\DoxyCodeLine{177     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(xya\_data,3)}
\DoxyCodeLine{178       wa\_xya(:,k) = w\_xy(xya\_data(:,:,k),iflag=ifval,ipow=ipval)}
\DoxyCodeLine{179 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{180 }

\end{DoxyCode}


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



Referenced by wa\+\_\+module\+\_\+deriv\+::wa\+\_\+divlambda\+\_\+xya(), wa\+\_\+module\+\_\+deriv\+::wa\+\_\+divlat\+\_\+xya(), wa\+\_\+module\+\_\+deriv\+::wa\+\_\+divlon\+\_\+xya(), and wa\+\_\+module\+\_\+deriv\+::wa\+\_\+divmu\+\_\+xya().

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}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__base_a80c96fda91fa12bb5ffc356d73ceb161_icgraph}
\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}}
\doxysubsubsection{\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{\texttt{ 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{\texttt{ in}}  & {\em ipow} & 作用させる 1/cosφ の次数. 省略時は 0. \\
\hline
\mbox{\texttt{ 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.


\begin{DoxyCode}{0}
\DoxyCodeLine{103 }
\DoxyCodeLine{104 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: wa\_data(:,:)}
\DoxyCodeLine{106 \textcolor{keywordtype}{    real}(DP)               :: xya\_wa(0:im-\/1,1:jm,size(wa\_data,2))}
\DoxyCodeLine{108     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: ipow}
\DoxyCodeLine{114     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: iflag}
\DoxyCodeLine{115 }
\DoxyCodeLine{116     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: ipow\_default  = 0}
\DoxyCodeLine{117     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: iflag\_default = 0}
\DoxyCodeLine{118     \textcolor{keywordtype}{integer} ipval, ifval}
\DoxyCodeLine{119     \textcolor{keywordtype}{integer} k}
\DoxyCodeLine{120 }
\DoxyCodeLine{121     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ipow)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{122       ipval = ipow}
\DoxyCodeLine{123     \textcolor{keywordflow}{else}}
\DoxyCodeLine{124       ipval = ipow\_default}
\DoxyCodeLine{125 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{126 }
\DoxyCodeLine{127     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(iflag)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{128       ifval = iflag}
\DoxyCodeLine{129     \textcolor{keywordflow}{else}}
\DoxyCodeLine{130       ifval = iflag\_default}
\DoxyCodeLine{131 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{132 }
\DoxyCodeLine{133     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(wa\_data,2)}
\DoxyCodeLine{134       xya\_wa(:,:,k) = xy\_w(wa\_data(:,k),iflag=ifval,ipow=ipval)}
\DoxyCodeLine{135 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{136 }

\end{DoxyCode}


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



Referenced by wa\+\_\+module\+\_\+deriv\+::xya\+\_\+gradlambda\+\_\+wa(), wa\+\_\+module\+\_\+deriv\+::xya\+\_\+gradlat\+\_\+wa(), wa\+\_\+module\+\_\+deriv\+::xya\+\_\+gradlon\+\_\+wa(), and wa\+\_\+module\+\_\+deriv\+::xya\+\_\+gradmu\+\_\+wa().

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}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__base_aa9be1c08f985cd84ed96076d55acce07_icgraph}
\end{center}
\end{figure}


\doxysubsection{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}}
\doxysubsubsection{\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}{0}
\DoxyCodeLine{75   \textcolor{keywordtype}{integer(8)} :: km=16}

\end{DoxyCode}


Referenced by wa\+\_\+base\+\_\+initial().

