<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">\hypertarget{namespaceet__module}{}\section{et\+\_\+module Module Reference}
\label{namespaceet__module}\index{et\+\_\+module@{et\+\_\+module}}


2 谺｡蜈�ｰｴ霍ｯ鬆伜沺\+: Fourier 螻暮幕 + Chebyshev 螻暮幕豕�  


\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \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\+:jm, 0\+:im-\/1), public \hyperlink{namespaceet__module_a760a34bc3cf13bcbb1992706e9133eaa}{yx\+\_\+et} (et)
\begin{DoxyCompactList}\small\item\em 繧ｹ繝壹け繝医Ν繝��繧ｿ縺九ｉ譬ｼ蟄舌ョ繝ｼ繧ｿ縺ｸ螟画鋤縺吶ｋ. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:lm), public \hyperlink{namespaceet__module_a4d9f1ef009b70bd529dcf5e4fb8fe3ab}{et\+\_\+yx} (yx)
\item 
real(dp) function, dimension(0\+:jm, 0\+:im-\/1), public \hyperlink{namespaceet__module_a6051461b06878a267f474bb81249eb5b}{yx\+\_\+ey} (ey)
\begin{DoxyCompactList}\small\item\em X 蠎ｧ讓吶せ繝壹け繝医Ν繝��繧ｿ縺九ｉ譬ｼ蟄舌ョ繝ｼ繧ｿ縺ｸ螟画鋤縺吶ｋ. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:jm), public \hyperlink{namespaceet__module_adb82dd622a4a262a1818983c7ce1ec1d}{ey\+\_\+yx} (yx)
\item 
real(dp) function, dimension(-\/km\+:km, 0\+:lm), public \hyperlink{namespaceet__module_abf4835df45033d73e40ec0a65d2ab6ae}{et\+\_\+ey} (ey)
\begin{DoxyCompactList}\small\item\em Y 蠎ｧ讓吶�譬ｼ蟄舌ョ繝ｼ繧ｿ縺九ｉ繧ｹ繝壹け繝医Ν繝��繧ｿ縺ｸ螟画鋤縺吶ｋ. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:jm), public \hyperlink{namespaceet__module_ad3da5bcbba5ba8e2578c717c3577fffb}{ey\+\_\+et} (et)
\begin{DoxyCompactList}\small\item\em Y 蠎ｧ讓吶せ繝壹け繝医Ν繝��繧ｿ縺九ｉ譬ｼ蟄舌ョ繝ｼ繧ｿ縺ｸ螟画鋤縺吶ｋ. \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:lm), public \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\+:lm), public \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\+:lm), public \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\+:lm), public \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 \hyperlink{namespaceet__module_a351eaa71386933955bc0bd959f232ad4}{et\+\_\+boundaries} (et, values, cond)
\begin{DoxyCompactList}\small\item\em 繝�ぅ繝ｪ繧ｯ繝ｬ, 繝弱う繝槭Φ譚｡莉ｶ縺ｮ驕ｩ逕ｨ. 繝√ぉ繝薙す繧ｧ繝慕ｩｺ髢薙〒縺ｮ險育ｮ� \end{DoxyCompactList}\item 
real(dp) function, dimension(-\/km\+:km, 0\+:lm), public \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\+:jm), public \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\+:lm), public \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\+:lm), public \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\+:lm), public \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 \hyperlink{namespaceet__module_ab548603559e0046c00b2c80452be8ed6}{intyx\+\_\+yx} (yx)
\begin{DoxyCompactList}\small\item\em 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ縺ｮ蜈ｨ鬆伜沺遨榊�縺翫ｈ縺ｳ蟷ｳ蝮�. \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:jm), public \hyperlink{namespaceet__module_a06fd2a5870bad9fdac48108be11cfcb4}{y\+\_\+intx\+\_\+yx} (yx)
\begin{DoxyCompactList}\small\item\em 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ縺ｮ X 譁ｹ蜷醍ｩ榊� \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:im-\/1), public \hyperlink{namespaceet__module_a9d4c9267a18acd630c5d7cb68f4a5048}{x\+\_\+inty\+\_\+yx} (yx)
\begin{DoxyCompactList}\small\item\em 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ縺ｮ Y 譁ｹ蜷醍ｩ榊� \end{DoxyCompactList}\item 
real(dp) function, public \hyperlink{namespaceet__module_a792a5563cd122c0779904360978a97d4}{intx\+\_\+x} (x)
\begin{DoxyCompactList}\small\item\em 1 谺｡蜈�(\+X)譬ｼ蟄千せ繝��繧ｿ縺ｮ X 譁ｹ蜷醍ｩ榊� \end{DoxyCompactList}\item 
real(dp) function, public \hyperlink{namespaceet__module_a85893ceb757547f168430d386a363098}{inty\+\_\+y} (y)
\begin{DoxyCompactList}\small\item\em 1 谺｡蜈�(\+Y)譬ｼ蟄千せ繝��繧ｿ縺ｮ Y 譁ｹ蜷醍ｩ榊� \end{DoxyCompactList}\item 
real(dp) function, public \hyperlink{namespaceet__module_a82df0305258a368bbd98eaa89e4da2e8}{avryx\+\_\+yx} (yx)
\begin{DoxyCompactList}\small\item\em 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ縺ｮ蜈ｨ鬆伜沺蟷ｳ蝮� \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:jm), public \hyperlink{namespaceet__module_ae0f001249a5e5698e4ef2d4335dd460b}{y\+\_\+avrx\+\_\+yx} (yx)
\begin{DoxyCompactList}\small\item\em 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ縺ｮ X 譁ｹ蜷大ｹｳ蝮� \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:im-\/1), public \hyperlink{namespaceet__module_a0b49f704711d70939291b05718a67180}{x\+\_\+avry\+\_\+yx} (yx)
\item 
real(dp) function, public \hyperlink{namespaceet__module_a35c80f8617923d012a1ff5a32bae82f3}{avrx\+\_\+x} (x)
\begin{DoxyCompactList}\small\item\em 1 谺｡蜈�(\+X)譬ｼ蟄千せ繝��繧ｿ縺ｮ X 譁ｹ蜷大ｹｳ蝮� \end{DoxyCompactList}\item 
real(dp) function, public \hyperlink{namespaceet__module_a64a298ca04edcc608bd976c24e5eaff6}{avry\+\_\+y} (y)
\begin{DoxyCompactList}\small\item\em 1 谺｡蜈�(\+Y)譬ｼ蟄千せ繝��繧ｿ縺ｮ Y 譁ｹ蜷大ｹｳ蝮� \end{DoxyCompactList}\item 
real(dp) function, public \hyperlink{namespaceet__module_a49cd599107e897907661147d5d9239a2}{interpolate\+\_\+et} (et\+\_\+data, xval, yval)
\begin{DoxyCompactList}\small\item\em 陬憺俣髢｢謨ｰ \end{DoxyCompactList}\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
real(dp), dimension(\+:,\+:), allocatable, public \hyperlink{namespaceet__module_a36afc47d18eeb0d43d0aa03e9b73459a}{yx\+\_\+x}
\begin{DoxyCompactList}\small\item\em 譬ｼ蟄千せ繝��繧ｿ縺ｮ X 蠎ｧ讓兔+: 譬ｼ蟄千せ繝��繧ｿ蝙� 2 谺｡蜈��蛻�(\+X,\+Y) \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), allocatable, public \hyperlink{namespaceet__module_ae2eafd3163d0e52c348069c39b72e42f}{yx\+\_\+y}
\begin{DoxyCompactList}\small\item\em 譬ｼ蟄千せ繝��繧ｿ縺ｮ Y 蠎ｧ讓兔+: 譬ｼ蟄千せ繝��繧ｿ蝙� 2 谺｡蜈��蛻�(\+X,\+Y) \end{DoxyCompactList}\end{DoxyCompactItemize}


