\hypertarget{namespaceua__mpi__module__spectrum}{}\section{ua\+\_\+mpi\+\_\+module\+\_\+spectrum Module Reference}
\label{namespaceua__mpi__module__spectrum}\index{ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real(8) function, dimension(0\+:nm,-\/nm\+:nm, size(ua\+\_\+strfunc, 2)), public \hyperlink{namespaceua__mpi__module__spectrum_a8b8ebd0b6a3645dc435447d5a93af6ac}{nma\+\_\+energyfromstreamfunc\+\_\+ua} (ua\+\_\+\+Strfunc)
\item 
real(8) function, dimension(0\+:nm, size(ua\+\_\+strfunc, 2)), public \hyperlink{namespaceua__mpi__module__spectrum_aea9aa121f578244f45f313874fbed0b1}{na\+\_\+energyfromstreamfunc\+\_\+ua} (ua\+\_\+\+Strfunc)
\item 
real(8) function, dimension(0\+:nm,-\/nm\+:nm, size(ua\+\_\+strfunc, 2)), public \hyperlink{namespaceua__mpi__module__spectrum_a1302b25d38f9ed99c6e1b6199db91056}{nma\+\_\+enstrophyfromstreamfunc\+\_\+ua} (ua\+\_\+\+Strfunc)
\item 
real(8) function, dimension(0\+:nm, size(ua\+\_\+strfunc, 2)), public \hyperlink{namespaceua__mpi__module__spectrum_a9bc2351d8fa136eec74b3c4eaeb031fa}{na\+\_\+enstrophyfromstreamfunc\+\_\+ua} (ua\+\_\+\+Strfunc)
\item 
real(8) function, dimension(0\+:nm,-\/nm\+:nm, size(wb\+\_\+strfunc, 2)), public \hyperlink{namespaceua__mpi__module__spectrum_a05f4b32eb3835cd589ea45870cc48778}{nmb\+\_\+energyfromstreamfunc\+\_\+wb} (wb\+\_\+\+Strfunc)
\item 
real(8) function, dimension(0\+:nm, size(wb\+\_\+strfunc, 2)), public \hyperlink{namespaceua__mpi__module__spectrum_afb0664b9cbc6760714086da84149bfa9}{nb\+\_\+energyfromstreamfunc\+\_\+wb} (wb\+\_\+\+Strfunc)
\item 
real(8) function, dimension(0\+:nm,-\/nm\+:nm, size(wb\+\_\+strfunc, 2)), public \hyperlink{namespaceua__mpi__module__spectrum_adbb74285bc4d31863c3acded48d9720f}{nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb} (wb\+\_\+\+Strfunc)
\item 
real(8) function, dimension(0\+:nm, size(wb\+\_\+strfunc, 2)), public \hyperlink{namespaceua__mpi__module__spectrum_a61b9e621695fe2fc13ffb6db0cdf451a}{nb\+\_\+enstrophyfromstreamfunc\+\_\+wb} (wb\+\_\+\+Strfunc)
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
real(8), public \hyperlink{namespaceua__mpi__module__spectrum_aa0e061f3e289130166efea2a391a3400}{ua\+\_\+spectrum\+\_\+vmiss} = -\/999.\+000
\end{DoxyCompactItemize}


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



Definition at line 135 of file ua\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



References ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+w, w\+\_\+mpi\+\_\+module\+\_\+base\+::nm, ua\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+lu(), and ua\+\_\+mpi\+\_\+module\+\_\+base\+::nmc.


\begin{DoxyCode}
135     \textcolor{comment}{!}
136     \textcolor{comment}{! 流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を}
137     \textcolor{comment}{! 計算する(1 層用).}
138     \textcolor{comment}{!}
139     \textcolor{comment}{!  * 全波数 n の流線関数のスペクトル成分ψ(n,m) から}
140     \textcolor{comment}{!    エネルギースペクトルはΣ[m=-nm]^nm(1/2)n(n+1)|ψ(n,m)|^2}
141     \textcolor{comment}{!    と計算される.}
142     \textcolor{comment}{!}
143     \textcolor{comment}{!  * 全てのエネルギースペクトル成分の和に 4πをかけたものが}
144     \textcolor{comment}{!    球面上での全エネルギーに等しい.}
145     \textcolor{comment}{!}
146 
147     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}      :: ua\_strfunc(:,:)
148     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
149 
150     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(ua\_Strfunc,2))} :: na\_energyfromstreamfunc\_ua
151     \textcolor{comment}{!(out) エネルギースペクトル (水平全波数 n 空間)}
152 
153     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(ua\_Strfunc,2))} :: na\_work \textcolor{comment}{! 作業領域}
154 
155     \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
156     \textcolor{keywordtype}{real(8)} :: factor
157 
158     \textcolor{keywordtype}{integer} :: ierr
159 
160     na\_work = 0.0d0
161     \textcolor{keywordflow}{do} l=1,nmc
162        \textcolor{comment}{! nm\_ary = nm\_l(l+nms-1)}
163        nm\_ary = nm\_lu(l)
164        n = nm\_ary(1) ; m = abs(nm\_ary(2))
165        \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
166           \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
167              factor = 1.0d0
168           \textcolor{keywordflow}{else}
169              factor = 2.0d0
170 \textcolor{keywordflow}{          endif}
171           na\_work(n,:) = na\_work(n,:) &
172                + factor * 0.5 * n*(n+1) * ua\_strfunc(l,:)**2
173 \textcolor{keywordflow}{       endif}
174 \textcolor{keywordflow}{    enddo}
175 
176     \textcolor{keyword}{CALL }mpi\_allreduce(na\_work,na\_energyfromstreamfunc\_ua,&
177          (int(nm)+1)*\textcolor{keyword}{size}(ua\_strfunc,2), &
178          mpi\_real8,mpi\_sum,mpi\_comm\_w,ierr)
179 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__spectrum_aea9aa121f578244f45f313874fbed0b1_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__spectrum_a9bc2351d8fa136eec74b3c4eaeb031fa}\label{namespaceua__mpi__module__spectrum_a9bc2351d8fa136eec74b3c4eaeb031fa}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}!na\+\_\+enstrophyfromstreamfunc\+\_\+ua@{na\+\_\+enstrophyfromstreamfunc\+\_\+ua}}
\index{na\+\_\+enstrophyfromstreamfunc\+\_\+ua@{na\+\_\+enstrophyfromstreamfunc\+\_\+ua}!ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{na\+\_\+enstrophyfromstreamfunc\+\_\+ua()}{na\_enstrophyfromstreamfunc\_ua()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:nm,size(ua\+\_\+strfunc,2)), public ua\+\_\+mpi\+\_\+module\+\_\+spectrum\+::na\+\_\+enstrophyfromstreamfunc\+\_\+ua (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{ua\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 243 of file ua\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



References ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+w, w\+\_\+mpi\+\_\+module\+\_\+base\+::nm, ua\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+lu(), and ua\+\_\+mpi\+\_\+module\+\_\+base\+::nmc.


\begin{DoxyCode}
243     \textcolor{comment}{!}
244     \textcolor{comment}{! 流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を}
245     \textcolor{comment}{! 計算する(1 層用)}
246     \textcolor{comment}{!}
247     \textcolor{comment}{! * 全波数 n の流線関数のスペクトル成分ψ(n,m) からエンストロフィー}
248     \textcolor{comment}{!   スペクトルはΣ[m=-nm]^nm(1/2)n^2(n+1)^2|ψ(n,m)|^2 と計算される.}
249     \textcolor{comment}{!}
250     \textcolor{comment}{! * 全てのエネルギースペクトル成分の和に 4π/R^2 をかけたものが}
251     \textcolor{comment}{!   球面上での全エンストフィーに等しい.}
252     \textcolor{comment}{!}
253     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}      :: ua\_strfunc(:,:)
254     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
255 
256     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(ua\_Strfunc,2))} :: na\_enstrophyfromstreamfunc\_ua
257     \textcolor{comment}{!(out) エンストロフィースペクトル(水平全波数 n 空間)}
258 
259     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(ua\_Strfunc,2))}     :: na\_work \textcolor{comment}{! 作業領域}
260 
261     \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
262     \textcolor{keywordtype}{real(8)} :: factor
263 
264     \textcolor{keywordtype}{integer} :: ierr
265 
266     na\_work = 0.0d0
267     \textcolor{keywordflow}{do} l=1,nmc
268        \textcolor{comment}{! nm\_ary = nm\_l(l+nms-1)}
269        nm\_ary = nm\_lu(l)
270        n = nm\_ary(1) ; m = abs(nm\_ary(2))
271        \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
272           \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
273              factor = 1.0d0
274           \textcolor{keywordflow}{else}
275              factor = 2.0d0
276 \textcolor{keywordflow}{          endif}
277           na\_work(n,:) = na\_work(n,:) &
278                + factor * 0.5 * n**2 * (n+1)**2 * ua\_strfunc(l,:)**2
279 \textcolor{keywordflow}{       endif}
280 \textcolor{keywordflow}{    enddo}
281 
282     \textcolor{keyword}{CALL }mpi\_allreduce(na\_work,na\_enstrophyfromstreamfunc\_ua,&
283          (int(nm)+1)*\textcolor{keyword}{size}(ua\_strfunc,2), &
284          mpi\_real8,mpi\_sum,mpi\_comm\_w,ierr)
285 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__spectrum_a9bc2351d8fa136eec74b3c4eaeb031fa_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__spectrum_afb0664b9cbc6760714086da84149bfa9}\label{namespaceua__mpi__module__spectrum_afb0664b9cbc6760714086da84149bfa9}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}!nb\+\_\+energyfromstreamfunc\+\_\+wb@{nb\+\_\+energyfromstreamfunc\+\_\+wb}}
\index{nb\+\_\+energyfromstreamfunc\+\_\+wb@{nb\+\_\+energyfromstreamfunc\+\_\+wb}!ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{nb\+\_\+energyfromstreamfunc\+\_\+wb()}{nb\_energyfromstreamfunc\_wb()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:nm,size(wb\+\_\+strfunc,2)), public ua\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nb\+\_\+energyfromstreamfunc\+\_\+wb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{wb\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 351 of file ua\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



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


\begin{DoxyCode}
351     \textcolor{comment}{!}
352     \textcolor{comment}{! 流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を}
353     \textcolor{comment}{! 計算する(1 層用).}
354     \textcolor{comment}{!}
355     \textcolor{comment}{!  * 全波数 n の流線関数のスペクトル成分ψ(n,m) から}
356     \textcolor{comment}{!    エネルギースペクトルはΣ[m=-nm]^nm(1/2)n(n+1)|ψ(n,m)|^2}
357     \textcolor{comment}{!    と計算される.}
358     \textcolor{comment}{!}
359     \textcolor{comment}{!  * 全てのエネルギースペクトル成分の和に 4πをかけたものが}
360     \textcolor{comment}{!    球面上での全エネルギーに等しい.}
361     \textcolor{comment}{!}
362 
363     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}      :: wb\_strfunc(:,:)
364     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
365 
366     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(wb\_Strfunc,2))} :: nb\_energyfromstreamfunc\_wb
367     \textcolor{comment}{!(out) エネルギースペクトル (水平全波数 n 空間)}
368 
369     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(wb\_Strfunc,2))} :: nb\_work \textcolor{comment}{! 作業領域}
370 
371     \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
372     \textcolor{keywordtype}{real(8)} :: factor
373 
374     \textcolor{keywordtype}{integer} :: ierr
375 
376     nb\_work = 0.0d0
377     \textcolor{keywordflow}{do} l=1,nc
378        nm\_ary = nm\_l(l)
379        n = nm\_ary(1) ; m = abs(nm\_ary(2))
380        \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
381           \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
382              factor = 1.0d0
383           \textcolor{keywordflow}{else}
384              factor = 2.0d0
385 \textcolor{keywordflow}{          endif}
386           nb\_work(n,:) = nb\_work(n,:) &
387                + factor * 0.5 * n*(n+1) * wb\_strfunc(l,:)**2
388 \textcolor{keywordflow}{       endif}
389 \textcolor{keywordflow}{    enddo}
390 
391     \textcolor{keyword}{CALL }mpi\_allreduce(nb\_work,nb\_energyfromstreamfunc\_wb,&
392          (int(nm)+1)*\textcolor{keyword}{size}(wb\_strfunc,2), &
393          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)
394 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__spectrum_a61b9e621695fe2fc13ffb6db0cdf451a}\label{namespaceua__mpi__module__spectrum_a61b9e621695fe2fc13ffb6db0cdf451a}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}!nb\+\_\+enstrophyfromstreamfunc\+\_\+wb@{nb\+\_\+enstrophyfromstreamfunc\+\_\+wb}}
\index{nb\+\_\+enstrophyfromstreamfunc\+\_\+wb@{nb\+\_\+enstrophyfromstreamfunc\+\_\+wb}!ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{nb\+\_\+enstrophyfromstreamfunc\+\_\+wb()}{nb\_enstrophyfromstreamfunc\_wb()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:nm,size(wb\+\_\+strfunc,2)), public ua\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nb\+\_\+enstrophyfromstreamfunc\+\_\+wb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{wb\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 457 of file ua\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



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


\begin{DoxyCode}
457     \textcolor{comment}{!}
458     \textcolor{comment}{! 流線関数のスペクトルデータから各全波数のエネルギー成分(スペクトル)を}
459     \textcolor{comment}{! 計算する(1 層用)}
460     \textcolor{comment}{!}
461     \textcolor{comment}{! * 全波数 n の流線関数のスペクトル成分ψ(n,m) からエンストロフィー}
462     \textcolor{comment}{!   スペクトルはΣ[m=-nm]^nm(1/2)n^2(n+1)^2|ψ(n,m)|^2 と計算される.}
463     \textcolor{comment}{!}
464     \textcolor{comment}{! * 全てのエネルギースペクトル成分の和に 4π/R^2 をかけたものが}
465     \textcolor{comment}{!   球面上での全エンストフィーに等しい.}
466     \textcolor{comment}{!}
467     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}      :: wb\_strfunc(:,:)
468     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
469 
470     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(wb\_Strfunc,2))} :: nb\_enstrophyfromstreamfunc\_wb
471     \textcolor{comment}{!(out) エンストロフィースペクトル(水平全波数 n 空間)}
472 
473     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,size(wb\_Strfunc,2))}     :: nb\_work \textcolor{comment}{! 作業領域}
474 
475     \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
476     \textcolor{keywordtype}{real(8)} :: factor
477 
478     \textcolor{keywordtype}{integer} :: ierr
479 
480     nb\_work = 0.0d0
481     \textcolor{keywordflow}{do} l=1,nc
482        nm\_ary = nm\_l(l)
483        n = nm\_ary(1) ; m = abs(nm\_ary(2))
484        \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
485           \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
486              factor = 1.0d0
487           \textcolor{keywordflow}{else}
488              factor = 2.0d0
489 \textcolor{keywordflow}{          endif}
490           nb\_work(n,:) = nb\_work(n,:) &
491                + factor * 0.5 * n**2 * (n+1)**2 * wb\_strfunc(l,:)**2
492 \textcolor{keywordflow}{       endif}
493 \textcolor{keywordflow}{    enddo}
494 
495     \textcolor{keyword}{CALL }mpi\_allreduce(nb\_work,nb\_enstrophyfromstreamfunc\_wb,&
496          (int(nm)+1)*\textcolor{keyword}{size}(wb\_strfunc,2), &
497          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)
498 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__spectrum_a8b8ebd0b6a3645dc435447d5a93af6ac}\label{namespaceua__mpi__module__spectrum_a8b8ebd0b6a3645dc435447d5a93af6ac}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}!nma\+\_\+energyfromstreamfunc\+\_\+ua@{nma\+\_\+energyfromstreamfunc\+\_\+ua}}
\index{nma\+\_\+energyfromstreamfunc\+\_\+ua@{nma\+\_\+energyfromstreamfunc\+\_\+ua}!ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}}
\subsubsection{\texorpdfstring{nma\+\_\+energyfromstreamfunc\+\_\+ua()}{nma\_energyfromstreamfunc\_ua()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:nm,-\/nm\+:nm,size(ua\+\_\+strfunc,2)), public ua\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nma\+\_\+energyfromstreamfunc\+\_\+ua (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{ua\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 73 of file ua\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



References ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+w, w\+\_\+mpi\+\_\+module\+\_\+base\+::nm, ua\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+lu(), ua\+\_\+mpi\+\_\+module\+\_\+base\+::nmc, and ua\+\_\+spectrum\+\_\+vmiss.


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



Definition at line 184 of file ua\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



References ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+w, w\+\_\+mpi\+\_\+module\+\_\+base\+::nm, ua\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+lu(), ua\+\_\+mpi\+\_\+module\+\_\+base\+::nmc, and ua\+\_\+spectrum\+\_\+vmiss.


\begin{DoxyCode}
184     \textcolor{comment}{!}
185     \textcolor{comment}{! 流線関数のスペクトルデータからエンストロフィーの球面調和函数成分}
186     \textcolor{comment}{! (スペクトル)を計算する(1 層用).}
187     \textcolor{comment}{!}
188     \textcolor{comment}{! * 全波数 n, 帯状波数 m の流線関数のスペクトル成分ψ(n,m) から}
189     \textcolor{comment}{!    エンストロフィースペクトルは (1/2)n^2(n+1)^2|ψ(n,m)|^2 と計算される.}
190     \textcolor{comment}{!}
191     \textcolor{comment}{! * 全てのエンストロフィースペクトル成分の和に4π/R^2をかけたものが}
192     \textcolor{comment}{!   球面上での全エンストロフィーに等しい. ここで R は球面の半径である.}
193     \textcolor{comment}{!}
194     \textcolor{comment}{! * データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される.}
195     \textcolor{comment}{!   欠損値の値はモジュール変数 ua\_spectrum\_VMiss によって設定できる}
196     \textcolor{comment}{!   (初期値は -999.0)}
197     \textcolor{comment}{!}
198     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: ua\_strfunc(:,:)
199     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
200 
201     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(ua\_Strfunc,2))} &
202          :: nma\_enstrophyfromstreamfunc\_ua
203     \textcolor{comment}{! エンストロフィースペクトル (水平全波数 n, 帯状波数 m 空間)}
204 
205     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(ua\_Strfunc,2))} :: nma\_work \textcolor{comment}{! 作業領域}
206 
207     \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
208 
209     \textcolor{keywordtype}{integer} :: ierr
210 
211     nma\_work = 0.0d0
212     \textcolor{keywordflow}{do} l=1,nmc
213        \textcolor{comment}{! nm\_ary = nm\_l(l+nms-1)}
214        nm\_ary = nm\_lu(l)
215        n = nm\_ary(1) ; m = abs(nm\_ary(2))
216        \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
217           \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
218              nma\_work(n,0,:) = nma\_work(n,0,:) &
219                   +  0.5 * n**2 * (n+1)**2 * ua\_strfunc(l,:)**2
220           \textcolor{keywordflow}{else}
221              nma\_work(n,m,:) = nma\_work(n,m,:) &
222                   +  0.5 * n**2 * (n+1)**2 * ua\_strfunc(l,:)**2
223              nma\_work(n,-m,:) = nma\_work(n,-m,:) &
224                   +  0.5 * n**2 * (n+1)**2 * ua\_strfunc(l,:)**2
225 \textcolor{keywordflow}{          endif}
226 \textcolor{keywordflow}{       endif}
227 \textcolor{keywordflow}{    enddo}
228 
229     \textcolor{keyword}{CALL }mpi\_allreduce(nma\_work,nma\_enstrophyfromstreamfunc\_ua,&
230          (int(nm)+1)*(2*int(nm)+1)*\textcolor{keyword}{size}(ua\_strfunc,2), &
231          mpi\_real8,mpi\_sum,mpi\_comm\_w,ierr)
232 
233     \textcolor{keywordflow}{do} m=1,int(nm)
234        \textcolor{keywordflow}{do} n=0,m-1
235           nma\_enstrophyfromstreamfunc\_ua(n,m,:)  = ua\_spectrum\_vmiss
236           nma\_enstrophyfromstreamfunc\_ua(n,-m,:) = ua\_spectrum\_vmiss
237 \textcolor{keywordflow}{       enddo}
238 \textcolor{keywordflow}{    enddo}
239 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__spectrum_a1302b25d38f9ed99c6e1b6199db91056_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__spectrum_a05f4b32eb3835cd589ea45870cc48778}\label{namespaceua__mpi__module__spectrum_a05f4b32eb3835cd589ea45870cc48778}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}!nmb\+\_\+energyfromstreamfunc\+\_\+wb@{nmb\+\_\+energyfromstreamfunc\+\_\+wb}}
\index{nmb\+\_\+energyfromstreamfunc\+\_\+wb@{nmb\+\_\+energyfromstreamfunc\+\_\+wb}!ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+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 ua\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nmb\+\_\+energyfromstreamfunc\+\_\+wb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{wb\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 290 of file ua\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



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


\begin{DoxyCode}
290     \textcolor{comment}{!}
291     \textcolor{comment}{! 流線関数のスペクトルデータからエネルギーの球面調和函数成分}
292     \textcolor{comment}{! (スペクトル)を計算する(1 層用).}
293     \textcolor{comment}{!}
294     \textcolor{comment}{!  * 全波数 n, 帯状波数 m の流線関数のスペクトル成分ψ(n,m) から}
295     \textcolor{comment}{!    エネルギースペクトルは (1/2)n(n+1)|ψ(n,m)|^2 と計算される.}
296     \textcolor{comment}{!}
297     \textcolor{comment}{!  * 全てのエネルギースペクトル成分の和に4πをかけたものが球面上での}
298     \textcolor{comment}{!    全エネルギーに等しい.}
299     \textcolor{comment}{!}
300     \textcolor{comment}{!  * スペクトルの (n,m) 成分は全波数 n, 東西波数 m の実部成分,}
301     \textcolor{comment}{!    (n,-m) 成分は全波数 n, 東西波数 m の虚部成分が格納されている.}
302     \textcolor{comment}{!}
303     \textcolor{comment}{!  * データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される.}
304     \textcolor{comment}{!    欠損値の値はモジュール変数 wb\_spectrum\_VMiss によって設定できる}
305     \textcolor{comment}{!    (初期値は -999.0)}
306     \textcolor{comment}{!}
307     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: wb\_strfunc(:,:)
308     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
309 
310     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(wb\_Strfunc,2))} &
311          :: nmb\_energyfromstreamfunc\_wb
312     \textcolor{comment}{!(out) エネルギースペクトル(水平全波数 n, 帯状波数 m 空間)}
313 
314     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(wb\_Strfunc,2))} :: nmb\_work \textcolor{comment}{! 作業領域}
315 
316     \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
317 
318     \textcolor{keywordtype}{integer} :: ierr
319 
320     nmb\_work = 0.0d0
321     \textcolor{keywordflow}{do} l=1,nc
322        nm\_ary = nm\_l(l)
323        n = nm\_ary(1) ; m = abs(nm\_ary(2))
324        \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
325           \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
326              nmb\_work(n,0,:) = nmb\_work(n,0,:) &
327                   +  0.5 * n*(n+1) * wb\_strfunc(l,:)**2
328           \textcolor{keywordflow}{else}
329              nmb\_work(n,m,:) = nmb\_work(n,m,:) &
330                   +  0.5 * n*(n+1) * wb\_strfunc(l,:)**2
331              nmb\_work(n,-m,:) = nmb\_work(n,-m,:) &
332                   +  0.5 * n*(n+1) * wb\_strfunc(l,:)**2
333 \textcolor{keywordflow}{          endif}
334 \textcolor{keywordflow}{       endif}
335 \textcolor{keywordflow}{    enddo}
336 
337     \textcolor{keyword}{CALL }mpi\_allreduce(nmb\_work,nmb\_energyfromstreamfunc\_wb,&
338          (int(nm)+1)*(2*int(nm)+1)*\textcolor{keyword}{size}(wb\_strfunc,2), &
339          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)
340 
341     \textcolor{keywordflow}{do} m=1,nm
342        \textcolor{keywordflow}{do} n=0,m-1
343           nmb\_energyfromstreamfunc\_wb(n,m,:)  = ua\_spectrum\_vmiss
344           nmb\_energyfromstreamfunc\_wb(n,-m,:) = ua\_spectrum\_vmiss
345 \textcolor{keywordflow}{       enddo}
346 \textcolor{keywordflow}{    enddo}
347 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__spectrum_adbb74285bc4d31863c3acded48d9720f}\label{namespaceua__mpi__module__spectrum_adbb74285bc4d31863c3acded48d9720f}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+mpi\+\_\+module\+\_\+spectrum}!nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb@{nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb}}
\index{nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb@{nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb}!ua\+\_\+mpi\+\_\+module\+\_\+spectrum@{ua\+\_\+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 ua\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nmb\+\_\+enstrophyfromstreamfunc\+\_\+wb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{wb\+\_\+\+Strfunc }\end{DoxyParamCaption})}



