\hypertarget{namespaceet__module}{}\doxysection{et\+\_\+module Module Reference}
\label{namespaceet__module}\index{et\_module@{et\_module}}


\doxysubsection{Detailed Description}
2 次元水路領域\+: Fourier 展開 + Chebyshev 展開法 

\begin{DoxyAuthor}{Author}
Shin-\/ichi Takehiro, Youhei S\+A\+S\+A\+KI 
\end{DoxyAuthor}
\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}
spml/et\+\_\+module モジュールは 2 次元水路領域での流体運動を スペクトル法により数値計算を実行するための Fortran90 関数を提供する. 周期的な境界条件を扱うための X 方向へのフーリエ変換と境界壁を扱うための Y 方向のチェビシェフ変換を用いる場合のスペクトル計算のためのさまざまな 関数を提供する.

内部で \mbox{\hyperlink{namespaceae__module}{ae\+\_\+module}}, \mbox{\hyperlink{namespaceat__module}{at\+\_\+module}} を用いている. 最下部ではフーリエ変換およびチェビシェフ変換のエンジンとして I\+S\+P\+A\+C\+K3/\+F\+X\+P\+A\+C\+Kを用いている.

\doxysubsubsection*{関数・変数の名前と型について}

\doxyparagraph*{命名法}


\begin{DoxyItemize}
\item 関数名の先頭 (et\+\_\+, yx\+\_\+, x\+\_\+, y\+\_\+) は, 返す値の形を示している. et\+\_\+ \+:: 2次元スペクトルデータ yx\+\_\+ \+:: 2 次元格子点データ x\+\_\+ \+:: X 方向 1 次元格子点データ y\+\_\+ \+:: Y 方向 1 次元格子点データ
\item 関数名の間の文字列(\+Dx, Dy, Lapla, Lapla\+Inv, Jacobian)は, その関数の作用を表している.
\item 関数名の最後 (\+\_\+et\+\_\+et, \+\_\+et, \+\_\+yx, \+\_\+x, \+\_\+y) は, 入力変数のスペクトルデータ および格子点データであることを示している. \+\_\+et \+:: 2次元スペクトルデータ \+\_\+et\+\_\+et \+:: 2 つの2次元スペクトルデータ \+\_\+yx \+:: 2 次元格子点データ \+\_\+x \+:: X 方向 1 次元格子点データ \+\_\+y \+:: Y 方向 1 次元格子点データ
\end{DoxyItemize}

\doxyparagraph*{各データの種類の説明}


\begin{DoxyItemize}
\item yx \+: 2 次元格子点データ.
\begin{DoxyItemize}
\item 変数の種類と次元は real(\+D\+P), dimension(0\+:jm,0\+:im-\/1).
\item im, jm はそれぞれ X, Y 座標の格子点数であり, サブルーチン et\+\_\+initial にてあらかじめ設定しておく.
\item 第 1 次元が Y 座標の格子点位置番号, 第 2 次元が X 座標の 格子点位置番号である (X, Y の順ではない)ことに注意.
\end{DoxyItemize}
\item et \+: 2 次元スペクトルデータ.
\begin{DoxyItemize}
\item 変数の種類と次元は real(\+D\+P), dimension(-\/km\+:km,0\+:lm).
\item km, lm はそれぞれ X, Y 方向の最大波数であり, サブルーチン et\+\_\+initial にてあらかじめ設定しておく.
\item スペクトルデータの格納のされ方については...
\end{DoxyItemize}
\item x, y \+: X, Y 方向 1 次元格子点データ.
\begin{DoxyItemize}
\item 変数の種類と次元はそれぞれ real(\+D\+P), dimension(0\+:im-\/1) および real(\+D\+P), dimension(0\+:jm).
\end{DoxyItemize}
\item e, t \+: 1 次元スペクトルデータ.
\begin{DoxyItemize}
\item 変数の種類と次元は real(\+D\+P), dimension(-\/km\+:km) および real(\+D\+P), dimension(-\/lm\+:lm).
\end{DoxyItemize}
\item ax, ay \+: 1 次元格子点データの並んだ 2 次元配列.
\begin{DoxyItemize}
\item 変数の種類と次元は real(\+D\+P), dimension(\+:,0\+:im-\/1) および real(\+D\+P), dimension(\+:,0\+:jm).
\end{DoxyItemize}
\item ae, at \+: 1 次元スペクトルデータの並んだ 2 次元配列.
\begin{DoxyItemize}
\item 変数の種類と次元は real(\+D\+P), dimension(\+:,-\/km\+:km) および real(\+D\+P), dimension(\+:,0\+:lm).
\end{DoxyItemize}
\item et\+\_\+ で始まる関数が返す値はスペクトルデータに同じ.
\item yx\+\_\+ で始まる関数が返す値は 2 次元格子点データに同じ.
\item x\+\_\+, y\+\_\+ で始まる関数が返す値は 1 次元格子点データに同じ.
\item スペクトルデータに対する微分等の作用とは, 対応する格子点データに 微分などを作用させたデータをスペクトル変換したものことである. 
\end{DoxyItemize}\doxysubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \mbox{\hyperlink{namespaceet__module_aee177d24ffd17185ac9ba745275bedd7}{et\+\_\+initial}} (i, j, k, l, xmin, xmax, ymin, ymax)
\begin{DoxyCompactList}\small\item\em スペクトル変換の格子点数, 波数, 領域の大きさを設定する. \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}, 0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1), public \mbox{\hyperlink{namespaceet__module_a760a34bc3cf13bcbb1992706e9133eaa}{yx\+\_\+et}} (et)
\begin{DoxyCompactList}\small\item\em スペクトルデータから格子データへ変換する. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public \mbox{\hyperlink{namespaceet__module_a4d9f1ef009b70bd529dcf5e4fb8fe3ab}{et\+\_\+yx}} (yx)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}, 0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1), public \mbox{\hyperlink{namespaceet__module_a6051461b06878a267f474bb81249eb5b}{yx\+\_\+ey}} (ey)
\begin{DoxyCompactList}\small\item\em X 座標スペクトルデータから格子データへ変換する. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), public \mbox{\hyperlink{namespaceet__module_adb82dd622a4a262a1818983c7ce1ec1d}{ey\+\_\+yx}} (yx)
\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public \mbox{\hyperlink{namespaceet__module_abf4835df45033d73e40ec0a65d2ab6ae}{et\+\_\+ey}} (ey)
\begin{DoxyCompactList}\small\item\em Y 座標の格子データからスペクトルデータへ変換する. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), public \mbox{\hyperlink{namespaceet__module_ad3da5bcbba5ba8e2578c717c3577fffb}{ey\+\_\+et}} (et)
\begin{DoxyCompactList}\small\item\em Y 座標スペクトルデータから格子データへ変換する. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public \mbox{\hyperlink{namespaceet__module_a62c03dec2f266a5974287a34bb24eaa6}{et\+\_\+dx\+\_\+et}} (et)
\begin{DoxyCompactList}\small\item\em 入力スペクトルデータに X 微分 $\partial_x$ を作用する. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public \mbox{\hyperlink{namespaceet__module_adca9643d051be4c8207cbc909d128383}{et\+\_\+dy\+\_\+et}} (et)
\begin{DoxyCompactList}\small\item\em 入力スペクトルデータに Y 微分 $\partial_y$ を作用する. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public \mbox{\hyperlink{namespaceet__module_a2ff889b990b44a0fa2cb1478e38e3ef4}{et\+\_\+lapla\+\_\+et}} (et)
\begin{DoxyCompactList}\small\item\em 入力スペクトルデータにラプラシアン $(\partial_{xx}+\partial_{yy})$ を作用する. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public \mbox{\hyperlink{namespaceet__module_a5dc04ebb75fd30b73be2bb1fe16452ac}{et\+\_\+jacobian\+\_\+et\+\_\+et}} (et\+\_\+a, et\+\_\+b)
\begin{DoxyCompactList}\small\item\em 2 つのスペクトルデータからヤコビアン $ J(A,B) = (\partial_{x}A)(\partial_{y}B) -(\partial_{y}A)(\partial_{x}B)$ を計算する. \end{DoxyCompactList}\item 
subroutine, public \mbox{\hyperlink{namespaceet__module_a351eaa71386933955bc0bd959f232ad4}{et\+\_\+boundaries}} (et, values, cond)
\begin{DoxyCompactList}\small\item\em ディリクレ, ノイマン条件の適用. チェビシェフ空間での計算 \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public \mbox{\hyperlink{namespaceet__module_a1d480e4fa88a46bb43d4c37ad67ee004}{et\+\_\+laplainv\+\_\+et}} (et, values)
\begin{DoxyCompactList}\small\item\em 境界で一様な値を与える条件(ディリクレ条件)下で 入力スペクトルデータに逆ラプラシアン $(\partial_{xx}+\partial_{yy})^{-1}$ を作用する (Chebyshev-\/tau法) \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), public \mbox{\hyperlink{namespaceet__module_aefb6438605ac4d104fb956c456a37501}{ey\+\_\+vor2strm\+\_\+ey}} (ey, values, cond, new)
\begin{DoxyCompactList}\small\item\em Y 方向格子点空間での Chebyshev-\/\+Collocation 法により， 渦度から流線を求める. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public \mbox{\hyperlink{namespaceet__module_ac463c549cfdb0a1116d4fbef431190eb}{et\+\_\+vor2strm\+\_\+et}} (et, values, cond, new)
\begin{DoxyCompactList}\small\item\em Chebyshev-\/tau 法により，渦度から流線を求める(境界値は定数) \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public \mbox{\hyperlink{namespaceet__module_ad57bcfe7134b97910185c0e6271ffede}{et\+\_\+vor2strm2\+\_\+et}} (et, ea, cond, new)
\begin{DoxyCompactList}\small\item\em Chebyshev-\/tau 法により，渦度から流線を求める． 境界値として X方向の スペクトルを与えることが可能 \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public \mbox{\hyperlink{namespaceet__module_aa1ce1666e8d938e69a8f224fdfea6bf3}{et\+\_\+vor2strm3\+\_\+et}} (et, ea, cond, new)
\begin{DoxyCompactList}\small\item\em Chebyshev-\/tau 法により，渦度から流線を求める． 境界での値と勾配のスペクトルを与えることが可能. \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespaceet__module_ab548603559e0046c00b2c80452be8ed6}{intyx\+\_\+yx}} (yx)
\begin{DoxyCompactList}\small\item\em 2 次元格子点データの全領域積分および平均. \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), public \mbox{\hyperlink{namespaceet__module_a06fd2a5870bad9fdac48108be11cfcb4}{y\+\_\+intx\+\_\+yx}} (yx)
\begin{DoxyCompactList}\small\item\em 2 次元格子点データの X 方向積分 \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1), public \mbox{\hyperlink{namespaceet__module_a9d4c9267a18acd630c5d7cb68f4a5048}{x\+\_\+inty\+\_\+yx}} (yx)
\begin{DoxyCompactList}\small\item\em 2 次元格子点データの Y 方向積分 \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespaceet__module_a792a5563cd122c0779904360978a97d4}{intx\+\_\+x}} (x)
\begin{DoxyCompactList}\small\item\em 1 次元(\+X)格子点データの X 方向積分 \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespaceet__module_a85893ceb757547f168430d386a363098}{inty\+\_\+y}} (y)
\begin{DoxyCompactList}\small\item\em 1 次元(\+Y)格子点データの Y 方向積分 \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespaceet__module_a82df0305258a368bbd98eaa89e4da2e8}{avryx\+\_\+yx}} (yx)
\begin{DoxyCompactList}\small\item\em 2 次元格子点データの全領域平均 \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), public \mbox{\hyperlink{namespaceet__module_ae0f001249a5e5698e4ef2d4335dd460b}{y\+\_\+avrx\+\_\+yx}} (yx)
\begin{DoxyCompactList}\small\item\em 2 次元格子点データの X 方向平均 \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1), public \mbox{\hyperlink{namespaceet__module_a0b49f704711d70939291b05718a67180}{x\+\_\+avry\+\_\+yx}} (yx)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceet__module_a35c80f8617923d012a1ff5a32bae82f3}{avrx\+\_\+x}} (x)
\begin{DoxyCompactList}\small\item\em 1 次元(\+X)格子点データの X 方向平均 \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespaceet__module_a64a298ca04edcc608bd976c24e5eaff6}{avry\+\_\+y}} (y)
\begin{DoxyCompactList}\small\item\em 1 次元(\+Y)格子点データの Y 方向平均 \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespaceet__module_a49cd599107e897907661147d5d9239a2}{interpolate\+\_\+et}} (et\+\_\+data, xval, yval)
\begin{DoxyCompactList}\small\item\em 補間関数 \end{DoxyCompactList}\end{DoxyCompactItemize}
\doxysubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
real(dp), dimension(\+:,\+:), allocatable, public \mbox{\hyperlink{namespaceet__module_a36afc47d18eeb0d43d0aa03e9b73459a}{yx\+\_\+x}}
\begin{DoxyCompactList}\small\item\em 格子点データの X 座標\+: 格子点データ型 2 次元配列(\+X,\+Y) \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), allocatable, public \mbox{\hyperlink{namespaceet__module_ae2eafd3163d0e52c348069c39b72e42f}{yx\+\_\+y}}
\begin{DoxyCompactList}\small\item\em 格子点データの Y 座標\+: 格子点データ型 2 次元配列(\+X,\+Y) \end{DoxyCompactList}\item 
integer, save \mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}} =32
\begin{DoxyCompactList}\small\item\em X方向格子点 \end{DoxyCompactList}\item 
integer, save \mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}} =8
\begin{DoxyCompactList}\small\item\em Y方向格子点 \end{DoxyCompactList}\item 
integer, save \mbox{\hyperlink{namespaceet__module_ae416382293ff21d17e560f0314f83c52}{km}} =10
\begin{DoxyCompactList}\small\item\em X方向切断波数 \end{DoxyCompactList}\item 
integer, save \mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}} =5
\begin{DoxyCompactList}\small\item\em Y方向切断波数 \end{DoxyCompactList}\item 
real(dp), save \mbox{\hyperlink{namespaceet__module_a3db9a7e0b40260fd02473bad26e976bd}{xl}} =2.\+0\+D0
\begin{DoxyCompactList}\small\item\em X 方向計算領域 \end{DoxyCompactList}\item 
real(dp), save \mbox{\hyperlink{namespaceet__module_af608ea7378186b9df4f44fb7269606e3}{yl}} =1.\+0\+D0
\begin{DoxyCompactList}\small\item\em Y 方向計算領域 \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespaceet__module_a35c80f8617923d012a1ff5a32bae82f3}\label{namespaceet__module_a35c80f8617923d012a1ff5a32bae82f3}} 
\index{et\_module@{et\_module}!avrx\_x@{avrx\_x}}
\index{avrx\_x@{avrx\_x}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{avrx\_x()}{avrx\_x()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::avrx\+\_\+x (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1)}]{x }\end{DoxyParamCaption})}