\subsection{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 \hyperlink{COPYRIGHT}{C\+O\+P\+Y\+R\+I\+G\+HT} in detail
\end{DoxyCopyright}
spml/et\+\_\+module 繝｢繧ｸ繝･繝ｼ繝ｫ縺ｯ 2 谺｡蜈�ｰｴ霍ｯ鬆伜沺縺ｧ縺ｮ豬∽ｽ馴°蜍輔ｒ 繧ｹ繝壹け繝医Ν豕輔↓繧医ｊ謨ｰ蛟､險育ｮ励ｒ螳溯｡後☆繧九◆繧√� Fortran90 髢｢謨ｰ繧呈署萓帙☆繧�. 蜻ｨ譛溽噪縺ｪ蠅�阜譚｡莉ｶ繧呈桶縺�◆繧√� X 譁ｹ蜷代∈縺ｮ繝輔�繝ｪ繧ｨ螟画鋤縺ｨ蠅�阜螢√ｒ謇ｱ縺�◆繧√� Y 譁ｹ蜷代�繝√ぉ繝薙す繧ｧ繝募､画鋤繧堤畑縺�ｋ蝣ｴ蜷医�繧ｹ繝壹け繝医Ν險育ｮ励�縺溘ａ縺ｮ縺輔∪縺悶∪縺ｪ 髢｢謨ｰ繧呈署萓帙☆繧�.

蜀�Κ縺ｧ \hyperlink{namespaceae__module}{ae\+\_\+module}, \hyperlink{namespaceat__module}{at\+\_\+module} 繧堤畑縺�※縺�ｋ. 譛荳矩Κ縺ｧ縺ｯ繝輔�繝ｪ繧ｨ螟画鋤縺翫ｈ縺ｳ繝√ぉ繝薙す繧ｧ繝募､画鋤縺ｮ繧ｨ繝ｳ繧ｸ繝ｳ縺ｨ縺励※ I\+S\+P\+A\+C\+K3/\+F\+X\+P\+A\+C\+K繧堤畑縺�※縺�ｋ.

\paragraph*{蜻ｽ蜷肴ｳ扶


\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}

\paragraph*{蜷�ョ繝ｼ繧ｿ縺ｮ遞ｮ鬘槭�隱ｬ譏枝


\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}

\subsection{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}}
\subsubsection{\texorpdfstring{avrx\+\_\+x()}{avrx\_x()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::avrx\+\_\+x (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:im-\/1)}]{x }\end{DoxyParamCaption})}



1 谺｡蜈�(\+X)譬ｼ蟄千せ繝��繧ｿ縺ｮ X 譁ｹ蜷大ｹｳ蝮� 


\begin{DoxyParams}{Parameters}
{\em x} &amp; 1 谺｡蜈��ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
蟷ｳ蝮�､ 
\end{DoxyReturn}


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



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


\begin{DoxyCode}
1258 
1259     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:im-1)}   :: x
1261     \textcolor{keywordtype}{real(DP)}                      :: avrx\_x
1262 
1263     avrx\_x = intx\_x(x)/sum(x\_x\_weight)
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{avry\+\_\+y()}{avry\_y()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::avry\+\_\+y (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:jm)}]{y }\end{DoxyParamCaption})}



1 谺｡蜈�(\+Y)譬ｼ蟄千せ繝��繧ｿ縺ｮ Y 譁ｹ蜷大ｹｳ蝮� 


\begin{DoxyParams}{Parameters}
{\em y} &amp; 1 谺｡蜈��ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
蟷ｳ蝮�､ 
\end{DoxyReturn}


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



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


\begin{DoxyCode}
1270 
1271     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm)}   :: y
1273     \textcolor{keywordtype}{real(DP)}                    :: avry\_y
1274 
1275     avry\_y = inty\_y(y)/sum(y\_y\_weight)
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{avryx\+\_\+yx()}{avryx\_yx()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::avryx\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:jm,0\+:im-\/1)}]{yx }\end{DoxyParamCaption})}



2 谺｡蜈��ｼ蟄千せ繝��繧ｿ縺ｮ蜈ｨ鬆伜沺蟷ｳ蝮� 


\begin{DoxyParams}{Parameters}
{\em yx} &amp; 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
蟷ｳ蝮�､ 
\end{DoxyReturn}


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



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


\begin{DoxyCode}
1222 
1223     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,0:im-1)}   :: yx
1225     \textcolor{keywordtype}{real(DP)}                           :: avryx\_yx
1226 
1227     avryx\_yx = intyx\_yx(yx)/(sum(x\_x\_weight)*sum(y\_y\_weight))
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{et\+\_\+boundaries()}{et\_boundaries()}}
{\footnotesize\ttfamily subroutine, public et\+\_\+module\+::et\+\_\+boundaries (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+: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})}



繝�ぅ繝ｪ繧ｯ繝ｬ, 繝弱う繝槭Φ譚｡莉ｶ縺ｮ驕ｩ逕ｨ. 繝√ぉ繝薙す繧ｧ繝慕ｩｺ髢薙〒縺ｮ險育ｮ� 

螳滄圀縺ｫ縺ｯ荳ｭ縺ｧ蜻ｼ縺ｰ繧後※縺�ｋ \hyperlink{namespaceat__module}{at\+\_\+module} 縺ｮ繧ｵ繝悶Ν繝ｼ繝√Φ at\+\_\+\+Boundaries\+\_\+\+DD, at\+\_\+\+Boundaries\+\_\+\+DN, at\+\_\+\+Boundaries\+\_\+\+ND, at\+\_\+\+Boundaries\+\_\+\+NN 繧堤畑縺�※縺�ｋ. 縺薙ｌ繧峨ｒ逶ｴ謗･蜻ｼ縺ｶ縺薙→繧ょ�譚･繧�.


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em values} &amp; 蠅�阜縺ｧ縺ｮ 蛟､/蜍ｾ驟� 蛻�ｸ�ｒ豌ｴ蟷ｳ繧ｹ繝壹け繝医Ν螟画鋤縺励◆繧ゅ�繧剃ｸ弱∴繧�. 逵∫払譎ゅ�蛟､/蜍ｾ驟� 0 縺ｨ縺ｪ繧�.\\
\hline
\mbox{\tt in,out}  &amp; {\em et} &amp; 蠅�阜譚｡莉ｶ繧帝←逕ｨ縺吶ｋ繝��繧ｿ. 菫ｮ豁｣縺輔ｌ縺溷､繧定ｿ斐☆.\\
\hline
\mbox{\tt in}  &amp; {\em cond} &amp; 蠅�阜譚｡莉ｶ. 逵∫払譎ゅ� \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}
465 
467     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values
468 
470     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)},\textcolor{keywordtype}{intent(inout)}      :: et
471 
476     \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}             :: cond
477 
478     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(cond)) \textcolor{keywordflow}{then}
479       \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}
480         \textcolor{keyword}{call }at\_boundaries\_dd(et,values)
481       \textcolor{keywordflow}{else}
482         \textcolor{keyword}{call }at\_boundaries\_dd(et)
483 \textcolor{keywordflow}{      endif}
484       \textcolor{keywordflow}{return}
485 \textcolor{keywordflow}{    endif}
486 
487     \textcolor{keywordflow}{select case}(cond)
488     \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'NN'})
489       \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}
490         \textcolor{keyword}{call }at\_boundaries\_nn(et,values)
491       \textcolor{keywordflow}{else}
492         \textcolor{keyword}{call }at\_boundaries\_nn(et)
493 \textcolor{keywordflow}{      endif}
494     \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'DN'})
495       \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}
496         \textcolor{keyword}{call }at\_boundaries\_dn(et,values)
497       \textcolor{keywordflow}{else}
498         \textcolor{keyword}{call }at\_boundaries\_dn(et)
499 \textcolor{keywordflow}{      endif}
500     \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'ND'})
501       \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}
502         \textcolor{keyword}{call }at\_boundaries\_nd(et,values)
503       \textcolor{keywordflow}{else}
504         \textcolor{keyword}{call }at\_boundaries\_nd(et)
505 \textcolor{keywordflow}{      endif}
506     \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'DD'})
507       \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}
508         \textcolor{keyword}{call }at\_boundaries\_dd(et,values)
509       \textcolor{keywordflow}{else}
510         \textcolor{keyword}{call }at\_boundaries\_dd(et)
511 \textcolor{keywordflow}{      endif}
512 \textcolor{keywordflow}{    case default}
513       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'et\_Boundaries'},\textcolor{stringliteral}{'B.C. not supported'})
514 \textcolor{keywordflow}{    end select}
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}}
\subsubsection{\texorpdfstring{et\+\_\+dx\+\_\+et()}{et\_dx\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:lm), public et\+\_\+module\+::et\+\_\+dx\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:lm), intent(in)}]{et }\end{DoxyParamCaption})}



蜈･蜉帙せ繝壹け繝医Ν繝��繧ｿ縺ｫ X 蠕ｮ蛻� $\partial_x$ 繧剃ｽ懃畑縺吶ｋ. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em et} &amp; 蜈･蜉帙せ繝壹け繝医Ν繝��繧ｿ \\
\hline
\end{DoxyParams}


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


\begin{DoxyCode}
398 
399     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}    :: et
400     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}                :: et\_dx\_et
401 
402     \textcolor{keywordtype}{integer} k
403     \textcolor{keywordflow}{do} k=-km,km
404       et\_dx\_et(k,:)  =  (-2*pi*k/xl)*et(-k,:)
405 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{et\+\_\+dy\+\_\+et()}{et\_dy\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:lm), public et\+\_\+module\+::et\+\_\+dy\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:lm), intent(in)}]{et }\end{DoxyParamCaption})}