Definition at line 399 of file ua\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.



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


\begin{DoxyCode}
399     \textcolor{comment}{!}
400     \textcolor{comment}{! 流線関数のスペクトルデータからエンストロフィーの球面調和函数成分}
401     \textcolor{comment}{! (スペクトル)を計算する(1 層用).}
402     \textcolor{comment}{!}
403     \textcolor{comment}{! * 全波数 n, 帯状波数 m の流線関数のスペクトル成分ψ(n,m) から}
404     \textcolor{comment}{!    エンストロフィースペクトルは (1/2)n^2(n+1)^2|ψ(n,m)|^2 と計算される.}
405     \textcolor{comment}{!}
406     \textcolor{comment}{! * 全てのエンストロフィースペクトル成分の和に4π/R^2をかけたものが}
407     \textcolor{comment}{!   球面上での全エンストロフィーに等しい. ここで R は球面の半径である.}
408     \textcolor{comment}{!}
409     \textcolor{comment}{! * データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される.}
410     \textcolor{comment}{!   欠損値の値はモジュール変数 wb\_spectrum\_VMiss によって設定できる}
411     \textcolor{comment}{!   (初期値は -999.0)}
412     \textcolor{comment}{!}
413     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: wb\_strfunc(:,:)
414     \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}
415 
416     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(wb\_Strfunc,2))} &
417          :: nmb\_enstrophyfromstreamfunc\_wb
418     \textcolor{comment}{! エンストロフィースペクトル (水平全波数 n, 帯状波数 m 空間)}
419 
420     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{dimension(0:nm,-nm:nm,size(wb\_Strfunc,2))} :: nmb\_work \textcolor{comment}{! 作業領域}
421 
422     \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)
423 
424     \textcolor{keywordtype}{integer} :: ierr
425 
426     nmb\_work = 0.0d0
427     \textcolor{keywordflow}{do} l=1,nc
428        nm\_ary = nm\_l(l)
429        n = nm\_ary(1) ; m = abs(nm\_ary(2))
430        \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}
431           \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}
432              nmb\_work(n,0,:) = nmb\_work(n,0,:) &
433                   +  0.5 * n**2 * (n+1)**2 * wb\_strfunc(l,:)**2
434           \textcolor{keywordflow}{else}
435              nmb\_work(n,m,:) = nmb\_work(n,m,:) &
436                   +  0.5 * n**2 * (n+1)**2 * wb\_strfunc(l,:)**2
437              nmb\_work(n,-m,:) = nmb\_work(n,-m,:) &
438                   +  0.5 * n**2 * (n+1)**2 * wb\_strfunc(l,:)**2
439 \textcolor{keywordflow}{          endif}
440 \textcolor{keywordflow}{       endif}
441 \textcolor{keywordflow}{    enddo}
442 
443     \textcolor{keyword}{CALL }mpi\_allreduce(nmb\_work,nmb\_enstrophyfromstreamfunc\_wb,&
444          (int(nm)+1)*(2*int(nm)+1)*\textcolor{keyword}{size}(wb\_strfunc,2), &
445          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)
446 
447     \textcolor{keywordflow}{do} m=1,int(nm)
448        \textcolor{keywordflow}{do} n=0,m-1
449           nmb\_enstrophyfromstreamfunc\_wb(n,m,:)  = ua\_spectrum\_vmiss
450           nmb\_enstrophyfromstreamfunc\_wb(n,-m,:) = ua\_spectrum\_vmiss
451 \textcolor{keywordflow}{       enddo}
452 \textcolor{keywordflow}{    enddo}
453 
\end{DoxyCode}


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



Definition at line 67 of file ua\+\_\+mpi\+\_\+module\+\_\+spectrum.\+f90.


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