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


\doxysubsection{Detailed Description}
\mbox{\hyperlink{namespacew__module}{w\+\_\+module}} の下部モジュール\+: 基本変換 

\begin{DoxyCopyright}{Copyright}
Copyright (C) S\+P\+M\+O\+D\+EL Development Group, 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{namespacew__module}{w\+\_\+module}} を呼ぶこと． 
\end{DoxyWarning}
\doxysubsection*{Data Types}
\begin{DoxyCompactItemize}
\item 
interface \mbox{\hyperlink{interfacew__module__base_1_1l__nm}{l\+\_\+nm}}
\item 
interface \mbox{\hyperlink{interfacew__module__base_1_1nm__l}{nm\+\_\+l}}
\end{DoxyCompactItemize}
\doxysubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \mbox{\hyperlink{namespacew__module__base_a62d59c610b698210a4546275708034ed}{w\+\_\+base\+\_\+initial}} (n\+\_\+in, i\+\_\+in, j\+\_\+in, np\+\_\+in)
\begin{DoxyCompactList}\small\item\em スペクトル変換の格子点数, 波数および O\+P\+E\+N\+MP 使用時の 最大スレッド数を設定する. \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}{im}}-\/1, 1\+:\mbox{\hyperlink{namespacew__module__base_af43b1636567492abc94863c4a262622a}{jm}}), public \mbox{\hyperlink{namespacew__module__base_a8c988f23cc273731d93e9d3e249b64e5}{xy\+\_\+w}} (w\+\_\+data, ipow, iflag)
\begin{DoxyCompactList}\small\item\em スペクトルデータから格子データへ変換する(1 層用). \end{DoxyCompactList}\item 
real(dp) function, dimension((\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1) $\ast$(\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)), public \mbox{\hyperlink{namespacew__module__base_ac2c97a298ba072c23d3a148018998ac5}{w\+\_\+xy}} (xy\+\_\+data, ipow, iflag)
\begin{DoxyCompactList}\small\item\em 格子データからスペクトルデータへ(正)変換する(1 層用). \end{DoxyCompactList}\item 
subroutine, public \mbox{\hyperlink{namespacew__module__base_a496a5089e89bf920c12c56f29089d51b}{w\+\_\+streampotential2vector}} (w\+\_\+\+Psi, w\+\_\+\+Chi, xy\+\_\+U, xy\+\_\+V)
\begin{DoxyCompactList}\small\item\em 流線・ポテンシャル(スペクトルデータ)から速度場(格子データ)に (逆)変換する(1 層用) \end{DoxyCompactList}\item 
subroutine, public \mbox{\hyperlink{namespacew__module__base_af7cb0ea7552281e416b5045af7ab3837}{w\+\_\+vector2vordiv}} (xy\+\_\+U, xy\+\_\+V, w\+\_\+\+Vor, w\+\_\+\+Div)
\begin{DoxyCompactList}\small\item\em 速度場(格子データ)から渦度・発散(スペクトルデータ)に (正)変換する(1 層用) \end{DoxyCompactList}\item 
subroutine, public \mbox{\hyperlink{namespacew__module__base_a972eb288433b29554df9c889f8ef54e6}{w\+\_\+vectorcoslat2vordiv}} (xy\+\_\+\+U\+Cos\+Lat, xy\+\_\+\+V\+Cos\+Lat, w\+\_\+\+Vor, w\+\_\+\+Div)
\begin{DoxyCompactList}\small\item\em 速度場(格子データ)から渦度・発散(スペクトルデータ)に (正)変換する(1 層用) \end{DoxyCompactList}\item 
subroutine, public \mbox{\hyperlink{namespacew__module__base_ae3ecd1eb76adbc1e2690660b030fd7de}{w\+\_\+base\+\_\+finalize}}
\begin{DoxyCompactList}\small\item\em 終了処理(割り付け配列の解放)をおこなう \end{DoxyCompactList}\item 
integer function \mbox{\hyperlink{namespacew__module__base_a7e490aad6b9e769e09c1db9f373b2edc}{l\+\_\+nm\+\_\+array00}} (n, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function \mbox{\hyperlink{namespacew__module__base_a3c96babb10e8da6159ece4a2b3f870f9}{l\+\_\+nm\+\_\+darray00}} (n, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function, dimension(size(marray)) \mbox{\hyperlink{namespacew__module__base_aba0a731beb9a7b561e4b80ca34f2a96b}{l\+\_\+nm\+\_\+array01}} (n, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function, dimension(size(marray)) \mbox{\hyperlink{namespacew__module__base_a36298dfcbbc2c71a5a502abb35bfcc5d}{l\+\_\+nm\+\_\+darray01}} (n, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{namespacew__module__base_ac651f30f5bb7da63eaa79bfccbdb9343}{l\+\_\+nm\+\_\+array10}} (narray, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{namespacew__module__base_a269bc000e5d39f50ec8ab94755c50c77}{l\+\_\+nm\+\_\+darray10}} (narray, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{namespacew__module__base_a6b1e32f2b8fdf67cd0627e482d8c3959}{l\+\_\+nm\+\_\+array11}} (narray, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{namespacew__module__base_a1470c64e695e043c5959f9c1970a1d5b}{l\+\_\+nm\+\_\+darray11}} (narray, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(2) \mbox{\hyperlink{namespacew__module__base_a2c5001e5665033398b21c10ec82969c8}{nm\+\_\+l\+\_\+int}} (l)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. \end{DoxyCompactList}\item 
integer function, dimension(2) \mbox{\hyperlink{namespacew__module__base_a5eb09ebe02c816111089dc543459854d}{nm\+\_\+l\+\_\+dint}} (l)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(larray), 2) \mbox{\hyperlink{namespacew__module__base_a25283aedbc8422f55a0680bc850d3255}{nm\+\_\+l\+\_\+array}} (larray)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す \end{DoxyCompactList}\item 
integer function, dimension(size(larray), 2) \mbox{\hyperlink{namespacew__module__base_a5af788a738fadbe68af495b880a6ca6c}{nm\+\_\+l\+\_\+darray}} (larray)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す \end{DoxyCompactList}\end{DoxyCompactItemize}
\doxysubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespacew__module__base_ae875323468dc412db617d265fcf88b2a}{x\+\_\+lon}}
\begin{DoxyCompactList}\small\item\em 緯度座標 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespacew__module__base_a58d8184c4227f4fa64acabca0ac5c977}{x\+\_\+lon\+\_\+weight}}
\begin{DoxyCompactList}\small\item\em 緯度座標重み \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespacew__module__base_a4c34a1556ac18599ef73000b6b583579}{y\+\_\+lat}}
\begin{DoxyCompactList}\small\item\em 経度座標 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespacew__module__base_a52e4db808630002b9e3e75b55f5efcb2}{y\+\_\+lat\+\_\+weight}}
\begin{DoxyCompactList}\small\item\em 経度座標重み \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), allocatable, public \mbox{\hyperlink{namespacew__module__base_a916da409070cdd92318081f7e13c1861}{xy\+\_\+lon}}
\begin{DoxyCompactList}\small\item\em 緯度座標(2次元配列) \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), allocatable, public \mbox{\hyperlink{namespacew__module__base_a263eec8100074f932519e03dcdc7fe70}{xy\+\_\+lat}}
\begin{DoxyCompactList}\small\item\em 経度座標(2次元配列) \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}{im}} =64
\begin{DoxyCompactList}\small\item\em 格子点の設定(東西) \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__module__base_af43b1636567492abc94863c4a262622a}{jm}} =32
\begin{DoxyCompactList}\small\item\em 格子点の設定(南北) \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__module__base_acf736a465b5b61d1052551a2f4a01887}{mm}}
\begin{DoxyCompactList}\small\item\em m の切断波数 \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}
\begin{DoxyCompactList}\small\item\em n の切断波数 \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__module__base_a638a700c782dbddc42ad712e56732039}{nm}}
\begin{DoxyCompactList}\small\item\em n の最大値 \end{DoxyCompactList}\item 
integer(8), dimension(\+:), allocatable, save, public \mbox{\hyperlink{namespacew__module__base_a400ef58b518e0ddf5e4f885208ae0024}{it}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
integer(8), dimension(\+:), allocatable, save, public \mbox{\hyperlink{namespacew__module__base_a7c9706ef51676d40eac61bb222053461}{jc}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, save, public \mbox{\hyperlink{namespacew__module__base_af74bd8b86875db7085f703fa75e696fd}{t}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, save, public \mbox{\hyperlink{namespacew__module__base_a626a9654aebdfa598bdcffce400789cf}{r}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), pointer, save, public \mbox{\hyperlink{namespacew__module__base_aa1ced0b2e40cdb42fe30aefa3b143488}{p}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), pointer \mbox{\hyperlink{namespacew__module__base_a696a049e5b07ebe6bc60fe20d24dabbe}{w}}
\item 
real(dp), dimension(\+:), pointer \mbox{\hyperlink{namespacew__module__base_a8de578b3397bd732eaeab6a99755ec99}{g}}
\item 
real(dp), dimension(\+:), pointer \mbox{\hyperlink{namespacew__module__base_a10d093c51b79216f407a1fcd99941327}{g1}}
\item 
real(dp), dimension(\+:), pointer \mbox{\hyperlink{namespacew__module__base_adf8d8ee12312c7e0efd45e54c93772aa}{g2}}
\item 
real(dp), dimension(\+:), pointer \mbox{\hyperlink{namespacew__module__base_aa7b5ff66c5013114c1463cdb040ac86a}{ww}}
\item 
integer(8) \mbox{\hyperlink{namespacew__module__base_a8ef9cf5e51efae4ae1bfaa7e68b8b1e8}{ig}} =1
\item 
type(c\+\_\+ptr) \mbox{\hyperlink{namespacew__module__base_a358b0e3d527be8c73ea2a7f49f50b01b}{pp}}
\item 
type(c\+\_\+ptr) \mbox{\hyperlink{namespacew__module__base_a8f8bfece89b8f7f85c895c128512e857}{pg}}
\item 
type(c\+\_\+ptr) \mbox{\hyperlink{namespacew__module__base_aed13b6860bbc26b6e2452130d3e66ee2}{pw}}
\item 
type(c\+\_\+ptr) \mbox{\hyperlink{namespacew__module__base_a73c7cb98320d0b516194efaf96354e46}{pww}}
\item 
type(c\+\_\+ptr) \mbox{\hyperlink{namespacew__module__base_a82c05be7d2785cfa49cab56fc1cbb2db}{pg1}}
\item 
type(c\+\_\+ptr) \mbox{\hyperlink{namespacew__module__base_a821ca633047bd7e700157a8989b8b215}{pg2}}
\item 
real(dp), dimension(\+:), allocatable, save \mbox{\hyperlink{namespacew__module__base_a8e244a50020d53a2fb07ad2eb9d8aa7f}{c}}
\item 
logical, save \mbox{\hyperlink{namespacew__module__base_aef8bf4ba678edf1d0ff14b2625fad176}{w\+\_\+base\+\_\+initialize}} =.false.
\end{DoxyCompactItemize}


\doxysubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacew__module__base_a7e490aad6b9e769e09c1db9f373b2edc}\label{namespacew__module__base_a7e490aad6b9e769e09c1db9f373b2edc}} 
\index{w\_module\_base@{w\_module\_base}!l\_nm\_array00@{l\_nm\_array00}}
\index{l\_nm\_array00@{l\_nm\_array00}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array00()}{l\_nm\_array00()}}
{\footnotesize\ttfamily integer function w\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+array00 (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{n,  }\item[{integer, intent(in)}]{m }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す 

引数 n,m がともに整数値の場合, 整数値を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


Definition at line 558 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{558 }
\DoxyCodeLine{559     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: n}
\DoxyCodeLine{561     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: m}
\DoxyCodeLine{563     \textcolor{keywordtype}{integer}               :: l\_nm\_array00}
\DoxyCodeLine{564 }
\DoxyCodeLine{565     \textcolor{keywordtype}{integer(8)}   :: nd     \textcolor{comment}{! 全波数}}
\DoxyCodeLine{566     \textcolor{keywordtype}{integer(8)}   :: md     \textcolor{comment}{! 帯状波数}}
\DoxyCodeLine{567     \textcolor{keywordtype}{integer(8)}   :: ld     \textcolor{comment}{! スペクトルデータの格納位置}}
\DoxyCodeLine{568 }
\DoxyCodeLine{569     nd = n}
\DoxyCodeLine{570     md = m}
\DoxyCodeLine{571     \textcolor{keyword}{call }sxnm2l(nn,nd,md,ld)}
\DoxyCodeLine{572     l\_nm\_array00 = int(ld)}
\DoxyCodeLine{573 }

\end{DoxyCode}


References nn.



Referenced by l\+\_\+nm\+\_\+array01(), l\+\_\+nm\+\_\+array10(), and l\+\_\+nm\+\_\+array11().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__module__base_a7e490aad6b9e769e09c1db9f373b2edc_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_aba0a731beb9a7b561e4b80ca34f2a96b}\label{namespacew__module__base_aba0a731beb9a7b561e4b80ca34f2a96b}} 
\index{w\_module\_base@{w\_module\_base}!l\_nm\_array01@{l\_nm\_array01}}
\index{l\_nm\_array01@{l\_nm\_array01}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array01()}{l\_nm\_array01()}}
{\footnotesize\ttfamily integer function, dimension(size(marray)) w\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+array01 (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{n,  }\item[{integer, dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す 

第 1 引数 n が整数, 第 2 引数 marray が整数 1 次元配列の場合, marray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 607 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{607 }
\DoxyCodeLine{608     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: n}
\DoxyCodeLine{610     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{612     \textcolor{keywordtype}{integer}              :: l\_nm\_array01(size(marray))}
\DoxyCodeLine{613 }
\DoxyCodeLine{614     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{615 }
\DoxyCodeLine{616     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(marray)}
\DoxyCodeLine{617       l\_nm\_array01(i) = l\_nm\_array00(n,marray(i))}
\DoxyCodeLine{618 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+array00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__module__base_aba0a731beb9a7b561e4b80ca34f2a96b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_ac651f30f5bb7da63eaa79bfccbdb9343}\label{namespacew__module__base_ac651f30f5bb7da63eaa79bfccbdb9343}} 
\index{w\_module\_base@{w\_module\_base}!l\_nm\_array10@{l\_nm\_array10}}
\index{l\_nm\_array10@{l\_nm\_array10}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array10()}{l\_nm\_array10()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+array10 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{narray,  }\item[{integer, intent(in)}]{m }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す 

第 1 引数 narray が整数 1 次元配列, 第 2 引数 m が整数の場合, narray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 649 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{649 }
\DoxyCodeLine{650     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{652     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: m}
\DoxyCodeLine{654     \textcolor{keywordtype}{integer}              :: l\_nm\_array10(size(narray))}
\DoxyCodeLine{655 }
\DoxyCodeLine{656     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{657 }
\DoxyCodeLine{658     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{659       l\_nm\_array10(i) = l\_nm\_array00(narray(i),m)}
\DoxyCodeLine{660 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+array00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__module__base_ac651f30f5bb7da63eaa79bfccbdb9343_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a6b1e32f2b8fdf67cd0627e482d8c3959}\label{namespacew__module__base_a6b1e32f2b8fdf67cd0627e482d8c3959}} 
\index{w\_module\_base@{w\_module\_base}!l\_nm\_array11@{l\_nm\_array11}}
\index{l\_nm\_array11@{l\_nm\_array11}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array11()}{l\_nm\_array11()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+array11 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{narray,  }\item[{integer, dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. 

第 1,2 引数 narray, marray がともに整数 1 次元配列の場合, narray, marray と同じ大きさの 1 次元整数配列を返す. narray, marray は同じ大きさでなければならない. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 693 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{693 }
\DoxyCodeLine{694     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{696     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{698     \textcolor{keywordtype}{integer}              :: l\_nm\_array11(size(narray))}
\DoxyCodeLine{699 }
\DoxyCodeLine{700     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{701 }
\DoxyCodeLine{702     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(narray) .ne. \textcolor{keyword}{size}(marray) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{703       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array11'},\&}
\DoxyCodeLine{704         \textcolor{stringliteral}{'dimensions of input arrays  n and m are different.'})}
\DoxyCodeLine{705 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{706 }
\DoxyCodeLine{707     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{708       l\_nm\_array11(i) = l\_nm\_array00(narray(i),marray(i))}
\DoxyCodeLine{709 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+array00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__module__base_a6b1e32f2b8fdf67cd0627e482d8c3959_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a3c96babb10e8da6159ece4a2b3f870f9}\label{namespacew__module__base_a3c96babb10e8da6159ece4a2b3f870f9}} 
\index{w\_module\_base@{w\_module\_base}!l\_nm\_darray00@{l\_nm\_darray00}}
\index{l\_nm\_darray00@{l\_nm\_darray00}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray00()}{l\_nm\_darray00()}}
{\footnotesize\ttfamily integer function w\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+darray00 (\begin{DoxyParamCaption}\item[{integer(8), intent(in)}]{n,  }\item[{integer(8), intent(in)}]{m }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す 

引数 n,m がともに整数値の場合, 整数値を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


Definition at line 582 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{582 }
\DoxyCodeLine{583     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}   :: n}
\DoxyCodeLine{585     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}   :: m}
\DoxyCodeLine{587     \textcolor{keywordtype}{integer}               :: l\_nm\_darray00}
\DoxyCodeLine{588 }
\DoxyCodeLine{589     \textcolor{keywordtype}{integer(8)}   :: nd     \textcolor{comment}{! 全波数}}
\DoxyCodeLine{590     \textcolor{keywordtype}{integer(8)}   :: md     \textcolor{comment}{! 帯状波数}}
\DoxyCodeLine{591     \textcolor{keywordtype}{integer(8)}   :: ld     \textcolor{comment}{! スペクトルデータの格納位置}}
\DoxyCodeLine{592 }
\DoxyCodeLine{593     nd = n}
\DoxyCodeLine{594     md = m}
\DoxyCodeLine{595     \textcolor{keyword}{call }sxnm2l(nn,nd,md,ld)}
\DoxyCodeLine{596     l\_nm\_darray00 = int(ld)}
\DoxyCodeLine{597 }

\end{DoxyCode}


References nn.



Referenced by l\+\_\+nm\+\_\+darray01(), l\+\_\+nm\+\_\+darray10(), and l\+\_\+nm\+\_\+darray11().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__module__base_a3c96babb10e8da6159ece4a2b3f870f9_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a36298dfcbbc2c71a5a502abb35bfcc5d}\label{namespacew__module__base_a36298dfcbbc2c71a5a502abb35bfcc5d}} 
\index{w\_module\_base@{w\_module\_base}!l\_nm\_darray01@{l\_nm\_darray01}}
\index{l\_nm\_darray01@{l\_nm\_darray01}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray01()}{l\_nm\_darray01()}}
{\footnotesize\ttfamily integer function, dimension(size(marray)) w\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+darray01 (\begin{DoxyParamCaption}\item[{integer(8), intent(in)}]{n,  }\item[{integer(8), dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す 

第 1 引数 n が整数, 第 2 引数 marray が整数 1 次元配列の場合, marray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 628 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{628 }
\DoxyCodeLine{629     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: n}
\DoxyCodeLine{631     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{633     \textcolor{keywordtype}{integer}              :: l\_nm\_darray01(size(marray))}
\DoxyCodeLine{634 }
\DoxyCodeLine{635     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{636 }
\DoxyCodeLine{637     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(marray)}
\DoxyCodeLine{638       l\_nm\_darray01(i) = l\_nm\_darray00(n,marray(i))}
\DoxyCodeLine{639 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+darray00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__module__base_a36298dfcbbc2c71a5a502abb35bfcc5d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a269bc000e5d39f50ec8ab94755c50c77}\label{namespacew__module__base_a269bc000e5d39f50ec8ab94755c50c77}} 
\index{w\_module\_base@{w\_module\_base}!l\_nm\_darray10@{l\_nm\_darray10}}
\index{l\_nm\_darray10@{l\_nm\_darray10}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray10()}{l\_nm\_darray10()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+darray10 (\begin{DoxyParamCaption}\item[{integer(8), dimension(\+:), intent(in)}]{narray,  }\item[{integer(8), intent(in)}]{m }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す 

第 1 引数 narray が整数 1 次元配列, 第 2 引数 m が整数の場合, narray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 670 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{670 }
\DoxyCodeLine{671     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{673     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: m}
\DoxyCodeLine{675     \textcolor{keywordtype}{integer}              :: l\_nm\_darray10(size(narray))}
\DoxyCodeLine{676 }
\DoxyCodeLine{677     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{678 }
\DoxyCodeLine{679     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{680       l\_nm\_darray10(i) = l\_nm\_darray00(narray(i),m)}
\DoxyCodeLine{681 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+darray00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__module__base_a269bc000e5d39f50ec8ab94755c50c77_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a1470c64e695e043c5959f9c1970a1d5b}\label{namespacew__module__base_a1470c64e695e043c5959f9c1970a1d5b}} 
\index{w\_module\_base@{w\_module\_base}!l\_nm\_darray11@{l\_nm\_darray11}}
\index{l\_nm\_darray11@{l\_nm\_darray11}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray11()}{l\_nm\_darray11()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+darray11 (\begin{DoxyParamCaption}\item[{integer(8), dimension(\+:), intent(in)}]{narray,  }\item[{integer(8), dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. 

第 1,2 引数 narray, marray がともに整数 1 次元配列の場合, narray, marray と同じ大きさの 1 次元整数配列を返す. narray, marray は同じ大きさでなければならない. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 720 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{720 }
\DoxyCodeLine{721     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{723     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{725     \textcolor{keywordtype}{integer}              :: l\_nm\_darray11(size(narray))}
\DoxyCodeLine{726 }
\DoxyCodeLine{727     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{728 }
\DoxyCodeLine{729     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(narray) .ne. \textcolor{keyword}{size}(marray) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{730       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array11'},\&}
\DoxyCodeLine{731         \textcolor{stringliteral}{'dimensions of input arrays  n and m are different.'})}
\DoxyCodeLine{732 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{733 }
\DoxyCodeLine{734     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{735       l\_nm\_darray11(i) = l\_nm\_darray00(narray(i),marray(i))}
\DoxyCodeLine{736 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+darray00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__module__base_a1470c64e695e043c5959f9c1970a1d5b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a25283aedbc8422f55a0680bc850d3255}\label{namespacew__module__base_a25283aedbc8422f55a0680bc850d3255}} 
\index{w\_module\_base@{w\_module\_base}!nm\_l\_array@{nm\_l\_array}}
\index{nm\_l\_array@{nm\_l\_array}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{nm\_l\_array()}{nm\_l\_array()}}
{\footnotesize\ttfamily integer function, dimension(size(larray),2) w\+\_\+module\+\_\+base\+::nm\+\_\+l\+\_\+array (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{larray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す 

引数 larray が整数 1 次元配列の場合, larray に対応する n, m を格納した 2 次元整数配列を返す. nm\+\_\+l\+\_\+array(\+:,1) が全波数, nm\+\_\+l\+\_\+array(\+:,2) が帯状波数である. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em larray} & 全波数, 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


Definition at line 793 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{793 }
\DoxyCodeLine{794     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: larray(:)}
\DoxyCodeLine{796     \textcolor{keywordtype}{integer}              :: nm\_l\_array(size(larray),2)}
\DoxyCodeLine{797 }
\DoxyCodeLine{798     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{799     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(larray)}
\DoxyCodeLine{800       nm\_l\_array(i,:) = nm\_l\_int(larray(i))}
\DoxyCodeLine{801 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References nm\+\_\+l\+\_\+int().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_a25283aedbc8422f55a0680bc850d3255_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a5af788a738fadbe68af495b880a6ca6c}\label{namespacew__module__base_a5af788a738fadbe68af495b880a6ca6c}} 
\index{w\_module\_base@{w\_module\_base}!nm\_l\_darray@{nm\_l\_darray}}
\index{nm\_l\_darray@{nm\_l\_darray}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{nm\_l\_darray()}{nm\_l\_darray()}}
{\footnotesize\ttfamily integer function, dimension(size(larray),2) w\+\_\+module\+\_\+base\+::nm\+\_\+l\+\_\+darray (\begin{DoxyParamCaption}\item[{integer(8), dimension(\+:), intent(in)}]{larray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す 

引数 larray が整数 1 次元配列の場合, larray に対応する n, m を格納した 2 次元整数配列を返す. nm\+\_\+l\+\_\+array(\+:,1) が全波数, nm\+\_\+l\+\_\+array(\+:,2) が帯状波数である. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em larray} & 全波数, 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


Definition at line 812 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{812 }
\DoxyCodeLine{813     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: larray(:)}
\DoxyCodeLine{815     \textcolor{keywordtype}{integer}                 :: nm\_l\_darray(size(larray),2)}
\DoxyCodeLine{816 }
\DoxyCodeLine{817     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{818     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(larray)}
\DoxyCodeLine{819       nm\_l\_darray(i,:) = nm\_l\_dint(larray(i))}
\DoxyCodeLine{820 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References nm\+\_\+l\+\_\+dint().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_a5af788a738fadbe68af495b880a6ca6c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a5eb09ebe02c816111089dc543459854d}\label{namespacew__module__base_a5eb09ebe02c816111089dc543459854d}} 
\index{w\_module\_base@{w\_module\_base}!nm\_l\_dint@{nm\_l\_dint}}
\index{nm\_l\_dint@{nm\_l\_dint}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{nm\_l\_dint()}{nm\_l\_dint()}}
{\footnotesize\ttfamily integer function, dimension(2) w\+\_\+module\+\_\+base\+::nm\+\_\+l\+\_\+dint (\begin{DoxyParamCaption}\item[{integer(8), intent(in)}]{l }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. 

引数 l が整数値の場合, 対応する全波数と帯状波数を 長さ 2 の 1 次元整数値を返す. nm\+\_\+l(1) が全波数, nm\+\_\+l(2) が帯状波数である. \begin{DoxyReturn}{Returns}
全波数, 帯状波数 
\end{DoxyReturn}

\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em l} & スペクトルデータの格納位置 \\
\hline
\end{DoxyParams}


Definition at line 770 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{770 }
\DoxyCodeLine{771     \textcolor{keywordtype}{integer}                :: nm\_l\_dint(2)}
\DoxyCodeLine{773     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)} :: l}
\DoxyCodeLine{774 }
\DoxyCodeLine{775     \textcolor{keywordtype}{integer(8)}             :: ld}
\DoxyCodeLine{776     \textcolor{keywordtype}{integer(8)}             :: nd}
\DoxyCodeLine{777     \textcolor{keywordtype}{integer(8)}             :: md}
\DoxyCodeLine{778 }
\DoxyCodeLine{779     ld = l}
\DoxyCodeLine{780     \textcolor{keyword}{call }sxl2nm(nn,ld,nd,md)}
\DoxyCodeLine{781     nm\_l\_dint = int((/nd,md/))}
\DoxyCodeLine{782 }

\end{DoxyCode}


References nn.



Referenced by nm\+\_\+l\+\_\+darray().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_a5eb09ebe02c816111089dc543459854d_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a2c5001e5665033398b21c10ec82969c8}\label{namespacew__module__base_a2c5001e5665033398b21c10ec82969c8}} 
\index{w\_module\_base@{w\_module\_base}!nm\_l\_int@{nm\_l\_int}}
\index{nm\_l\_int@{nm\_l\_int}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{nm\_l\_int()}{nm\_l\_int()}}
{\footnotesize\ttfamily integer function, dimension(2) w\+\_\+module\+\_\+base\+::nm\+\_\+l\+\_\+int (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{l }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. 

引数 l が整数値の場合, 対応する全波数と帯状波数を 長さ 2 の 1 次元整数値を返す. nm\+\_\+l(1) が全波数, nm\+\_\+l(2) が帯状波数である. \begin{DoxyReturn}{Returns}
全波数, 帯状波数 
\end{DoxyReturn}

\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em l} & スペクトルデータの格納位置 \\
\hline
\end{DoxyParams}


Definition at line 747 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{747 }
\DoxyCodeLine{748     \textcolor{keywordtype}{integer}               :: nm\_l\_int(2)}
\DoxyCodeLine{750     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: l}
\DoxyCodeLine{751 }
\DoxyCodeLine{752     \textcolor{keywordtype}{integer(8)}            :: ld}
\DoxyCodeLine{753     \textcolor{keywordtype}{integer(8)}            :: nd}
\DoxyCodeLine{754     \textcolor{keywordtype}{integer(8)}            :: md}
\DoxyCodeLine{755 }
\DoxyCodeLine{756     ld = l}
\DoxyCodeLine{757     \textcolor{keyword}{call }sxl2nm(nn,ld,nd,md)}
\DoxyCodeLine{758     nm\_l\_int = int((/nd,md/))}
\DoxyCodeLine{759 }

\end{DoxyCode}


References nn.



Referenced by nm\+\_\+l\+\_\+array().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_a2c5001e5665033398b21c10ec82969c8_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_ae3ecd1eb76adbc1e2690660b030fd7de}\label{namespacew__module__base_ae3ecd1eb76adbc1e2690660b030fd7de}} 
\index{w\_module\_base@{w\_module\_base}!w\_base\_finalize@{w\_base\_finalize}}
\index{w\_base\_finalize@{w\_base\_finalize}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_base\_finalize()}{w\_base\_finalize()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+module\+\_\+base\+::w\+\_\+base\+\_\+finalize (\begin{DoxyParamCaption}{ }\end{DoxyParamCaption})}



終了処理(割り付け配列の解放)をおこなう 



Definition at line 520 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{520     \textcolor{keywordflow}{if} ( .not. w\_base\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{521       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'W'},\textcolor{stringliteral}{'w\_base\_Finalize'},\&}
\DoxyCodeLine{522         \textcolor{stringliteral}{'w\_base\_module not initialized yet'})}
\DoxyCodeLine{523       \textcolor{keywordflow}{return}}
\DoxyCodeLine{524 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{525 }
\DoxyCodeLine{526     \textcolor{keyword}{deallocate}(it)}
\DoxyCodeLine{527     \textcolor{keyword}{deallocate}(t)}
\DoxyCodeLine{528     \textcolor{keyword}{deallocate}(r)}
\DoxyCodeLine{529     \textcolor{keyword}{deallocate}(jc)}
\DoxyCodeLine{530     \textcolor{keyword}{deallocate}(c)}
\DoxyCodeLine{531 }
\DoxyCodeLine{532     \textcolor{keyword}{call }mxfree(pp)}
\DoxyCodeLine{533     \textcolor{keyword}{call }mxfree(pg)}
\DoxyCodeLine{534     \textcolor{keyword}{call }mxfree(pg1)}
\DoxyCodeLine{535     \textcolor{keyword}{call }mxfree(pg2)}
\DoxyCodeLine{536     \textcolor{keyword}{call }mxfree(pw)}
\DoxyCodeLine{537     \textcolor{keyword}{call }mxfree(pww)}
\DoxyCodeLine{538 }
\DoxyCodeLine{539     \textcolor{keyword}{deallocate}(x\_lon)}
\DoxyCodeLine{540     \textcolor{keyword}{deallocate}(x\_lon\_weight)}
\DoxyCodeLine{541     \textcolor{keyword}{deallocate}(xy\_lon)}
\DoxyCodeLine{542     \textcolor{keyword}{deallocate}(y\_lat)}
\DoxyCodeLine{543     \textcolor{keyword}{deallocate}(y\_lat\_weight)}
\DoxyCodeLine{544     \textcolor{keyword}{deallocate}(xy\_lat)}
\DoxyCodeLine{545     w\_base\_initialize = .false.}
\DoxyCodeLine{546 }
\DoxyCodeLine{547     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'w\_base\_Finalize'},\&}
\DoxyCodeLine{548       \textcolor{stringliteral}{'w\_base\_module (2019/10/04) is finalized'})}
\DoxyCodeLine{549 }

\end{DoxyCode}


References c, it, jc, pg, pg1, pg2, pp, pw, pww, r, t, w\+\_\+base\+\_\+initialize, x\+\_\+lon, x\+\_\+lon\+\_\+weight, xy\+\_\+lat, xy\+\_\+lon, y\+\_\+lat, and y\+\_\+lat\+\_\+weight.



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

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_ae3ecd1eb76adbc1e2690660b030fd7de_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a62d59c610b698210a4546275708034ed}\label{namespacew__module__base_a62d59c610b698210a4546275708034ed}} 
\index{w\_module\_base@{w\_module\_base}!w\_base\_initial@{w\_base\_initial}}
\index{w\_base\_initial@{w\_base\_initial}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_base\_initial()}{w\_base\_initial()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+module\+\_\+base\+::w\+\_\+base\+\_\+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), optional}]{np\+\_\+in }\end{DoxyParamCaption})}



スペクトル変換の格子点数, 波数および O\+P\+E\+N\+MP 使用時の 最大スレッド数を設定する. 

\begin{DoxyWarning}{Warning}
実際の使用には上位サブルーチン \mbox{\hyperlink{namespacew__module_a34cf65ed64bfeec316d31e8764e8ffc0}{w\+\_\+\+Initial}} を用いること. 
\end{DoxyWarning}

\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em i\+\_\+in} & 格子点数(東西) \\
\hline
\mbox{\texttt{ in}}  & {\em j\+\_\+in} & 格子点数(南北) \\
\hline
\mbox{\texttt{ in}}  & {\em n\+\_\+in} & 切断全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em np\+\_\+in} & O\+P\+E\+N\+MP での最大スレッド数 \\
\hline
\end{DoxyParams}


Definition at line 133 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{133 }
\DoxyCodeLine{134     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: i\_in}
\DoxyCodeLine{136     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: j\_in}
\DoxyCodeLine{138     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: n\_in}
\DoxyCodeLine{140     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: np\_in}
\DoxyCodeLine{141     \textcolor{keywordtype}{integer} :: i, j}
\DoxyCodeLine{142     im = i\_in}
\DoxyCodeLine{143     jm = j\_in}
\DoxyCodeLine{144     nn = n\_in}
\DoxyCodeLine{145     mm = nn}
\DoxyCodeLine{146     nm = nn+1}
\DoxyCodeLine{147 }
\DoxyCodeLine{148     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(np\_in) )\textcolor{keywordflow}{then}}
\DoxyCodeLine{149       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'w\_base\_Initial'}, \&}
\DoxyCodeLine{150                  \textcolor{stringliteral}{'Optional argnument np is dummy.'})}
\DoxyCodeLine{151 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{152 }
\DoxyCodeLine{153     \textcolor{keyword}{allocate}(t(im*3/2))}
\DoxyCodeLine{154     \textcolor{keyword}{allocate}(it(im/2))}
\DoxyCodeLine{155     \textcolor{keyword}{allocate}(r(((mm+1)*(2*nm-\/mm-\/1)+1)/4*3+(2*nm-\/mm)*(mm+1)/2+mm+1))}
\DoxyCodeLine{156     \textcolor{keyword}{allocate}(jc(mm*(2*nm-\/mm-\/1)/16+mm))}
\DoxyCodeLine{157     \textcolor{keyword}{call }mxallc(pp,jm/2*(2*mm+5))}
\DoxyCodeLine{158     \textcolor{keyword}{call }c\_f\_pointer(pp,p,[jm/2,2*mm+5])}
\DoxyCodeLine{159 }
\DoxyCodeLine{160     \textcolor{keyword}{call }mxallc(pg,jm*im)}
\DoxyCodeLine{161     \textcolor{keyword}{call }mxallc(pw,jm*im)}
\DoxyCodeLine{162     \textcolor{keyword}{call }mxallc(pg1,jm*im)}
\DoxyCodeLine{163     \textcolor{keyword}{call }mxallc(pg2,jm*im)}
\DoxyCodeLine{164     \textcolor{keyword}{call }mxallc(pww,jm*im*2)}
\DoxyCodeLine{165     \textcolor{keyword}{call }c\_f\_pointer(pg, g, [jm*im])}
\DoxyCodeLine{166     \textcolor{keyword}{call }c\_f\_pointer(pw, w, [jm*im])}
\DoxyCodeLine{167     \textcolor{keyword}{call }c\_f\_pointer(pg1, g1, [jm*im])}
\DoxyCodeLine{168     \textcolor{keyword}{call }c\_f\_pointer(pg2, g2, [jm*im])}
\DoxyCodeLine{169     \textcolor{keyword}{call }c\_f\_pointer(pww, ww, [jm*im]*2)}
\DoxyCodeLine{170 }
\DoxyCodeLine{171     \textcolor{keyword}{allocate}(c((mm+1)*(mm+1)))}
\DoxyCodeLine{172     \textcolor{keyword}{allocate}(x\_lon(0:im-\/1))}
\DoxyCodeLine{173     \textcolor{keyword}{allocate}(x\_lon\_weight(0:im-\/1))}
\DoxyCodeLine{174     \textcolor{keyword}{allocate}(xy\_lon(0:im-\/1,1:jm))}
\DoxyCodeLine{175     \textcolor{keyword}{allocate}(y\_lat(1:jm))}
\DoxyCodeLine{176     \textcolor{keyword}{allocate}(y\_lat\_weight(1:jm))}
\DoxyCodeLine{177     \textcolor{keyword}{allocate}(xy\_lat(0:im-\/1,1:jm))}
\DoxyCodeLine{178 }
\DoxyCodeLine{179     \textcolor{keyword}{call }sxini1(mm,nm,im,it,t,r)}
\DoxyCodeLine{180     \textcolor{keyword}{call }sxini2(mm,nm,jm,ig,p,r,jc)}
\DoxyCodeLine{181     \textcolor{keyword}{call }sxinic(mm,nn,c)}
\DoxyCodeLine{182 }
\DoxyCodeLine{183     \textcolor{keywordflow}{do} i=0,int(im)-\/1}
\DoxyCodeLine{184       x\_lon(i)        = 2*pi/im*i}
\DoxyCodeLine{185       x\_lon\_weight(i) = 2*pi/im}
\DoxyCodeLine{186 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{187 }
\DoxyCodeLine{188     \textcolor{keywordflow}{do} j=1,int(jm)/2}
\DoxyCodeLine{189       y\_lat(jm/2+j)          =   asin(p(j,1))}
\DoxyCodeLine{190       y\_lat(jm/2-\/j+1)        = -\/ asin(p(j,1))}
\DoxyCodeLine{191       y\_lat\_weight(jm/2+j)   =   2*p(j,2)}
\DoxyCodeLine{192       y\_lat\_weight(jm/2-\/j+1) =   2*p(j,2)}
\DoxyCodeLine{193 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{194 }
\DoxyCodeLine{195     \textcolor{keywordflow}{do} j=1,int(jm)}
\DoxyCodeLine{196       xy\_lon(:,j) = x\_lon}
\DoxyCodeLine{197 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{198 }
\DoxyCodeLine{199     \textcolor{keywordflow}{do} i=0,int(im)-\/1}
\DoxyCodeLine{200       xy\_lat(i,:) = y\_lat}
\DoxyCodeLine{201 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{202 }
\DoxyCodeLine{203     w\_base\_initialize = .true.}
\DoxyCodeLine{204 }
\DoxyCodeLine{205     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'w\_base\_initial'},\&}
\DoxyCodeLine{206       \textcolor{stringliteral}{'w\_base\_module (2019/10/04) is initialized'})}
\DoxyCodeLine{207 }

\end{DoxyCode}


References c, g, g1, g2, ig, im, it, jc, jm, mm, nm, nn, p, pg, pg1, pg2, pp, pw, pww, r, t, w, w\+\_\+base\+\_\+initialize, ww, x\+\_\+lon, x\+\_\+lon\+\_\+weight, xy\+\_\+lat, xy\+\_\+lon, y\+\_\+lat, and y\+\_\+lat\+\_\+weight.



Referenced by w\+\_\+module\+::w\+\_\+initial().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_a62d59c610b698210a4546275708034ed_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a496a5089e89bf920c12c56f29089d51b}\label{namespacew__module__base_a496a5089e89bf920c12c56f29089d51b}} 
\index{w\_module\_base@{w\_module\_base}!w\_streampotential2vector@{w\_streampotential2vector}}
\index{w\_streampotential2vector@{w\_streampotential2vector}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_streampotential2vector()}{w\_streampotential2vector()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+module\+\_\+base\+::w\+\_\+streampotential2vector (\begin{DoxyParamCaption}\item[{real(dp), dimension((\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)$\ast$(\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)), intent(in)}]{w\+\_\+\+Psi,  }\item[{real(dp), dimension((\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)$\ast$(\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)), intent(in)}]{w\+\_\+\+Chi,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__module__base_af43b1636567492abc94863c4a262622a}{jm}}), intent(out)}]{xy\+\_\+U,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__module__base_af43b1636567492abc94863c4a262622a}{jm}}), intent(out)}]{xy\+\_\+V }\end{DoxyParamCaption})}



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

スペクトル変換を用いず微分を計算するために, 変換回数が 2 回ですむ. \begin{align*} u \cosφ & = ∂χ/∂λ - \cosφ∂ψ/∂φ, \\ v \cosφ & = \cosφ∂χ/∂φ + ∂ψ/∂λ \end{align*} 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em w\+\_\+psi} & 流線関数 \\
\hline
\mbox{\texttt{ in}}  & {\em w\+\_\+chi} & 速度ポテンシャル \\
\hline
\mbox{\texttt{ out}}  & {\em xy\+\_\+u} & 速度経度成分 \\
\hline
\mbox{\texttt{ out}}  & {\em xy\+\_\+v} & 速度緯度成分 \\
\hline
\end{DoxyParams}


Definition at line 353 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{353 }
\DoxyCodeLine{354 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: w\_Psi((nn+1)*(nn+1))}
\DoxyCodeLine{356 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: w\_Chi((nn+1)*(nn+1))}
\DoxyCodeLine{358 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: xy\_U(0:im-\/1,1:jm)}
\DoxyCodeLine{360 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: xy\_V(0:im-\/1,1:jm)}
\DoxyCodeLine{361 }
\DoxyCodeLine{362 \textcolor{keywordtype}{    real}(DP)             :: w\_Xdata((mm+1)*(mm+1))}
\DoxyCodeLine{363 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata((mm+2)*(mm+2))}
\DoxyCodeLine{364 \textcolor{keywordtype}{    real}(DP)             :: w\_Rdata1((mm+2)*(mm+2))}
\DoxyCodeLine{365 \textcolor{keywordtype}{    real}(DP)             :: w\_Rdata2((mm+2)*(mm+2))}
\DoxyCodeLine{366 }
\DoxyCodeLine{367     \textcolor{keywordflow}{if} ( .not. w\_base\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{368       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'w\_StreamPotential2Vector'},\&}
\DoxyCodeLine{369         \textcolor{stringliteral}{'w\_base\_module not initialize yet.'})}
\DoxyCodeLine{370 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{371     \textcolor{comment}{!}}
\DoxyCodeLine{372     \textcolor{comment}{! \$ u \(\backslash\)cosφ = ∂χ/∂λ -\/ \(\backslash\)cosφ∂ψ/∂φ \$}}
\DoxyCodeLine{373     \textcolor{comment}{!}}
\DoxyCodeLine{374     \textcolor{keyword}{call }sxcs2x(mm,nn,w\_chi,w\_xdata)}
\DoxyCodeLine{375     \textcolor{keyword}{call }sxcs2y(mm,nn,w\_psi,w\_ydata,c)}
\DoxyCodeLine{376     \textcolor{keyword}{call }sxcrpk(mm,nn,nm,w\_xdata,w\_rdata1)}
\DoxyCodeLine{377     w\_rdata1 = w\_rdata1 -\/ w\_ydata}
\DoxyCodeLine{378     \textcolor{comment}{!}}
\DoxyCodeLine{379     \textcolor{comment}{! \$ v \(\backslash\)cosφ = \(\backslash\)cosφ∂χ/∂φ + ∂ψ/∂λ \$}}
\DoxyCodeLine{380     \textcolor{comment}{!}}
\DoxyCodeLine{381     \textcolor{keyword}{call }sxcs2y(mm,nn,w\_chi,w\_ydata,c)}
\DoxyCodeLine{382     \textcolor{keyword}{call }sxcs2x(mm,nn,w\_psi,w\_xdata)}
\DoxyCodeLine{383     \textcolor{keyword}{call }sxcrpk(mm,nn,nm,w\_xdata,w\_rdata2)}
\DoxyCodeLine{384     w\_rdata2= w\_rdata2 + w\_ydata}
\DoxyCodeLine{385     \textcolor{comment}{!}}
\DoxyCodeLine{386     \textcolor{comment}{! u,v}}
\DoxyCodeLine{387     \textcolor{comment}{!}}
\DoxyCodeLine{388     \textcolor{keyword}{call }sxts2v(mm,nm,nm,im,jm,w\_rdata1,w\_rdata2,g1,g2,it,t,p,r,jc,ww,1\_8)}
\DoxyCodeLine{389     xy\_u = reshape(g1,(/im,jm/))}
\DoxyCodeLine{390     xy\_v = reshape(g2,(/im,jm/))}
\DoxyCodeLine{391 \textcolor{comment}{!!     call sxts2v(mm,nm,nm,im,jm,w\_Rdata1,w\_Rdata2,xy\_U,xy\_V,it,t,p,r,jc,ww,1\_8)}}
\DoxyCodeLine{392 }

\end{DoxyCode}


References c, g1, g2, im, it, jc, jm, mm, nm, nn, p, r, t, w\+\_\+base\+\_\+initialize, and ww.



Referenced by wa\+\_\+module\+\_\+base\+::wa\+\_\+streampotential2vector().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_a496a5089e89bf920c12c56f29089d51b_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_af7cb0ea7552281e416b5045af7ab3837}\label{namespacew__module__base_af7cb0ea7552281e416b5045af7ab3837}} 
\index{w\_module\_base@{w\_module\_base}!w\_vector2vordiv@{w\_vector2vordiv}}
\index{w\_vector2vordiv@{w\_vector2vordiv}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_vector2vordiv()}{w\_vector2vordiv()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+module\+\_\+base\+::w\+\_\+vector2vordiv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__module__base_af43b1636567492abc94863c4a262622a}{jm}}), intent(in)}]{xy\+\_\+U,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__module__base_af43b1636567492abc94863c4a262622a}{jm}}), intent(in)}]{xy\+\_\+V,  }\item[{real(dp), dimension((\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)$\ast$(\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)), intent(out)}]{w\+\_\+\+Vor,  }\item[{real(dp), dimension((\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)$\ast$(\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)), intent(out)}]{w\+\_\+\+Div }\end{DoxyParamCaption})}



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