蜈･蜉帙せ繝壹け繝医Ν繝��繧ｿ縺ｫ Y 蠕ｮ蛻� $\partial_y$ 繧剃ｽ懃畑縺吶ｋ. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em et} &amp; 蜈･蜉帙せ繝壹け繝医Ν繝��繧ｿ \\
\hline
\end{DoxyParams}


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


\begin{DoxyCode}
412 
413     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}   :: et
414     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}               :: et\_dy\_et
415 
416     et\_dy\_et = at\_dy\_at(et)
417 
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{et\+\_\+ey()}{et\_ey()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:lm), public et\+\_\+module\+::et\+\_\+ey (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:jm), intent(in)}]{ey }\end{DoxyParamCaption})}



Y 蠎ｧ讓吶�譬ｼ蟄舌ョ繝ｼ繧ｿ縺九ｉ繧ｹ繝壹け繝医Ν繝��繧ｿ縺ｸ螟画鋤縺吶ｋ. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em ey} &amp; 譬ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
繧ｹ繝壹け繝医Ν繝��繧ｿ 
\end{DoxyReturn}


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


\begin{DoxyCode}
372 
373     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}, \textcolor{keywordtype}{intent(in)}  :: ey
375     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}              :: et\_ey
376     et\_ey = at\_ay(ey)
377 
\end{DoxyCode}
\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}}
\subsubsection{\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{\tt in}  &amp; {\em i} &amp; 譬ｼ蟄千せ謨ｰ(\+X)\\
\hline
\mbox{\tt in}  &amp; {\em j} &amp; 譬ｼ蟄千せ謨ｰ(\+Y)\\
\hline
\mbox{\tt in}  &amp; {\em k} &amp; 蛻�妙豕｢謨ｰ(\+X)\\
\hline
\mbox{\tt in}  &amp; {\em l} &amp; 蛻�妙豕｢謨ｰ(\+Y)\\
\hline
\mbox{\tt in}  &amp; {\em xmin} &amp; X 蠎ｧ讓咏ｯ�峇\\
\hline
\mbox{\tt in}  &amp; {\em xmax} &amp; X 蠎ｧ讓咏ｯ�峇\\
\hline
\mbox{\tt in}  &amp; {\em ymin} &amp; Y 蠎ｧ讓咏ｯ�峇\\
\hline
\mbox{\tt in}  &amp; {\em ymax} &amp; Y 蠎ｧ讓咏ｯ�峇 \\
\hline
\end{DoxyParams}


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



References ae\+\_\+module\+::ae\+\_\+initial(), at\+\_\+module\+::at\+\_\+initial(), yx\+\_\+x, and yx\+\_\+y.


\begin{DoxyCode}
225 
226     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: i
228     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: j
230     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: k
232     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: l
234     \textcolor{keywordtype}{real(DP)},\textcolor{keywordtype}{intent(in)} :: xmin, xmax
236     \textcolor{keywordtype}{real(DP)},\textcolor{keywordtype}{intent(in)} :: ymin, ymax
237 
238     im = i
239     jm = j
240     km = k
241     lm = l
242     xl = xmax-xmin
243     yl = ymax-ymin
244 
245     \textcolor{keyword}{call }ae\_initial(im,km,xmin,xmax)
246     \textcolor{keyword}{call }at\_initial(jm,lm,ymin,ymax)
247 
248     \textcolor{keyword}{allocate}(yx\_x(0:jm,0:im-1),yx\_y(0:jm,0:im-1))
249     yx\_x = spread(x\_x,1,jm+1)
250     yx\_y = spread(y\_y,2,im)
251 
252     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'et\_initial'}, &amp;
253       &amp; \textcolor{stringliteral}{'et\_module (2019/09/30) is initialized'})
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{et\+\_\+jacobian\+\_\+et\+\_\+et()}{et\_jacobian\_et\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:lm), public et\+\_\+module\+::et\+\_\+jacobian\+\_\+et\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:lm), intent(in)}]{et\+\_\+a,  }\item[{real(dp), dimension(-\/km\+:km,0\+: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{\tt in}  &amp; {\em et\+\_\+a} &amp; 1縺､逶ｮ縺ｮ蜈･蜉帙せ繝壹け繝医Ν繝��繧ｿ\\
\hline
\mbox{\tt in}  &amp; {\em et\+\_\+b} &amp; 2縺､逶ｮ縺ｮ蜈･蜉帙せ繝壹け繝医Ν繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
2 縺､縺ｮ繧ｹ繝壹け繝医Ν繝��繧ｿ縺ｮ繝､繧ｳ繝薙い繝ｳ 
\end{DoxyReturn}


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



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


\begin{DoxyCode}
444 
445     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}    :: et\_a
447     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}    :: et\_b
449     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}                :: et\_jacobian\_et\_et
450     et\_jacobian\_et\_et = et\_yx(                           &amp;
451       &amp;  yx\_et(et\_dx\_et(et\_a)) * yx\_et(et\_dy\_et(et\_b))   &amp;
452       &amp; - yx\_et(et\_dy\_et(et\_a)) * yx\_et(et\_dx\_et(et\_b)) )
453 
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{et\+\_\+lapla\+\_\+et()}{et\_lapla\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:lm), public et\+\_\+module\+::et\+\_\+lapla\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:lm), intent(in)}]{et }\end{DoxyParamCaption})}



蜈･蜉帙せ繝壹け繝医Ν繝��繧ｿ縺ｫ繝ｩ繝励Λ繧ｷ繧｢繝ｳ $(\partial_{xx}+\partial_{yy})$ 繧剃ｽ懃畑縺吶ｋ. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em et} &amp; 蜈･蜉帙せ繝壹け繝医Ν繝��繧ｿ \\
\hline
\end{DoxyParams}


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



References et\+\_\+dy\+\_\+et().


\begin{DoxyCode}
425 
426     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}    :: et
427     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}                :: et\_lapla\_et
428 
429     \textcolor{keywordtype}{integer} k
430     \textcolor{keywordflow}{do} k=-km,km
431       et\_lapla\_et(k,:) = -(2*pi*k/xl)**2*et(k,:)
432 \textcolor{keywordflow}{    enddo}
433 
434     et\_lapla\_et = et\_lapla\_et + et\_dy\_et(et\_dy\_et(et))
435 
\end{DoxyCode}
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}
\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}}
\subsubsection{\texorpdfstring{et\+\_\+laplainv\+\_\+et()}{et\_laplainv\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:lm), public et\+\_\+module\+::et\+\_\+laplainv\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+: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{\tt in}  &amp; {\em et} &amp; 繧ｹ繝壹け繝医Ν繝��繧ｿ\\
\hline
\mbox{\tt in}  &amp; {\em values} &amp; 蠅�阜蛟､. 逵∫払譎ゅ� 0 縺瑚ｨｭ螳壹＆繧後ｋ.\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
繧ｹ繝壹け繝医Ν繝��繧ｿ縺ｮ騾�Λ繝励Λ繧ｷ繧｢繝ｳ 
\end{DoxyReturn}


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



References et\+\_\+lapla\+\_\+et().


\begin{DoxyCode}
525 
526     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)},\textcolor{keywordtype}{intent(in)}  :: et
528     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values
530     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}             :: et\_laplainv\_et
531 
532     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu
533     \textcolor{keywordtype}{integer},  \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp
534     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}         :: et\_work
535     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}         :: ey\_work
536     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km)}              :: value1, value2   \textcolor{comment}{! 蠅�阜蛟､}
537 
538     \textcolor{keywordtype}{logical} :: first = .true.
539     \textcolor{keywordtype}{integer} :: l
540     \textcolor{keywordtype}{save}    :: alu, kp, first
541 
542     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}
543       value1=0.0d0
544       value2=0.0d0
545     \textcolor{keywordflow}{else}
546       value1 = values(:,1)
547       value2 = values(:,2)
548 \textcolor{keywordflow}{    endif}
549 
550     \textcolor{keywordflow}{if} ( first ) \textcolor{keywordflow}{then}
551       first = .false.
552 
553       \textcolor{keyword}{allocate}(alu(-km:km,0:lm,0:lm),kp(-km:km,0:lm))
554 
555       \textcolor{keywordflow}{do} l=0,lm
556         et\_work=0.0d0
557         et\_work(:,l) = 1.0d0
558         alu(:,:,l) = et\_lapla\_et(et\_work)
559         ey\_work = ay\_at(et\_work)
560         alu(:,lm-1,l) = ey\_work(:,0)
561         alu(:,lm,l)   = ey\_work(:,jm)
562 \textcolor{keywordflow}{      enddo}
563 
564       \textcolor{keyword}{call }ludecomp(alu,kp)
565 \textcolor{keywordflow}{    endif}
566 
567     et\_work = et
568     et\_work(:,lm-1) = value1
569     et\_work(:,lm)   = value2
570     et\_laplainv\_et = lusolve(alu,kp,et\_work)
571 
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{et\+\_\+vor2strm2\+\_\+et()}{et\_vor2strm2\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:lm), public et\+\_\+module\+::et\+\_\+vor2strm2\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+: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 &amp; = \zeta, \\ \psi &amp; = \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{\tt in}  &amp; {\em et} &amp; 蜈･蜉帶ｸｦ蠎ｦ蛻�ｸソ\
\hline
\mbox{\tt in}  &amp; {\em ea} &amp; 豬∫ｷ壼｢�阜蛟､. 逵∫払譎ゅ� 0. 1\+:Top,2\+:Btm\\
\hline
\mbox{\tt in}  &amp; {\em cond} &amp; 蠅�阜譚｡莉ｶ繧ｹ繧､繝�メ. 逵∫払譎ゅ� \textquotesingle{}RR\textquotesingle{}
\begin{DoxyItemize}
\item RR \+: 荳｡遶ｯ邊倡捩譚｡莉ｶ
\item RF \+: 荳顔ｫｯ邊倡捩荳狗ｫｯ蠢懷鴨縺ｪ縺玲擅莉ｶ
\item FR \+: 荳顔ｫｯ蠢懷鴨縺ｪ縺嶺ｸ狗ｫｯ邊倡捩譚｡莉ｶ
\item FF \+: 荳｡遶ｯ蠢懷鴨縺ｪ縺玲擅莉ｶ
\end{DoxyItemize}\\
\hline
\mbox{\tt in}  &amp; {\em new} &amp; true 縺�縺ｨ蠅�阜譚｡莉ｶ險育ｮ礼畑陦悟�繧貞ｼｷ蛻ｶ逧�↓譁ｰ縺溘↓菴懊ｋ. default 縺ｯ false.\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
蜃ｺ蜉帶ｵ∫ｷ壼�蟶� 
\end{DoxyReturn}


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