1 次元(\+X)格子点データの X 方向平均 


\begin{DoxyParams}{Parameters}
{\em x} & 1 次元格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
平均値 
\end{DoxyReturn}


Definition at line 1258 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1258 }
\DoxyCodeLine{1259 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1)}   :: x}
\DoxyCodeLine{1261 \textcolor{keywordtype}{    real}(DP)                      :: AvrX\_x}
\DoxyCodeLine{1262 }
\DoxyCodeLine{1263     avrx\_x = intx\_x(x)/sum(x\_x\_weight)}

\end{DoxyCode}


References intx\+\_\+x().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=307pt]{namespaceet__module_a35c80f8617923d012a1ff5a32bae82f3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a64a298ca04edcc608bd976c24e5eaff6}\label{namespaceet__module_a64a298ca04edcc608bd976c24e5eaff6}} 
\index{et\_module@{et\_module}!avry\_y@{avry\_y}}
\index{avry\_y@{avry\_y}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{avry\_y()}{avry\_y()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::avry\+\_\+y (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}})}]{y }\end{DoxyParamCaption})}



1 次元(\+Y)格子点データの Y 方向平均 


\begin{DoxyParams}{Parameters}
{\em y} & 1 次元格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
平均値 
\end{DoxyReturn}


Definition at line 1270 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1270 }
\DoxyCodeLine{1271 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm)}   :: y}
\DoxyCodeLine{1273 \textcolor{keywordtype}{    real}(DP)                    :: AvrY\_y}
\DoxyCodeLine{1274 }
\DoxyCodeLine{1275     avry\_y = inty\_y(y)/sum(y\_y\_weight)}

\end{DoxyCode}


References inty\+\_\+y().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=307pt]{namespaceet__module_a64a298ca04edcc608bd976c24e5eaff6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a82df0305258a368bbd98eaa89e4da2e8}\label{namespaceet__module_a82df0305258a368bbd98eaa89e4da2e8}} 
\index{et\_module@{et\_module}!avryx\_yx@{avryx\_yx}}
\index{avryx\_yx@{avryx\_yx}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{avryx\_yx()}{avryx\_yx()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::avryx\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}},0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1)}]{yx }\end{DoxyParamCaption})}



2 次元格子点データの全領域平均 


\begin{DoxyParams}{Parameters}
{\em yx} & 2 次元格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
平均値 
\end{DoxyReturn}


Definition at line 1222 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1222 }
\DoxyCodeLine{1223 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,0:im-\/1)}   :: yx}
\DoxyCodeLine{1225 \textcolor{keywordtype}{    real}(DP)                           :: AvrYX\_yx}
\DoxyCodeLine{1226 }
\DoxyCodeLine{1227     avryx\_yx = intyx\_yx(yx)/(sum(x\_x\_weight)*sum(y\_y\_weight))}

\end{DoxyCode}


References intyx\+\_\+yx().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=327pt]{namespaceet__module_a82df0305258a368bbd98eaa89e4da2e8_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a351eaa71386933955bc0bd959f232ad4}\label{namespaceet__module_a351eaa71386933955bc0bd959f232ad4}} 
\index{et\_module@{et\_module}!et\_boundaries@{et\_boundaries}}
\index{et\_boundaries@{et\_boundaries}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_boundaries()}{et\_boundaries()}}
{\footnotesize\ttfamily subroutine, public et\+\_\+module\+::et\+\_\+boundaries (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(inout)}]{et,  }\item[{real(dp), dimension(-\/km\+:km,2), intent(in), optional}]{values,  }\item[{character(len=2), intent(in), optional}]{cond }\end{DoxyParamCaption})}



ディリクレ, ノイマン条件の適用. チェビシェフ空間での計算 

実際には中で呼ばれている \mbox{\hyperlink{namespaceat__module}{at\+\_\+module}} のサブルーチン at\+\_\+\+Boundaries\+\_\+\+DD, at\+\_\+\+Boundaries\+\_\+\+DN, at\+\_\+\+Boundaries\+\_\+\+ND, at\+\_\+\+Boundaries\+\_\+\+NN を用いている. これらを直接呼ぶことも出来る. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em values} & 境界での 値/勾配 分布を水平スペクトル変換したものを与える. 省略時は値/勾配 0 となる. \\
\hline
\mbox{\texttt{ in,out}}  & {\em et} & 境界条件を適用するデータ. 修正された値を返す. \\
\hline
\mbox{\texttt{ in}}  & {\em cond} & 境界条件. 省略時は \textquotesingle{}RR\textquotesingle{}
\begin{DoxyItemize}
\item DD \+: 両端ディリクレ
\item DN,ND \+: ディリクレ/ノイマン条件
\item NN \+: 両端ノイマン 
\end{DoxyItemize}\\
\hline
\end{DoxyParams}


Definition at line 465 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{465 }
\DoxyCodeLine{467 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values}
\DoxyCodeLine{468 }
\DoxyCodeLine{470 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)},\textcolor{keywordtype}{intent(inout)}      :: et}
\DoxyCodeLine{471 }
\DoxyCodeLine{476     \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}             :: cond}
\DoxyCodeLine{477 }
\DoxyCodeLine{478     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(cond)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{479       \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{480         \textcolor{keyword}{call }at\_boundaries\_dd(et,values)}
\DoxyCodeLine{481       \textcolor{keywordflow}{else}}
\DoxyCodeLine{482         \textcolor{keyword}{call }at\_boundaries\_dd(et)}
\DoxyCodeLine{483 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{484       \textcolor{keywordflow}{return}}
\DoxyCodeLine{485 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{486 }
\DoxyCodeLine{487     \textcolor{keywordflow}{select case}(cond)}
\DoxyCodeLine{488     \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'NN'})}
\DoxyCodeLine{489       \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{490         \textcolor{keyword}{call }at\_boundaries\_nn(et,values)}
\DoxyCodeLine{491       \textcolor{keywordflow}{else}}
\DoxyCodeLine{492         \textcolor{keyword}{call }at\_boundaries\_nn(et)}
\DoxyCodeLine{493 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{494     \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'DN'})}
\DoxyCodeLine{495       \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{496         \textcolor{keyword}{call }at\_boundaries\_dn(et,values)}
\DoxyCodeLine{497       \textcolor{keywordflow}{else}}
\DoxyCodeLine{498         \textcolor{keyword}{call }at\_boundaries\_dn(et)}
\DoxyCodeLine{499 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{500     \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'ND'})}
\DoxyCodeLine{501       \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{502         \textcolor{keyword}{call }at\_boundaries\_nd(et,values)}
\DoxyCodeLine{503       \textcolor{keywordflow}{else}}
\DoxyCodeLine{504         \textcolor{keyword}{call }at\_boundaries\_nd(et)}
\DoxyCodeLine{505 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{506     \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'DD'})}
\DoxyCodeLine{507       \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{508         \textcolor{keyword}{call }at\_boundaries\_dd(et,values)}
\DoxyCodeLine{509       \textcolor{keywordflow}{else}}
\DoxyCodeLine{510         \textcolor{keyword}{call }at\_boundaries\_dd(et)}
\DoxyCodeLine{511 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{512 \textcolor{keywordflow}{    case default}}
\DoxyCodeLine{513       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'et\_Boundaries'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{514 \textcolor{keywordflow}{    end select}}
\DoxyCodeLine{515 }

\end{DoxyCode}
\mbox{\Hypertarget{namespaceet__module_a62c03dec2f266a5974287a34bb24eaa6}\label{namespaceet__module_a62c03dec2f266a5974287a34bb24eaa6}} 
\index{et\_module@{et\_module}!et\_dx\_et@{et\_dx\_et}}
\index{et\_dx\_et@{et\_dx\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_dx\_et()}{et\_dx\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public et\+\_\+module\+::et\+\_\+dx\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et }\end{DoxyParamCaption})}



入力スペクトルデータに X 微分 $\partial_x$ を作用する. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et} & 入力スペクトルデータ \\
\hline
\end{DoxyParams}


Definition at line 398 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{398 }
\DoxyCodeLine{399 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}    :: et}
\DoxyCodeLine{400 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}                :: et\_Dx\_et}
\DoxyCodeLine{401 }
\DoxyCodeLine{402     \textcolor{keywordtype}{integer} k}
\DoxyCodeLine{403     \textcolor{keywordflow}{do} k=-\/km,km}
\DoxyCodeLine{404       et\_dx\_et(k,:)  =  (-\/2*pi*k/xl)*et(-\/k,:)}
\DoxyCodeLine{405 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References ae\+\_\+module\+::km, and ae\+\_\+module\+::xl.



Referenced by et\+\_\+jacobian\+\_\+et\+\_\+et().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=338pt]{namespaceet__module_a62c03dec2f266a5974287a34bb24eaa6_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_adca9643d051be4c8207cbc909d128383}\label{namespaceet__module_adca9643d051be4c8207cbc909d128383}} 
\index{et\_module@{et\_module}!et\_dy\_et@{et\_dy\_et}}
\index{et\_dy\_et@{et\_dy\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_dy\_et()}{et\_dy\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public et\+\_\+module\+::et\+\_\+dy\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et }\end{DoxyParamCaption})}



入力スペクトルデータに Y 微分 $\partial_y$ を作用する. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et} & 入力スペクトルデータ \\
\hline
\end{DoxyParams}


Definition at line 412 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{412 }
\DoxyCodeLine{413 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}   :: et}
\DoxyCodeLine{414 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}               :: et\_Dy\_et}
\DoxyCodeLine{415 }
\DoxyCodeLine{416     et\_dy\_et = at\_dy\_at(et)}
\DoxyCodeLine{417 }

\end{DoxyCode}


Referenced by et\+\_\+jacobian\+\_\+et\+\_\+et(), et\+\_\+lapla\+\_\+et(), et\+\_\+vor2strm2\+\_\+et(), et\+\_\+vor2strm3\+\_\+et(), et\+\_\+vor2strm\+\_\+et(), and ey\+\_\+vor2strm\+\_\+ey().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceet__module_adca9643d051be4c8207cbc909d128383_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_abf4835df45033d73e40ec0a65d2ab6ae}\label{namespaceet__module_abf4835df45033d73e40ec0a65d2ab6ae}} 
\index{et\_module@{et\_module}!et\_ey@{et\_ey}}
\index{et\_ey@{et\_ey}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_ey()}{et\_ey()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public et\+\_\+module\+::et\+\_\+ey (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), intent(in)}]{ey }\end{DoxyParamCaption})}