スペクトル変換を用いず微分を計算するために, 変換回数が 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 xy\+\_\+u} & 速度経度成分 \\
\hline
\mbox{\texttt{ in}}  & {\em xy\+\_\+v} & 速度緯度成分 \\
\hline
\mbox{\texttt{ out}}  & {\em w\+\_\+vor} & 流線関数 \\
\hline
\mbox{\texttt{ out}}  & {\em w\+\_\+div} & 速度ポテンシャル \\
\hline
\end{DoxyParams}


Definition at line 406 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{406 }
\DoxyCodeLine{407 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xy\_U(0:im-\/1,1:jm)}
\DoxyCodeLine{409 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xy\_V(0:im-\/1,1:jm)}
\DoxyCodeLine{411 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: w\_Vor((nn+1)*(nn+1))}
\DoxyCodeLine{413 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: w\_Div((nn+1)*(nn+1))}
\DoxyCodeLine{414 }
\DoxyCodeLine{415 \textcolor{keywordtype}{    real}(DP)             :: w\_Xdata((mm+1)*(mm+1))}
\DoxyCodeLine{416 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata1((mm+2)*(mm+2))}
\DoxyCodeLine{417 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata2((mm+2)*(mm+2))}
\DoxyCodeLine{418 \textcolor{keywordtype}{    real}(DP)             :: w\_Data1((mm+1)*(mm+1))}
\DoxyCodeLine{419 \textcolor{keywordtype}{    real}(DP)             :: w\_Data2((mm+1)*(mm+1))}
\DoxyCodeLine{420 }
\DoxyCodeLine{421     \textcolor{keywordflow}{if} ( .not. w\_base\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{422       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'w\_Vector2VorDiv'},\&}
\DoxyCodeLine{423         \textcolor{stringliteral}{'w\_base\_module not initialize yet.'})}
\DoxyCodeLine{424 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{425 }
\DoxyCodeLine{426     \textcolor{comment}{!}}
\DoxyCodeLine{427     \textcolor{comment}{! \$ 1/\(\backslash\)cosφ∂u/∂λ, 1/\(\backslash\)cosφ ∂(u \(\backslash\)cosφ)/∂φ\$}}
\DoxyCodeLine{428     \textcolor{comment}{!}}
\DoxyCodeLine{429     g1 = reshape(xy\_u,(/im*jm/))}
\DoxyCodeLine{430     g2 = reshape(xy\_v,(/im*jm/))}
\DoxyCodeLine{431     \textcolor{keyword}{call }sxtv2s(mm,nm,nn+1,im,jm,w\_ydata1,w\_ydata2,g1,g2,it,t,p,r,jc,ww,1\_8)}
\DoxyCodeLine{432 \textcolor{comment}{!!     call sxtv2s(mm,nm,nn+1,im,jm,w\_Ydata1,w\_Ydata2,xy\_U,xy\_V,it,t,p,r,jc,ww,1\_8)}}
\DoxyCodeLine{433 }
\DoxyCodeLine{434     \textcolor{keyword}{call }sxcrpk(mm,nm,nn,w\_ydata1,w\_xdata)}
\DoxyCodeLine{435     \textcolor{keyword}{call }sxcs2x(mm,nn,w\_xdata,w\_div)}
\DoxyCodeLine{436     \textcolor{keyword}{call }sxcy2s(mm,nn,w\_ydata2,w\_data2,c)}
\DoxyCodeLine{437     \textcolor{comment}{!}}
\DoxyCodeLine{438     \textcolor{comment}{! \$ 1/\(\backslash\)cosφ∂v/∂λ, 1/\(\backslash\)cosφ ∂(v \(\backslash\)cosφ)/∂φ \$}}
\DoxyCodeLine{439     \textcolor{comment}{!}}
\DoxyCodeLine{440     \textcolor{keyword}{call }sxcrpk(mm,nm,nn,w\_ydata2,w\_xdata)}
\DoxyCodeLine{441     \textcolor{keyword}{call }sxcs2x(mm,nn,w\_xdata,w\_vor)}
\DoxyCodeLine{442     \textcolor{keyword}{call }sxcy2s(mm,nn,w\_ydata1,w\_data1,c)}
\DoxyCodeLine{443     \textcolor{comment}{!}}
\DoxyCodeLine{444     \textcolor{comment}{! Vorticity:}}
\DoxyCodeLine{445     \textcolor{comment}{! \$ ζ = 1/\(\backslash\)cosφ∂v/∂λ -\/ 1/\(\backslash\)cosφ ∂(u cosφ)/∂φ \$}}
\DoxyCodeLine{446     \textcolor{comment}{!}}
\DoxyCodeLine{447     w\_vor = w\_vor -\/ w\_data1}
\DoxyCodeLine{448     \textcolor{comment}{!}}
\DoxyCodeLine{449     \textcolor{comment}{! Divergence:}}
\DoxyCodeLine{450     \textcolor{comment}{! \$  D = 1/\(\backslash\)cosφ∂u/∂λ + 1/\(\backslash\)cosφ ∂(v \(\backslash\)cosφ)/∂φ \$}}
\DoxyCodeLine{451     \textcolor{comment}{!}}
\DoxyCodeLine{452     w\_div = w\_div + w\_data2}
\DoxyCodeLine{453 }

\end{DoxyCode}


References c, g1, g2, im, it, jc, jm, mm, nm, nn, p, r, t, w\+\_\+base\+\_\+initialize, and ww.



Referenced by wa\+\_\+module\+\_\+base\+::wa\+\_\+vector2vordiv().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_af7cb0ea7552281e416b5045af7ab3837_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a972eb288433b29554df9c889f8ef54e6}\label{namespacew__module__base_a972eb288433b29554df9c889f8ef54e6}} 
\index{w\_module\_base@{w\_module\_base}!w\_vectorcoslat2vordiv@{w\_vectorcoslat2vordiv}}
\index{w\_vectorcoslat2vordiv@{w\_vectorcoslat2vordiv}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_vectorcoslat2vordiv()}{w\_vectorcoslat2vordiv()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+module\+\_\+base\+::w\+\_\+vectorcoslat2vordiv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__module__base_af43b1636567492abc94863c4a262622a}{jm}}), intent(in)}]{xy\+\_\+\+U\+Cos\+Lat,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__module__base_af43b1636567492abc94863c4a262622a}{jm}}), intent(in)}]{xy\+\_\+\+V\+Cos\+Lat,  }\item[{real(dp), dimension((\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)$\ast$(\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)), intent(out)}]{w\+\_\+\+Vor,  }\item[{real(dp), dimension((\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)$\ast$(\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)), intent(out)}]{w\+\_\+\+Div }\end{DoxyParamCaption})}



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

