\hypertarget{namespacewa__module__spectrum}{}\section{wa\+\_\+module\+\_\+spectrum Module Reference}
\label{namespacewa__module__spectrum}\index{wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real(dp) function, dimension(0\+:nm,-\/nm\+:nm, size(wa\+\_\+strfunc, 2)), public \hyperlink{namespacewa__module__spectrum_a94210db6db7ec44a727ce892d7487bbd}{nma\+\_\+energyfromstreamfunc\+\_\+wa} (wa\+\_\+\+Strfunc)
\item 
real(dp) function, dimension(0\+:nm, size(wa\+\_\+strfunc, 2)), public \hyperlink{namespacewa__module__spectrum_a422aa5d87140911d8e9e63407f3571ec}{na\+\_\+energyfromstreamfunc\+\_\+wa} (wa\+\_\+\+Strfunc)
\item 
real(dp) function, dimension(0\+:nm,-\/nm\+:nm, size(wa\+\_\+strfunc, 2)), public \hyperlink{namespacewa__module__spectrum_ab97b688180493fb822b3bcf43782dc1a}{nma\+\_\+enstrophyfromstreamfunc\+\_\+wa} (wa\+\_\+\+Strfunc)
\item 
real(dp) function, dimension(0\+:nm, size(wa\+\_\+strfunc, 2)), public \hyperlink{namespacewa__module__spectrum_a2e08db747791bf134ab644d000842661}{na\+\_\+enstrophyfromstreamfunc\+\_\+wa} (wa\+\_\+\+Strfunc)
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
real(dp), public \hyperlink{namespacewa__module__spectrum_ab47445d9015c3d3a5b77dca3798bb318}{wa\+\_\+spectrum\+\_\+vmiss} = -\/999.\+000
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacewa__module__spectrum_a422aa5d87140911d8e9e63407f3571ec}\label{namespacewa__module__spectrum_a422aa5d87140911d8e9e63407f3571ec}} 
\index{wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}!na\+\_\+energyfromstreamfunc\+\_\+wa@{na\+\_\+energyfromstreamfunc\+\_\+wa}}
\index{na\+\_\+energyfromstreamfunc\+\_\+wa@{na\+\_\+energyfromstreamfunc\+\_\+wa}!wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{na\+\_\+energyfromstreamfunc\+\_\+wa()}{na\_energyfromstreamfunc\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:nm,size(wa\+\_\+strfunc,2)), public wa\+\_\+module\+\_\+spectrum\+::na\+\_\+energyfromstreamfunc\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 116 of file wa\+\_\+module\+\_\+spectrum.\+f90.



References w\+\_\+module\+\_\+base\+::nm.


\begin{DoxyCode}
116     \textcolor{comment}{!}
117     \textcolor{comment}{! 流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を}
118     \textcolor{comment}{! 計算する(多層用).}
119     \textcolor{comment}{!}
120     \textcolor{comment}{!  * 全波数 n の流線関数のスペクトル成分ψ(n,m) から}
121     \textcolor{comment}{!    エネルギースペクトルはΣ[m=-nm]^nm(1/2)n(n+1)|ψ(n,m)|^2}
122     \textcolor{comment}{!    と計算される.}
123     \textcolor{comment}{!}
124     \textcolor{comment}{!  * 全てのエネルギースペクトル成分の和に 4πをかけたものが}
125     \textcolor{comment}{!    球面上での全エネルギーに等しい.}
126     \textcolor{comment}{!}
127     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: wa\_strfunc(:,:)
128     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
129 
130     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm,size(wa\_Strfunc,2))} &
131       :: na\_energyfromstreamfunc\_wa
132     \textcolor{comment}{!(out) エネルギースペクトル (水平全波数 n 空間)}
133 
134     \textcolor{keywordtype}{integer} n,m                            \textcolor{comment}{! DO 変数}
135     \textcolor{keywordtype}{integer} :: i\_nm
136     i\_nm = int(nm)
137 
138     \textcolor{keywordflow}{do} n=0,i\_nm
139       na\_energyfromstreamfunc\_wa(n,:) = &
140         0.5 * n*(n+1) * wa\_strfunc(l\_nm(n,0),:)**2
141       \textcolor{keywordflow}{do} m=1,n
142         na\_energyfromstreamfunc\_wa(n,:) = na\_energyfromstreamfunc\_wa(n,:)+ &
143           2 * 0.5 * n*(n+1) &
144           * (wa\_strfunc(l\_nm(n,m),:)**2+wa\_strfunc(l\_nm(n,-m),:)**2)
145 \textcolor{keywordflow}{      enddo}
146 \textcolor{keywordflow}{    enddo}
147 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__spectrum_a2e08db747791bf134ab644d000842661}\label{namespacewa__module__spectrum_a2e08db747791bf134ab644d000842661}} 
\index{wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}!na\+\_\+enstrophyfromstreamfunc\+\_\+wa@{na\+\_\+enstrophyfromstreamfunc\+\_\+wa}}
\index{na\+\_\+enstrophyfromstreamfunc\+\_\+wa@{na\+\_\+enstrophyfromstreamfunc\+\_\+wa}!wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{na\+\_\+enstrophyfromstreamfunc\+\_\+wa()}{na\_enstrophyfromstreamfunc\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:nm,size(wa\+\_\+strfunc,2)), public wa\+\_\+module\+\_\+spectrum\+::na\+\_\+enstrophyfromstreamfunc\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 196 of file wa\+\_\+module\+\_\+spectrum.\+f90.



References w\+\_\+module\+\_\+base\+::nm.


\begin{DoxyCode}
196     \textcolor{comment}{!}
197     \textcolor{comment}{! 流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を}
198     \textcolor{comment}{! 計算する(多層用)}
199     \textcolor{comment}{!}
200     \textcolor{comment}{! * 全波数 n の流線関数のスペクトル成分ψ(n,m) からエンストロフィー}
201     \textcolor{comment}{!   スペクトルはΣ[m=-nm]^nm(1/2)n^2(n+1)^2|ψ(n,m)|^2 と計算される.}
202     \textcolor{comment}{!}
203     \textcolor{comment}{! * 全てのエネルギースペクトル成分の和に 4π/R^2 をかけたものが}
204     \textcolor{comment}{!   球面上での全エンストフィーに等しい.}
205     \textcolor{comment}{!}
206     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: wa\_strfunc(:,:)
207     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
208 
209     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm,size(wa\_Strfunc,2))} &
210       :: na\_enstrophyfromstreamfunc\_wa      \textcolor{comment}{! エンストロフィースペクトル}
211     \textcolor{comment}{!(out) エンストロフィースペクトル(水平全波数 n 空間)}
212 
213     \textcolor{keywordtype}{integer} n,m                                \textcolor{comment}{! DO 変数}
214     \textcolor{keywordtype}{integer} :: i\_nm
215     i\_nm = int(nm)
216 
217     \textcolor{keywordflow}{do} n=0,i\_nm
218       na\_enstrophyfromstreamfunc\_wa(n,:)  &
219         = 0.5 * n**2 * (n+1)**2 * wa\_strfunc(l\_nm(n,0),:)**2
220       \textcolor{keywordflow}{do} m=1,n
221         na\_enstrophyfromstreamfunc\_wa(n,:) &
222           =  na\_enstrophyfromstreamfunc\_wa(n,:) &
223           + 2* 0.5 * n**2 * (n+1)**2 &
224           * (wa\_strfunc(l\_nm(n,m),:)**2+wa\_strfunc(l\_nm(n,-m),:)**2)
225 \textcolor{keywordflow}{      enddo}
226 \textcolor{keywordflow}{    enddo}
227 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__spectrum_a94210db6db7ec44a727ce892d7487bbd}\label{namespacewa__module__spectrum_a94210db6db7ec44a727ce892d7487bbd}} 
\index{wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}!nma\+\_\+energyfromstreamfunc\+\_\+wa@{nma\+\_\+energyfromstreamfunc\+\_\+wa}}
\index{nma\+\_\+energyfromstreamfunc\+\_\+wa@{nma\+\_\+energyfromstreamfunc\+\_\+wa}!wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{nma\+\_\+energyfromstreamfunc\+\_\+wa()}{nma\_energyfromstreamfunc\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:nm,-\/nm\+:nm,size(wa\+\_\+strfunc,2)), public wa\+\_\+module\+\_\+spectrum\+::nma\+\_\+energyfromstreamfunc\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 72 of file wa\+\_\+module\+\_\+spectrum.\+f90.



References w\+\_\+module\+\_\+base\+::nm, and wa\+\_\+spectrum\+\_\+vmiss.


\begin{DoxyCode}
72     \textcolor{comment}{!}
73     \textcolor{comment}{! 流線関数のスペクトルデータからエネルギーの球面調和函数成分}
74     \textcolor{comment}{! (スペクトル)を計算する(多層用).}
75     \textcolor{comment}{!}
76     \textcolor{comment}{!  * 全波数 n, 帯状波数 m の流線関数のスペクトル成分ψ(n,m) から}
77     \textcolor{comment}{!    エネルギースペクトルは (1/2)n(n+1)|ψ(n,m)|^2 と計算される.}
78     \textcolor{comment}{!}
79     \textcolor{comment}{!  * スペクトルの (n,m) 成分は全波数 n, 東西波数 m の実部成分,}
80     \textcolor{comment}{!    (n,-m) 成分は全波数 n, 東西波数 m の虚部成分が格納されている.}
81     \textcolor{comment}{!}
82     \textcolor{comment}{!  * 全てのエネルギースペクトル成分の和に4πをかけたものが球面上での}
83     \textcolor{comment}{!    全エネルギーに等しい.}
84     \textcolor{comment}{!}
85     \textcolor{comment}{!  * データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される.}
86     \textcolor{comment}{!    欠損値の値はモジュール変数 w\_spectrum\_VMiss によって設定できる}
87     \textcolor{comment}{!    (初期値は -999.0)}
88     \textcolor{comment}{!}
89     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: wa\_strfunc(:,:)
90     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
91 
92     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(wa\_Strfunc,2))} &
93       :: nma\_energyfromstreamfunc\_wa
94     \textcolor{comment}{!(out) エネルギースペクトル(水平全波数 n, 帯状波数 m 空間)}
95 
96     \textcolor{keywordtype}{integer} n,m                             \textcolor{comment}{! DO 変数}
97     \textcolor{keywordtype}{integer} :: i\_nm
98 
99     i\_nm = int(nm)
100     nma\_energyfromstreamfunc\_wa = wa\_spectrum\_vmiss
101 
102     \textcolor{keywordflow}{do} n=0,i\_nm
103       nma\_energyfromstreamfunc\_wa(n,0,:) &
104         = 0.5 * n*(n+1) * wa\_strfunc(l\_nm(n,0),:)**2
105       \textcolor{keywordflow}{do} m=1,n
106         nma\_energyfromstreamfunc\_wa(n,m,:) &
107           = 0.5 * n*(n+1) * (  wa\_strfunc(l\_nm(n,m),:)**2 &
108           + wa\_strfunc(l\_nm(n,-m),:)**2 )
109         nma\_energyfromstreamfunc\_wa(n,-m,:) &
110           = nma\_energyfromstreamfunc\_wa(n,m,:)
111 \textcolor{keywordflow}{      enddo}
112 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__spectrum_ab97b688180493fb822b3bcf43782dc1a}\label{namespacewa__module__spectrum_ab97b688180493fb822b3bcf43782dc1a}} 
\index{wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}!nma\+\_\+enstrophyfromstreamfunc\+\_\+wa@{nma\+\_\+enstrophyfromstreamfunc\+\_\+wa}}
\index{nma\+\_\+enstrophyfromstreamfunc\+\_\+wa@{nma\+\_\+enstrophyfromstreamfunc\+\_\+wa}!wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{nma\+\_\+enstrophyfromstreamfunc\+\_\+wa()}{nma\_enstrophyfromstreamfunc\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:nm,-\/nm\+:nm,size(wa\+\_\+strfunc,2)), public wa\+\_\+module\+\_\+spectrum\+::nma\+\_\+enstrophyfromstreamfunc\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 153 of file wa\+\_\+module\+\_\+spectrum.\+f90.



References w\+\_\+module\+\_\+base\+::nm, and wa\+\_\+spectrum\+\_\+vmiss.


\begin{DoxyCode}
153     \textcolor{comment}{!}
154     \textcolor{comment}{! 流線関数のスペクトルデータからエンストロフィーの球面調和函数成分}
155     \textcolor{comment}{! (スペクトル)を計算する(多層用).}
156     \textcolor{comment}{!}
157     \textcolor{comment}{! * 全波数 n, 帯状波数 m の流線関数のスペクトル成分ψ(n,m) から}
158     \textcolor{comment}{!    エンストロフィースペクトルは (1/2)n^2(n+1)^2|ψ(n,m)|^2 と計算される.}
159     \textcolor{comment}{!}
160     \textcolor{comment}{! * 全てのエンストロフィースペクトル成分の和に4π/R^2をかけたものが}
161     \textcolor{comment}{!   球面上での全エンストロフィーに等しい. ここで R は球面の半径である.}
162     \textcolor{comment}{!}
163     \textcolor{comment}{! * データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される.}
164     \textcolor{comment}{!   欠損値の値はモジュール変数 w\_spectrum\_VMiss によって設定できる}
165     \textcolor{comment}{!   (初期値は -999.0)}
166     \textcolor{comment}{!}
167     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: wa\_strfunc(:,:)
168     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
169 
170     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(wa\_Strfunc,2))} &
171       :: nma\_enstrophyfromstreamfunc\_wa
172     \textcolor{comment}{! エンストロフィースペクトル (水平全波数 n, 帯状波数 m 空間)}
173 
174     \textcolor{keywordtype}{integer} n,m                             \textcolor{comment}{! DO 変数}
175     \textcolor{keywordtype}{integer} :: i\_nm
176 
177     i\_nm = int(nm)
178 
179     nma\_enstrophyfromstreamfunc\_wa = wa\_spectrum\_vmiss
180 
181     \textcolor{keywordflow}{do} n=0,i\_nm
182       nma\_enstrophyfromstreamfunc\_wa(n,0,:) &
183         = 0.5 * n**2 * (n+1)**2 &
184         * wa\_strfunc(l\_nm(n,0),:)**2
185       \textcolor{keywordflow}{do} m=1,n
186         nma\_enstrophyfromstreamfunc\_wa(n,m,:) &
187           = 0.5 * n**2 * (n+1)**2 &
188           * (wa\_strfunc(l\_nm(n,m),:)**2+wa\_strfunc(l\_nm(n,-m),:)**2)
189         nma\_enstrophyfromstreamfunc\_wa(n,-m,:) &
190           = nma\_enstrophyfromstreamfunc\_wa(n,m,:)
191 \textcolor{keywordflow}{      enddo}
192 \textcolor{keywordflow}{    enddo}
\end{DoxyCode}


\subsection{Variable Documentation}
\mbox{\Hypertarget{namespacewa__module__spectrum_ab47445d9015c3d3a5b77dca3798bb318}\label{namespacewa__module__spectrum_ab47445d9015c3d3a5b77dca3798bb318}} 
\index{wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}!wa\+\_\+spectrum\+\_\+vmiss@{wa\+\_\+spectrum\+\_\+vmiss}}
\index{wa\+\_\+spectrum\+\_\+vmiss@{wa\+\_\+spectrum\+\_\+vmiss}!wa\+\_\+module\+\_\+spectrum@{wa\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{wa\+\_\+spectrum\+\_\+vmiss}{wa\_spectrum\_vmiss}}
{\footnotesize\ttfamily real(dp), public wa\+\_\+module\+\_\+spectrum\+::wa\+\_\+spectrum\+\_\+vmiss = -\/999.\+000}



Definition at line 66 of file wa\+\_\+module\+\_\+spectrum.\+f90.


\begin{DoxyCode}
66   \textcolor{keywordtype}{real(DP)} :: wa\_spectrum\_vmiss = -999.000 \textcolor{comment}{! 欠損値初期値}
\end{DoxyCode}