Y 座標の格子データからスペクトルデータへ変換する. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em ey} & 格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ 
\end{DoxyReturn}


Definition at line 372 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{372 }
\DoxyCodeLine{373 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}, \textcolor{keywordtype}{intent(in)}  :: ey}
\DoxyCodeLine{375 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}              :: et\_ey}
\DoxyCodeLine{376     et\_ey = at\_ay(ey)}
\DoxyCodeLine{377 }

\end{DoxyCode}


Referenced by ey\+\_\+vor2strm\+\_\+ey().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=345pt]{namespaceet__module_abf4835df45033d73e40ec0a65d2ab6ae_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_aee177d24ffd17185ac9ba745275bedd7}\label{namespaceet__module_aee177d24ffd17185ac9ba745275bedd7}} 
\index{et\_module@{et\_module}!et\_initial@{et\_initial}}
\index{et\_initial@{et\_initial}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_initial()}{et\_initial()}}
{\footnotesize\ttfamily subroutine, public et\+\_\+module\+::et\+\_\+initial (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{i,  }\item[{integer, intent(in)}]{j,  }\item[{integer, intent(in)}]{k,  }\item[{integer, intent(in)}]{l,  }\item[{real(dp), intent(in)}]{xmin,  }\item[{real(dp), intent(in)}]{xmax,  }\item[{real(dp), intent(in)}]{ymin,  }\item[{real(dp), intent(in)}]{ymax }\end{DoxyParamCaption})}



スペクトル変換の格子点数, 波数, 領域の大きさを設定する. 

他の関数や変数を呼ぶ前に, 最初にこのサブルーチンを呼んで 初期設定をしなければならない. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em i} & 格子点数(\+X) \\
\hline
\mbox{\texttt{ in}}  & {\em j} & 格子点数(\+Y) \\
\hline
\mbox{\texttt{ in}}  & {\em k} & 切断波数(\+X) \\
\hline
\mbox{\texttt{ in}}  & {\em l} & 切断波数(\+Y) \\
\hline
\mbox{\texttt{ in}}  & {\em xmin} & X 座標範囲 \\
\hline
\mbox{\texttt{ in}}  & {\em xmax} & X 座標範囲 \\
\hline
\mbox{\texttt{ in}}  & {\em ymin} & Y 座標範囲 \\
\hline
\mbox{\texttt{ in}}  & {\em ymax} & Y 座標範囲 \\
\hline
\end{DoxyParams}


Definition at line 225 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{225 }
\DoxyCodeLine{226     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: i}
\DoxyCodeLine{228     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: j}
\DoxyCodeLine{230     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: k}
\DoxyCodeLine{232     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: l}
\DoxyCodeLine{234 \textcolor{keywordtype}{    real}(DP),\textcolor{keywordtype}{intent(in)} :: xmin, xmax}
\DoxyCodeLine{236 \textcolor{keywordtype}{    real}(DP),\textcolor{keywordtype}{intent(in)} :: ymin, ymax}
\DoxyCodeLine{237 }
\DoxyCodeLine{238     im = i}
\DoxyCodeLine{239     jm = j}
\DoxyCodeLine{240     km = k}
\DoxyCodeLine{241     lm = l}
\DoxyCodeLine{242     xl = xmax-\/xmin}
\DoxyCodeLine{243     yl = ymax-\/ymin}
\DoxyCodeLine{244 }
\DoxyCodeLine{245     \textcolor{keyword}{call }ae\_initial(im,km,xmin,xmax)}
\DoxyCodeLine{246     \textcolor{keyword}{call }at\_initial(jm,lm,ymin,ymax)}
\DoxyCodeLine{247 }
\DoxyCodeLine{248     \textcolor{keyword}{allocate}(yx\_x(0:jm,0:im-\/1),yx\_y(0:jm,0:im-\/1))}
\DoxyCodeLine{249     yx\_x = spread(x\_x,1,jm+1)}
\DoxyCodeLine{250     yx\_y = spread(y\_y,2,im)}
\DoxyCodeLine{251 }
\DoxyCodeLine{252     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'et\_initial'}, \&}
\DoxyCodeLine{253       \& \textcolor{stringliteral}{'et\_module (2019/09/30) is initialized'})}

\end{DoxyCode}


References ae\+\_\+module\+::ae\+\_\+initial(), at\+\_\+module\+::at\+\_\+initial(), ae\+\_\+module\+::im, jm, ae\+\_\+module\+::km, lm, ae\+\_\+module\+::xl, yl, yx\+\_\+x, and yx\+\_\+y.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=328pt]{namespaceet__module_aee177d24ffd17185ac9ba745275bedd7_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a5dc04ebb75fd30b73be2bb1fe16452ac}\label{namespaceet__module_a5dc04ebb75fd30b73be2bb1fe16452ac}} 
\index{et\_module@{et\_module}!et\_jacobian\_et\_et@{et\_jacobian\_et\_et}}
\index{et\_jacobian\_et\_et@{et\_jacobian\_et\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_jacobian\_et\_et()}{et\_jacobian\_et\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public et\+\_\+module\+::et\+\_\+jacobian\+\_\+et\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et\+\_\+a,  }\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et\+\_\+b }\end{DoxyParamCaption})}



2 つのスペクトルデータからヤコビアン $ J(A,B) = (\partial_{x}A)(\partial_{y}B) -(\partial_{y}A)(\partial_{x}B)$ を計算する. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et\+\_\+a} & 1つ目の入力スペクトルデータ \\
\hline
\mbox{\texttt{ in}}  & {\em et\+\_\+b} & 2つ目の入力スペクトルデータ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
2 つのスペクトルデータのヤコビアン 
\end{DoxyReturn}


Definition at line 444 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{444 }
\DoxyCodeLine{445 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}    :: et\_a}
\DoxyCodeLine{447 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}    :: et\_b}
\DoxyCodeLine{449 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}                :: et\_Jacobian\_et\_et}
\DoxyCodeLine{450     et\_jacobian\_et\_et = et\_yx(                           \&}
\DoxyCodeLine{451       \&  yx\_et(et\_dx\_et(et\_a)) * yx\_et(et\_dy\_et(et\_b))   \&}
\DoxyCodeLine{452       \& -\/ yx\_et(et\_dy\_et(et\_a)) * yx\_et(et\_dx\_et(et\_b)) )}
\DoxyCodeLine{453 }

\end{DoxyCode}


References et\+\_\+dx\+\_\+et(), et\+\_\+dy\+\_\+et(), et\+\_\+yx(), and yx\+\_\+et().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=338pt]{namespaceet__module_a5dc04ebb75fd30b73be2bb1fe16452ac_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a2ff889b990b44a0fa2cb1478e38e3ef4}\label{namespaceet__module_a2ff889b990b44a0fa2cb1478e38e3ef4}} 
\index{et\_module@{et\_module}!et\_lapla\_et@{et\_lapla\_et}}
\index{et\_lapla\_et@{et\_lapla\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_lapla\_et()}{et\_lapla\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public et\+\_\+module\+::et\+\_\+lapla\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et }\end{DoxyParamCaption})}



入力スペクトルデータにラプラシアン $(\partial_{xx}+\partial_{yy})$ を作用する. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et} & 入力スペクトルデータ \\
\hline
\end{DoxyParams}


Definition at line 425 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{425 }
\DoxyCodeLine{426 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}    :: et}
\DoxyCodeLine{427 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}                :: et\_Lapla\_et}
\DoxyCodeLine{428 }
\DoxyCodeLine{429     \textcolor{keywordtype}{integer} k}
\DoxyCodeLine{430     \textcolor{keywordflow}{do} k=-\/km,km}
\DoxyCodeLine{431       et\_lapla\_et(k,:) = -\/(2*pi*k/xl)**2*et(k,:)}
\DoxyCodeLine{432 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{433 }
\DoxyCodeLine{434     et\_lapla\_et = et\_lapla\_et + et\_dy\_et(et\_dy\_et(et))}
\DoxyCodeLine{435 }

\end{DoxyCode}


References et\+\_\+dy\+\_\+et(), ae\+\_\+module\+::km, and ae\+\_\+module\+::xl.



Referenced by et\+\_\+laplainv\+\_\+et(), et\+\_\+vor2strm2\+\_\+et(), et\+\_\+vor2strm3\+\_\+et(), et\+\_\+vor2strm\+\_\+et(), and ey\+\_\+vor2strm\+\_\+ey().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=336pt]{namespaceet__module_a2ff889b990b44a0fa2cb1478e38e3ef4_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceet__module_a2ff889b990b44a0fa2cb1478e38e3ef4_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a1d480e4fa88a46bb43d4c37ad67ee004}\label{namespaceet__module_a1d480e4fa88a46bb43d4c37ad67ee004}} 
\index{et\_module@{et\_module}!et\_laplainv\_et@{et\_laplainv\_et}}
\index{et\_laplainv\_et@{et\_laplainv\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_laplainv\_et()}{et\_laplainv\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public et\+\_\+module\+::et\+\_\+laplainv\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et,  }\item[{real(dp), dimension(-\/km\+:km,2), intent(in), optional}]{values }\end{DoxyParamCaption})}



境界で一様な値を与える条件(ディリクレ条件)下で 入力スペクトルデータに逆ラプラシアン $(\partial_{xx}+\partial_{yy})^{-1}$ を作用する (Chebyshev-\/tau法) 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et} & スペクトルデータ \\
\hline
\mbox{\texttt{ in}}  & {\em values} & 境界値. 省略時は 0 が設定される. \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの逆ラプラシアン 
\end{DoxyReturn}


