\hypertarget{namespacewb__mpi__module__spectrum}{}\section{wb\+\_\+mpi\+\_\+module\+\_\+spectrum Module Reference}
\label{namespacewb__mpi__module__spectrum}\index{wb\+\_\+mpi\+\_\+module\+\_\+spectrum@{wb\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real(8) function, dimension(0\+:nm,-\/nm\+:nm, size(wb\+\_\+strfunc, 2)), public \hyperlink{namespacewb__mpi__module__spectrum_a0cca095101407ebd7d7ccfac8f8e1787}{nmb\+\_\+energyfromstreamfunc\+\_\+wb} (wb\+\_\+\+Strfunc)
\item 
real(8) function, dimension(0\+:nm, size(wb\+\_\+strfunc, 2)), public \hyperlink{namespacewb__mpi__module__spectrum_aaaa8cf1f3b9a850721287687246d712b}{nb\+\_\+energyfromstreamfunc\+\_\+wb} (wb\+\_\+\+Strfunc)
\item 
real(8) function, dimension(0\+:nm,-\/nm\+:nm, size(wb\+\_\+strfunc, 2)), public \hyperlink{namespacewb__mpi__module__spectrum_af551b5a5828be7d553e8c90eb2bac798}{nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb} (wb\+\_\+\+Strfunc)
\item 
real(8) function, dimension(0\+:nm, size(wb\+\_\+strfunc, 2)), public \hyperlink{namespacewb__mpi__module__spectrum_a313ac83c656bfb14e17addf97c987446}{nb\+\_\+enstrophyfromstreamfunc\+\_\+wb} (wb\+\_\+\+Strfunc)
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
real(8), public \hyperlink{namespacewb__mpi__module__spectrum_a00652668131c64f25a605bc91445d2b8}{wb\+\_\+spectrum\+\_\+vmiss} = -\/999.\+000
\end{DoxyCompactItemize}


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



Definition at line 126 of file wb\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



References wb\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h, wb\+\_\+mpi\+\_\+module\+\_\+base\+::nc, and w\+\_\+mpi\+\_\+module\+\_\+base\+::nm.


\begin{DoxyCode}
126       \textcolor{comment}{!}
127       \textcolor{comment}{! 流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を}
128       \textcolor{comment}{! 計算する(1 層用).}
129       \textcolor{comment}{!}
130       \textcolor{comment}{!  * 全波数 n の流線関数のスペクトル成分ψ(n,m) から}
131       \textcolor{comment}{!    エネルギースペクトルはΣ[m=-nm]^nm(1/2)n(n+1)|ψ(n,m)|^2}
132       \textcolor{comment}{!    と計算される.}
133       \textcolor{comment}{!}
134       \textcolor{comment}{!  * 全てのエネルギースペクトル成分の和に 4πをかけたものが}
135       \textcolor{comment}{!    球面上での全エネルギーに等しい.}
136       \textcolor{comment}{!}
137 
138       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}      :: wb\_strfunc(:,:)
139       \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
140 
141       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(wb\_Strfunc,2))} :: nb\_energyfromstreamfunc\_wb
142       \textcolor{comment}{!(out) エネルギースペクトル (水平全波数 n 空間)}
143 
144       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(wb\_Strfunc,2))} :: nb\_work \textcolor{comment}{! 作業領域}
145 
146       \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
147       \textcolor{keywordtype}{real(8)} :: factor
148 
149       \textcolor{keywordtype}{integer} :: ierr
150 
151       nb\_work = 0.0d0
152       \textcolor{keywordflow}{do} l=1,nc
153          nm\_ary = nm\_l(l)
154          n = nm\_ary(1) ; m = abs(nm\_ary(2))
155          \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
156             \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
157                factor = 1.0d0
158             \textcolor{keywordflow}{else}
159                factor = 2.0d0
160 \textcolor{keywordflow}{            endif}
161             nb\_work(n,:) = nb\_work(n,:) &
162                  + factor * 0.5 * n*(n+1) * wb\_strfunc(l,:)**2
163 \textcolor{keywordflow}{         endif}
164 \textcolor{keywordflow}{      enddo}
165 
166       \textcolor{keyword}{CALL }mpi\_allreduce(nb\_work,nb\_energyfromstreamfunc\_wb,&
167                          (int(nm)+1)*\textcolor{keyword}{size}(wb\_strfunc,2), &
168                          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)
169 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewb__mpi__module__spectrum_a313ac83c656bfb14e17addf97c987446}\label{namespacewb__mpi__module__spectrum_a313ac83c656bfb14e17addf97c987446}} 
\index{wb\+\_\+mpi\+\_\+module\+\_\+spectrum@{wb\+\_\+mpi\+\_\+module\+\_\+spectrum}!nb\+\_\+enstrophyfromstreamfunc\+\_\+wb@{nb\+\_\+enstrophyfromstreamfunc\+\_\+wb}}
\index{nb\+\_\+enstrophyfromstreamfunc\+\_\+wb@{nb\+\_\+enstrophyfromstreamfunc\+\_\+wb}!wb\+\_\+mpi\+\_\+module\+\_\+spectrum@{wb\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{nb\+\_\+enstrophyfromstreamfunc\+\_\+wb()}{nb\_enstrophyfromstreamfunc\_wb()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:nm,size(wb\+\_\+strfunc,2)), public wb\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nb\+\_\+enstrophyfromstreamfunc\+\_\+wb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{wb\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 232 of file wb\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



References wb\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h, wb\+\_\+mpi\+\_\+module\+\_\+base\+::nc, and w\+\_\+mpi\+\_\+module\+\_\+base\+::nm.


\begin{DoxyCode}
232       \textcolor{comment}{!}
233       \textcolor{comment}{! 流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を}
234       \textcolor{comment}{! 計算する(1 層用)}
235       \textcolor{comment}{!}
236       \textcolor{comment}{! * 全波数 n の流線関数のスペクトル成分ψ(n,m) からエンストロフィー}
237       \textcolor{comment}{!   スペクトルはΣ[m=-nm]^nm(1/2)n^2(n+1)^2|ψ(n,m)|^2 と計算される.}
238       \textcolor{comment}{!}
239       \textcolor{comment}{! * 全てのエネルギースペクトル成分の和に 4π/R^2 をかけたものが}
240       \textcolor{comment}{!   球面上での全エンストフィーに等しい.}
241       \textcolor{comment}{!}
242       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}      :: wb\_strfunc(:,:)
243       \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
244 
245       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(wb\_Strfunc,2))} :: nb\_enstrophyfromstreamfunc\_wb
246       \textcolor{comment}{!(out) エンストロフィースペクトル(水平全波数 n 空間)}
247 
248       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(wb\_Strfunc,2))}     :: nb\_work \textcolor{comment}{! 作業領域}
249 
250       \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
251       \textcolor{keywordtype}{real(8)} :: factor
252 
253       \textcolor{keywordtype}{integer} :: ierr
254 
255       nb\_work = 0.0d0
256       \textcolor{keywordflow}{do} l=1,nc
257          nm\_ary = nm\_l(l)
258          n = nm\_ary(1) ; m = abs(nm\_ary(2))
259          \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
260             \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
261                factor = 1.0d0
262             \textcolor{keywordflow}{else}
263                factor = 2.0d0
264 \textcolor{keywordflow}{            endif}
265             nb\_work(n,:) = nb\_work(n,:) &
266                  + factor * 0.5 * n**2 * (n+1)**2 * wb\_strfunc(l,:)**2
267 \textcolor{keywordflow}{         endif}
268 \textcolor{keywordflow}{      enddo}
269 
270       \textcolor{keyword}{CALL }mpi\_allreduce(nb\_work,nb\_enstrophyfromstreamfunc\_wb,&
271                          (int(nm)+1)*\textcolor{keyword}{size}(wb\_strfunc,2), &
272                          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)
273 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewb__mpi__module__spectrum_a0cca095101407ebd7d7ccfac8f8e1787}\label{namespacewb__mpi__module__spectrum_a0cca095101407ebd7d7ccfac8f8e1787}} 
\index{wb\+\_\+mpi\+\_\+module\+\_\+spectrum@{wb\+\_\+mpi\+\_\+module\+\_\+spectrum}!nmb\+\_\+energyfromstreamfunc\+\_\+wb@{nmb\+\_\+energyfromstreamfunc\+\_\+wb}}
\index{nmb\+\_\+energyfromstreamfunc\+\_\+wb@{nmb\+\_\+energyfromstreamfunc\+\_\+wb}!wb\+\_\+mpi\+\_\+module\+\_\+spectrum@{wb\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{nmb\+\_\+energyfromstreamfunc\+\_\+wb()}{nmb\_energyfromstreamfunc\_wb()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:nm,-\/nm\+:nm,size(wb\+\_\+strfunc,2)), public wb\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nmb\+\_\+energyfromstreamfunc\+\_\+wb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{wb\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 65 of file wb\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



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


\begin{DoxyCode}
65       \textcolor{comment}{!}
66       \textcolor{comment}{! 流線関数のスペクトルデータからエネルギーの球面調和函数成分}
67       \textcolor{comment}{! (スペクトル)を計算する(1 層用).}
68       \textcolor{comment}{!}
69       \textcolor{comment}{!  * 全波数 n, 帯状波数 m の流線関数のスペクトル成分ψ(n,m) から}
70       \textcolor{comment}{!    エネルギースペクトルは (1/2)n(n+1)|ψ(n,m)|^2 と計算される.}
71       \textcolor{comment}{!}
72       \textcolor{comment}{!  * 全てのエネルギースペクトル成分の和に4πをかけたものが球面上での}
73       \textcolor{comment}{!    全エネルギーに等しい.}
74       \textcolor{comment}{!}
75       \textcolor{comment}{!  * スペクトルの (n,m) 成分は全波数 n, 東西波数 m の実部成分,}
76       \textcolor{comment}{!    (n,-m) 成分は全波数 n, 東西波数 m の虚部成分が格納されている.}
77       \textcolor{comment}{!}
78       \textcolor{comment}{!  * データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される.}
79       \textcolor{comment}{!    欠損値の値はモジュール変数 wb\_spectrum\_VMiss によって設定できる}
80       \textcolor{comment}{!    (初期値は -999.0)}
81       \textcolor{comment}{!}
82       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: wb\_strfunc(:,:)
83       \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
84 
85       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(wb\_Strfunc,2))} &
86            :: nmb\_energyfromstreamfunc\_wb
87       \textcolor{comment}{!(out) エネルギースペクトル(水平全波数 n, 帯状波数 m 空間)}
88 
89       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(wb\_Strfunc,2))} :: nmb\_work \textcolor{comment}{! 作業領域}
90 
91       \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
92 
93       \textcolor{keywordtype}{integer} :: ierr
94 
95       nmb\_work = 0.0d0
96       \textcolor{keywordflow}{do} l=1,nc
97          nm\_ary = nm\_l(l)
98          n = nm\_ary(1) ; m = abs(nm\_ary(2))
99          \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
100             \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
101                nmb\_work(n,0,:) = nmb\_work(n,0,:) &
102                     +  0.5 * n*(n+1) * wb\_strfunc(l,:)**2
103             \textcolor{keywordflow}{else}
104                nmb\_work(n,m,:) = nmb\_work(n,m,:) &
105                     +  0.5 * n*(n+1) * wb\_strfunc(l,:)**2
106                nmb\_work(n,-m,:) = nmb\_work(n,-m,:) &
107                     +  0.5 * n*(n+1) * wb\_strfunc(l,:)**2
108 \textcolor{keywordflow}{            endif}
109 \textcolor{keywordflow}{         endif}
110 \textcolor{keywordflow}{      enddo}
111 
112       \textcolor{keyword}{CALL }mpi\_allreduce(nmb\_work,nmb\_energyfromstreamfunc\_wb,&
113                          (int(nm)+1)*(2*int(nm)+1)*\textcolor{keyword}{size}(wb\_strfunc,2), &
114                          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)
115 
116       \textcolor{keywordflow}{do} m=1,nm
117          \textcolor{keywordflow}{do} n=0,m-1
118             nmb\_energyfromstreamfunc\_wb(n,m,:)  = wb\_spectrum\_vmiss
119             nmb\_energyfromstreamfunc\_wb(n,-m,:) = wb\_spectrum\_vmiss
120 \textcolor{keywordflow}{         enddo}
121 \textcolor{keywordflow}{      enddo}
122 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewb__mpi__module__spectrum_af551b5a5828be7d553e8c90eb2bac798}\label{namespacewb__mpi__module__spectrum_af551b5a5828be7d553e8c90eb2bac798}} 
\index{wb\+\_\+mpi\+\_\+module\+\_\+spectrum@{wb\+\_\+mpi\+\_\+module\+\_\+spectrum}!nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb@{nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb}}
\index{nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb@{nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb}!wb\+\_\+mpi\+\_\+module\+\_\+spectrum@{wb\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb()}{nmb\_enstrophyfromstreamfunc\_wb()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:nm,-\/nm\+:nm,size(wb\+\_\+strfunc,2)), public wb\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{wb\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 174 of file wb\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



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


\begin{DoxyCode}
174       \textcolor{comment}{!}
175       \textcolor{comment}{! 流線関数のスペクトルデータからエンストロフィーの球面調和函数成分}
176       \textcolor{comment}{! (スペクトル)を計算する(1 層用).}
177       \textcolor{comment}{!}
178       \textcolor{comment}{! * 全波数 n, 帯状波数 m の流線関数のスペクトル成分ψ(n,m) から}
179       \textcolor{comment}{!    エンストロフィースペクトルは (1/2)n^2(n+1)^2|ψ(n,m)|^2 と計算される.}
180       \textcolor{comment}{!}
181       \textcolor{comment}{! * 全てのエンストロフィースペクトル成分の和に4π/R^2をかけたものが}
182       \textcolor{comment}{!   球面上での全エンストロフィーに等しい. ここで R は球面の半径である.}
183       \textcolor{comment}{!}
184       \textcolor{comment}{! * データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される.}
185       \textcolor{comment}{!   欠損値の値はモジュール変数 wb\_spectrum\_VMiss によって設定できる}
186       \textcolor{comment}{!   (初期値は -999.0)}
187       \textcolor{comment}{!}
188       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: wb\_strfunc(:,:)
189       \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
190 
191       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(wb\_Strfunc,2))} &
192            :: nmb\_enstrophyfromstreamfunc\_wb
193       \textcolor{comment}{! エンストロフィースペクトル (水平全波数 n, 帯状波数 m 空間)}
194 
195       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(wb\_Strfunc,2))} :: nmb\_work \textcolor{comment}{! 作業領域}
196 
197       \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
198 
199       \textcolor{keywordtype}{integer} :: ierr
200 
201       nmb\_work = 0.0d0
202       \textcolor{keywordflow}{do} l=1,nc
203          nm\_ary = nm\_l(l)
204          n = nm\_ary(1) ; m = abs(nm\_ary(2))
205          \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
206             \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
207                nmb\_work(n,0,:) = nmb\_work(n,0,:) &
208                     +  0.5 * n**2 * (n+1)**2 * wb\_strfunc(l,:)**2
209             \textcolor{keywordflow}{else}
210                nmb\_work(n,m,:) = nmb\_work(n,m,:) &
211                     +  0.5 * n**2 * (n+1)**2 * wb\_strfunc(l,:)**2
212                nmb\_work(n,-m,:) = nmb\_work(n,-m,:) &
213                     +  0.5 * n**2 * (n+1)**2 * wb\_strfunc(l,:)**2
214 \textcolor{keywordflow}{            endif}
215 \textcolor{keywordflow}{         endif}
216 \textcolor{keywordflow}{      enddo}
217 
218       \textcolor{keyword}{CALL }mpi\_allreduce(nmb\_work,nmb\_enstrophyfromstreamfunc\_wb,&
219                          (int(nm)+1)*(2*int(nm)+1)*\textcolor{keyword}{size}(wb\_strfunc,2), &
220                          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)
221 
222       \textcolor{keywordflow}{do} m=1,int(nm)
223          \textcolor{keywordflow}{do} n=0,m-1
224             nmb\_enstrophyfromstreamfunc\_wb(n,m,:)  = wb\_spectrum\_vmiss
225             nmb\_enstrophyfromstreamfunc\_wb(n,-m,:) = wb\_spectrum\_vmiss
226 \textcolor{keywordflow}{         enddo}
227 \textcolor{keywordflow}{      enddo}
228 
\end{DoxyCode}


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



Definition at line 59 of file wb\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.


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