References et\+\_\+dy\+\_\+et(), and et\+\_\+lapla\+\_\+et().


\begin{DoxyCode}
870 
871     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)},\textcolor{keywordtype}{intent(in)}  :: et
873     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: ea
879     \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond
882     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new
884     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}         :: et\_vor2strm2\_et
885 
886     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu
887     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}     :: kp
888 
889     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}         :: et\_work
890     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}         :: ey\_work
891     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km)}              :: e\_top
892     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km)}              :: e\_btm
893     \textcolor{keywordtype}{logical}                                  :: rigid1 = .true.
894     \textcolor{keywordtype}{logical}                                  :: rigid2 = .true.
895 
896     \textcolor{keywordtype}{logical} :: first = .true.
897     \textcolor{keywordtype}{logical} :: new\_matrix = .false.
898     \textcolor{keywordtype}{integer} :: l
899     \textcolor{keywordtype}{save}    :: alu, kp, first
900 
901     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(ea)) \textcolor{keywordflow}{then}
902       e\_top = 0.0d0
903       e\_btm = 0.0d0
904     \textcolor{keywordflow}{else}
905       e\_top = ea(:,1)
906       e\_btm = ea(:,2)
907 \textcolor{keywordflow}{    endif}
908 
909     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(cond) ) \textcolor{keywordflow}{then}
910       \textcolor{keywordflow}{select case} (cond)
911       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})
912         rigid1 = .true.
913         rigid2 = .true.
914       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})
915         rigid1 = .true.
916         rigid2 = .false.
917       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})
918         rigid1 = .false.
919         rigid2 = .true.
920       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})
921         rigid1 = .false.
922         rigid2 = .false.
923 \textcolor{keywordflow}{      case default}
924         \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},\textcolor{stringliteral}{'B.C. not supported'})
925 \textcolor{keywordflow}{      end select}
926 \textcolor{keywordflow}{    endif}
927 
928     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}
929       new\_matrix=.false.
930     \textcolor{keywordflow}{else}
931       new\_matrix=new
932 \textcolor{keywordflow}{    endif}
933 
934     \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}
935       first = .false.
936 
937       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)
938       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)
939       \textcolor{keyword}{allocate}(alu(-km:km,0:lm,0:lm),kp(-km:km,0:lm))
940 
941       alu = 0.0d0
942       \textcolor{keywordflow}{do} l=0,lm-2
943         et\_work(:,:)= 0.0d0
944         et\_work(:,l)= 1.0d0
945 
946         alu(:,:,l) = et\_lapla\_et(et\_work)
947 \textcolor{keywordflow}{      enddo}
948 
949       \textcolor{keywordflow}{do} l=0,lm
950         et\_work(:,:)= 0.0d0
951         et\_work(:,l)= 1.0d0
952 
953         \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豬∫ｷ壹�蠅�阜縺ｧ荳螳嘲
954         ey\_work = ay\_at(et\_work)
955         alu(:,lm,l) = ey\_work(:,0)
956         alu(:,lm-1,l) = ey\_work(:,jm)
957 
958         \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ邊倡捩譚｡莉ｶ(Top)}
959           ey\_work=ay\_at(et\_dy\_et(et\_work))
960           alu(:,lm-2,l) = ey\_work(:,0)
961         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ縺吶∋繧頑擅莉ｶ(Top)}
962           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))
963           alu(:,lm-2,l) = ey\_work(:,0)
964 \textcolor{keywordflow}{        endif}
965         \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ邊倡捩譚｡莉ｶ(bottom)}
966           ey\_work=ay\_at(et\_dy\_et(et\_work))
967           alu(:,lm-3,l) = ey\_work(:,jm)
968         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ縺吶∋繧頑擅莉ｶ(bottom)}
969           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))
970           alu(:,lm-3,l) = ey\_work(:,jm)
971 \textcolor{keywordflow}{        endif}
972 \textcolor{keywordflow}{      enddo}
973 
974       \textcolor{keyword}{call }ludecomp(alu,kp)
975 
976       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},&amp;
977         \textcolor{stringliteral}{'Matrix for stream func. calc. produced'})
978 \textcolor{keywordflow}{    endif}
979 
980     \textcolor{comment}{! 蜀�Κ鬆伜沺險育ｮ抑
981     et\_work = et
982 
983     et\_work(:,lm-2) = 0.0d0           \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ}
984     et\_work(:,lm-3) = 0.0d0           \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ}
985 
986     et\_work(:,lm-1) = e\_btm           \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 莉･螟悶� 0}
987     et\_work(:,lm)   = e\_top           \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 莉･螟悶� 0}
988 
989     et\_vor2strm2\_et = lusolve(alu,kp,et\_work)
990 
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{et\+\_\+vor2strm3\+\_\+et()}{et\_vor2strm3\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:lm), public et\+\_\+module\+::et\+\_\+vor2strm3\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+: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 &amp; = \zeta, \\ \psi &amp; = \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{\tt in}  &amp; {\em et} &amp; 蜈･蜉帶ｸｦ蠎ｦ蛻�ｸソ\
\hline
\mbox{\tt in}  &amp; {\em ea} &amp; 豬∫ｷ�/蠕ｮ蛻�｢�阜蛟､. 逵∫払譎ゅ� 0.
\begin{DoxyEnumerate}
\item Top 蛟､,
\item Bottom 蛟､
\item Top 蠕ｮ蛻�(蜍ｾ驟�)
\item Bottom 蠕ｮ蛻�(蜍ｾ驟�)
\end{DoxyEnumerate}\\
\hline
\mbox{\tt in}  &amp; {\em cond} &amp; 蠅�阜譚｡莉ｶ繧ｹ繧､繝�メ. 逵∫払譎ゅ� \textquotesingle{}RR\textquotesingle{}
\begin{DoxyItemize}
\item RR \+: 荳｡遶ｯ邊倡捩譚｡莉ｶ
\item RF \+: 荳顔ｫｯ邊倡捩荳狗ｫｯ蠢懷鴨縺ｪ縺玲擅莉ｶ
\item FR \+: 荳顔ｫｯ蠢懷鴨縺ｪ縺嶺ｸ狗ｫｯ邊倡捩譚｡莉ｶ
\item FF \+: 荳｡遶ｯ蠢懷鴨縺ｪ縺玲擅莉ｶ
\end{DoxyItemize}\\
\hline
\mbox{\tt in}  &amp; {\em new} &amp; true 縺�縺ｨ蠅�阜譚｡莉ｶ險育ｮ礼畑陦悟�繧貞ｼｷ蛻ｶ逧�↓譁ｰ縺溘↓菴懊ｋ. default 縺ｯ false.\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
蜃ｺ蜉帶ｵ∫ｷ壼�蟶� 
\end{DoxyReturn}


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



References et\+\_\+dy\+\_\+et(), and et\+\_\+lapla\+\_\+et().