Definition at line 525 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{525 }
\DoxyCodeLine{526 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)},\textcolor{keywordtype}{intent(in)}  :: et}
\DoxyCodeLine{528 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values}
\DoxyCodeLine{530 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}             :: et\_LaplaInv\_et}
\DoxyCodeLine{531 }
\DoxyCodeLine{532 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{533     \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{534 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}         :: et\_work}
\DoxyCodeLine{535 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}         :: ey\_work}
\DoxyCodeLine{536 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km)}              :: value1, value2   \textcolor{comment}{! 境界値}}
\DoxyCodeLine{537 }
\DoxyCodeLine{538     \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{539     \textcolor{keywordtype}{integer} :: l}
\DoxyCodeLine{540     \textcolor{keywordtype}{save}    :: alu, kp, first}
\DoxyCodeLine{541 }
\DoxyCodeLine{542     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{543       value1=0.0d0}
\DoxyCodeLine{544       value2=0.0d0}
\DoxyCodeLine{545     \textcolor{keywordflow}{else}}
\DoxyCodeLine{546       value1 = values(:,1)}
\DoxyCodeLine{547       value2 = values(:,2)}
\DoxyCodeLine{548 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{549 }
\DoxyCodeLine{550     \textcolor{keywordflow}{if} ( first ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{551       first = .false.}
\DoxyCodeLine{552 }
\DoxyCodeLine{553       \textcolor{keyword}{allocate}(alu(-\/km:km,0:lm,0:lm),kp(-\/km:km,0:lm))}
\DoxyCodeLine{554 }
\DoxyCodeLine{555       \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{556         et\_work=0.0d0}
\DoxyCodeLine{557         et\_work(:,l) = 1.0d0}
\DoxyCodeLine{558         alu(:,:,l) = et\_lapla\_et(et\_work)}
\DoxyCodeLine{559         ey\_work = ay\_at(et\_work)}
\DoxyCodeLine{560         alu(:,lm-\/1,l) = ey\_work(:,0)}
\DoxyCodeLine{561         alu(:,lm,l)   = ey\_work(:,jm)}
\DoxyCodeLine{562 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{563 }
\DoxyCodeLine{564       \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{565 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{566 }
\DoxyCodeLine{567     et\_work = et}
\DoxyCodeLine{568     et\_work(:,lm-\/1) = value1}
\DoxyCodeLine{569     et\_work(:,lm)   = value2}
\DoxyCodeLine{570     et\_laplainv\_et = lusolve(alu,kp,et\_work)}
\DoxyCodeLine{571 }

\end{DoxyCode}


References et\+\_\+lapla\+\_\+et(), jm, ae\+\_\+module\+::km, and lm.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceet__module_a1d480e4fa88a46bb43d4c37ad67ee004_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_ad57bcfe7134b97910185c0e6271ffede}\label{namespaceet__module_ad57bcfe7134b97910185c0e6271ffede}} 
\index{et\_module@{et\_module}!et\_vor2strm2\_et@{et\_vor2strm2\_et}}
\index{et\_vor2strm2\_et@{et\_vor2strm2\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_vor2strm2\_et()}{et\_vor2strm2\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public et\+\_\+module\+::et\+\_\+vor2strm2\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et,  }\item[{real(dp), dimension(-\/km\+:km,2), intent(in), optional}]{ea,  }\item[{character(len=2), intent(in), optional}]{cond,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Chebyshev-\/tau 法により，渦度から流線を求める． 境界値として X方向の スペクトルを与えることが可能 

渦度 $\zeta$ を与えて流線 $\psi$ を求める. \begin{align*} \nabla^2\psi & = \zeta, \\ \psi & = \mbox{const. at boundaries.} \end{align*} 粘着条件 \[ \partial_{y} \psi = 0 \, \mbox{at boundaries} \] 応力なし条件 \[ (\partial_{y})^{2} \psi = 0 \, \mbox{at boundaries} \] 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et} & 入力渦度分布 \\
\hline
\mbox{\texttt{ in}}  & {\em ea} & 流線境界値. 省略時は 0. 1\+:Top,2\+:Btm \\
\hline
\mbox{\texttt{ in}}  & {\em cond} & 境界条件スイッチ. 省略時は \textquotesingle{}RR\textquotesingle{}
\begin{DoxyItemize}
\item RR \+: 両端粘着条件
\item RF \+: 上端粘着下端応力なし条件
\item FR \+: 上端応力なし下端粘着条件
\item FF \+: 両端応力なし条件 
\end{DoxyItemize}\\
\hline
\mbox{\texttt{ in}}  & {\em new} & true だと境界条件計算用行列を強制的に新たに作る. default は false. \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
出力流線分布 
\end{DoxyReturn}


Definition at line 870 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{870 }
\DoxyCodeLine{871 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)},\textcolor{keywordtype}{intent(in)}  :: et}
\DoxyCodeLine{873 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: ea}
\DoxyCodeLine{879     \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond}
\DoxyCodeLine{882     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{884 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}         :: et\_Vor2Strm2\_et}
\DoxyCodeLine{885 }
\DoxyCodeLine{886 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{887     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}     :: kp}
\DoxyCodeLine{888 }
\DoxyCodeLine{889 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}         :: et\_work}
\DoxyCodeLine{890 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}         :: ey\_work}
\DoxyCodeLine{891 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km)}              :: e\_Top}
\DoxyCodeLine{892 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km)}              :: e\_Btm}
\DoxyCodeLine{893     \textcolor{keywordtype}{logical}                                  :: rigid1 = .true.}
\DoxyCodeLine{894     \textcolor{keywordtype}{logical}                                  :: rigid2 = .true.}
\DoxyCodeLine{895 }
\DoxyCodeLine{896     \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{897     \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{898     \textcolor{keywordtype}{integer} :: l}
\DoxyCodeLine{899     \textcolor{keywordtype}{save}    :: alu, kp, first}
\DoxyCodeLine{900 }
\DoxyCodeLine{901     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(ea)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{902       e\_top = 0.0d0}
\DoxyCodeLine{903       e\_btm = 0.0d0}
\DoxyCodeLine{904     \textcolor{keywordflow}{else}}
\DoxyCodeLine{905       e\_top = ea(:,1)}
\DoxyCodeLine{906       e\_btm = ea(:,2)}
\DoxyCodeLine{907 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{908 }
\DoxyCodeLine{909     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(cond) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{910       \textcolor{keywordflow}{select case} (cond)}
\DoxyCodeLine{911       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})}
\DoxyCodeLine{912         rigid1 = .true.}
\DoxyCodeLine{913         rigid2 = .true.}
\DoxyCodeLine{914       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})}
\DoxyCodeLine{915         rigid1 = .true.}
\DoxyCodeLine{916         rigid2 = .false.}
\DoxyCodeLine{917       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})}
\DoxyCodeLine{918         rigid1 = .false.}
\DoxyCodeLine{919         rigid2 = .true.}
\DoxyCodeLine{920       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})}
\DoxyCodeLine{921         rigid1 = .false.}
\DoxyCodeLine{922         rigid2 = .false.}
\DoxyCodeLine{923 \textcolor{keywordflow}{      case default}}
\DoxyCodeLine{924         \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{925 \textcolor{keywordflow}{      end select}}
\DoxyCodeLine{926 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{927 }
\DoxyCodeLine{928     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{929       new\_matrix=.false.}
\DoxyCodeLine{930     \textcolor{keywordflow}{else}}
\DoxyCodeLine{931       new\_matrix=new}
\DoxyCodeLine{932 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{933 }
\DoxyCodeLine{934     \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{935       first = .false.}
\DoxyCodeLine{936 }
\DoxyCodeLine{937       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{938       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{939       \textcolor{keyword}{allocate}(alu(-\/km:km,0:lm,0:lm),kp(-\/km:km,0:lm))}
\DoxyCodeLine{940 }
\DoxyCodeLine{941       alu = 0.0d0}
\DoxyCodeLine{942       \textcolor{keywordflow}{do} l=0,lm-\/2}
\DoxyCodeLine{943         et\_work(:,:)= 0.0d0}
\DoxyCodeLine{944         et\_work(:,l)= 1.0d0}
\DoxyCodeLine{945 }
\DoxyCodeLine{946         alu(:,:,l) = et\_lapla\_et(et\_work)}
\DoxyCodeLine{947 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{948 }
\DoxyCodeLine{949       \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{950         et\_work(:,:)= 0.0d0}
\DoxyCodeLine{951         et\_work(:,l)= 1.0d0}
\DoxyCodeLine{952 }
\DoxyCodeLine{953         \textcolor{comment}{! 運動学的条件. 流線は境界で一定}}
\DoxyCodeLine{954         ey\_work = ay\_at(et\_work)}
\DoxyCodeLine{955         alu(:,lm,l) = ey\_work(:,0)}
\DoxyCodeLine{956         alu(:,lm-\/1,l) = ey\_work(:,jm)}
\DoxyCodeLine{957 }
\DoxyCodeLine{958         \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 力学的条件粘着条件(Top)}}
\DoxyCodeLine{959           ey\_work=ay\_at(et\_dy\_et(et\_work))}
\DoxyCodeLine{960           alu(:,lm-\/2,l) = ey\_work(:,0)}
\DoxyCodeLine{961         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 力学的条件すべり条件(Top)}}
\DoxyCodeLine{962           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))}
\DoxyCodeLine{963           alu(:,lm-\/2,l) = ey\_work(:,0)}
\DoxyCodeLine{964 \textcolor{keywordflow}{        endif}}
\DoxyCodeLine{965         \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 力学的条件粘着条件(bottom)}}
\DoxyCodeLine{966           ey\_work=ay\_at(et\_dy\_et(et\_work))}
\DoxyCodeLine{967           alu(:,lm-\/3,l) = ey\_work(:,jm)}
\DoxyCodeLine{968         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 力学的条件すべり条件(bottom)}}
\DoxyCodeLine{969           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))}
\DoxyCodeLine{970           alu(:,lm-\/3,l) = ey\_work(:,jm)}
\DoxyCodeLine{971 \textcolor{keywordflow}{        endif}}
\DoxyCodeLine{972 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{973 }
\DoxyCodeLine{974       \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{975 }
\DoxyCodeLine{976       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},\&}
\DoxyCodeLine{977         \textcolor{stringliteral}{'Matrix for stream func. calc. produced'})}
\DoxyCodeLine{978 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{979 }
\DoxyCodeLine{980     \textcolor{comment}{! 内部領域計算}}
\DoxyCodeLine{981     et\_work = et}
\DoxyCodeLine{982 }
\DoxyCodeLine{983     et\_work(:,lm-\/2) = 0.0d0           \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{984     et\_work(:,lm-\/3) = 0.0d0           \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{985 }
\DoxyCodeLine{986     et\_work(:,lm-\/1) = e\_btm           \textcolor{comment}{! 運動学的条件. 波数 0 以外は 0}}
\DoxyCodeLine{987     et\_work(:,lm)   = e\_top           \textcolor{comment}{! 運動学的条件. 波数 0 以外は 0}}
\DoxyCodeLine{988 }
\DoxyCodeLine{989     et\_vor2strm2\_et = lusolve(alu,kp,et\_work)}
\DoxyCodeLine{990 }

\end{DoxyCode}


References et\+\_\+dy\+\_\+et(), et\+\_\+lapla\+\_\+et(), jm, ae\+\_\+module\+::km, and lm.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceet__module_ad57bcfe7134b97910185c0e6271ffede_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_aa1ce1666e8d938e69a8f224fdfea6bf3}\label{namespaceet__module_aa1ce1666e8d938e69a8f224fdfea6bf3}} 
\index{et\_module@{et\_module}!et\_vor2strm3\_et@{et\_vor2strm3\_et}}
\index{et\_vor2strm3\_et@{et\_vor2strm3\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_vor2strm3\_et()}{et\_vor2strm3\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public et\+\_\+module\+::et\+\_\+vor2strm3\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et,  }\item[{real(dp), dimension(-\/km\+:km,4), intent(in), optional}]{ea,  }\item[{character(len=2), intent(in), optional}]{cond,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Chebyshev-\/tau 法により，渦度から流線を求める． 境界での値と勾配のスペクトルを与えることが可能. 

渦度 $\zeta$ を与えて流線 $\psi$ を求める. \begin{align*} \nabla^2\psi & = \zeta, \\ \psi & = \mbox{const. at boundaries.} \end{align*} 粘着条件 \[ \partial_{y} \psi = 0 \, \mbox{at boundaries} \] 応力なし条件 \[ (\partial_{y})^{2} \psi = 0 \, \mbox{at boundaries} \] 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et} & 入力渦度分布 \\
\hline
\mbox{\texttt{ in}}  & {\em ea} & 流線/微分境界値. 省略時は 0.
\begin{DoxyEnumerate}
\item Top 値,
\item Bottom 値
\item Top 微分(勾配)
\item Bottom 微分(勾配) 
\end{DoxyEnumerate}\\
\hline
\mbox{\texttt{ in}}  & {\em cond} & 境界条件スイッチ. 省略時は \textquotesingle{}RR\textquotesingle{}
\begin{DoxyItemize}
\item RR \+: 両端粘着条件
\item RF \+: 上端粘着下端応力なし条件
\item FR \+: 上端応力なし下端粘着条件
\item FF \+: 両端応力なし条件 
\end{DoxyItemize}\\
\hline
\mbox{\texttt{ in}}  & {\em new} & true だと境界条件計算用行列を強制的に新たに作る. default は false. \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
出力流線分布 
\end{DoxyReturn}


Definition at line 1008 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1008 }
\DoxyCodeLine{1009 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)},\textcolor{keywordtype}{intent(in)}  :: et}
\DoxyCodeLine{1015 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,4)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: ea}
\DoxyCodeLine{1021     \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond}
\DoxyCodeLine{1024     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{1026 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}             :: et\_Vor2Strm3\_et}
\DoxyCodeLine{1027 }
\DoxyCodeLine{1028 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable} :: alu}
\DoxyCodeLine{1029     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{1030 }
\DoxyCodeLine{1031 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}        :: et\_work}
\DoxyCodeLine{1032 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}        :: ey\_work}
\DoxyCodeLine{1033 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km)}             :: e\_TopValue}
\DoxyCodeLine{1034 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km)}             :: e\_BtmValue}
\DoxyCodeLine{1035 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km)}             :: e\_TopDiff}
\DoxyCodeLine{1036 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km)}             :: e\_BtmDiff}
\DoxyCodeLine{1037     \textcolor{keywordtype}{logical}                                 :: rigid1 = .true.}
\DoxyCodeLine{1038     \textcolor{keywordtype}{logical}                                 :: rigid2 = .true.}
\DoxyCodeLine{1039     \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{1040     \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{1041     \textcolor{keywordtype}{integer} :: l}
\DoxyCodeLine{1042     \textcolor{keywordtype}{save}    :: alu, kp, first}
\DoxyCodeLine{1043 }
\DoxyCodeLine{1044     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(ea)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{1045       e\_topvalue = 0.0d0}
\DoxyCodeLine{1046       e\_btmvalue = 0.0d0}
\DoxyCodeLine{1047       e\_topdiff  = 0.0d0}
\DoxyCodeLine{1048       e\_btmdiff  = 0.0d0}
\DoxyCodeLine{1049     \textcolor{keywordflow}{else}}
\DoxyCodeLine{1050       e\_topvalue = ea(:,1)}
\DoxyCodeLine{1051       e\_btmvalue = ea(:,2)}
\DoxyCodeLine{1052       e\_topdiff  = ea(:,3)}
\DoxyCodeLine{1053       e\_btmdiff  = ea(:,4)}
\DoxyCodeLine{1054 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{1055 }
\DoxyCodeLine{1056     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(cond) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{1057       \textcolor{keywordflow}{select case} (cond)}
\DoxyCodeLine{1058       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})}
\DoxyCodeLine{1059         rigid1 = .true.}
\DoxyCodeLine{1060         rigid2 = .true.}
\DoxyCodeLine{1061       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})}
\DoxyCodeLine{1062         rigid1 = .true.}
\DoxyCodeLine{1063         rigid2 = .false.}
\DoxyCodeLine{1064       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})}
\DoxyCodeLine{1065         rigid1 = .false.}
\DoxyCodeLine{1066         rigid2 = .true.}
\DoxyCodeLine{1067       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})}
\DoxyCodeLine{1068         rigid1 = .false.}
\DoxyCodeLine{1069         rigid2 = .false.}
\DoxyCodeLine{1070 \textcolor{keywordflow}{      case default}}
\DoxyCodeLine{1071         \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{1072 \textcolor{keywordflow}{      end select}}
\DoxyCodeLine{1073 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{1074 }
\DoxyCodeLine{1075     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{1076       new\_matrix=.false.}
\DoxyCodeLine{1077     \textcolor{keywordflow}{else}}
\DoxyCodeLine{1078       new\_matrix=new}
\DoxyCodeLine{1079 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{1080 }
\DoxyCodeLine{1081     \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{1082       first = .false.}
\DoxyCodeLine{1083 }
\DoxyCodeLine{1084       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{1085       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{1086       \textcolor{keyword}{allocate}(alu(-\/km:km,0:lm,0:lm),kp(-\/km:km,0:lm))}
\DoxyCodeLine{1087 }
\DoxyCodeLine{1088       alu = 0.0d0}
\DoxyCodeLine{1089       \textcolor{keywordflow}{do} l=0,lm-\/2}
\DoxyCodeLine{1090         et\_work(:,:)= 0.0d0}
\DoxyCodeLine{1091         et\_work(:,l)= 1.0d0}
\DoxyCodeLine{1092 }
\DoxyCodeLine{1093         alu(:,:,l) = et\_lapla\_et(et\_work)}
\DoxyCodeLine{1094 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{1095 }
\DoxyCodeLine{1096       \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{1097         et\_work(:,:)= 0.0d0}
\DoxyCodeLine{1098         et\_work(:,l)= 1.0d0}
\DoxyCodeLine{1099 }
\DoxyCodeLine{1100         \textcolor{comment}{! 運動学的条件. 流線は境界で一定}}
\DoxyCodeLine{1101         ey\_work = ay\_at(et\_work)}
\DoxyCodeLine{1102         alu(:,lm,l) = ey\_work(:,0)}
\DoxyCodeLine{1103         alu(:,lm-\/1,l) = ey\_work(:,jm)}
\DoxyCodeLine{1104 }
\DoxyCodeLine{1105         \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 力学的条件粘着条件(Top)}}
\DoxyCodeLine{1106           ey\_work=ay\_at(et\_dy\_et(et\_work))}
\DoxyCodeLine{1107           alu(:,lm-\/2,l) = ey\_work(:,0)}
\DoxyCodeLine{1108         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 力学的条件すべり条件(Top)}}
\DoxyCodeLine{1109           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))}
\DoxyCodeLine{1110           alu(:,lm-\/2,l) = ey\_work(:,0)}
\DoxyCodeLine{1111 \textcolor{keywordflow}{        endif}}
\DoxyCodeLine{1112         \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 力学的条件粘着条件(bottom)}}
\DoxyCodeLine{1113           ey\_work=ay\_at(et\_dy\_et(et\_work))}
\DoxyCodeLine{1114           alu(:,lm-\/3,l) = ey\_work(:,jm)}
\DoxyCodeLine{1115         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 力学的条件すべり条件(bottom)}}
\DoxyCodeLine{1116           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))}
\DoxyCodeLine{1117           alu(:,lm-\/3,l) = ey\_work(:,jm)}
\DoxyCodeLine{1118 \textcolor{keywordflow}{        endif}}
\DoxyCodeLine{1119 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{1120 }
\DoxyCodeLine{1121       \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{1122 }
\DoxyCodeLine{1123       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},\&}
\DoxyCodeLine{1124         \textcolor{stringliteral}{'Matrix for stream func. calc. produced'})}
\DoxyCodeLine{1125 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{1126 }
\DoxyCodeLine{1127     \textcolor{comment}{! 内部領域計算}}
\DoxyCodeLine{1128     et\_work = et}
\DoxyCodeLine{1129 }
\DoxyCodeLine{1130     et\_work(:,lm-\/2) = e\_topdiff         \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{1131     et\_work(:,lm-\/3) = e\_btmdiff         \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{1132 }
\DoxyCodeLine{1133     et\_work(:,lm-\/1) = e\_btmvalue        \textcolor{comment}{! 運動学的条件. 波数 0 以外は 0}}
\DoxyCodeLine{1134     et\_work(:,lm)   = e\_topvalue        \textcolor{comment}{! 運動学的条件. 波数 0 以外は 0}}
\DoxyCodeLine{1135 }
\DoxyCodeLine{1136     et\_vor2strm3\_et = lusolve(alu,kp,et\_work)}
\DoxyCodeLine{1137 }

\end{DoxyCode}


References et\+\_\+dy\+\_\+et(), et\+\_\+lapla\+\_\+et(), jm, ae\+\_\+module\+::km, and lm.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceet__module_aa1ce1666e8d938e69a8f224fdfea6bf3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_ac463c549cfdb0a1116d4fbef431190eb}\label{namespaceet__module_ac463c549cfdb0a1116d4fbef431190eb}} 
\index{et\_module@{et\_module}!et\_vor2strm\_et@{et\_vor2strm\_et}}
\index{et\_vor2strm\_et@{et\_vor2strm\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_vor2strm\_et()}{et\_vor2strm\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public et\+\_\+module\+::et\+\_\+vor2strm\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et,  }\item[{real(dp), dimension(2), intent(in), optional}]{values,  }\item[{character(len=2), intent(in), optional}]{cond,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Chebyshev-\/tau 法により，渦度から流線を求める(境界値は定数) 

渦度 $\zeta$ を与えて流線 $\psi$ を求める. \begin{align*} \nabla^2\psi & = \zeta, \\ \psi & = \mbox{const. at boundaries.} \end{align*} 粘着条件 \[ \partial_{y} \psi = 0 \, \mbox{at boundaries} \] 応力なし条件 \[ (\partial_{y})^{2} \psi = 0 \, \mbox{at boundaries} \] 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et} & 入力渦度分布 \\
\hline
\mbox{\texttt{ in}}  & {\em values} & 流線境界値. 境界で一定なので波数 0 成分のみ. 省略時は 0. \\
\hline
\mbox{\texttt{ in}}  & {\em cond} & 境界条件スイッチ. 省略時は \textquotesingle{}RR\textquotesingle{}
\begin{DoxyItemize}
\item RR \+: 両端粘着条件
\item RF \+: 上端粘着下端応力なし条件
\item FR \+: 上端応力なし下端粘着条件
\item FF \+: 両端応力なし条件 
\end{DoxyItemize}\\
\hline
\mbox{\texttt{ in}}  & {\em new} & true だと境界条件計算用行列を強制的に新たに作る. default は false. \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
出力流線分布 
\end{DoxyReturn}


Definition at line 726 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{726 }
\DoxyCodeLine{727 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)},\textcolor{keywordtype}{intent(in)}  :: et}
\DoxyCodeLine{729 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values}
\DoxyCodeLine{735     \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond}
\DoxyCodeLine{738     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{740 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}             :: et\_Vor2Strm\_et}
\DoxyCodeLine{741 }
\DoxyCodeLine{742 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{743     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}     :: kp}
\DoxyCodeLine{744 }
\DoxyCodeLine{745 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}         :: et\_work}
\DoxyCodeLine{746 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}         :: ey\_work}
\DoxyCodeLine{747 \textcolor{keywordtype}{    real}(DP)                                 :: value1}
\DoxyCodeLine{748 \textcolor{keywordtype}{    real}(DP)                                 :: value2}
\DoxyCodeLine{749     \textcolor{keywordtype}{logical}                                  :: rigid1 = .true.}
\DoxyCodeLine{750     \textcolor{keywordtype}{logical}                                  :: rigid2 = .true.}
\DoxyCodeLine{751 }
\DoxyCodeLine{752 }
\DoxyCodeLine{753     \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{754     \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{755     \textcolor{keywordtype}{integer} :: l}
\DoxyCodeLine{756     \textcolor{keywordtype}{save}    :: alu, kp, first}
\DoxyCodeLine{757 }
\DoxyCodeLine{758     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{759       value1=0.0d0}
\DoxyCodeLine{760       value2=0.0d0}
\DoxyCodeLine{761     \textcolor{keywordflow}{else}}
\DoxyCodeLine{762       value1 = values(1)}
\DoxyCodeLine{763       value2 = values(2)}
\DoxyCodeLine{764 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{765 }
\DoxyCodeLine{766     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(cond) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{767       \textcolor{keywordflow}{select case} (cond)}
\DoxyCodeLine{768       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})}
\DoxyCodeLine{769         rigid1 = .true.}
\DoxyCodeLine{770         rigid2 = .true.}
\DoxyCodeLine{771       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})}
\DoxyCodeLine{772         rigid1 = .true.}
\DoxyCodeLine{773         rigid2 = .false.}
\DoxyCodeLine{774       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})}
\DoxyCodeLine{775         rigid1 = .false.}
\DoxyCodeLine{776         rigid2 = .true.}
\DoxyCodeLine{777       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})}
\DoxyCodeLine{778         rigid1 = .false.}
\DoxyCodeLine{779         rigid2 = .false.}
\DoxyCodeLine{780 \textcolor{keywordflow}{      case default}}
\DoxyCodeLine{781         \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{782 \textcolor{keywordflow}{      end select}}
\DoxyCodeLine{783 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{784 }
\DoxyCodeLine{785     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{786       new\_matrix=.false.}
\DoxyCodeLine{787     \textcolor{keywordflow}{else}}
\DoxyCodeLine{788       new\_matrix=new}
\DoxyCodeLine{789 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{790 }
\DoxyCodeLine{791     \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{792       first = .false.}
\DoxyCodeLine{793 }
\DoxyCodeLine{794       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{795       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{796       \textcolor{keyword}{allocate}(alu(-\/km:km,0:lm,0:lm),kp(-\/km:km,0:lm))}
\DoxyCodeLine{797 }
\DoxyCodeLine{798       alu = 0.0d0}
\DoxyCodeLine{799       \textcolor{keywordflow}{do} l=0,lm-\/2}
\DoxyCodeLine{800         et\_work(:,:)= 0.0d0}
\DoxyCodeLine{801         et\_work(:,l)= 1.0d0}
\DoxyCodeLine{802 }
\DoxyCodeLine{803         alu(:,:,l) = et\_lapla\_et(et\_work)}
\DoxyCodeLine{804 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{805 }
\DoxyCodeLine{806       \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{807         et\_work(:,:)= 0.0d0}
\DoxyCodeLine{808         et\_work(:,l)= 1.0d0}
\DoxyCodeLine{809 }
\DoxyCodeLine{810         \textcolor{comment}{! 運動学的条件. 流線は境界で一定}}
\DoxyCodeLine{811         ey\_work = ay\_at(et\_work)}
\DoxyCodeLine{812         alu(:,lm,l) = ey\_work(:,0)}
\DoxyCodeLine{813         alu(:,lm-\/1,l) = ey\_work(:,jm)}
\DoxyCodeLine{814 }
\DoxyCodeLine{815         \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 力学的条件粘着条件(Top)}}
\DoxyCodeLine{816           ey\_work=ay\_at(et\_dy\_et(et\_work))}
\DoxyCodeLine{817           alu(:,lm-\/2,l) = ey\_work(:,0)}
\DoxyCodeLine{818         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 力学的条件すべり条件(Top)}}
\DoxyCodeLine{819           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))}
\DoxyCodeLine{820           alu(:,lm-\/2,l) = ey\_work(:,0)}
\DoxyCodeLine{821 \textcolor{keywordflow}{        endif}}
\DoxyCodeLine{822         \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 力学的条件粘着条件(bottom)}}
\DoxyCodeLine{823           ey\_work=ay\_at(et\_dy\_et(et\_work))}
\DoxyCodeLine{824           alu(:,lm-\/3,l) = ey\_work(:,jm)}
\DoxyCodeLine{825         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 力学的条件すべり条件(bottom)}}
\DoxyCodeLine{826           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))}
\DoxyCodeLine{827           alu(:,lm-\/3,l) = ey\_work(:,jm)}
\DoxyCodeLine{828 \textcolor{keywordflow}{        endif}}
\DoxyCodeLine{829 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{830 }
\DoxyCodeLine{831       \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{832 }
\DoxyCodeLine{833       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},\&}
\DoxyCodeLine{834         \textcolor{stringliteral}{'Matrix for stream func. calc. produced'})}
\DoxyCodeLine{835 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{836 }
\DoxyCodeLine{837     \textcolor{comment}{! 内部領域計算}}
\DoxyCodeLine{838     et\_work = et}
\DoxyCodeLine{839 }
\DoxyCodeLine{840     et\_work(:,lm-\/2) = 0.0d0           \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{841     et\_work(:,lm-\/3) = 0.0d0           \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{842 }
\DoxyCodeLine{843     et\_work(:,lm-\/1) = 0.0d0        \textcolor{comment}{! 運動学的条件. 波数 0 以外は 0}}
\DoxyCodeLine{844     \textcolor{comment}{!!\$      et\_work(0,lm-\/1) = value2*2     ! 運動学的条件. 波数 0 は重み 1/2}}
\DoxyCodeLine{845     et\_work(0,lm-\/1) = value2       \textcolor{comment}{! 運動学的条件. 波数 0 は重み 1/2}}
\DoxyCodeLine{846 }
\DoxyCodeLine{847     et\_work(:,lm)   = 0.0d0        \textcolor{comment}{! 運動学的条件. 波数 0 以外は 0}}
\DoxyCodeLine{848     \textcolor{comment}{!!\$      et\_work(0,lm)   = value1*2     ! 運動学的条件. 波数 0 は重み 1/2}}
\DoxyCodeLine{849     et\_work(0,lm)   = value1     \textcolor{comment}{! 運動学的条件. 波数 0 は重み 1/2}}
\DoxyCodeLine{850 }
\DoxyCodeLine{851     et\_vor2strm\_et = lusolve(alu,kp,et\_work)}
\DoxyCodeLine{852 }

\end{DoxyCode}


References et\+\_\+dy\+\_\+et(), et\+\_\+lapla\+\_\+et(), jm, ae\+\_\+module\+::km, and lm.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceet__module_ac463c549cfdb0a1116d4fbef431190eb_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a4d9f1ef009b70bd529dcf5e4fb8fe3ab}\label{namespaceet__module_a4d9f1ef009b70bd529dcf5e4fb8fe3ab}} 
\index{et\_module@{et\_module}!et\_yx@{et\_yx}}
\index{et\_yx@{et\_yx}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{et\_yx()}{et\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), public et\+\_\+module\+::et\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}},0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1), intent(in)}]{yx }\end{DoxyParamCaption})}


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em yx} & 格子点データ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ 
\end{DoxyReturn}