スペクトル変換を用いず微分を計算するために, 変換回数が 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 xy\+\_\+ucoslat} & 速度経度成分 $\ast$ cos(lat) \\
\hline
\mbox{\texttt{ in}}  & {\em xy\+\_\+vcoslat} & 速度緯度成分 $\ast$ cos(lat) \\
\hline
\mbox{\texttt{ out}}  & {\em w\+\_\+vor} & 流線関数 \\
\hline
\mbox{\texttt{ out}}  & {\em w\+\_\+div} & 速度ポテンシャル \\
\hline
\end{DoxyParams}


Definition at line 467 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{467 }
\DoxyCodeLine{468 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xy\_UCosLat(0:im-\/1,1:jm)}
\DoxyCodeLine{470 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xy\_VCosLat(0:im-\/1,1:jm)}
\DoxyCodeLine{472 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: w\_Vor((nn+1)*(nn+1))}
\DoxyCodeLine{474 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: w\_Div((nn+1)*(nn+1))}
\DoxyCodeLine{475 }
\DoxyCodeLine{476 \textcolor{keywordtype}{    real}(DP)             :: w\_Xdata((mm+1)*(mm+1))}
\DoxyCodeLine{477 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata1((mm+2)*(mm+2))}
\DoxyCodeLine{478 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata2((mm+2)*(mm+2))}
\DoxyCodeLine{479 \textcolor{keywordtype}{    real}(DP)             :: w\_Data1((mm+1)*(mm+1))}
\DoxyCodeLine{480 \textcolor{keywordtype}{    real}(DP)             :: w\_Data2((mm+1)*(mm+1))}
\DoxyCodeLine{481 }
\DoxyCodeLine{482     \textcolor{keywordflow}{if} ( .not. w\_base\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{483       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'w\_VectorCosLat2VorDiv'},\&}
\DoxyCodeLine{484         \textcolor{stringliteral}{'w\_base\_module not initialize yet.'})}
\DoxyCodeLine{485 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{486     \textcolor{comment}{!}}
\DoxyCodeLine{487     \textcolor{comment}{! \$1/\(\backslash\)cosφ∂u/∂λ, 1/\(\backslash\)cosφ∂(u cosφ)/∂φ\$}}
\DoxyCodeLine{488     \textcolor{comment}{!}}
\DoxyCodeLine{489     g1 = reshape(xy\_ucoslat,(/im*jm/))}
\DoxyCodeLine{490     g2 = reshape(xy\_vcoslat,(/im*jm/))}
\DoxyCodeLine{491     \textcolor{keyword}{call }sxtv2s(mm,nm,nn+1,im,jm,w\_ydata1,w\_ydata2,g1,g2,it,t,p,r,jc,ww,2\_8)}
\DoxyCodeLine{492 \textcolor{comment}{!!     call sxtv2s(mm,nm,nn+1,im,jm,w\_Ydata1,w\_Ydata2,xy\_UCosLat,xy\_VCosLat,it,t,p,r,jc,ww,2\_8)}}
\DoxyCodeLine{493 }
\DoxyCodeLine{494     \textcolor{keyword}{call }sxcrpk(mm,nm,nn,w\_ydata1,w\_xdata)}
\DoxyCodeLine{495     \textcolor{keyword}{call }sxcs2x(mm,nn,w\_xdata,w\_div)}
\DoxyCodeLine{496     \textcolor{keyword}{call }sxcy2s(mm,nn,w\_ydata2,w\_data2,c)}
\DoxyCodeLine{497     \textcolor{comment}{!}}
\DoxyCodeLine{498     \textcolor{comment}{! \$1/\(\backslash\)cosφ∂v/∂λ, 1/\(\backslash\)cosφ∂(v cosφ)/∂φ\$}}
\DoxyCodeLine{499     \textcolor{comment}{!}}
\DoxyCodeLine{500     \textcolor{keyword}{call }sxcrpk(mm,nm,nn,w\_ydata2,w\_xdata)}
\DoxyCodeLine{501     \textcolor{keyword}{call }sxcs2x(mm,nn,w\_xdata,w\_vor)}
\DoxyCodeLine{502     \textcolor{keyword}{call }sxcy2s(mm,nn,w\_ydata1,w\_data1,c)}
\DoxyCodeLine{503     \textcolor{comment}{!}}
\DoxyCodeLine{504     \textcolor{comment}{! Vorticity:}}
\DoxyCodeLine{505     \textcolor{comment}{!   \$ζ = 1/\(\backslash\)cosφ∂v/∂λ -\/ 1/\(\backslash\)cosφ∂(u \(\backslash\)cosφ)/∂φ\$}}
\DoxyCodeLine{506     \textcolor{comment}{!}}
\DoxyCodeLine{507     w\_vor = w\_vor -\/ w\_data1}
\DoxyCodeLine{508     \textcolor{comment}{!}}
\DoxyCodeLine{509     \textcolor{comment}{! Divergence:}}
\DoxyCodeLine{510     \textcolor{comment}{!   \$D = 1/\(\backslash\)cosφ∂u/∂λ + 1/\(\backslash\)cosφ∂(v \(\backslash\)cosφ)/∂φ\$}}
\DoxyCodeLine{511     \textcolor{comment}{!}}
\DoxyCodeLine{512     w\_div = w\_div + w\_data2}
\DoxyCodeLine{513 }

\end{DoxyCode}


References c, g1, g2, im, it, jc, jm, mm, nm, nn, p, r, t, w\+\_\+base\+\_\+initialize, and ww.



Referenced by wa\+\_\+module\+\_\+base\+::wa\+\_\+vectorcoslat2vordiv().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_a972eb288433b29554df9c889f8ef54e6_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_ac2c97a298ba072c23d3a148018998ac5}\label{namespacew__module__base_ac2c97a298ba072c23d3a148018998ac5}} 
\index{w\_module\_base@{w\_module\_base}!w\_xy@{w\_xy}}
\index{w\_xy@{w\_xy}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_xy()}{w\_xy()}}
{\footnotesize\ttfamily real(dp) function, dimension((\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)$\ast$(\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)), public w\+\_\+module\+\_\+base\+::w\+\_\+xy (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__module__base_af43b1636567492abc94863c4a262622a}{jm}}), intent(in)}]{xy\+\_\+data,  }\item[{integer, intent(in), optional}]{ipow,  }\item[{integer, intent(in), optional}]{iflag }\end{DoxyParamCaption})}