\begin{DoxyCode}
1008 
1009     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)},\textcolor{keywordtype}{intent(in)}  :: et
1015     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,4)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: ea
1021     \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond
1024     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new
1026     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}             :: et\_vor2strm3\_et
1027 
1028     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable} :: alu
1029     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp
1030 
1031     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}        :: et\_work
1032     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}        :: ey\_work
1033     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km)}             :: e\_topvalue
1034     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km)}             :: e\_btmvalue
1035     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km)}             :: e\_topdiff
1036     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km)}             :: e\_btmdiff
1037     \textcolor{keywordtype}{logical}                                 :: rigid1 = .true.
1038     \textcolor{keywordtype}{logical}                                 :: rigid2 = .true.
1039     \textcolor{keywordtype}{logical} :: first = .true.
1040     \textcolor{keywordtype}{logical} :: new\_matrix = .false.
1041     \textcolor{keywordtype}{integer} :: l
1042     \textcolor{keywordtype}{save}    :: alu, kp, first
1043 
1044     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(ea)) \textcolor{keywordflow}{then}
1045       e\_topvalue = 0.0d0
1046       e\_btmvalue = 0.0d0
1047       e\_topdiff  = 0.0d0
1048       e\_btmdiff  = 0.0d0
1049     \textcolor{keywordflow}{else}
1050       e\_topvalue = ea(:,1)
1051       e\_btmvalue = ea(:,2)
1052       e\_topdiff  = ea(:,3)
1053       e\_btmdiff  = ea(:,4)
1054 \textcolor{keywordflow}{    endif}
1055 
1056     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(cond) ) \textcolor{keywordflow}{then}
1057       \textcolor{keywordflow}{select case} (cond)
1058       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})
1059         rigid1 = .true.
1060         rigid2 = .true.
1061       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})
1062         rigid1 = .true.
1063         rigid2 = .false.
1064       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})
1065         rigid1 = .false.
1066         rigid2 = .true.
1067       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})
1068         rigid1 = .false.
1069         rigid2 = .false.
1070 \textcolor{keywordflow}{      case default}
1071         \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},\textcolor{stringliteral}{'B.C. not supported'})
1072 \textcolor{keywordflow}{      end select}
1073 \textcolor{keywordflow}{    endif}
1074 
1075     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}
1076       new\_matrix=.false.
1077     \textcolor{keywordflow}{else}
1078       new\_matrix=new
1079 \textcolor{keywordflow}{    endif}
1080 
1081     \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}
1082       first = .false.
1083 
1084       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)
1085       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)
1086       \textcolor{keyword}{allocate}(alu(-km:km,0:lm,0:lm),kp(-km:km,0:lm))
1087 
1088       alu = 0.0d0
1089       \textcolor{keywordflow}{do} l=0,lm-2
1090         et\_work(:,:)= 0.0d0
1091         et\_work(:,l)= 1.0d0
1092 
1093         alu(:,:,l) = et\_lapla\_et(et\_work)
1094 \textcolor{keywordflow}{      enddo}
1095 
1096       \textcolor{keywordflow}{do} l=0,lm
1097         et\_work(:,:)= 0.0d0
1098         et\_work(:,l)= 1.0d0
1099 
1100         \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豬∫ｷ壹�蠅�阜縺ｧ荳螳嘲
1101         ey\_work = ay\_at(et\_work)
1102         alu(:,lm,l) = ey\_work(:,0)
1103         alu(:,lm-1,l) = ey\_work(:,jm)
1104 
1105         \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ邊倡捩譚｡莉ｶ(Top)}
1106           ey\_work=ay\_at(et\_dy\_et(et\_work))
1107           alu(:,lm-2,l) = ey\_work(:,0)
1108         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ縺吶∋繧頑擅莉ｶ(Top)}
1109           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))
1110           alu(:,lm-2,l) = ey\_work(:,0)
1111 \textcolor{keywordflow}{        endif}
1112         \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ邊倡捩譚｡莉ｶ(bottom)}
1113           ey\_work=ay\_at(et\_dy\_et(et\_work))
1114           alu(:,lm-3,l) = ey\_work(:,jm)
1115         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ縺吶∋繧頑擅莉ｶ(bottom)}
1116           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))
1117           alu(:,lm-3,l) = ey\_work(:,jm)
1118 \textcolor{keywordflow}{        endif}
1119 \textcolor{keywordflow}{      enddo}
1120 
1121       \textcolor{keyword}{call }ludecomp(alu,kp)
1122 
1123       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},&amp;
1124         \textcolor{stringliteral}{'Matrix for stream func. calc. produced'})
1125 \textcolor{keywordflow}{    endif}
1126 
1127     \textcolor{comment}{! 蜀�Κ鬆伜沺險育ｮ抑
1128     et\_work = et
1129 
1130     et\_work(:,lm-2) = e\_topdiff         \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ}
1131     et\_work(:,lm-3) = e\_btmdiff         \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ}
1132 
1133     et\_work(:,lm-1) = e\_btmvalue        \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 莉･螟悶� 0}
1134     et\_work(:,lm)   = e\_topvalue        \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 莉･螟悶� 0}
1135 
1136     et\_vor2strm3\_et = lusolve(alu,kp,et\_work)
1137 
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{et\+\_\+vor2strm\+\_\+et()}{et\_vor2strm\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:lm), public et\+\_\+module\+::et\+\_\+vor2strm\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+: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 &amp; = \zeta, \\ \psi &amp; = \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{\tt in}  &amp; {\em et} &amp; 蜈･蜉帶ｸｦ蠎ｦ蛻�ｸソ\
\hline
\mbox{\tt in}  &amp; {\em values} &amp; 豬∫ｷ壼｢�阜蛟､. 蠅�阜縺ｧ荳螳壹↑縺ｮ縺ｧ豕｢謨ｰ 0 謌仙�縺ｮ縺ｿ. 逵∫払譎ゅ� 0.\\
\hline
\mbox{\tt in}  &amp; {\em cond} &amp; 蠅�阜譚｡莉ｶ繧ｹ繧､繝�メ. 逵∫払譎ゅ� \textquotesingle{}RR\textquotesingle{}
\begin{DoxyItemize}
\item RR \+: 荳｡遶ｯ邊倡捩譚｡莉ｶ
\item RF \+: 荳顔ｫｯ邊倡捩荳狗ｫｯ蠢懷鴨縺ｪ縺玲擅莉ｶ
\item FR \+: 荳顔ｫｯ蠢懷鴨縺ｪ縺嶺ｸ狗ｫｯ邊倡捩譚｡莉ｶ
\item FF \+: 荳｡遶ｯ蠢懷鴨縺ｪ縺玲擅莉ｶ
\end{DoxyItemize}\\
\hline
\mbox{\tt in}  &amp; {\em new} &amp; true 縺�縺ｨ蠅�阜譚｡莉ｶ險育ｮ礼畑陦悟�繧貞ｼｷ蛻ｶ逧�↓譁ｰ縺溘↓菴懊ｋ. default 縺ｯ false.\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
蜃ｺ蜉帶ｵ∫ｷ壼�蟶� 
\end{DoxyReturn}


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



References et\+\_\+dy\+\_\+et(), and et\+\_\+lapla\+\_\+et().