Definition at line 290 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{290 }
\DoxyCodeLine{291 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,0:im-\/1)}, \textcolor{keywordtype}{intent(in)}  :: yx}
\DoxyCodeLine{293 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}              :: et\_yx}
\DoxyCodeLine{294 }
\DoxyCodeLine{295 }
\DoxyCodeLine{296 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}              :: ey}
\DoxyCodeLine{297 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,-\/km:km)}              :: ye}
\DoxyCodeLine{298 }
\DoxyCodeLine{299     \textcolor{keywordtype}{integer} :: j, k}
\DoxyCodeLine{300 }
\DoxyCodeLine{301     \textcolor{comment}{! et\_yx = at\_ay(transpose(ae\_ax(yx)))}}
\DoxyCodeLine{302     \textcolor{comment}{!}}
\DoxyCodeLine{303     \textcolor{comment}{! 本来上の書き方でいいはずだが, gfortran で通らないので下のように書き直す}}
\DoxyCodeLine{304     \textcolor{comment}{!}}
\DoxyCodeLine{305     ye = ae\_ax(yx)}
\DoxyCodeLine{306     \textcolor{keywordflow}{do} j=0,jm}
\DoxyCodeLine{307       \textcolor{keywordflow}{do} k=-\/km,km}
\DoxyCodeLine{308         ey(k,j) = ye(j,k)}
\DoxyCodeLine{309 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{310 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{311     et\_yx = at\_ay(ey)}
\DoxyCodeLine{312 }

\end{DoxyCode}


References jm, and ae\+\_\+module\+::km.



Referenced by et\+\_\+jacobian\+\_\+et\+\_\+et().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=325pt]{namespaceet__module_a4d9f1ef009b70bd529dcf5e4fb8fe3ab_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_ad3da5bcbba5ba8e2578c717c3577fffb}\label{namespaceet__module_ad3da5bcbba5ba8e2578c717c3577fffb}} 
\index{et\_module@{et\_module}!ey\_et@{ey\_et}}
\index{ey\_et@{ey\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{ey\_et()}{ey\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), public et\+\_\+module\+::ey\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et }\end{DoxyParamCaption})}