格子データからスペクトルデータへ(正)変換する(1 層用). 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em xy\+\_\+data} & 格子点データ \\
\hline
\mbox{\texttt{ in}}  & {\em ipow} & 変換時に同時に作用させる $1/\cosφ$ の次数. 省略時は 0. \\
\hline
\mbox{\texttt{ in}}  & {\em iflag} & 変換の種類. 省略時は 0
\begin{DoxyItemize}
\item 0 \+: 通常の正変換(default)
\item -\/1 \+: 経度微分を作用させた正変換
\item 1 \+: 緯度微分 $\cosφ \cdot ∂/∂φ$ を作用させた正変換
\item 2 \+: $\sinφ$を作用させた正変換 
\end{DoxyItemize}\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ 
\end{DoxyReturn}


Definition at line 282 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{282 }
\DoxyCodeLine{283 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xy\_data(0:im-\/1,1:jm)}
\DoxyCodeLine{285     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: ipow}
\DoxyCodeLine{292     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: iflag}
\DoxyCodeLine{294 \textcolor{keywordtype}{    real}(DP)               :: w\_xy((nn+1)*(nn+1))}
\DoxyCodeLine{295 }
\DoxyCodeLine{296     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: ipow\_default  = 0}
\DoxyCodeLine{297     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: iflag\_default = 0}
\DoxyCodeLine{298     \textcolor{keywordtype}{integer(8)} ipval, ifval}
\DoxyCodeLine{299 \textcolor{keywordtype}{    real}(DP)             :: w\_Xdata((mm+1)*(mm+1))}
\DoxyCodeLine{300 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata((mm+2)*(mm+2))}
\DoxyCodeLine{301 }
\DoxyCodeLine{302     \textcolor{keywordflow}{if} ( .not. w\_base\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{303       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'w\_xy'},\&}
\DoxyCodeLine{304         \textcolor{stringliteral}{'w\_base\_module not initialize yet.'})}
\DoxyCodeLine{305 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{306 }
\DoxyCodeLine{307     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ipow)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{308       ipval = ipow}
\DoxyCodeLine{309     \textcolor{keywordflow}{else}}
\DoxyCodeLine{310       ipval = ipow\_default}
\DoxyCodeLine{311 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{312 }
\DoxyCodeLine{313     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(iflag)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{314       ifval = iflag}
\DoxyCodeLine{315     \textcolor{keywordflow}{else}}
\DoxyCodeLine{316       ifval = iflag\_default}
\DoxyCodeLine{317 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{318 }
\DoxyCodeLine{319     \textcolor{keywordflow}{if} ( ifval == 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{320       g = reshape(xy\_data,(/im*jm/))}
\DoxyCodeLine{321       \textcolor{keyword}{call }sxtg2s(mm,nm,nn,im,jm,w\_xy,g,it,t,p,r,jc,w,ipval)}
\DoxyCodeLine{322 \textcolor{comment}{!!       call sxtg2s(mm,nm,nn,im,jm,w\_xy,xy\_data,it,t,p,r,jc,w,ipval)}}
\DoxyCodeLine{323     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( ifval == -\/1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{324       g = reshape(xy\_data,(/im*jm/))}
\DoxyCodeLine{325       \textcolor{keyword}{call }sxtg2s(mm,nm,nn,im,jm,w\_xdata,g,it,t,p,r,jc,w,ipval)}
\DoxyCodeLine{326 \textcolor{comment}{!!       call sxtg2s(mm,nm,nn,im,jm,w\_Xdata,xy\_data,it,t,p,r,jc,w,ipval)}}
\DoxyCodeLine{327       \textcolor{keyword}{call }sxcs2x(mm,nn,w\_xdata,w\_xy)}
\DoxyCodeLine{328     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( ifval == 1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{329       g = reshape(xy\_data,(/im*jm/))}
\DoxyCodeLine{330       \textcolor{keyword}{call }sxtg2s(mm,nm,nn+1,im,jm,w\_ydata,g,it,t,p,r,jc,w,ipval)}
\DoxyCodeLine{331 \textcolor{comment}{!!       call sxtg2s(mm,nm,nn+1,im,jm,w\_Ydata,xy\_data,it,t,p,r,jc,w,ipval)}}
\DoxyCodeLine{332       \textcolor{keyword}{call }sxcy2s(mm,nn,w\_ydata,w\_xy,c)}
\DoxyCodeLine{333     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( ifval == 2 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{334       g = reshape(xy\_data*sin(xy\_lat),(/im*jm/))}
\DoxyCodeLine{335       \textcolor{keyword}{call }sxtg2s(mm,nm,nn,im,jm,w\_xy,g,it,t,p,r,jc,w,ipval)}
\DoxyCodeLine{336     \textcolor{keywordflow}{else}}
\DoxyCodeLine{337       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'w\_xy'},\textcolor{stringliteral}{'invalid value of iflag'})}
\DoxyCodeLine{338 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{339 }

\end{DoxyCode}


References c, g, im, it, jc, jm, mm, nm, nn, p, r, t, w, w\+\_\+base\+\_\+initialize, and xy\+\_\+lat.



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

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_ac2c97a298ba072c23d3a148018998ac5_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__module__base_a8c988f23cc273731d93e9d3e249b64e5}\label{namespacew__module__base_a8c988f23cc273731d93e9d3e249b64e5}} 
\index{w\_module\_base@{w\_module\_base}!xy\_w@{xy\_w}}
\index{xy\_w@{xy\_w}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{xy\_w()}{xy\_w()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__module__base_af43b1636567492abc94863c4a262622a}{jm}}), public w\+\_\+module\+\_\+base\+::xy\+\_\+w (\begin{DoxyParamCaption}\item[{real(dp), dimension((\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)$\ast$(\mbox{\hyperlink{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}{nn}}+1)), intent(in)}]{w\+\_\+data,  }\item[{integer, intent(in), optional}]{ipow,  }\item[{integer, intent(in), optional}]{iflag }\end{DoxyParamCaption})}



スペクトルデータから格子データへ変換する(1 層用). 

\begin{DoxyReturn}{Returns}
格子点データ 
\end{DoxyReturn}

\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em w\+\_\+data} & スペクトルデータ \\
\hline
\mbox{\texttt{ in}}  & {\em ipow} & 作用させる $1/\cosφ$ の次数. 省略時は 0. \\
\hline
\mbox{\texttt{ in}}  & {\em iflag} & 変換の種類. 省略時は 0
\begin{DoxyItemize}
\item 0 \+: 通常の逆変換(default)
\item -\/1 \+: 経度微分を作用させた逆変換
\item 1 \+: 緯度微分 $\cosφ \cdot ∂/∂ φ$ を作用させた逆変換
\item 2 \+: $\sinφ$を作用させた逆変換 
\end{DoxyItemize}\\
\hline
\end{DoxyParams}


Definition at line 214 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{214 }
\DoxyCodeLine{215 \textcolor{keywordtype}{    real}(DP)               :: xy\_w(0:im-\/1,1:jm)}
\DoxyCodeLine{217 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: w\_data((nn+1)*(nn+1))}
\DoxyCodeLine{219     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: ipow}
\DoxyCodeLine{226     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: iflag}
\DoxyCodeLine{227     \textcolor{comment}{!}}
\DoxyCodeLine{228     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: ipow\_default  = 0}
\DoxyCodeLine{229     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: iflag\_default = 0}
\DoxyCodeLine{230 }
\DoxyCodeLine{231 \textcolor{keywordtype}{    real}(DP)             :: w\_Xdata((mm+1)*(mm+1))}
\DoxyCodeLine{232 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata((mm+2)*(mm+2))}
\DoxyCodeLine{233 }
\DoxyCodeLine{234     \textcolor{keywordtype}{integer(8)} ipval, ifval}
\DoxyCodeLine{235 }
\DoxyCodeLine{236     \textcolor{keywordflow}{if} ( .not. w\_base\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{237       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'xy\_w'},\&}
\DoxyCodeLine{238         \textcolor{stringliteral}{'w\_base\_module not initialize yet.'})}
\DoxyCodeLine{239 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{240 }
\DoxyCodeLine{241     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ipow)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{242       ipval = ipow}
\DoxyCodeLine{243     \textcolor{keywordflow}{else}}
\DoxyCodeLine{244       ipval = ipow\_default}
\DoxyCodeLine{245 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{246 }
\DoxyCodeLine{247     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(iflag)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{248       ifval = iflag}
\DoxyCodeLine{249     \textcolor{keywordflow}{else}}
\DoxyCodeLine{250       ifval = iflag\_default}
\DoxyCodeLine{251 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{252 }
\DoxyCodeLine{253     \textcolor{keywordflow}{if} ( ifval == 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{254 \textcolor{comment}{!!      call sxts2g(mm,nm,nn,im,jm,w\_data,xy\_w,it,t,p,r,jc,w,ipval)}}
\DoxyCodeLine{255       \textcolor{keyword}{call }sxts2g(mm,nm,nn,im,jm,w\_data,g,it,t,p,r,jc,w,ipval)}
\DoxyCodeLine{256       xy\_w = reshape(g,(/im,jm/))}
\DoxyCodeLine{257     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if}( ifval == -\/1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{258       \textcolor{keyword}{call }sxcs2x(mm,nn,w\_data,w\_xdata)}
\DoxyCodeLine{259 \textcolor{comment}{!!       call sxts2g(mm,nm,nn,im,jm,w\_Xdata,xy\_w,it,t,p,r,jc,w,ipval)}}
\DoxyCodeLine{260       \textcolor{keyword}{call }sxts2g(mm,nm,nn,im,jm,w\_xdata,g,it,t,p,r,jc,w,ipval)}
\DoxyCodeLine{261       xy\_w = reshape(g,(/im,jm/))}
\DoxyCodeLine{262     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if}( ifval == 1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{263       \textcolor{keyword}{call }sxcs2y(mm,nn,w\_data,w\_ydata,c)}
\DoxyCodeLine{264 \textcolor{comment}{!!      call sxts2g(mm,nm,nn+1\_8,im,jm,w\_Ydata,xy\_w,it,t,p,r,jc,w,ipval)}}
\DoxyCodeLine{265       \textcolor{keyword}{call }sxts2g(mm,nm,nn+1\_8,im,jm,w\_ydata,g,it,t,p,r,jc,w,ipval)}
\DoxyCodeLine{266       xy\_w = reshape(g,(/im,jm/))}
\DoxyCodeLine{267     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if}( ifval == 2 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{268 \textcolor{comment}{!!       call sxts2g(mm,nm,nn,im,jm,w\_data,xy\_w,it,t,p,r,jc,w,ipval)}}
\DoxyCodeLine{269 \textcolor{comment}{!!       xy\_w = xy\_w * sin(xy\_Lat)}}
\DoxyCodeLine{270       \textcolor{keyword}{call }sxts2g(mm,nm,nn,im,jm,w\_data,g,it,t,p,r,jc,w,ipval)}
\DoxyCodeLine{271       xy\_w = reshape(g,(/im,jm/)) * sin(xy\_lat)}
\DoxyCodeLine{272     \textcolor{keywordflow}{else}}
\DoxyCodeLine{273       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'xy\_w'},\textcolor{stringliteral}{'invalid value of iflag'})}
\DoxyCodeLine{274 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{275 }

\end{DoxyCode}


References c, g, im, it, jc, jm, mm, nm, nn, p, r, t, w, w\+\_\+base\+\_\+initialize, and xy\+\_\+lat.



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

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__module__base_a8c988f23cc273731d93e9d3e249b64e5_icgraph}
\end{center}
\end{figure}


\doxysubsection{Variable Documentation}
\mbox{\Hypertarget{namespacew__module__base_a8e244a50020d53a2fb07ad2eb9d8aa7f}\label{namespacew__module__base_a8e244a50020d53a2fb07ad2eb9d8aa7f}} 
\index{w\_module\_base@{w\_module\_base}!c@{c}}
\index{c@{c}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{c}{c}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, save w\+\_\+module\+\_\+base\+::c\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 97 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{97 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{allocatable}    :: c(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_a8de578b3397bd732eaeab6a99755ec99}\label{namespacew__module__base_a8de578b3397bd732eaeab6a99755ec99}} 
\index{w\_module\_base@{w\_module\_base}!g@{g}}
\index{g@{g}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{g}{g}}
{\footnotesize\ttfamily real(dp), dimension(\+:), pointer w\+\_\+module\+\_\+base\+::g\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 86 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{86 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{pointer}        :: g(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+initial(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_a10d093c51b79216f407a1fcd99941327}\label{namespacew__module__base_a10d093c51b79216f407a1fcd99941327}} 
\index{w\_module\_base@{w\_module\_base}!g1@{g1}}
\index{g1@{g1}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{g1}{g1}}
{\footnotesize\ttfamily real(dp), dimension(\+:), pointer w\+\_\+module\+\_\+base\+::g1\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 87 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{87 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{pointer}        :: g1(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), and w\+\_\+vectorcoslat2vordiv().

\mbox{\Hypertarget{namespacew__module__base_adf8d8ee12312c7e0efd45e54c93772aa}\label{namespacew__module__base_adf8d8ee12312c7e0efd45e54c93772aa}} 
\index{w\_module\_base@{w\_module\_base}!g2@{g2}}
\index{g2@{g2}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{g2}{g2}}
{\footnotesize\ttfamily real(dp), dimension(\+:), pointer w\+\_\+module\+\_\+base\+::g2\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 88 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{88 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{pointer}        :: g2(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), and w\+\_\+vectorcoslat2vordiv().

\mbox{\Hypertarget{namespacew__module__base_a8ef9cf5e51efae4ae1bfaa7e68b8b1e8}\label{namespacew__module__base_a8ef9cf5e51efae4ae1bfaa7e68b8b1e8}} 
\index{w\_module\_base@{w\_module\_base}!ig@{ig}}
\index{ig@{ig}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{ig}{ig}}
{\footnotesize\ttfamily integer(8) w\+\_\+module\+\_\+base\+::ig =1\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 90 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{90   \textcolor{keywordtype}{integer(8)}               :: ig=1}

\end{DoxyCode}


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

\mbox{\Hypertarget{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}\label{namespacew__module__base_add7b500d69e02969a841ca8dd98bd902}} 
\index{w\_module\_base@{w\_module\_base}!im@{im}}
\index{im@{im}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{im}{im}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+module\+\_\+base\+::im =64}



格子点の設定(東西) 



Definition at line 65 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{65   \textcolor{keywordtype}{integer(8)}               :: im=64}

\end{DoxyCode}


Referenced by wa\+\_\+module\+\_\+integral\+::a\+\_\+intlon\+\_\+xa(), w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), xy\+\_\+w(), w\+\_\+module\+\_\+integral\+::y\+\_\+intlon\+\_\+xy(), and wa\+\_\+module\+\_\+integral\+::ya\+\_\+intlon\+\_\+xya().

\mbox{\Hypertarget{namespacew__module__base_a400ef58b518e0ddf5e4f885208ae0024}\label{namespacew__module__base_a400ef58b518e0ddf5e4f885208ae0024}} 
\index{w\_module\_base@{w\_module\_base}!it@{it}}
\index{it@{it}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{it}{it}}
{\footnotesize\ttfamily integer(8), dimension(\+:), allocatable, save, public w\+\_\+module\+\_\+base\+::it}



変換用配列 



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


\begin{DoxyCode}{0}
\DoxyCodeLine{75   \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{allocatable}  :: it(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_a7c9706ef51676d40eac61bb222053461}\label{namespacew__module__base_a7c9706ef51676d40eac61bb222053461}} 
\index{w\_module\_base@{w\_module\_base}!jc@{jc}}
\index{jc@{jc}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{jc}{jc}}
{\footnotesize\ttfamily integer(8), dimension(\+:), allocatable, save, public w\+\_\+module\+\_\+base\+::jc}



変換用配列 



Definition at line 77 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{77   \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{allocatable}  :: jc(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_af43b1636567492abc94863c4a262622a}\label{namespacew__module__base_af43b1636567492abc94863c4a262622a}} 
\index{w\_module\_base@{w\_module\_base}!jm@{jm}}
\index{jm@{jm}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{jm}{jm}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+module\+\_\+base\+::jm =32}



格子点の設定(南北) 



Definition at line 67 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{67   \textcolor{keywordtype}{integer(8)}               :: jm=32}

\end{DoxyCode}


Referenced by wa\+\_\+module\+\_\+integral\+::a\+\_\+intlat\+\_\+ya(), w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), w\+\_\+module\+\_\+integral\+::x\+\_\+intlat\+\_\+xy(), wa\+\_\+module\+\_\+integral\+::xa\+\_\+intlat\+\_\+xya(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_acf736a465b5b61d1052551a2f4a01887}\label{namespacew__module__base_acf736a465b5b61d1052551a2f4a01887}} 
\index{w\_module\_base@{w\_module\_base}!mm@{mm}}
\index{mm@{mm}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{mm}{mm}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+module\+\_\+base\+::mm}



m の切断波数 



Definition at line 69 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{69   \textcolor{keywordtype}{integer(8)}               :: mm}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+initial(), w\+\_\+module\+\_\+deriv\+::w\+\_\+deriv\+\_\+initial(), w\+\_\+module\+\_\+deriv\+::w\+\_\+dlon\+\_\+w(), w\+\_\+module\+\_\+deriv\+::w\+\_\+lapla\+\_\+w(), w\+\_\+module\+\_\+deriv\+::w\+\_\+laplainv\+\_\+w(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_a638a700c782dbddc42ad712e56732039}\label{namespacew__module__base_a638a700c782dbddc42ad712e56732039}} 
\index{w\_module\_base@{w\_module\_base}!nm@{nm}}
\index{nm@{nm}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{nm}{nm}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+module\+\_\+base\+::nm}



n の最大値 



Definition at line 73 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{73   \textcolor{keywordtype}{integer(8)}               :: nm}

\end{DoxyCode}


Referenced by wa\+\_\+module\+\_\+interpolate\+::a\+\_\+interpolate\+\_\+array00\+\_\+wa(), w\+\_\+module\+\_\+interpolate\+::interpolate\+\_\+array00\+\_\+w(), w\+\_\+module\+\_\+spectrum\+::n\+\_\+energyfromstreamfunc\+\_\+w(), w\+\_\+module\+\_\+spectrum\+::n\+\_\+enstrophyfromstreamfunc\+\_\+w(), wa\+\_\+module\+\_\+spectrum\+::na\+\_\+energyfromstreamfunc\+\_\+wa(), wa\+\_\+module\+\_\+spectrum\+::na\+\_\+enstrophyfromstreamfunc\+\_\+wa(), w\+\_\+module\+\_\+spectrum\+::nm\+\_\+energyfromstreamfunc\+\_\+w(), w\+\_\+module\+\_\+spectrum\+::nm\+\_\+enstrophyfromstreamfunc\+\_\+w(), wa\+\_\+module\+\_\+spectrum\+::nma\+\_\+energyfromstreamfunc\+\_\+wa(), wa\+\_\+module\+\_\+spectrum\+::nma\+\_\+enstrophyfromstreamfunc\+\_\+wa(), w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}\label{namespacew__module__base_acd71544ff5919faa78e3845f845c03dc}} 
\index{w\_module\_base@{w\_module\_base}!nn@{nn}}
\index{nn@{nn}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{nn}{nn}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+module\+\_\+base\+::nn}



n の切断波数 



Definition at line 71 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{71   \textcolor{keywordtype}{integer(8)}               :: nn}

\end{DoxyCode}


Referenced by l\+\_\+nm\+\_\+array00(), l\+\_\+nm\+\_\+darray00(), nm\+\_\+l\+\_\+dint(), nm\+\_\+l\+\_\+int(), w\+\_\+base\+\_\+initial(), w\+\_\+module\+\_\+deriv\+::w\+\_\+deriv\+\_\+initial(), w\+\_\+module\+\_\+deriv\+::w\+\_\+dlon\+\_\+w(), w\+\_\+module\+\_\+deriv\+::w\+\_\+lapla\+\_\+w(), w\+\_\+module\+\_\+deriv\+::w\+\_\+laplainv\+\_\+w(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_aa1ced0b2e40cdb42fe30aefa3b143488}\label{namespacew__module__base_aa1ced0b2e40cdb42fe30aefa3b143488}} 
\index{w\_module\_base@{w\_module\_base}!p@{p}}
\index{p@{p}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{p}{p}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), pointer, save, public w\+\_\+module\+\_\+base\+::p}



変換用配列 



Definition at line 83 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{83 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{pointer}        :: p(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_a8f8bfece89b8f7f85c895c128512e857}\label{namespacew__module__base_a8f8bfece89b8f7f85c895c128512e857}} 
\index{w\_module\_base@{w\_module\_base}!pg@{pg}}
\index{pg@{pg}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{pg}{pg}}
{\footnotesize\ttfamily type(c\+\_\+ptr) w\+\_\+module\+\_\+base\+::pg\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 92 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{92   \textcolor{keywordtype}{type}(c\_ptr)              :: pg}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), and w\+\_\+base\+\_\+initial().

\mbox{\Hypertarget{namespacew__module__base_a82c05be7d2785cfa49cab56fc1cbb2db}\label{namespacew__module__base_a82c05be7d2785cfa49cab56fc1cbb2db}} 
\index{w\_module\_base@{w\_module\_base}!pg1@{pg1}}
\index{pg1@{pg1}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{pg1}{pg1}}
{\footnotesize\ttfamily type(c\+\_\+ptr) w\+\_\+module\+\_\+base\+::pg1\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 95 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{95   \textcolor{keywordtype}{type}(c\_ptr)              :: pg1}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), and w\+\_\+base\+\_\+initial().

\mbox{\Hypertarget{namespacew__module__base_a821ca633047bd7e700157a8989b8b215}\label{namespacew__module__base_a821ca633047bd7e700157a8989b8b215}} 
\index{w\_module\_base@{w\_module\_base}!pg2@{pg2}}
\index{pg2@{pg2}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{pg2}{pg2}}
{\footnotesize\ttfamily type(c\+\_\+ptr) w\+\_\+module\+\_\+base\+::pg2\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 96 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{96   \textcolor{keywordtype}{type}(c\_ptr)              :: pg2}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), and w\+\_\+base\+\_\+initial().

\mbox{\Hypertarget{namespacew__module__base_a358b0e3d527be8c73ea2a7f49f50b01b}\label{namespacew__module__base_a358b0e3d527be8c73ea2a7f49f50b01b}} 
\index{w\_module\_base@{w\_module\_base}!pp@{pp}}
\index{pp@{pp}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{pp}{pp}}
{\footnotesize\ttfamily type(c\+\_\+ptr) w\+\_\+module\+\_\+base\+::pp\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 91 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{91   \textcolor{keywordtype}{type}(c\_ptr)              :: pp}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), and w\+\_\+base\+\_\+initial().

\mbox{\Hypertarget{namespacew__module__base_aed13b6860bbc26b6e2452130d3e66ee2}\label{namespacew__module__base_aed13b6860bbc26b6e2452130d3e66ee2}} 
\index{w\_module\_base@{w\_module\_base}!pw@{pw}}
\index{pw@{pw}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{pw}{pw}}
{\footnotesize\ttfamily type(c\+\_\+ptr) w\+\_\+module\+\_\+base\+::pw\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 93 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{93   \textcolor{keywordtype}{type}(c\_ptr)              :: pw}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), and w\+\_\+base\+\_\+initial().

\mbox{\Hypertarget{namespacew__module__base_a73c7cb98320d0b516194efaf96354e46}\label{namespacew__module__base_a73c7cb98320d0b516194efaf96354e46}} 
\index{w\_module\_base@{w\_module\_base}!pww@{pww}}
\index{pww@{pww}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{pww}{pww}}
{\footnotesize\ttfamily type(c\+\_\+ptr) w\+\_\+module\+\_\+base\+::pww\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 94 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{94   \textcolor{keywordtype}{type}(c\_ptr)              :: pww}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), and w\+\_\+base\+\_\+initial().

\mbox{\Hypertarget{namespacew__module__base_a626a9654aebdfa598bdcffce400789cf}\label{namespacew__module__base_a626a9654aebdfa598bdcffce400789cf}} 
\index{w\_module\_base@{w\_module\_base}!r@{r}}
\index{r@{r}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{r}{r}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, save, public w\+\_\+module\+\_\+base\+::r}



変換用配列 



Definition at line 81 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{81 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{allocatable}    :: r(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_af74bd8b86875db7085f703fa75e696fd}\label{namespacew__module__base_af74bd8b86875db7085f703fa75e696fd}} 
\index{w\_module\_base@{w\_module\_base}!t@{t}}
\index{t@{t}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{t}{t}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, save, public w\+\_\+module\+\_\+base\+::t}



変換用配列 



Definition at line 79 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{79 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{allocatable}    :: t(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_a696a049e5b07ebe6bc60fe20d24dabbe}\label{namespacew__module__base_a696a049e5b07ebe6bc60fe20d24dabbe}} 
\index{w\_module\_base@{w\_module\_base}!w@{w}}
\index{w@{w}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{w}{w}}
{\footnotesize\ttfamily real(dp), dimension(\+:), pointer w\+\_\+module\+\_\+base\+::w\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 85 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{85 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{pointer}        :: w(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+initial(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_aef8bf4ba678edf1d0ff14b2625fad176}\label{namespacew__module__base_aef8bf4ba678edf1d0ff14b2625fad176}} 
\index{w\_module\_base@{w\_module\_base}!w\_base\_initialize@{w\_base\_initialize}}
\index{w\_base\_initialize@{w\_base\_initialize}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_base\_initialize}{w\_base\_initialize}}
{\footnotesize\ttfamily logical, save w\+\_\+module\+\_\+base\+::w\+\_\+base\+\_\+initialize =.false.\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 98 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{98   \textcolor{keywordtype}{logical}                  :: w\_base\_initialize=.false.}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), w\+\_\+vectorcoslat2vordiv(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_aa7b5ff66c5013114c1463cdb040ac86a}\label{namespacew__module__base_aa7b5ff66c5013114c1463cdb040ac86a}} 
\index{w\_module\_base@{w\_module\_base}!ww@{ww}}
\index{ww@{ww}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{ww}{ww}}
{\footnotesize\ttfamily real(dp), dimension(\+:), pointer w\+\_\+module\+\_\+base\+::ww\hspace{0.3cm}{\ttfamily [private]}}



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


\begin{DoxyCode}{0}
\DoxyCodeLine{89 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{pointer}        :: ww(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+initial(), w\+\_\+streampotential2vector(), w\+\_\+vector2vordiv(), and w\+\_\+vectorcoslat2vordiv().

\mbox{\Hypertarget{namespacew__module__base_ae875323468dc412db617d265fcf88b2a}\label{namespacew__module__base_ae875323468dc412db617d265fcf88b2a}} 
\index{w\_module\_base@{w\_module\_base}!x\_lon@{x\_lon}}
\index{x\_lon@{x\_lon}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{x\_lon}{x\_lon}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public w\+\_\+module\+\_\+base\+::x\+\_\+lon}



緯度座標 



Definition at line 53 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{53 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{allocatable}    :: x\_Lon(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), and w\+\_\+base\+\_\+initial().

\mbox{\Hypertarget{namespacew__module__base_a58d8184c4227f4fa64acabca0ac5c977}\label{namespacew__module__base_a58d8184c4227f4fa64acabca0ac5c977}} 
\index{w\_module\_base@{w\_module\_base}!x\_lon\_weight@{x\_lon\_weight}}
\index{x\_lon\_weight@{x\_lon\_weight}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{x\_lon\_weight}{x\_lon\_weight}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public w\+\_\+module\+\_\+base\+::x\+\_\+lon\+\_\+weight}



緯度座標重み 



Definition at line 55 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{55 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{allocatable}    :: x\_Lon\_Weight(:)}

\end{DoxyCode}


Referenced by wa\+\_\+module\+\_\+integral\+::a\+\_\+avrlon\+\_\+xa(), wa\+\_\+module\+\_\+integral\+::a\+\_\+intlon\+\_\+xa(), w\+\_\+module\+\_\+integral\+::avrlon\+\_\+x(), w\+\_\+module\+\_\+integral\+::intlon\+\_\+x(), w\+\_\+base\+\_\+finalize(), w\+\_\+base\+\_\+initial(), w\+\_\+module\+\_\+integral\+::y\+\_\+avrlon\+\_\+xy(), w\+\_\+module\+\_\+integral\+::y\+\_\+intlon\+\_\+xy(), wa\+\_\+module\+\_\+integral\+::ya\+\_\+avrlon\+\_\+xya(), and wa\+\_\+module\+\_\+integral\+::ya\+\_\+intlon\+\_\+xya().

\mbox{\Hypertarget{namespacew__module__base_a263eec8100074f932519e03dcdc7fe70}\label{namespacew__module__base_a263eec8100074f932519e03dcdc7fe70}} 
\index{w\_module\_base@{w\_module\_base}!xy\_lat@{xy\_lat}}
\index{xy\_lat@{xy\_lat}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{xy\_lat}{xy\_lat}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), allocatable, public w\+\_\+module\+\_\+base\+::xy\+\_\+lat}



経度座標(2次元配列) 



Definition at line 63 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{63 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{allocatable}    :: xy\_Lat(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), w\+\_\+base\+\_\+initial(), w\+\_\+xy(), and xy\+\_\+w().

\mbox{\Hypertarget{namespacew__module__base_a916da409070cdd92318081f7e13c1861}\label{namespacew__module__base_a916da409070cdd92318081f7e13c1861}} 
\index{w\_module\_base@{w\_module\_base}!xy\_lon@{xy\_lon}}
\index{xy\_lon@{xy\_lon}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{xy\_lon}{xy\_lon}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), allocatable, public w\+\_\+module\+\_\+base\+::xy\+\_\+lon}



緯度座標(2次元配列) 



Definition at line 61 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{61 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{allocatable}    :: xy\_Lon(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), and w\+\_\+base\+\_\+initial().

\mbox{\Hypertarget{namespacew__module__base_a4c34a1556ac18599ef73000b6b583579}\label{namespacew__module__base_a4c34a1556ac18599ef73000b6b583579}} 
\index{w\_module\_base@{w\_module\_base}!y\_lat@{y\_lat}}
\index{y\_lat@{y\_lat}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{y\_lat}{y\_lat}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public w\+\_\+module\+\_\+base\+::y\+\_\+lat}



経度座標 



Definition at line 57 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{57 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{allocatable}    :: y\_Lat(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+finalize(), and w\+\_\+base\+\_\+initial().

\mbox{\Hypertarget{namespacew__module__base_a52e4db808630002b9e3e75b55f5efcb2}\label{namespacew__module__base_a52e4db808630002b9e3e75b55f5efcb2}} 
\index{w\_module\_base@{w\_module\_base}!y\_lat\_weight@{y\_lat\_weight}}
\index{y\_lat\_weight@{y\_lat\_weight}!w\_module\_base@{w\_module\_base}}
\doxysubsubsection{\texorpdfstring{y\_lat\_weight}{y\_lat\_weight}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public w\+\_\+module\+\_\+base\+::y\+\_\+lat\+\_\+weight}



経度座標重み 



Definition at line 59 of file w\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{59 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{allocatable}    :: y\_Lat\_Weight(:)}

\end{DoxyCode}


Referenced by wa\+\_\+module\+\_\+integral\+::a\+\_\+avrlat\+\_\+ya(), wa\+\_\+module\+\_\+integral\+::a\+\_\+intlat\+\_\+ya(), w\+\_\+module\+\_\+integral\+::avrlat\+\_\+y(), w\+\_\+module\+\_\+integral\+::intlat\+\_\+y(), w\+\_\+base\+\_\+finalize(), w\+\_\+base\+\_\+initial(), w\+\_\+module\+\_\+integral\+::x\+\_\+avrlat\+\_\+xy(), w\+\_\+module\+\_\+integral\+::x\+\_\+intlat\+\_\+xy(), wa\+\_\+module\+\_\+integral\+::xa\+\_\+avrlat\+\_\+xya(), and wa\+\_\+module\+\_\+integral\+::xa\+\_\+intlat\+\_\+xya().