\begin{DoxyCode}
726 
727     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)},\textcolor{keywordtype}{intent(in)}  :: et
729     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values
735     \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond
738     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new
740     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}             :: et\_vor2strm\_et
741 
742     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu
743     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}     :: kp
744 
745     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}         :: et\_work
746     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}         :: ey\_work
747     \textcolor{keywordtype}{real(DP)}                                 :: value1
748     \textcolor{keywordtype}{real(DP)}                                 :: value2
749     \textcolor{keywordtype}{logical}                                  :: rigid1 = .true.
750     \textcolor{keywordtype}{logical}                                  :: rigid2 = .true.
751 
752 
753     \textcolor{keywordtype}{logical} :: first = .true.
754     \textcolor{keywordtype}{logical} :: new\_matrix = .false.
755     \textcolor{keywordtype}{integer} :: l
756     \textcolor{keywordtype}{save}    :: alu, kp, first
757 
758     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}
759       value1=0.0d0
760       value2=0.0d0
761     \textcolor{keywordflow}{else}
762       value1 = values(1)
763       value2 = values(2)
764 \textcolor{keywordflow}{    endif}
765 
766     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(cond) ) \textcolor{keywordflow}{then}
767       \textcolor{keywordflow}{select case} (cond)
768       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})
769         rigid1 = .true.
770         rigid2 = .true.
771       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})
772         rigid1 = .true.
773         rigid2 = .false.
774       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})
775         rigid1 = .false.
776         rigid2 = .true.
777       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})
778         rigid1 = .false.
779         rigid2 = .false.
780 \textcolor{keywordflow}{      case default}
781         \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},\textcolor{stringliteral}{'B.C. not supported'})
782 \textcolor{keywordflow}{      end select}
783 \textcolor{keywordflow}{    endif}
784 
785     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}
786       new\_matrix=.false.
787     \textcolor{keywordflow}{else}
788       new\_matrix=new
789 \textcolor{keywordflow}{    endif}
790 
791     \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}
792       first = .false.
793 
794       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)
795       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)
796       \textcolor{keyword}{allocate}(alu(-km:km,0:lm,0:lm),kp(-km:km,0:lm))
797 
798       alu = 0.0d0
799       \textcolor{keywordflow}{do} l=0,lm-2
800         et\_work(:,:)= 0.0d0
801         et\_work(:,l)= 1.0d0
802 
803         alu(:,:,l) = et\_lapla\_et(et\_work)
804 \textcolor{keywordflow}{      enddo}
805 
806       \textcolor{keywordflow}{do} l=0,lm
807         et\_work(:,:)= 0.0d0
808         et\_work(:,l)= 1.0d0
809 
810         \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豬∫ｷ壹�蠅�阜縺ｧ荳螳嘲
811         ey\_work = ay\_at(et\_work)
812         alu(:,lm,l) = ey\_work(:,0)
813         alu(:,lm-1,l) = ey\_work(:,jm)
814 
815         \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ邊倡捩譚｡莉ｶ(Top)}
816           ey\_work=ay\_at(et\_dy\_et(et\_work))
817           alu(:,lm-2,l) = ey\_work(:,0)
818         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ縺吶∋繧頑擅莉ｶ(Top)}
819           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))
820           alu(:,lm-2,l) = ey\_work(:,0)
821 \textcolor{keywordflow}{        endif}
822         \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}                   \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ邊倡捩譚｡莉ｶ(bottom)}
823           ey\_work=ay\_at(et\_dy\_et(et\_work))
824           alu(:,lm-3,l) = ey\_work(:,jm)
825         \textcolor{keywordflow}{else}                                 \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ縺吶∋繧頑擅莉ｶ(bottom)}
826           ey\_work=ay\_at(et\_dy\_et(et\_dy\_et(et\_work)))
827           alu(:,lm-3,l) = ey\_work(:,jm)
828 \textcolor{keywordflow}{        endif}
829 \textcolor{keywordflow}{      enddo}
830 
831       \textcolor{keyword}{call }ludecomp(alu,kp)
832 
833       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'et\_Vor2Strm\_et'},&amp;
834         \textcolor{stringliteral}{'Matrix for stream func. calc. produced'})
835 \textcolor{keywordflow}{    endif}
836 
837     \textcolor{comment}{! 蜀�Κ鬆伜沺險育ｮ抑
838     et\_work = et
839 
840     et\_work(:,lm-2) = 0.0d0           \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ}
841     et\_work(:,lm-3) = 0.0d0           \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ}
842 
843     et\_work(:,lm-1) = 0.0d0        \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 莉･螟悶� 0}
844     \textcolor{comment}{!!$      et\_work(0,lm-1) = value2*2     ! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 縺ｯ驥阪∩ 1/2}
845     et\_work(0,lm-1) = value2       \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 縺ｯ驥阪∩ 1/2}
846 
847     et\_work(:,lm)   = 0.0d0        \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 莉･螟悶� 0}
848     \textcolor{comment}{!!$      et\_work(0,lm)   = value1*2     ! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 縺ｯ驥阪∩ 1/2}
849     et\_work(0,lm)   = value1     \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 縺ｯ驥阪∩ 1/2}
850 
851     et\_vor2strm\_et = lusolve(alu,kp,et\_work)
852 
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{et\+\_\+yx()}{et\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:lm), public et\+\_\+module\+::et\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:jm,0\+:im-\/1), intent(in)}]{yx }\end{DoxyParamCaption})}


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em yx} &amp; 譬ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
繧ｹ繝壹け繝医Ν繝��繧ｿ 
\end{DoxyReturn}


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


\begin{DoxyCode}
290 
291     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,0:im-1)}, \textcolor{keywordtype}{intent(in)}  :: yx
293     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}              :: et\_yx
294 
295 
296     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}              :: ey
297     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,-km:km)}              :: ye
298 
299     \textcolor{keywordtype}{integer} :: j, k
300 
301     \textcolor{comment}{! et\_yx = at\_ay(transpose(ae\_ax(yx)))}
302     \textcolor{comment}{!}
303     \textcolor{comment}{! 譛ｬ譚･荳翫�譖ｸ縺肴婿縺ｧ縺�＞縺ｯ縺壹□縺�, gfortran 縺ｧ騾壹ｉ縺ｪ縺��縺ｧ荳九�繧医≧縺ｫ譖ｸ縺咲峩縺凩
304     \textcolor{comment}{!}
305     ye = ae\_ax(yx)
306     \textcolor{keywordflow}{do} j=0,jm
307       \textcolor{keywordflow}{do} k=-km,km
308         ey(k,j) = ye(j,k)
309 \textcolor{keywordflow}{      enddo}
310 \textcolor{keywordflow}{    enddo}
311     et\_yx = at\_ay(ey)
312 
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{ey\+\_\+et()}{ey\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:jm), public et\+\_\+module\+::ey\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:lm), intent(in)}]{et }\end{DoxyParamCaption})}



Y 蠎ｧ讓吶せ繝壹け繝医Ν繝��繧ｿ縺九ｉ譬ｼ蟄舌ョ繝ｼ繧ｿ縺ｸ螟画鋤縺吶ｋ. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em et} &amp; 繧ｹ繝壹け繝医Ν繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
譬ｼ蟄千せ繝��繧ｿ 
\end{DoxyReturn}


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