Y 座標スペクトルデータから格子データへ変換する. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et} & スペクトルデータ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
格子点データ 
\end{DoxyReturn}


Definition at line 384 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{384 }
\DoxyCodeLine{385 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}  :: et}
\DoxyCodeLine{387 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}              :: ey\_et}
\DoxyCodeLine{388 }
\DoxyCodeLine{389     ey\_et = ay\_at(et)}
\DoxyCodeLine{390 }

\end{DoxyCode}


Referenced by ey\+\_\+vor2strm\+\_\+ey().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=345pt]{namespaceet__module_ad3da5bcbba5ba8e2578c717c3577fffb_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_aefb6438605ac4d104fb956c456a37501}\label{namespaceet__module_aefb6438605ac4d104fb956c456a37501}} 
\index{et\_module@{et\_module}!ey\_vor2strm\_ey@{ey\_vor2strm\_ey}}
\index{ey\_vor2strm\_ey@{ey\_vor2strm\_ey}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{ey\_vor2strm\_ey()}{ey\_vor2strm\_ey()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), public et\+\_\+module\+::ey\+\_\+vor2strm\+\_\+ey (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), intent(in)}]{ey,  }\item[{real(dp), dimension(2), intent(in), optional}]{values,  }\item[{character(len=2), intent(in), optional}]{cond,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Y 方向格子点空間での Chebyshev-\/\+Collocation 法により， 渦度から流線を求める. 

渦度 $\zeta$ を与えて流線 $\psi$ を求める. \begin{align*} \nabla^2 \psi & = \zeta, \\ \psi & = \mbox{const. at boundaries.} \end{align*} 粘着条件 \[ \partial_{y} \psi = 0 \, \mbox{at boundaries} \] 応力なし条件 \[ (\partial_{y})^{2} \psi = 0\, \mbox{at boundaries} \] 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em ey} & 入力渦度分布 \\
\hline
\mbox{\texttt{ in}}  & {\em values} & 流線境界値. 境界で一定なので波数 0 成分のみ. 省略時は 0. \\
\hline
\mbox{\texttt{ in}}  & {\em cond} & 境界条件スイッチ. 省略時は \textquotesingle{}RR\textquotesingle{}
\begin{DoxyItemize}
\item RR \+: 両端粘着条件
\item RF \+: 上端粘着下端応力なし条件
\item FR \+: 上端応力なし下端粘着条件
\item FF \+: 両端応力なし条件 
\end{DoxyItemize}\\
\hline
\mbox{\texttt{ in}}  & {\em new} & true だと境界条件計算用行列を強制的に新たに作る. default は false. \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
出力流線分布 
\end{DoxyReturn}


