\hypertarget{namespacew__mpi__module__spectrum}{}\section{w\+\_\+mpi\+\_\+module\+\_\+spectrum Module Reference}
\label{namespacew__mpi__module__spectrum}\index{w\+\_\+mpi\+\_\+module\+\_\+spectrum@{w\+\_\+mpi\+\_\+module\+\_\+spectrum}}


\hyperlink{namespacew__mpi__module}{w\+\_\+mpi\+\_\+module} の下部モジュール\+: スペクトル解析  


\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real(dp) function, dimension(0\+:nm,-\/nm\+:nm), public \hyperlink{namespacew__mpi__module__spectrum_ad675605d45cbbc355f46816d595ba8f3}{nm\+\_\+energyfromstreamfunc\+\_\+w} (w\+\_\+\+Strfunc)
\begin{DoxyCompactList}\small\item\em 流線関数のスペクトルデータからエネルギーの球面調和函数成分 (スペクトル)を計算する(1 層用). \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:nm), public \hyperlink{namespacew__mpi__module__spectrum_a3cce9f9de7512db2298728171c71ab25}{n\+\_\+energyfromstreamfunc\+\_\+w} (w\+\_\+\+Strfunc)
\begin{DoxyCompactList}\small\item\em 流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を 計算する(1 層用). \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:nm,-\/nm\+:nm), public \hyperlink{namespacew__mpi__module__spectrum_ab935c9bf0451a14ebde6d139c524be2f}{nm\+\_\+enstrophyfromstreamfunc\+\_\+w} (w\+\_\+\+Strfunc)
\begin{DoxyCompactList}\small\item\em 流線関数のスペクトルデータからエンストロフィーの球面調和函数成分 (スペクトル)を計算する(1 層用). \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:nm), public \hyperlink{namespacew__mpi__module__spectrum_af3309da6f286e23513f9f974c549e057}{n\+\_\+enstrophyfromstreamfunc\+\_\+w} (w\+\_\+\+Strfunc)
\begin{DoxyCompactList}\small\item\em 流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を 計算する(1 層用) \end{DoxyCompactList}\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
real(dp), public \hyperlink{namespacew__mpi__module__spectrum_a67c21a8ec84b7f2c0f0312a136c6fe45}{w\+\_\+spectrum\+\_\+vmiss} = -\/999.\+000
\begin{DoxyCompactList}\small\item\em エネルギースペクトル(水平全波数 n, 帯状波数 m 空間) \end{DoxyCompactList}\end{DoxyCompactItemize}


\subsection{Detailed Description}
\hyperlink{namespacew__mpi__module}{w\+\_\+mpi\+\_\+module} の下部モジュール\+: スペクトル解析 

\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}
\begin{DoxyAuthor}{Author}
Shin-\/ichi Takehiro, Youhei S\+A\+S\+A\+KI 
\end{DoxyAuthor}
\begin{DoxyWarning}{Warning}
本モジュールを直接呼ぶ事は想定されていないことに注意されたい． ユーザは \hyperlink{namespacew__mpi__module}{w\+\_\+mpi\+\_\+module} を呼ぶこと． 
\end{DoxyWarning}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacew__mpi__module__spectrum_a3cce9f9de7512db2298728171c71ab25}\label{namespacew__mpi__module__spectrum_a3cce9f9de7512db2298728171c71ab25}} 
\index{w\+\_\+mpi\+\_\+module\+\_\+spectrum@{w\+\_\+mpi\+\_\+module\+\_\+spectrum}!n\+\_\+energyfromstreamfunc\+\_\+w@{n\+\_\+energyfromstreamfunc\+\_\+w}}
\index{n\+\_\+energyfromstreamfunc\+\_\+w@{n\+\_\+energyfromstreamfunc\+\_\+w}!w\+\_\+mpi\+\_\+module\+\_\+spectrum@{w\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{n\+\_\+energyfromstreamfunc\+\_\+w()}{n\_energyfromstreamfunc\_w()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:nm), public w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::n\+\_\+energyfromstreamfunc\+\_\+w (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc), intent(in)}]{w\+\_\+\+Strfunc }\end{DoxyParamCaption})}



流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を 計算する(1 層用). 


\begin{DoxyItemize}
\item 全波数 n の流線関数のスペクトル成分 $ψ(n,m)$ から エネルギースペクトルは \[ \sum_{m=-nm}^{nm}(1/2)n(n+1)|ψ(n,m)|^2\] と計算される.
\item 全てのエネルギースペクトル成分の和に $4π$ をかけたものが 球面上での全エネルギーに等しい.
\end{DoxyItemize}


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em w\+\_\+strfunc} & 流線関数(スペクトルデータ)\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
エネルギースペクトル (水平全波数 n 空間) 
\end{DoxyReturn}


Definition at line 113 of file w\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