\begin{DoxyCode}
384 
385     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}  :: et
387     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}              :: ey\_et
388 
389     ey\_et = ay\_at(et)
390 
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{ey\+\_\+vor2strm\+\_\+ey()}{ey\_vor2strm\_ey()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:jm), public et\+\_\+module\+::ey\+\_\+vor2strm\+\_\+ey (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+: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 &amp; = \zeta, \\ \psi &amp; = \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{\tt in}  &amp; {\em ey} &amp; 蜈･蜉帶ｸｦ蠎ｦ蛻�ｸソ\
\hline
\mbox{\tt in}  &amp; {\em values} &amp; 豬∫ｷ壼｢�阜蛟､. 蠅�阜縺ｧ荳螳壹↑縺ｮ縺ｧ豕｢謨ｰ 0 謌仙�縺ｮ縺ｿ. 逵∫払譎ゅ� 0.\\
\hline
\mbox{\tt in}  &amp; {\em cond} &amp; 蠅�阜譚｡莉ｶ繧ｹ繧､繝�メ. 逵∫払譎ゅ� \textquotesingle{}RR\textquotesingle{}
\begin{DoxyItemize}
\item RR \+: 荳｡遶ｯ邊倡捩譚｡莉ｶ
\item RF \+: 荳顔ｫｯ邊倡捩荳狗ｫｯ蠢懷鴨縺ｪ縺玲擅莉ｶ
\item FR \+: 荳顔ｫｯ蠢懷鴨縺ｪ縺嶺ｸ狗ｫｯ邊倡捩譚｡莉ｶ
\item FF \+: 荳｡遶ｯ蠢懷鴨縺ｪ縺玲擅莉ｶ
\end{DoxyItemize}\\
\hline
\mbox{\tt in}  &amp; {\em new} &amp; true 縺�縺ｨ蠅�阜譚｡莉ｶ險育ｮ礼畑陦悟�繧貞ｼｷ蛻ｶ逧�↓譁ｰ縺溘↓菴懊ｋ. default 縺ｯ false.\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
蜃ｺ蜉帶ｵ∫ｷ壼�蟶� 
\end{DoxyReturn}


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



References et\+\_\+dy\+\_\+et(), et\+\_\+ey(), et\+\_\+lapla\+\_\+et(), and ey\+\_\+et().


\begin{DoxyCode}
591 
592     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)},\textcolor{keywordtype}{intent(in)}  :: ey
594     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values
600     \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond
602     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new
604     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}             :: ey\_vor2strm\_ey
605 
606     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu
607     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}     :: kp
608 
609     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}         :: ey\_work
610     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}         :: ey\_i
611     \textcolor{keywordtype}{real(DP)}                                 :: value1, value2   \textcolor{comment}{! 蠅�阜蛟､}
612     \textcolor{keywordtype}{logical}                                  :: rigid1 = .true.
613     \textcolor{keywordtype}{logical}                                  :: rigid2 = .true.
614     \textcolor{keywordtype}{logical} :: first = .true.
615     \textcolor{keywordtype}{logical} :: new\_matrix = .false.
616     \textcolor{keywordtype}{integer} :: j
617     \textcolor{keywordtype}{save}    :: alu, kp, first
618 
619     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}
620       value1=0.0d0
621       value2=0.0d0
622     \textcolor{keywordflow}{else}
623       value1 = values(1)
624       value2 = values(2)
625 \textcolor{keywordflow}{    endif}
626 
627     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(cond) ) \textcolor{keywordflow}{then}
628       \textcolor{keywordflow}{select case} (cond)
629       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})
630         rigid1 = .true.
631         rigid2 = .true.
632       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})
633         rigid1 = .true.
634         rigid2 = .false.
635       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})
636         rigid1 = .false.
637         rigid2 = .true.
638       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})
639         rigid1 = .false.
640         rigid2 = .false.
641 \textcolor{keywordflow}{      case default}
642         \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'ey\_Vor2Strm\_ey'},\textcolor{stringliteral}{'B.C. not supported'})
643 \textcolor{keywordflow}{      end select}
644     \textcolor{keywordflow}{else}
645       rigid1 = .true.
646       rigid2 = .true.
647 \textcolor{keywordflow}{    endif}
648 
649     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}
650       new\_matrix=.false.
651     \textcolor{keywordflow}{else}
652       new\_matrix=new
653 \textcolor{keywordflow}{    endif}
654 
655     \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}
656       first = .false.
657 
658       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)
659       \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)
660       \textcolor{keyword}{allocate}(alu(-km:km,0:jm,0:jm),kp(-km:km,0:jm))
661 
662       \textcolor{keywordflow}{do} j=0,jm
663         ey\_i = 0.0d0
664         ey\_i(:,j) = 1.0d0
665         alu(:,:,j) = ey\_et(et\_lapla\_et(et\_ey(ey\_i)))
666 \textcolor{keywordflow}{      enddo}
667 
668       \textcolor{keywordflow}{do} j=0,jm
669         ey\_i = 0.0d0
670         ey\_i(:,j) = 1.0d0
671 
672         \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豬∫ｷ壹�蠅�阜縺ｧ荳螳嘲
673         alu(:,0,j)   = ey\_i(:,0)
674         alu(:,jm,j)  = ey\_i(:,jm)
675 
676         \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}                               \textcolor{comment}{! 邊倡捩譚｡莉ｶ(top)}
677           ey\_work=ey\_et(et\_dy\_et(et\_ey(ey\_i)))
678         \textcolor{keywordflow}{else}
679           ey\_work=ey\_et(et\_dy\_et(et\_dy\_et(et\_ey(ey\_i)))) \textcolor{comment}{! 縺吶∋繧頑擅莉ｶ(top)}
680 \textcolor{keywordflow}{        endif}
681 
682         alu(:,1,j) = ey\_work(:,0)
683 
684         \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}                               \textcolor{comment}{! 邊倡捩譚｡莉ｶ(bottom)}
685           ey\_work=ey\_et(et\_dy\_et(et\_ey(ey\_i)))
686         \textcolor{keywordflow}{else}
687           ey\_work=ey\_et(et\_dy\_et(et\_dy\_et(et\_ey(ey\_i)))) \textcolor{comment}{! 縺吶∋繧頑擅莉ｶ(bottom)}
688 \textcolor{keywordflow}{        endif}
689         alu(:,jm-1,j) = ey\_work(:,jm)
690 \textcolor{keywordflow}{      enddo}
691 
692       \textcolor{keyword}{call }ludecomp(alu,kp)
693 
694       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ey\_Vor2Strm\_ey'},&amp;
695         \textcolor{stringliteral}{'Matrix for stream func. calc. produced'})
696 \textcolor{keywordflow}{    endif}
697 
698     ey\_work = ey
699     ey\_work(:,1)    = 0.0d0               \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ}
700     ey\_work(:,jm-1) = 0.0d0               \textcolor{comment}{! 蜉帛ｭｦ逧�擅莉ｶ}
701 
702     ey\_work(:,0) = 0.0d0                  \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 莉･螟悶� 0}
703     ey\_work(0,0) = value1*2.0d0           \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 縺ｯ驥阪∩ 1/2}
704 
705     ey\_work(:,jm)   = 0.0d0               \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 莉･螟悶� 0}
706     ey\_work(0,jm)   = value2*2.0d0        \textcolor{comment}{! 驕句虚蟄ｦ逧�擅莉ｶ. 豕｢謨ｰ 0 縺ｯ驥阪∩ 1/2}
707 
708     ey\_vor2strm\_ey = lusolve(alu,kp,ey\_work)
709 
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{ey\+\_\+yx()}{ey\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(-\/km\+:km,0\+:jm), public et\+\_\+module\+::ey\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:jm,0\+:im-\/1), intent(in)}]{yx }\end{DoxyParamCaption})}


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em yx} &amp; 譬ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
繧ｹ繝壹け繝医Ν繝��繧ｿ 
\end{DoxyReturn}


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


\begin{DoxyCode}
346 
347     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,0:im-1)}, \textcolor{keywordtype}{intent(in)}  :: yx
349     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}              :: ey\_yx
350 
351     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,-km:km)}              :: ye
352     \textcolor{keywordtype}{integer} :: j, k
353 
354     \textcolor{comment}{! ey\_yx = transpose(ae\_ax(yx))}
355     \textcolor{comment}{!}
356     \textcolor{comment}{! 譛ｬ譚･荳翫�譖ｸ縺肴婿縺ｧ縺�＞縺ｯ縺壹□縺�, gfortran 縺ｧ騾壹ｉ縺ｪ縺��縺ｧ荳九�繧医≧縺ｫ譖ｸ}
357     \textcolor{comment}{! 縺咲峩縺凩
358     \textcolor{comment}{!}
359     ye = ae\_ax(yx)
360     \textcolor{keywordflow}{do} j=0,jm
361       \textcolor{keywordflow}{do} k=-km,km
362         ey\_yx(k,j) = ye(j,k)
363 \textcolor{keywordflow}{      enddo}
364 \textcolor{keywordflow}{    enddo}
365 
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{interpolate\+\_\+et()}{interpolate\_et()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::interpolate\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:lm), intent(in)}]{et\+\_\+data,  }\item[{real(dp), intent(in)}]{xval,  }\item[{real(dp), intent(in)}]{yval }\end{DoxyParamCaption})}



陬憺俣髢｢謨ｰ 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em et\+\_\+data} &amp; 蜈･蜉帙せ繝壹け繝医Ν繝��繧ｿ\\
\hline
\mbox{\tt in}  &amp; {\em xval} &amp; 陬憺俣縺吶ｋ轤ｹ縺ｮ X 蠎ｧ讓兔\
\hline
\mbox{\tt in}  &amp; {\em yval} &amp; 陬憺俣縺吶ｋ轤ｹ縺ｮ Y 蠎ｧ讓兔\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
陬憺俣邨先棡 
\end{DoxyReturn}


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



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


\begin{DoxyCode}
1282 
1283     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}, \textcolor{keywordtype}{intent(IN)} :: et\_data
1285     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}                         :: xval
1287     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}                         :: yval
1289     \textcolor{keywordtype}{real(DP)}                                     :: interpolate\_et
1290 
1291     interpolate\_et = interpolate\_e(a\_interpolate\_at(et\_data,yval),xval)
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{intx\+\_\+x()}{intx\_x()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::intx\+\_\+x (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:im-\/1)}]{x }\end{DoxyParamCaption})}



1 谺｡蜈�(\+X)譬ｼ蟄千せ繝��繧ｿ縺ｮ X 譁ｹ蜷醍ｩ榊� 


\begin{DoxyParams}{Parameters}
{\em x} &amp; 1 谺｡蜈��ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
遨榊�蛟､ 
\end{DoxyReturn}


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


\begin{DoxyCode}
1198 
1199     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:im-1)}   :: x
1201     \textcolor{keywordtype}{real(DP)}                      :: intx\_x
1202 
1203     intx\_x = sum(x*x\_x\_weight)
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{inty\+\_\+y()}{inty\_y()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::inty\+\_\+y (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:jm)}]{y }\end{DoxyParamCaption})}



1 谺｡蜈�(\+Y)譬ｼ蟄千せ繝��繧ｿ縺ｮ Y 譁ｹ蜷醍ｩ榊� 


\begin{DoxyParams}{Parameters}
{\em y} &amp; 1 谺｡蜈��ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
遨榊�蛟､ 
\end{DoxyReturn}


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


\begin{DoxyCode}
1210 
1211     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm)}   :: y
1213     \textcolor{keywordtype}{real(DP)}                    :: inty\_y
1214 
1215     inty\_y = sum(y*y\_y\_weight)
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{intyx\+\_\+yx()}{intyx\_yx()}}
{\footnotesize\ttfamily real(dp) function, public et\+\_\+module\+::intyx\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:jm,0\+:im-\/1)}]{yx }\end{DoxyParamCaption})}



2 谺｡蜈��ｼ蟄千せ繝��繧ｿ縺ｮ蜈ｨ鬆伜沺遨榊�縺翫ｈ縺ｳ蟷ｳ蝮�. 