Definition at line 591 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{591 }
\DoxyCodeLine{592 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)},\textcolor{keywordtype}{intent(in)}  :: ey}
\DoxyCodeLine{594 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values}
\DoxyCodeLine{600     \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond}
\DoxyCodeLine{602     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{604 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}             :: ey\_Vor2Strm\_ey}
\DoxyCodeLine{605 }
\DoxyCodeLine{606 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{607     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}     :: kp}
\DoxyCodeLine{608 }
\DoxyCodeLine{609 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}         :: ey\_work}
\DoxyCodeLine{610 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}         :: ey\_I}
\DoxyCodeLine{611 \textcolor{keywordtype}{    real}(DP)                                 :: value1, value2   \textcolor{comment}{! 境界値}}
\DoxyCodeLine{612     \textcolor{keywordtype}{logical}                                  :: rigid1 = .true.}
\DoxyCodeLine{613     \textcolor{keywordtype}{logical}                                  :: rigid2 = .true.}
\DoxyCodeLine{614     \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{615     \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{616     \textcolor{keywordtype}{integer} :: j}
\DoxyCodeLine{617     \textcolor{keywordtype}{save}    :: alu, kp, first}
\DoxyCodeLine{618 }
\DoxyCodeLine{619     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{620       value1=0.0d0}
\DoxyCodeLine{621       value2=0.0d0}
\DoxyCodeLine{622     \textcolor{keywordflow}{else}}
\DoxyCodeLine{623       value1 = values(1)}
\DoxyCodeLine{624       value2 = values(2)}
\DoxyCodeLine{625 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{626 }
\DoxyCodeLine{627     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(cond) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{628       \textcolor{keywordflow}{select case} (cond)}
\DoxyCodeLine{629       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})}
\DoxyCodeLine{630         rigid1 = .true.}
\DoxyCodeLine{631         rigid2 = .true.}
\DoxyCodeLine{632       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})}
\DoxyCodeLine{633         rigid1 = .true.}
\DoxyCodeLine{634         rigid2 = .false.}
\DoxyCodeLine{635       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})}
\DoxyCodeLine{636         rigid1 = .false.}
\DoxyCodeLine{637         rigid2 = .true.}
\DoxyCodeLine{638       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})}
\DoxyCodeLine{639         rigid1 = .false.}
\DoxyCodeLine{640         rigid2 = .false.}
\DoxyCodeLine{641 \textcolor{keywordflow}{      case default}}
\DoxyCodeLine{642         \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'ey\_Vor2Strm\_ey'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{643 \textcolor{keywordflow}{      end select}}
\DoxyCodeLine{644     \textcolor{keywordflow}{else}}
\DoxyCodeLine{645       rigid1 = .true.}
\DoxyCodeLine{646       rigid2 = .true.}
\DoxyCodeLine{647 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{648 }
\DoxyCodeLine{649     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{650       new\_matrix=.false.}
\DoxyCodeLine{651     \textcolor{keywordflow}{else}}
\DoxyCodeLine{652       new\_matrix=new}
\DoxyCodeLine{653 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{654 }
\DoxyCodeLine{655     \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{656       first = .false.}
\DoxyCodeLine{657 }
\DoxyCodeLine{658       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{659       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{660       \textcolor{keyword}{allocate}(alu(-\/km:km,0:jm,0:jm),kp(-\/km:km,0:jm))}
\DoxyCodeLine{661 }
\DoxyCodeLine{662       \textcolor{keywordflow}{do} j=0,jm}
\DoxyCodeLine{663         ey\_i = 0.0d0}
\DoxyCodeLine{664         ey\_i(:,j) = 1.0d0}
\DoxyCodeLine{665         alu(:,:,j) = ey\_et(et\_lapla\_et(et\_ey(ey\_i)))}
\DoxyCodeLine{666 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{667 }
\DoxyCodeLine{668       \textcolor{keywordflow}{do} j=0,jm}
\DoxyCodeLine{669         ey\_i = 0.0d0}
\DoxyCodeLine{670         ey\_i(:,j) = 1.0d0}
\DoxyCodeLine{671 }
\DoxyCodeLine{672         \textcolor{comment}{! 運動学的条件. 流線は境界で一定}}
\DoxyCodeLine{673         alu(:,0,j)   = ey\_i(:,0)}
\DoxyCodeLine{674         alu(:,jm,j)  = ey\_i(:,jm)}
\DoxyCodeLine{675 }
\DoxyCodeLine{676         \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}                               \textcolor{comment}{! 粘着条件(top)}}
\DoxyCodeLine{677           ey\_work=ey\_et(et\_dy\_et(et\_ey(ey\_i)))}
\DoxyCodeLine{678         \textcolor{keywordflow}{else}}
\DoxyCodeLine{679           ey\_work=ey\_et(et\_dy\_et(et\_dy\_et(et\_ey(ey\_i)))) \textcolor{comment}{! すべり条件(top)}}
\DoxyCodeLine{680 \textcolor{keywordflow}{        endif}}
\DoxyCodeLine{681 }
\DoxyCodeLine{682         alu(:,1,j) = ey\_work(:,0)}
\DoxyCodeLine{683 }
\DoxyCodeLine{684         \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}                               \textcolor{comment}{! 粘着条件(bottom)}}
\DoxyCodeLine{685           ey\_work=ey\_et(et\_dy\_et(et\_ey(ey\_i)))}
\DoxyCodeLine{686         \textcolor{keywordflow}{else}}
\DoxyCodeLine{687           ey\_work=ey\_et(et\_dy\_et(et\_dy\_et(et\_ey(ey\_i)))) \textcolor{comment}{! すべり条件(bottom)}}
\DoxyCodeLine{688 \textcolor{keywordflow}{        endif}}
\DoxyCodeLine{689         alu(:,jm-\/1,j) = ey\_work(:,jm)}
\DoxyCodeLine{690 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{691 }
\DoxyCodeLine{692       \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{693 }
\DoxyCodeLine{694       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ey\_Vor2Strm\_ey'},\&}
\DoxyCodeLine{695         \textcolor{stringliteral}{'Matrix for stream func. calc. produced'})}
\DoxyCodeLine{696 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{697 }
\DoxyCodeLine{698     ey\_work = ey}
\DoxyCodeLine{699     ey\_work(:,1)    = 0.0d0               \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{700     ey\_work(:,jm-\/1) = 0.0d0               \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{701 }
\DoxyCodeLine{702     ey\_work(:,0) = 0.0d0                  \textcolor{comment}{! 運動学的条件. 波数 0 以外は 0}}
\DoxyCodeLine{703     ey\_work(0,0) = value1*2.0d0           \textcolor{comment}{! 運動学的条件. 波数 0 は重み 1/2}}
\DoxyCodeLine{704 }
\DoxyCodeLine{705     ey\_work(:,jm)   = 0.0d0               \textcolor{comment}{! 運動学的条件. 波数 0 以外は 0}}
\DoxyCodeLine{706     ey\_work(0,jm)   = value2*2.0d0        \textcolor{comment}{! 運動学的条件. 波数 0 は重み 1/2}}
\DoxyCodeLine{707 }
\DoxyCodeLine{708     ey\_vor2strm\_ey = lusolve(alu,kp,ey\_work)}
\DoxyCodeLine{709 }

\end{DoxyCode}


References et\+\_\+dy\+\_\+et(), et\+\_\+ey(), et\+\_\+lapla\+\_\+et(), ey\+\_\+et(), jm, and ae\+\_\+module\+::km.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceet__module_aefb6438605ac4d104fb956c456a37501_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_adb82dd622a4a262a1818983c7ce1ec1d}\label{namespaceet__module_adb82dd622a4a262a1818983c7ce1ec1d}} 
\index{et\_module@{et\_module}!ey\_yx@{ey\_yx}}
\index{ey\_yx@{ey\_yx}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{ey\_yx()}{ey\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), public et\+\_\+module\+::ey\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}},0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1), intent(in)}]{yx }\end{DoxyParamCaption})}


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em yx} & 格子点データ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ 
\end{DoxyReturn}


Definition at line 346 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{346 }
\DoxyCodeLine{347 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,0:im-\/1)}, \textcolor{keywordtype}{intent(in)}  :: yx}
\DoxyCodeLine{349 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}              :: ey\_yx}
\DoxyCodeLine{350 }
\DoxyCodeLine{351 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,-\/km:km)}              :: ye}
\DoxyCodeLine{352     \textcolor{keywordtype}{integer} :: j, k}
\DoxyCodeLine{353 }
\DoxyCodeLine{354     \textcolor{comment}{! ey\_yx = transpose(ae\_ax(yx))}}
\DoxyCodeLine{355     \textcolor{comment}{!}}
\DoxyCodeLine{356     \textcolor{comment}{! 本来上の書き方でいいはずだが, gfortran で通らないので下のように書}}
\DoxyCodeLine{357     \textcolor{comment}{! き直す}}
\DoxyCodeLine{358     \textcolor{comment}{!}}
\DoxyCodeLine{359     ye = ae\_ax(yx)}
\DoxyCodeLine{360     \textcolor{keywordflow}{do} j=0,jm}
\DoxyCodeLine{361       \textcolor{keywordflow}{do} k=-\/km,km}
\DoxyCodeLine{362         ey\_yx(k,j) = ye(j,k)}
\DoxyCodeLine{363 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{364 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{365 }

\end{DoxyCode}


References jm, and ae\+\_\+module\+::km.

\mbox{\Hypertarget{namespaceet__module_a49cd599107e897907661147d5d9239a2}\label{namespaceet__module_a49cd599107e897907661147d5d9239a2}} 
\index{et\_module@{et\_module}!interpolate\_et@{interpolate\_et}}
\index{interpolate\_et@{interpolate\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{interpolate\_et()}{interpolate\_et()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::interpolate\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et\+\_\+data,  }\item[{real(dp), intent(in)}]{xval,  }\item[{real(dp), intent(in)}]{yval }\end{DoxyParamCaption})}



補間関数 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et\+\_\+data} & 入力スペクトルデータ \\
\hline
\mbox{\texttt{ in}}  & {\em xval} & 補間する点の X 座標 \\
\hline
\mbox{\texttt{ in}}  & {\em yval} & 補間する点の Y 座標 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
補間結果 
\end{DoxyReturn}


Definition at line 1282 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1282 }
\DoxyCodeLine{1283 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}, \textcolor{keywordtype}{intent(IN)} :: et\_data}
\DoxyCodeLine{1285 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}                         :: xval}
\DoxyCodeLine{1287 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}                         :: yval}
\DoxyCodeLine{1289 \textcolor{keywordtype}{    real}(DP)                                     :: Interpolate\_et}
\DoxyCodeLine{1290 }
\DoxyCodeLine{1291     interpolate\_et = interpolate\_e(a\_interpolate\_at(et\_data,yval),xval)}

\end{DoxyCode}


References at\+\_\+module\+::a\+\_\+interpolate\+\_\+at(), and ae\+\_\+module\+::interpolate\+\_\+e().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceet__module_a49cd599107e897907661147d5d9239a2_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a792a5563cd122c0779904360978a97d4}\label{namespaceet__module_a792a5563cd122c0779904360978a97d4}} 
\index{et\_module@{et\_module}!intx\_x@{intx\_x}}
\index{intx\_x@{intx\_x}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{intx\_x()}{intx\_x()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::intx\+\_\+x (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1)}]{x }\end{DoxyParamCaption})}



1 次元(\+X)格子点データの X 方向積分 


\begin{DoxyParams}{Parameters}
{\em x} & 1 次元格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
積分値 
\end{DoxyReturn}


Definition at line 1198 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1198 }
\DoxyCodeLine{1199 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1)}   :: x}
\DoxyCodeLine{1201 \textcolor{keywordtype}{    real}(DP)                      :: IntX\_x}
\DoxyCodeLine{1202 }
\DoxyCodeLine{1203     intx\_x = sum(x*x\_x\_weight)}

\end{DoxyCode}


Referenced by avrx\+\_\+x().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=307pt]{namespaceet__module_a792a5563cd122c0779904360978a97d4_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a85893ceb757547f168430d386a363098}\label{namespaceet__module_a85893ceb757547f168430d386a363098}} 
\index{et\_module@{et\_module}!inty\_y@{inty\_y}}
\index{inty\_y@{inty\_y}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{inty\_y()}{inty\_y()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::inty\+\_\+y (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}})}]{y }\end{DoxyParamCaption})}



1 次元(\+Y)格子点データの Y 方向積分 


\begin{DoxyParams}{Parameters}
{\em y} & 1 次元格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
積分値 
\end{DoxyReturn}


Definition at line 1210 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1210 }
\DoxyCodeLine{1211 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm)}   :: y}
\DoxyCodeLine{1213 \textcolor{keywordtype}{    real}(DP)                    :: IntY\_y}
\DoxyCodeLine{1214 }
\DoxyCodeLine{1215     inty\_y = sum(y*y\_y\_weight)}

\end{DoxyCode}


Referenced by avry\+\_\+y().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=307pt]{namespaceet__module_a85893ceb757547f168430d386a363098_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_ab548603559e0046c00b2c80452be8ed6}\label{namespaceet__module_ab548603559e0046c00b2c80452be8ed6}} 
\index{et\_module@{et\_module}!intyx\_yx@{intyx\_yx}}
\index{intyx\_yx@{intyx\_yx}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{intyx\_yx()}{intyx\_yx()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::intyx\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}},0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1)}]{yx }\end{DoxyParamCaption})}



2 次元格子点データの全領域積分および平均. 


\begin{DoxyParams}{Parameters}
{\em yx} & 2 次元格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
積分値 
\end{DoxyReturn}


Definition at line 1144 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1144 }
\DoxyCodeLine{1145 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,0:im-\/1)}   :: yx}
\DoxyCodeLine{1147 \textcolor{keywordtype}{    real}(DP)                           :: IntYX\_yx}
\DoxyCodeLine{1148 }
\DoxyCodeLine{1149     \textcolor{keywordtype}{integer} :: i, j}
\DoxyCodeLine{1150 }
\DoxyCodeLine{1151     intyx\_yx = 0.0d0}
\DoxyCodeLine{1152     \textcolor{keywordflow}{do} i=0,im-\/1}
\DoxyCodeLine{1153       \textcolor{keywordflow}{do} j=0,jm}
\DoxyCodeLine{1154         intyx\_yx = intyx\_yx + yx(j,i) * y\_y\_weight(j) * x\_x\_weight(i)}
\DoxyCodeLine{1155 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{1156 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References ae\+\_\+module\+::im, and jm.



Referenced by avryx\+\_\+yx().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=327pt]{namespaceet__module_ab548603559e0046c00b2c80452be8ed6_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a0b49f704711d70939291b05718a67180}\label{namespaceet__module_a0b49f704711d70939291b05718a67180}} 
\index{et\_module@{et\_module}!x\_avry\_yx@{x\_avry\_yx}}
\index{x\_avry\_yx@{x\_avry\_yx}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{x\_avry\_yx()}{x\_avry\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1), public et\+\_\+module\+::x\+\_\+avry\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}},0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1)}]{yx }\end{DoxyParamCaption})}


\begin{DoxyParams}{Parameters}
{\em yx} & 2 次元格子点データ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
平均された 1 次元(\+X)格子点 
\end{DoxyReturn}


Definition at line 1246 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1246 }
\DoxyCodeLine{1247 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,0:im-\/1)}   :: yx}
\DoxyCodeLine{1249 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1)}        :: x\_AvrY\_yx}
\DoxyCodeLine{1250 }
\DoxyCodeLine{1251     x\_avry\_yx = x\_inty\_yx(yx)/sum(y\_y\_weight)}

\end{DoxyCode}


References x\+\_\+inty\+\_\+yx().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=339pt]{namespaceet__module_a0b49f704711d70939291b05718a67180_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a9d4c9267a18acd630c5d7cb68f4a5048}\label{namespaceet__module_a9d4c9267a18acd630c5d7cb68f4a5048}} 
\index{et\_module@{et\_module}!x\_inty\_yx@{x\_inty\_yx}}
\index{x\_inty\_yx@{x\_inty\_yx}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{x\_inty\_yx()}{x\_inty\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1), public et\+\_\+module\+::x\+\_\+inty\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}},0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1)}]{yx }\end{DoxyParamCaption})}



2 次元格子点データの Y 方向積分 


\begin{DoxyParams}{Parameters}
{\em yx} & 2 次元格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
積分された 1 次元(\+X)格子点データ 
\end{DoxyReturn}


Definition at line 1180 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1180 }
\DoxyCodeLine{1181 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,0:im-\/1)}   :: yx}
\DoxyCodeLine{1183 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1)}        :: x\_IntY\_yx}
\DoxyCodeLine{1184 }
\DoxyCodeLine{1185     \textcolor{keywordtype}{integer} :: j}
\DoxyCodeLine{1186     \textcolor{comment}{! 作業変数}}
\DoxyCodeLine{1187 }
\DoxyCodeLine{1188     x\_inty\_yx = 0.0d0}
\DoxyCodeLine{1189     \textcolor{keywordflow}{do} j=0,jm}
\DoxyCodeLine{1190       x\_inty\_yx(:) = x\_inty\_yx(:) + yx(j,:) * y\_y\_weight(j)}
\DoxyCodeLine{1191 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References jm.



Referenced by x\+\_\+avry\+\_\+yx().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=339pt]{namespaceet__module_a9d4c9267a18acd630c5d7cb68f4a5048_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_ae0f001249a5e5698e4ef2d4335dd460b}\label{namespaceet__module_ae0f001249a5e5698e4ef2d4335dd460b}} 
\index{et\_module@{et\_module}!y\_avrx\_yx@{y\_avrx\_yx}}
\index{y\_avrx\_yx@{y\_avrx\_yx}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{y\_avrx\_yx()}{y\_avrx\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), public et\+\_\+module\+::y\+\_\+avrx\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}},0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1)}]{yx }\end{DoxyParamCaption})}