References w\+\_\+mpi\+\_\+module\+\_\+base\+::icom, w\+\_\+mpi\+\_\+module\+\_\+base\+::nc, and w\+\_\+mpi\+\_\+module\+\_\+base\+::nm.


\begin{DoxyCode}
113 
114     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}      :: w\_strfunc(nc)
116     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm)} :: n\_energyfromstreamfunc\_w
117 
118     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm)} :: n\_work
119 
120     \textcolor{keywordtype}{integer}  :: l, n, m, nm\_ary(2)
121     \textcolor{keywordtype}{real(DP)} :: factor
122     \textcolor{keywordtype}{integer} :: ierr
123 
124     n\_work = 0.0d0
125     \textcolor{keywordflow}{do} l=1,int(nc)
126       nm\_ary = nm\_l(l)
127       n = nm\_ary(1)
128       m = abs(nm\_ary(2))
129       \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
130         \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
131           factor = 1.0d0
132         \textcolor{keywordflow}{else}
133           factor = 2.0d0
134 \textcolor{keywordflow}{        endif}
135         n\_work(n) = n\_work(n) &
136           + factor * 0.5d0 * n*(n+1) * w\_strfunc(l)**2
137 \textcolor{keywordflow}{      endif}
138 \textcolor{keywordflow}{    enddo}
139 
140     \textcolor{keyword}{CALL }mpi\_allreduce(n\_work,               &
141       & n\_energyfromstreamfunc\_w, int(nm+1), &
142       & mpi\_real8, mpi\_sum, int(icom), ierr)
143 
\end{DoxyCode}
\mbox{\Hypertarget{namespacew__mpi__module__spectrum_af3309da6f286e23513f9f974c549e057}\label{namespacew__mpi__module__spectrum_af3309da6f286e23513f9f974c549e057}} 
\index{w\+\_\+mpi\+\_\+module\+\_\+spectrum@{w\+\_\+mpi\+\_\+module\+\_\+spectrum}!n\+\_\+enstrophyfromstreamfunc\+\_\+w@{n\+\_\+enstrophyfromstreamfunc\+\_\+w}}
\index{n\+\_\+enstrophyfromstreamfunc\+\_\+w@{n\+\_\+enstrophyfromstreamfunc\+\_\+w}!w\+\_\+mpi\+\_\+module\+\_\+spectrum@{w\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{n\+\_\+enstrophyfromstreamfunc\+\_\+w()}{n\_enstrophyfromstreamfunc\_w()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:nm), public w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::n\+\_\+enstrophyfromstreamfunc\+\_\+w (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc), intent(in)}]{w\+\_\+\+Strfunc }\end{DoxyParamCaption})}



流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を 計算する(1 層用) 


\begin{DoxyItemize}
\item 全波数 n の流線関数のスペクトル成分ψ(n,m) からエンストロフィー スペクトルは \[\sum_{m=-nm}^{nm} (1/2)n^2(n+1)^2|ψ(n,m)|^2\] と計算される.
\item 全てのエネルギースペクトル成分の和に $4π/R^2$ をかけたものが 球面上での全エンストフィーに等しい. ここで $R$ は球面の半径である.
\end{DoxyItemize}


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em w\+\_\+strfunc} & 流線関数(スペクトルデータ)\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
エンストロフィースペクトル(水平全波数 n 空間) 
\end{DoxyReturn}


Definition at line 216 of file w\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



References w\+\_\+mpi\+\_\+module\+\_\+base\+::icom, w\+\_\+mpi\+\_\+module\+\_\+base\+::nc, and w\+\_\+mpi\+\_\+module\+\_\+base\+::nm.


\begin{DoxyCode}
216 
217     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}      :: w\_strfunc(nc)
219     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm)} :: n\_enstrophyfromstreamfunc\_w
220 
221     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm)} :: n\_work
222 
223     \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
224     \textcolor{keywordtype}{real(DP)} :: factor
225 
226     \textcolor{keywordtype}{integer} :: ierr
227 
228     n\_work = 0.0d0
229     \textcolor{keywordflow}{do} l=1,int(nc)
230       nm\_ary = nm\_l(l)
231       n = nm\_ary(1)
232       m = abs(nm\_ary(2))
233       \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
234         \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
235           factor = 1.0d0
236         \textcolor{keywordflow}{else}
237           factor = 2.0d0
238 \textcolor{keywordflow}{        endif}
239         n\_work(n) = n\_work(n) &
240           + factor * 0.5d0 * n**2 * (n+1)**2 * w\_strfunc(l)**2
241 \textcolor{keywordflow}{      endif}
242 \textcolor{keywordflow}{    enddo}
243 
244     \textcolor{keyword}{CALL }mpi\_allreduce(n\_work,                 &
245       & n\_enstrophyfromstreamfunc\_w,int(nm+1), &
246       & mpi\_real8, mpi\_sum, int(icom), ierr)
247 
\end{DoxyCode}
\mbox{\Hypertarget{namespacew__mpi__module__spectrum_ad675605d45cbbc355f46816d595ba8f3}\label{namespacew__mpi__module__spectrum_ad675605d45cbbc355f46816d595ba8f3}} 
\index{w\+\_\+mpi\+\_\+module\+\_\+spectrum@{w\+\_\+mpi\+\_\+module\+\_\+spectrum}!nm\+\_\+energyfromstreamfunc\+\_\+w@{nm\+\_\+energyfromstreamfunc\+\_\+w}}
\index{nm\+\_\+energyfromstreamfunc\+\_\+w@{nm\+\_\+energyfromstreamfunc\+\_\+w}!w\+\_\+mpi\+\_\+module\+\_\+spectrum@{w\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{nm\+\_\+energyfromstreamfunc\+\_\+w()}{nm\_energyfromstreamfunc\_w()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:nm,-\/nm\+:nm), public w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nm\+\_\+energyfromstreamfunc\+\_\+w (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc), intent(in)}]{w\+\_\+\+Strfunc }\end{DoxyParamCaption})}