\begin{DoxyParams}{Parameters}
{\em yx} &amp; 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
遨榊�蛟､ 
\end{DoxyReturn}


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


\begin{DoxyCode}
1144 
1145     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,0:im-1)}   :: yx
1147     \textcolor{keywordtype}{real(DP)}                           :: intyx\_yx
1148 
1149     \textcolor{keywordtype}{integer} :: i, j
1150 
1151     intyx\_yx = 0.0d0
1152     \textcolor{keywordflow}{do} i=0,im-1
1153       \textcolor{keywordflow}{do} j=0,jm
1154         intyx\_yx = intyx\_yx + yx(j,i) * y\_y\_weight(j) * x\_x\_weight(i)
1155 \textcolor{keywordflow}{      enddo}
1156 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{x\+\_\+avry\+\_\+yx()}{x\_avry\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1), public et\+\_\+module\+::x\+\_\+avry\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:jm,0\+:im-\/1)}]{yx }\end{DoxyParamCaption})}


\begin{DoxyParams}{Parameters}
{\em yx} &amp; 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
蟷ｳ蝮�＆繧後◆ 1 谺｡蜈�(\+X)譬ｼ蟄千せ 
\end{DoxyReturn}


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



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


\begin{DoxyCode}
1246 
1247     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,0:im-1)}   :: yx
1249     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:im-1)}        :: x\_avry\_yx
1250 
1251     x\_avry\_yx = x\_inty\_yx(yx)/sum(y\_y\_weight)
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{x\+\_\+inty\+\_\+yx()}{x\_inty\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1), public et\+\_\+module\+::x\+\_\+inty\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:jm,0\+:im-\/1)}]{yx }\end{DoxyParamCaption})}



2 谺｡蜈��ｼ蟄千せ繝��繧ｿ縺ｮ Y 譁ｹ蜷醍ｩ榊� 


\begin{DoxyParams}{Parameters}
{\em yx} &amp; 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
遨榊�縺輔ｌ縺� 1 谺｡蜈�(\+X)譬ｼ蟄千せ繝��繧ｿ 
\end{DoxyReturn}


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


\begin{DoxyCode}
1180 
1181     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,0:im-1)}   :: yx
1183     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:im-1)}        :: x\_inty\_yx
1184 
1185     \textcolor{keywordtype}{integer} :: j
1186     \textcolor{comment}{! 菴懈･ｭ螟画焚}
1187 
1188     x\_inty\_yx = 0.0d0
1189     \textcolor{keywordflow}{do} j=0,jm
1190       x\_inty\_yx(:) = x\_inty\_yx(:) + yx(j,:) * y\_y\_weight(j)
1191 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{y\+\_\+avrx\+\_\+yx()}{y\_avrx\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:jm), public et\+\_\+module\+::y\+\_\+avrx\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:jm,0\+:im-\/1)}]{yx }\end{DoxyParamCaption})}



2 谺｡蜈��ｼ蟄千せ繝��繧ｿ縺ｮ X 譁ｹ蜷大ｹｳ蝮� 


\begin{DoxyParams}{Parameters}
{\em yx} &amp; 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
蟷ｳ蝮�＆繧後◆ 1 谺｡蜈�(\+Y)譬ｼ蟄千せ 
\end{DoxyReturn}


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



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


\begin{DoxyCode}
1234 
1235     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,0:im-1)}   :: yx
1237     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm)}          :: y\_avrx\_yx
1238 
1239     y\_avrx\_yx = y\_intx\_yx(yx)/sum(x\_x\_weight)
\end{DoxyCode}
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}}
\subsubsection{\texorpdfstring{y\+\_\+intx\+\_\+yx()}{y\_intx\_yx()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:jm), public et\+\_\+module\+::y\+\_\+intx\+\_\+yx (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:jm,0\+:im-\/1)}]{yx }\end{DoxyParamCaption})}



2 谺｡蜈��ｼ蟄千せ繝��繧ｿ縺ｮ X 譁ｹ蜷醍ｩ榊� 


\begin{DoxyParams}{Parameters}
{\em yx} &amp; 2 谺｡蜈��ｼ蟄千せ繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
遨榊�縺輔ｌ縺� 1 谺｡蜈�(\+Y)譬ｼ蟄千せ繝��繧ｿ 
\end{DoxyReturn}


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


\begin{DoxyCode}
1163 
1164     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,0:im-1)}   :: yx
1166     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm)}          :: y\_intx\_yx
1167 
1168     \textcolor{keywordtype}{integer} :: i
1169 
1170     y\_intx\_yx = 0.0d0
1171     \textcolor{keywordflow}{do} i=0,im-1
1172       y\_intx\_yx(:) = y\_intx\_yx(:) + yx(:,i) * x\_x\_weight(i)
1173 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{yx\+\_\+et()}{yx\_et()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:jm,0\+:im-\/1), public et\+\_\+module\+::yx\+\_\+et (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:lm), intent(in)}]{et }\end{DoxyParamCaption})}



繧ｹ繝壹け繝医Ν繝��繧ｿ縺九ｉ譬ｼ蟄舌ョ繝ｼ繧ｿ縺ｸ螟画鋤縺吶ｋ. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em et} &amp; 繧ｹ繝壹け繝医Ν繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
譬ｼ蟄千せ繝��繧ｿ 
\end{DoxyReturn}


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


\begin{DoxyCode}
261 
262     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:lm)}, \textcolor{keywordtype}{intent(in)}  :: et
264     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,0:im-1)}              :: yx\_et
265 
266     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}              :: ey
267     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,-km:km)}              :: ye
268 
269     \textcolor{keywordtype}{integer} :: j, k
270 
271     \textcolor{comment}{! yx\_et = ax\_ae(transpose(ay\_at(et)))}
272     \textcolor{comment}{!}
273     \textcolor{comment}{! 譛ｬ譚･荳翫�譖ｸ縺肴婿縺ｧ縺�＞縺ｯ縺壹□縺�, gfortran 縺ｧ騾壹ｉ縺ｪ縺��縺ｧ荳九�繧医≧縺ｫ}
274     \textcolor{comment}{! 譖ｸ縺咲峩縺凩
275     \textcolor{comment}{!}
276     ey = ay\_at(et)
277     \textcolor{keywordflow}{do} j=0,jm
278       \textcolor{keywordflow}{do} k=-km,km
279         ye(j,k) = ey(k,j)
280 \textcolor{keywordflow}{      enddo}
281 \textcolor{keywordflow}{    enddo}
282     yx\_et = ax\_ae(ye)
283 
\end{DoxyCode}
\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}}
\subsubsection{\texorpdfstring{yx\+\_\+ey()}{yx\_ey()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:jm,0\+:im-\/1), public et\+\_\+module\+::yx\+\_\+ey (\begin{DoxyParamCaption}\item[{real(dp), dimension(-\/km\+:km,0\+:jm), intent(in)}]{ey }\end{DoxyParamCaption})}



X 蠎ｧ讓吶せ繝壹け繝医Ν繝��繧ｿ縺九ｉ譬ｼ蟄舌ョ繝ｼ繧ｿ縺ｸ螟画鋤縺吶ｋ. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  &amp; {\em ey} &amp; 繧ｹ繝壹け繝医Ν繝��繧ｿ\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
譬ｼ蟄千せ繝��繧ｿ 
\end{DoxyReturn}


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


\begin{DoxyCode}
319 
320     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(-km:km,0:jm)}, \textcolor{keywordtype}{intent(in)}  :: ey
321 
323     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,0:im-1)}              :: yx\_ey
324 
325     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:jm,-km:km)}              :: ye
326     \textcolor{keywordtype}{integer} :: j, k
327 
328     \textcolor{comment}{! yx\_ey = ax\_ae(transpose(ey))}
329     \textcolor{comment}{!}
330     \textcolor{comment}{! 譛ｬ譚･荳翫�譖ｸ縺肴婿縺ｧ縺�＞縺ｯ縺壹□縺�, gfortran 縺ｧ騾壹ｉ縺ｪ縺��縺ｧ荳九�繧医≧縺ｫ譖ｸ}
331     \textcolor{comment}{! 縺咲峩縺凩
332     \textcolor{comment}{!}
333     \textcolor{keywordflow}{do} j=0,jm
334       \textcolor{keywordflow}{do} k=-km,km
335         ye(j,k) = ey(k,j)
336 \textcolor{keywordflow}{      enddo}
337 \textcolor{keywordflow}{    enddo}
338     yx\_ey = ax\_ae(ye)
339 
\end{DoxyCode}


\subsection{Variable Documentation}
\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}}
\subsubsection{\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}
198   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable} :: yx\_x
\end{DoxyCode}
\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}}
\subsubsection{\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}
200   \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable} :: yx\_y
\end{DoxyCode}
</pre></body></html>