2 次元格子点データの X 方向平均 


\begin{DoxyParams}{Parameters}
{\em yx} & 2 次元格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
平均された 1 次元(\+Y)格子点 
\end{DoxyReturn}


Definition at line 1234 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1234 }
\DoxyCodeLine{1235 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,0:im-\/1)}   :: yx}
\DoxyCodeLine{1237 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm)}          :: y\_AvrX\_yx}
\DoxyCodeLine{1238 }
\DoxyCodeLine{1239     y\_avrx\_yx = y\_intx\_yx(yx)/sum(x\_x\_weight)}

\end{DoxyCode}


References y\+\_\+intx\+\_\+yx().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=339pt]{namespaceet__module_ae0f001249a5e5698e4ef2d4335dd460b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a06fd2a5870bad9fdac48108be11cfcb4}\label{namespaceet__module_a06fd2a5870bad9fdac48108be11cfcb4}} 
\index{et\_module@{et\_module}!y\_intx\_yx@{y\_intx\_yx}}
\index{y\_intx\_yx@{y\_intx\_yx}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{y\_intx\_yx()}{y\_intx\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), public et\+\_\+module\+::y\+\_\+intx\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}},0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1)}]{yx }\end{DoxyParamCaption})}



2 次元格子点データの X 方向積分 


\begin{DoxyParams}{Parameters}
{\em yx} & 2 次元格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
積分された 1 次元(\+Y)格子点データ 
\end{DoxyReturn}


Definition at line 1163 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1163 }
\DoxyCodeLine{1164 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,0:im-\/1)}   :: yx}
\DoxyCodeLine{1166 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm)}          :: y\_IntX\_yx}
\DoxyCodeLine{1167 }
\DoxyCodeLine{1168     \textcolor{keywordtype}{integer} :: i}
\DoxyCodeLine{1169 }
\DoxyCodeLine{1170     y\_intx\_yx = 0.0d0}
\DoxyCodeLine{1171     \textcolor{keywordflow}{do} i=0,im-\/1}
\DoxyCodeLine{1172       y\_intx\_yx(:) = y\_intx\_yx(:) + yx(:,i) * x\_x\_weight(i)}
\DoxyCodeLine{1173 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References ae\+\_\+module\+::im.



Referenced by y\+\_\+avrx\+\_\+yx().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=339pt]{namespaceet__module_a06fd2a5870bad9fdac48108be11cfcb4_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a760a34bc3cf13bcbb1992706e9133eaa}\label{namespaceet__module_a760a34bc3cf13bcbb1992706e9133eaa}} 
\index{et\_module@{et\_module}!yx\_et@{yx\_et}}
\index{yx\_et@{yx\_et}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{yx\_et()}{yx\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}},0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1), public et\+\_\+module\+::yx\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}{lm}}), intent(in)}]{et }\end{DoxyParamCaption})}



スペクトルデータから格子データへ変換する. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em et} & スペクトルデータ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
格子点データ 
\end{DoxyReturn}


Definition at line 261 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{261 }
\DoxyCodeLine{262 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}  :: et}
\DoxyCodeLine{264 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,0:im-\/1)}              :: yx\_et}
\DoxyCodeLine{265 }
\DoxyCodeLine{266 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}              :: ey}
\DoxyCodeLine{267 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,-\/km:km)}              :: ye}
\DoxyCodeLine{268 }
\DoxyCodeLine{269     \textcolor{keywordtype}{integer} :: j, k}
\DoxyCodeLine{270 }
\DoxyCodeLine{271     \textcolor{comment}{! yx\_et = ax\_ae(transpose(ay\_at(et)))}}
\DoxyCodeLine{272     \textcolor{comment}{!}}
\DoxyCodeLine{273     \textcolor{comment}{! 本来上の書き方でいいはずだが, gfortran で通らないので下のように}}
\DoxyCodeLine{274     \textcolor{comment}{! 書き直す}}
\DoxyCodeLine{275     \textcolor{comment}{!}}
\DoxyCodeLine{276     ey = ay\_at(et)}
\DoxyCodeLine{277     \textcolor{keywordflow}{do} j=0,jm}
\DoxyCodeLine{278       \textcolor{keywordflow}{do} k=-\/km,km}
\DoxyCodeLine{279         ye(j,k) = ey(k,j)}
\DoxyCodeLine{280 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{281 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{282     yx\_et = ax\_ae(ye)}
\DoxyCodeLine{283 }

\end{DoxyCode}


References jm, and ae\+\_\+module\+::km.



Referenced by et\+\_\+jacobian\+\_\+et\+\_\+et().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=325pt]{namespaceet__module_a760a34bc3cf13bcbb1992706e9133eaa_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceet__module_a6051461b06878a267f474bb81249eb5b}\label{namespaceet__module_a6051461b06878a267f474bb81249eb5b}} 
\index{et\_module@{et\_module}!yx\_ey@{yx\_ey}}
\index{yx\_ey@{yx\_ey}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{yx\_ey()}{yx\_ey()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}},0\+:\mbox{\hyperlink{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}{im}}-\/1), public et\+\_\+module\+::yx\+\_\+ey (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:\mbox{\hyperlink{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}{jm}}), intent(in)}]{ey }\end{DoxyParamCaption})}



X 座標スペクトルデータから格子データへ変換する. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em ey} & スペクトルデータ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
格子点データ 
\end{DoxyReturn}


Definition at line 319 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{319 }
\DoxyCodeLine{320 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(-\/km:km,0:jm)}, \textcolor{keywordtype}{intent(in)}  :: ey}
\DoxyCodeLine{321 }
\DoxyCodeLine{323 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,0:im-\/1)}              :: yx\_ey}
\DoxyCodeLine{324 }
\DoxyCodeLine{325 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(0:jm,-\/km:km)}              :: ye}
\DoxyCodeLine{326     \textcolor{keywordtype}{integer} :: j, k}
\DoxyCodeLine{327 }
\DoxyCodeLine{328     \textcolor{comment}{! yx\_ey = ax\_ae(transpose(ey))}}
\DoxyCodeLine{329     \textcolor{comment}{!}}
\DoxyCodeLine{330     \textcolor{comment}{! 本来上の書き方でいいはずだが, gfortran で通らないので下のように書}}
\DoxyCodeLine{331     \textcolor{comment}{! き直す}}
\DoxyCodeLine{332     \textcolor{comment}{!}}
\DoxyCodeLine{333     \textcolor{keywordflow}{do} j=0,jm}
\DoxyCodeLine{334       \textcolor{keywordflow}{do} k=-\/km,km}
\DoxyCodeLine{335         ye(j,k) = ey(k,j)}
\DoxyCodeLine{336 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{337 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{338     yx\_ey = ax\_ae(ye)}
\DoxyCodeLine{339 }

\end{DoxyCode}


References jm, and ae\+\_\+module\+::km.



\doxysubsection{Variable Documentation}
\mbox{\Hypertarget{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}\label{namespaceet__module_af8c099a7ef926b561d5783ddbc5ce8c0}} 
\index{et\_module@{et\_module}!im@{im}}
\index{im@{im}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{im}{im}}
{\footnotesize\ttfamily integer, save et\+\_\+module\+::im =32\hspace{0.3cm}{\ttfamily [private]}}



X方向格子点 



Definition at line 203 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{203   \textcolor{keywordtype}{integer}            :: im=32}

\end{DoxyCode}
\mbox{\Hypertarget{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}\label{namespaceet__module_a75b331da10e7bfddb78b10f7f2f9bc3f}} 
\index{et\_module@{et\_module}!jm@{jm}}
\index{jm@{jm}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{jm}{jm}}
{\footnotesize\ttfamily integer, save et\+\_\+module\+::jm =8\hspace{0.3cm}{\ttfamily [private]}}



Y方向格子点 



Definition at line 205 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{205   \textcolor{keywordtype}{integer}            :: jm=8}

\end{DoxyCode}


Referenced by et\+\_\+initial(), et\+\_\+laplainv\+\_\+et(), et\+\_\+vor2strm2\+\_\+et(), et\+\_\+vor2strm3\+\_\+et(), et\+\_\+vor2strm\+\_\+et(), et\+\_\+yx(), ey\+\_\+vor2strm\+\_\+ey(), ey\+\_\+yx(), intyx\+\_\+yx(), x\+\_\+inty\+\_\+yx(), yx\+\_\+et(), and yx\+\_\+ey().

\mbox{\Hypertarget{namespaceet__module_ae416382293ff21d17e560f0314f83c52}\label{namespaceet__module_ae416382293ff21d17e560f0314f83c52}} 
\index{et\_module@{et\_module}!km@{km}}
\index{km@{km}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{km}{km}}
{\footnotesize\ttfamily integer, save et\+\_\+module\+::km =10\hspace{0.3cm}{\ttfamily [private]}}



X方向切断波数 



Definition at line 207 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{207   \textcolor{keywordtype}{integer}            :: km=10}

\end{DoxyCode}
\mbox{\Hypertarget{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}\label{namespaceet__module_a1a050adc2998fa46da1f745439cd374a}} 
\index{et\_module@{et\_module}!lm@{lm}}
\index{lm@{lm}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{lm}{lm}}
{\footnotesize\ttfamily integer, save et\+\_\+module\+::lm =5\hspace{0.3cm}{\ttfamily [private]}}



Y方向切断波数 



Definition at line 209 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{209   \textcolor{keywordtype}{integer}            :: lm=5}

\end{DoxyCode}


Referenced by et\+\_\+initial(), et\+\_\+laplainv\+\_\+et(), et\+\_\+vor2strm2\+\_\+et(), et\+\_\+vor2strm3\+\_\+et(), and et\+\_\+vor2strm\+\_\+et().

\mbox{\Hypertarget{namespaceet__module_a3db9a7e0b40260fd02473bad26e976bd}\label{namespaceet__module_a3db9a7e0b40260fd02473bad26e976bd}} 
\index{et\_module@{et\_module}!xl@{xl}}
\index{xl@{xl}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{xl}{xl}}
{\footnotesize\ttfamily real(dp), save et\+\_\+module\+::xl =2.\+0\+D0\hspace{0.3cm}{\ttfamily [private]}}



X 方向計算領域 



Definition at line 211 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{211 \textcolor{keywordtype}{  real}(DP)           :: xl=2.0d0}

\end{DoxyCode}
\mbox{\Hypertarget{namespaceet__module_af608ea7378186b9df4f44fb7269606e3}\label{namespaceet__module_af608ea7378186b9df4f44fb7269606e3}} 
\index{et\_module@{et\_module}!yl@{yl}}
\index{yl@{yl}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{yl}{yl}}
{\footnotesize\ttfamily real(dp), save et\+\_\+module\+::yl =1.\+0\+D0\hspace{0.3cm}{\ttfamily [private]}}



Y 方向計算領域 



Definition at line 213 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{213 \textcolor{keywordtype}{  real}(DP)           :: yl=1.0d0}

\end{DoxyCode}


Referenced by et\+\_\+initial().

\mbox{\Hypertarget{namespaceet__module_a36afc47d18eeb0d43d0aa03e9b73459a}\label{namespaceet__module_a36afc47d18eeb0d43d0aa03e9b73459a}} 
\index{et\_module@{et\_module}!yx\_x@{yx\_x}}
\index{yx\_x@{yx\_x}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{yx\_x}{yx\_x}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), allocatable, public et\+\_\+module\+::yx\+\_\+x}



格子点データの X 座標\+: 格子点データ型 2 次元配列(\+X,\+Y) 



Definition at line 198 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{198 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable} :: yx\_X}

\end{DoxyCode}


Referenced by et\+\_\+initial().

\mbox{\Hypertarget{namespaceet__module_ae2eafd3163d0e52c348069c39b72e42f}\label{namespaceet__module_ae2eafd3163d0e52c348069c39b72e42f}} 
\index{et\_module@{et\_module}!yx\_y@{yx\_y}}
\index{yx\_y@{yx\_y}!et\_module@{et\_module}}
\doxysubsubsection{\texorpdfstring{yx\_y}{yx\_y}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), allocatable, public et\+\_\+module\+::yx\+\_\+y}



格子点データの Y 座標\+: 格子点データ型 2 次元配列(\+X,\+Y) 



Definition at line 200 of file et\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{200 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable} :: yx\_Y}

\end{DoxyCode}


Referenced by et\+\_\+initial().