流線関数のスペクトルデータからエネルギーの球面調和函数成分 (スペクトル)を計算する(1 層用). 


\begin{DoxyItemize}
\item 全波数 n, 帯状波数 m の流線関数のスペクトル成分 $ψ(n,m)$ から, エネルギースペクトルは $(1/2)n(n+1)|ψ(n,m)|^2$ と計算される.
\item 全てのエネルギースペクトル成分の和に $4π$をかけたものが 球面上での全エネルギーに等しい.
\item スペクトルの (n,m) 成分は全波数 n, 東西波数 m の実部成分, (n,-\/m) 成分は全波数 n, 東西波数 m の虚部成分が格納されている.
\item データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される. 欠損値の値はモジュール変数 \hyperlink{namespacew__mpi__module__spectrum_a67c21a8ec84b7f2c0f0312a136c6fe45}{w\+\_\+spectrum\+\_\+\+V\+Miss} によって設定できる (初期値は -\/999.\+0)
\end{DoxyItemize}


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em w\+\_\+strfunc} & 流線関数(スペクトルデータ)\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
エネルギースペクトル(水平全波数 n, 帯状波数 m 空間) 
\end{DoxyReturn}


Definition at line 60 of file w\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



References w\+\_\+mpi\+\_\+module\+\_\+base\+::icom, w\+\_\+mpi\+\_\+module\+\_\+base\+::nc, w\+\_\+mpi\+\_\+module\+\_\+base\+::nm, and w\+\_\+spectrum\+\_\+vmiss.


\begin{DoxyCode}
60 
61     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}             :: w\_strfunc(nc)
63     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm)} :: nm\_energyfromstreamfunc\_w
64 
65     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm)} :: nm\_work
66     \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
67     \textcolor{keywordtype}{integer} :: ierr
68 
69     nm\_work = 0.0d0
70     \textcolor{keywordflow}{do} l=1,int(nc)
71       nm\_ary = nm\_l(l)
72       n = nm\_ary(1)
73       m = abs(nm\_ary(2))
74       \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
75         \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
76           nm\_work(n,0) = nm\_work(n,0) &
77             & + 0.5d0 * n*(n+1) * w\_strfunc(l)**2
78         \textcolor{keywordflow}{else}
79           nm\_work(n,m) = nm\_work(n,m) &
80             & + 0.5d0 * n*(n+1) * w\_strfunc(l)**2
81           nm\_work(n,-m) = nm\_work(n,-m) &
82             & + 0.5d0 * n*(n+1) * w\_strfunc(l)**2
83 \textcolor{keywordflow}{        endif}
84 \textcolor{keywordflow}{      endif}
85 \textcolor{keywordflow}{    enddo}
86 
87     \textcolor{keyword}{CALL }mpi\_allreduce(nm\_work,                          &
88       & nm\_energyfromstreamfunc\_w, int((nm+1)*(2*nm+1)), &
89       & mpi\_real8,mpi\_sum, int(icom), ierr)
90 
91     \textcolor{keywordflow}{do} m=1,int(nm)
92       \textcolor{keywordflow}{do} n=0,m-1
93         nm\_energyfromstreamfunc\_w(n,m)  = w\_spectrum\_vmiss
94         nm\_energyfromstreamfunc\_w(n,-m) = w\_spectrum\_vmiss
95 \textcolor{keywordflow}{      end do}
96 \textcolor{keywordflow}{    end do}
97 
\end{DoxyCode}
\mbox{\Hypertarget{namespacew__mpi__module__spectrum_ab935c9bf0451a14ebde6d139c524be2f}\label{namespacew__mpi__module__spectrum_ab935c9bf0451a14ebde6d139c524be2f}} 
\index{w\+\_\+mpi\+\_\+module\+\_\+spectrum@{w\+\_\+mpi\+\_\+module\+\_\+spectrum}!nm\+\_\+enstrophyfromstreamfunc\+\_\+w@{nm\+\_\+enstrophyfromstreamfunc\+\_\+w}}
\index{nm\+\_\+enstrophyfromstreamfunc\+\_\+w@{nm\+\_\+enstrophyfromstreamfunc\+\_\+w}!w\+\_\+mpi\+\_\+module\+\_\+spectrum@{w\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{nm\+\_\+enstrophyfromstreamfunc\+\_\+w()}{nm\_enstrophyfromstreamfunc\_w()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:nm,-\/nm\+:nm), public w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nm\+\_\+enstrophyfromstreamfunc\+\_\+w (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc), intent(in)}]{w\+\_\+\+Strfunc }\end{DoxyParamCaption})}



