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


\doxysubsection{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}}
\doxysubsubsection{\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.


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

\end{DoxyCode}


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

\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}}
\doxysubsubsection{\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.


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

\end{DoxyCode}


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

\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}}
\doxysubsubsection{\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.


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

\end{DoxyCode}


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

\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}}
\doxysubsubsection{\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.


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

\end{DoxyCode}


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



\doxysubsection{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}}
\doxysubsubsection{\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}{0}
\DoxyCodeLine{66 \textcolor{keywordtype}{  real}(DP) :: wa\_spectrum\_VMiss = -\/999.000 \textcolor{comment}{! 欠損値初期値}}

\end{DoxyCode}


Referenced by nma\+\_\+energyfromstreamfunc\+\_\+wa(), and nma\+\_\+enstrophyfromstreamfunc\+\_\+wa().