流線関数のスペクトルデータからエンストロフィーの球面調和函数成分 (スペクトル)を計算する(1 層用). 


\begin{DoxyItemize}
\item 全波数 n, 帯状波数 m の流線関数のスペクトル成分 $ψ(n,m)$ から エンストロフィースペクトルは $(1/2)n^2(n+1)^2|ψ(n,m)|^2$と計算される.
\item 全てのエンストロフィースペクトル成分の和に $4π/R^2$ をかけた ものが球面上での全エンストロフィーに等しい. ここで $R$ は球面の半径である.
\item データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される. 欠損値の値はモジュール変数 w\+\_\+spectrum\+\_\+\+V\+Miss によって設定できる (初期値は -\/999.\+0)
\end{DoxyItemize}


\begin{DoxyParams}[1]{Parameters}
\mbox{\tt in}  & {\em w\+\_\+strfunc} & 流線関数(スペクトルデータ)\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
エンストロフィースペクトル (水平全波数 n, 帯状波数 m 空間) 
\end{DoxyReturn}


Definition at line 163 of file w\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



References w\+\_\+mpi\+\_\+module\+\_\+base\+::icom, w\+\_\+mpi\+\_\+module\+\_\+base\+::nc, w\+\_\+mpi\+\_\+module\+\_\+base\+::nm, and w\+\_\+spectrum\+\_\+vmiss.


\begin{DoxyCode}
163 
164     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: w\_strfunc(nc)
166     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm)} :: nm\_enstrophyfromstreamfunc\_w
167 
168     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm)} :: nm\_work
169     \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
170     \textcolor{keywordtype}{integer} :: ierr
171 
172     nm\_work = 0.0d0
173     \textcolor{keywordflow}{do} l=1,int(nc)
174       nm\_ary = nm\_l(l)
175       n = nm\_ary(1)
176       m = abs(nm\_ary(2))
177       \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
178         \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
179           nm\_work(n,0) = nm\_work(n,0) &
180             +  0.5d0 * n**2 * (n+1)**2 * w\_strfunc(l)**2
181         \textcolor{keywordflow}{else}
182           nm\_work(n,m) = nm\_work(n,m) &
183             +  0.5d0 * n**2 * (n+1)**2 * w\_strfunc(l)**2
184           nm\_work(n,-m) = nm\_work(n,-m) &
185             +  0.5d0 * n**2 * (n+1)**2 * w\_strfunc(l)**2
186 \textcolor{keywordflow}{        endif}
187 \textcolor{keywordflow}{      endif}
188 \textcolor{keywordflow}{    enddo}
189 
190     \textcolor{keyword}{CALL }mpi\_allreduce(nm\_work,                            &
191       & nm\_enstrophyfromstreamfunc\_w,int((nm+1)*(2*nm+1)), &
192       mpi\_real8, mpi\_sum, int(icom), ierr)
193 
194     \textcolor{keywordflow}{do} m=1,int(nm)
195       \textcolor{keywordflow}{do} n=0,m-1
196         nm\_enstrophyfromstreamfunc\_w(n,m)  = w\_spectrum\_vmiss
197         nm\_enstrophyfromstreamfunc\_w(n,-m) = w\_spectrum\_vmiss
198 \textcolor{keywordflow}{      enddo}
199 \textcolor{keywordflow}{    enddo}
200 
\end{DoxyCode}


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



エネルギースペクトル(水平全波数 n, 帯状波数 m 空間) 

エネルギースペクトル(水平全波数 n 空間) エンストロフィースペクトル(水平全波数 n, 帯状波数 m 空間) エンストロフィースペクトル(水平全波数 n 空間) 欠損値. 初期値は -\/999.\+000 

Definition at line 36 of file w\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.


\begin{DoxyCode}
36   \textcolor{keywordtype}{real(DP)} :: w\_spectrum\_vmiss = -999.000
\end{DoxyCode}
