\hypertarget{namespacew__wave__module__deriv}{}\section{w\+\_\+wave\+\_\+module\+\_\+deriv Module Reference}
\label{namespacew__wave__module__deriv}\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \hyperlink{namespacew__wave__module__deriv_a2029b1c620216b76f9ba8355f3b97d2f}{w\+\_\+deriv\+\_\+initial}
\item 
real(8) function, dimension(2 $\ast$(nm-\/m+1)), public \hyperlink{namespacew__wave__module__deriv_ae64a41eef73486c077f4539587f94416}{w\+\_\+lapla\+\_\+w} (w\+\_\+data)
\item 
real(8) function, dimension(2 $\ast$(nm-\/m+1)), public \hyperlink{namespacew__wave__module__deriv_a2c36a8badf44bc8b0c4413c1abfecfdc}{w\+\_\+laplainv\+\_\+w} (w\+\_\+data)
\item 
real(8) function, dimension(0\+:im-\/1, 1\+:jm), public \hyperlink{namespacew__wave__module__deriv_a73ff76d33bfd5c9e5852c875f0d08039}{xy\+\_\+gradlon\+\_\+w} (w\+\_\+data)
\item 
real(8) function, dimension(0\+:im-\/1, 1\+:jm), public \hyperlink{namespacew__wave__module__deriv_af60c8ba8ad2768115060250d730b608b}{xy\+\_\+gradlat\+\_\+w} (w\+\_\+data)
\item 
real(8) function, dimension(2 $\ast$(nm-\/m+1)), public \hyperlink{namespacew__wave__module__deriv_a49c86e48160372b6bf36dabac39ddc57}{w\+\_\+divlon\+\_\+xy} (xy\+\_\+data)
\item 
real(8) function, dimension(2 $\ast$(nm-\/m+1)), public \hyperlink{namespacew__wave__module__deriv_ab4baf7f4e1985ecd71a6c5d8326cbc8c}{w\+\_\+divlat\+\_\+xy} (xy\+\_\+data)
\item 
real(8) function, dimension(2 $\ast$(nm-\/m+1)), public \hyperlink{namespacew__wave__module__deriv_a6faab59242e13485a090c9c3c8a1321f}{w\+\_\+div\+\_\+xy\+\_\+xy} (xy\+\_\+u, xy\+\_\+v)
\item 
real(8) function, dimension(0\+:im-\/1, 1\+:jm), public \hyperlink{namespacew__wave__module__deriv_af434ad5400dcab2b96a0251cc2a70c1c}{xy\+\_\+gradlambda\+\_\+w} (w\+\_\+data)
\item 
real(8) function, dimension(0\+:im-\/1, 1\+:jm), public \hyperlink{namespacew__wave__module__deriv_a1b1dd853e14125affe34ae8e59bf1460}{xy\+\_\+gradmu\+\_\+w} (w\+\_\+data)
\item 
real(8) function, dimension(2 $\ast$(nm-\/m+1)), public \hyperlink{namespacew__wave__module__deriv_aef860cf41d4d059c349385a28dcc70ca}{w\+\_\+divlambda\+\_\+xy} (xy\+\_\+data)
\item 
real(8) function, dimension(2 $\ast$(nm-\/m+1)), public \hyperlink{namespacew__wave__module__deriv_ae6510f9c663ce9616d65f42863c278e2}{w\+\_\+divmu\+\_\+xy} (xy\+\_\+data)
\item 
subroutine, public \hyperlink{namespacew__wave__module__deriv_aefd45468c1c4c3eb68d657c25b2ffdc3}{w\+\_\+deriv\+\_\+finalize}
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
real(8), dimension(\+:), allocatable, save \hyperlink{namespacew__wave__module__deriv_a3f0fd930dbd6c42ab8634cccd1cf288f}{d}
\item 
real(8), dimension(\+:,\+:), allocatable, save, public \hyperlink{namespacew__wave__module__deriv_aeea8d98f78a3b9aec18efa37ba4f708b}{rn}
\item 
logical \hyperlink{namespacew__wave__module__deriv_a61207c33bd726239204150656817cc4d}{w\+\_\+wave\+\_\+deriv\+\_\+initialize} =.false.
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacew__wave__module__deriv_aefd45468c1c4c3eb68d657c25b2ffdc3}\label{namespacew__wave__module__deriv_aefd45468c1c4c3eb68d657c25b2ffdc3}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!w\+\_\+deriv\+\_\+finalize@{w\+\_\+deriv\+\_\+finalize}}
\index{w\+\_\+deriv\+\_\+finalize@{w\+\_\+deriv\+\_\+finalize}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{w\+\_\+deriv\+\_\+finalize()}{w\_deriv\_finalize()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+wave\+\_\+module\+\_\+deriv\+::w\+\_\+deriv\+\_\+finalize (\begin{DoxyParamCaption}{ }\end{DoxyParamCaption})}



Definition at line 326 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References d, rn, and w\+\_\+wave\+\_\+deriv\+\_\+initialize.


\begin{DoxyCode}
326     \textcolor{comment}{!}
327     \textcolor{comment}{! モジュールの終了処理(割り付け配列の解放)をおこなう. }
328     \textcolor{comment}{!}
329     \textcolor{comment}{! このサブルーチンを単独で用いるのでなく, }
330     \textcolor{comment}{! 上位サブルーチン w\_Finalize を使用すること.}
331     \textcolor{comment}{!}
332     \textcolor{keywordflow}{if} ( .not. w\_wave\_deriv\_initialize ) \textcolor{keywordflow}{then}
333        \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'W'},\textcolor{stringliteral}{'w\_deriv\_Finalize'},&
334             \textcolor{stringliteral}{'w\_wave\_module\_deriv\_ not initialized yet'})
335        \textcolor{keywordflow}{return}
336 \textcolor{keywordflow}{    endif}
337 
338     \textcolor{keyword}{deallocate}(d)           \textcolor{comment}{! ラプラシアン演算用配列}
339     \textcolor{keyword}{deallocate}(rn)          \textcolor{comment}{! ラプラシアン演算用配列}
340 
341     w\_wave\_deriv\_initialize = .false.
342 
343     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'w\_deriv\_Finalize'},&
344          \textcolor{stringliteral}{'w\_wave\_module\_deriv (2020/11/24) is finalized'})
345 
\end{DoxyCode}
\mbox{\Hypertarget{namespacew__wave__module__deriv_a2029b1c620216b76f9ba8355f3b97d2f}\label{namespacew__wave__module__deriv_a2029b1c620216b76f9ba8355f3b97d2f}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!w\+\_\+deriv\+\_\+initial@{w\+\_\+deriv\+\_\+initial}}
\index{w\+\_\+deriv\+\_\+initial@{w\+\_\+deriv\+\_\+initial}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{w\+\_\+deriv\+\_\+initial()}{w\_deriv\_initial()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+wave\+\_\+module\+\_\+deriv\+::w\+\_\+deriv\+\_\+initial (\begin{DoxyParamCaption}{ }\end{DoxyParamCaption})}



Definition at line 89 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References d, w\+\_\+wave\+\_\+module\+\_\+base\+::m, w\+\_\+wave\+\_\+module\+\_\+base\+::nm, rn, and w\+\_\+wave\+\_\+deriv\+\_\+initialize.


\begin{DoxyCode}
89     \textcolor{comment}{!}
90     \textcolor{comment}{! スペクトル微分計算に必要となる作業領域を設定する. }
91     \textcolor{comment}{!}
92     \textcolor{comment}{! 他の関数を呼ぶ前に, 最初にこのサブルーチンを呼んで}
93     \textcolor{comment}{! 初期設定をしなければならない. }
94     \textcolor{comment}{!}
95     \textcolor{comment}{! このサブルーチンを単独で用いるのでなく, }
96     \textcolor{comment}{! 上位サブルーチン w\_Initial を使用すること.}
97     \textcolor{comment}{!}
98     \textcolor{keywordtype}{integer} :: n
99 
100     w\_wave\_deriv\_initialize=.true.
101 
102     \textcolor{keyword}{allocate}(d(2*(nm-m+1)))
103     \textcolor{keyword}{allocate}(rn(2*(nm-m+1),2))
104 
105     \textcolor{keywordflow}{do} n=m,nm
106        d(2*(n-m+1)-1) = -n*(n+1)
107        d(2*(n-m+1))   = -n*(n+1)
108        rn(2*(n-m+1)-1,1) = -n*(n+1)
109        rn(2*(n-m+1),1)   = -n*(n+1)
110        rn(2*(n-m+1)-1,2) = -1/(n*(n+1))
111        rn(2*(n-m+1),2)   = -1/(n*(n+1))
112 \textcolor{keywordflow}{    end do}
113 
114     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'w\_deriv\_initial'},&
115          \textcolor{stringliteral}{'w\_wave\_module\_deriv (2020/11/24) is initialized'})
116 
\end{DoxyCode}
\mbox{\Hypertarget{namespacew__wave__module__deriv_a6faab59242e13485a090c9c3c8a1321f}\label{namespacew__wave__module__deriv_a6faab59242e13485a090c9c3c8a1321f}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!w\+\_\+div\+\_\+xy\+\_\+xy@{w\+\_\+div\+\_\+xy\+\_\+xy}}
\index{w\+\_\+div\+\_\+xy\+\_\+xy@{w\+\_\+div\+\_\+xy\+\_\+xy}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{w\+\_\+div\+\_\+xy\+\_\+xy()}{w\_div\_xy\_xy()}}
{\footnotesize\ttfamily real(8) function, dimension(2$\ast$(nm-\/m+1)), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::w\+\_\+div\+\_\+xy\+\_\+xy (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:im-\/1,1\+:jm), intent(in)}]{xy\+\_\+u,  }\item[{real(8), dimension(0\+:im-\/1,1\+:jm), intent(in)}]{xy\+\_\+v }\end{DoxyParamCaption})}



Definition at line 223 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References w\+\_\+divlat\+\_\+xy(), and w\+\_\+divlon\+\_\+xy().


\begin{DoxyCode}
223     \textcolor{comment}{!}
224     \textcolor{comment}{! 2 つの入力格子点データをベクトル成分とする発散を計算し, }
225     \textcolor{comment}{! スペクトルデータとして返す(1 層用).}
226     \textcolor{comment}{!}
227     \textcolor{keywordtype}{real(8)}              :: w\_div\_xy\_xy(2*(nm-m+1))
228     \textcolor{comment}{!(out) 2 つの入力格子点データをベクトル成分とする発散のスペクトルデータ}
229 
230     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: xy\_u(0:im-1,1:jm)
231     \textcolor{comment}{!(in) ベクトル経度成分の格子点データ}
232 
233     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: xy\_v(0:im-1,1:jm)
234     \textcolor{comment}{!(in) ベクトル緯度成分の格子点データ}
235 
236     w\_div\_xy\_xy = w\_divlon\_xy(xy\_u) + w\_divlat\_xy(xy\_v)
237 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__wave__module__deriv_a6faab59242e13485a090c9c3c8a1321f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__wave__module__deriv_aef860cf41d4d059c349385a28dcc70ca}\label{namespacew__wave__module__deriv_aef860cf41d4d059c349385a28dcc70ca}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!w\+\_\+divlambda\+\_\+xy@{w\+\_\+divlambda\+\_\+xy}}
\index{w\+\_\+divlambda\+\_\+xy@{w\+\_\+divlambda\+\_\+xy}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{w\+\_\+divlambda\+\_\+xy()}{w\_divlambda\_xy()}}
{\footnotesize\ttfamily real(8) function, dimension(2$\ast$(nm-\/m+1)), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::w\+\_\+divlambda\+\_\+xy (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:im-\/1,1\+:jm), intent(in)}]{xy\+\_\+data }\end{DoxyParamCaption})}



Definition at line 295 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References w\+\_\+wave\+\_\+module\+\_\+base\+::w\+\_\+xy().


\begin{DoxyCode}
295     \textcolor{comment}{!}
296     \textcolor{comment}{! 格子点データに発散型経度微分 1/(1-μ^2)・∂/∂λ (μ=sinφ) }
297     \textcolor{comment}{! を作用させてスペクトルデータに変換して返す(1 層用).}
298     \textcolor{comment}{!}
299     \textcolor{keywordtype}{real(8)}              :: w\_divlambda\_xy(2*(nm-m+1))
300     \textcolor{comment}{!(out) 格子点データを発散型経度微分したスペクトルデータ}
301 
302     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: xy\_data(0:im-1,1:jm)
303     \textcolor{comment}{!(in) 入力格子点データ}
304 
305     w\_divlambda\_xy = w\_xy(xy\_data,ipow=2,iflag=-1)
306 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__wave__module__deriv_aef860cf41d4d059c349385a28dcc70ca_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__wave__module__deriv_ab4baf7f4e1985ecd71a6c5d8326cbc8c}\label{namespacew__wave__module__deriv_ab4baf7f4e1985ecd71a6c5d8326cbc8c}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!w\+\_\+divlat\+\_\+xy@{w\+\_\+divlat\+\_\+xy}}
\index{w\+\_\+divlat\+\_\+xy@{w\+\_\+divlat\+\_\+xy}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{w\+\_\+divlat\+\_\+xy()}{w\_divlat\_xy()}}
{\footnotesize\ttfamily real(8) function, dimension(2$\ast$(nm-\/m+1)), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::w\+\_\+divlat\+\_\+xy (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:im-\/1,1\+:jm), intent(in)}]{xy\+\_\+data }\end{DoxyParamCaption})}



Definition at line 208 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References w\+\_\+wave\+\_\+module\+\_\+base\+::w\+\_\+xy().


\begin{DoxyCode}
208     \textcolor{comment}{!}
209     \textcolor{comment}{! 格子点データに発散型緯度微分 1/cosφ・∂(f cosφ)/∂φ を作用させて}
210     \textcolor{comment}{! スペクトルデータに変換して返す(1 層用).}
211     \textcolor{comment}{!}
212     \textcolor{keywordtype}{real(8)}              :: w\_divlat\_xy(2*(nm-m+1))
213     \textcolor{comment}{!(out) 格子点データを発散型緯度微分したスペクトルデータ}
214 
215     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: xy\_data(0:im-1,1:jm)
216     \textcolor{comment}{!(in) 入力格子点データ}
217 
218     w\_divlat\_xy = w\_xy(xy\_data,ipow=1,iflag=1)
219 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__wave__module__deriv_ab4baf7f4e1985ecd71a6c5d8326cbc8c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__wave__module__deriv_a49c86e48160372b6bf36dabac39ddc57}\label{namespacew__wave__module__deriv_a49c86e48160372b6bf36dabac39ddc57}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!w\+\_\+divlon\+\_\+xy@{w\+\_\+divlon\+\_\+xy}}
\index{w\+\_\+divlon\+\_\+xy@{w\+\_\+divlon\+\_\+xy}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{w\+\_\+divlon\+\_\+xy()}{w\_divlon\_xy()}}
{\footnotesize\ttfamily real(8) function, dimension(2$\ast$(nm-\/m+1)), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::w\+\_\+divlon\+\_\+xy (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:im-\/1,1\+:jm), intent(in)}]{xy\+\_\+data }\end{DoxyParamCaption})}



Definition at line 194 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References w\+\_\+wave\+\_\+module\+\_\+base\+::w\+\_\+xy().


\begin{DoxyCode}
194     \textcolor{comment}{!}
195     \textcolor{comment}{! 格子点データに発散型経度微分 1/cosφ・∂/∂λ を作用させて}
196     \textcolor{comment}{! スペクトルデータに変換して返す(1 層用).}
197     \textcolor{comment}{!}
198     \textcolor{keywordtype}{real(8)}              :: w\_divlon\_xy(2*(nm-m+1))
199     \textcolor{comment}{!(out) 格子点データを発散型経度微分したスペクトルデータ}
200     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: xy\_data(0:im-1,1:jm)
201     \textcolor{comment}{!(in) 入力格子点データ}
202 
203     w\_divlon\_xy = w\_xy(xy\_data,ipow=1,iflag=-1)
204 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__wave__module__deriv_a49c86e48160372b6bf36dabac39ddc57_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__wave__module__deriv_ae6510f9c663ce9616d65f42863c278e2}\label{namespacew__wave__module__deriv_ae6510f9c663ce9616d65f42863c278e2}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!w\+\_\+divmu\+\_\+xy@{w\+\_\+divmu\+\_\+xy}}
\index{w\+\_\+divmu\+\_\+xy@{w\+\_\+divmu\+\_\+xy}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{w\+\_\+divmu\+\_\+xy()}{w\_divmu\_xy()}}
{\footnotesize\ttfamily real(8) function, dimension(2$\ast$(nm-\/m+1)), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::w\+\_\+divmu\+\_\+xy (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:im-\/1,1\+:jm), intent(in)}]{xy\+\_\+data }\end{DoxyParamCaption})}



Definition at line 310 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References w\+\_\+wave\+\_\+module\+\_\+base\+::w\+\_\+xy().


\begin{DoxyCode}
310     \textcolor{comment}{!}
311     \textcolor{comment}{! 格子点データに発散型緯度微分 ∂/∂μ (μ=sinφ)を作用させて}
312     \textcolor{comment}{! スペクトルデータに変換して返す(1 層用).}
313     \textcolor{comment}{!}
314     \textcolor{keywordtype}{real(8)}              :: w\_divmu\_xy(2*(nm-m+1))
315     \textcolor{comment}{!(out) 格子点データを発散型緯度微分したスペクトルデータ}
316 
317     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: xy\_data(0:im-1,1:jm)
318     \textcolor{comment}{!(in) 入力格子点データ}
319 
320     w\_divmu\_xy = w\_xy(xy\_data,ipow=2,iflag=1)
321 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__wave__module__deriv_ae6510f9c663ce9616d65f42863c278e2_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__wave__module__deriv_ae64a41eef73486c077f4539587f94416}\label{namespacew__wave__module__deriv_ae64a41eef73486c077f4539587f94416}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!w\+\_\+lapla\+\_\+w@{w\+\_\+lapla\+\_\+w}}
\index{w\+\_\+lapla\+\_\+w@{w\+\_\+lapla\+\_\+w}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{w\+\_\+lapla\+\_\+w()}{w\_lapla\_w()}}
{\footnotesize\ttfamily real(8) function, dimension(2$\ast$(nm-\/m+1)), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::w\+\_\+lapla\+\_\+w (\begin{DoxyParamCaption}\item[{real(8), dimension(2$\ast$(nm-\/m+1)), intent(in)}]{w\+\_\+data }\end{DoxyParamCaption})}



Definition at line 121 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References d.


\begin{DoxyCode}
121     \textcolor{comment}{!}
122     \textcolor{comment}{! 入力スペクトルデータにラプラシアン}
123     \textcolor{comment}{!}
124     \textcolor{comment}{!    ▽^2 = 1/cos^2φ・∂^2/∂λ^2 + 1/cosφ・∂/∂φ(cosφ∂/∂φ)}
125     \textcolor{comment}{!}
126     \textcolor{comment}{! を作用する(1 層用).}
127     \textcolor{comment}{!}
128     \textcolor{comment}{! スペクトルデータのラプラシアンとは, 対応する格子点データに}
129     \textcolor{comment}{! ラプラシアンを作用させたデータのスペクトル変換のことである. }
130     \textcolor{comment}{!}
131     \textcolor{keywordtype}{real(8)}              :: w\_lapla\_w(2*(nm-m+1))
132     \textcolor{comment}{!(out) 入力スペクトルデータのラプラシアン}
133 
134     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: w\_data(2*(nm-m+1))
135     \textcolor{comment}{!(in) 入力スペクトルデータ}
136 
137     w\_lapla\_w = d*w\_data
138 
\end{DoxyCode}
\mbox{\Hypertarget{namespacew__wave__module__deriv_a2c36a8badf44bc8b0c4413c1abfecfdc}\label{namespacew__wave__module__deriv_a2c36a8badf44bc8b0c4413c1abfecfdc}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!w\+\_\+laplainv\+\_\+w@{w\+\_\+laplainv\+\_\+w}}
\index{w\+\_\+laplainv\+\_\+w@{w\+\_\+laplainv\+\_\+w}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{w\+\_\+laplainv\+\_\+w()}{w\_laplainv\_w()}}
{\footnotesize\ttfamily real(8) function, dimension(2$\ast$(nm-\/m+1)), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::w\+\_\+laplainv\+\_\+w (\begin{DoxyParamCaption}\item[{real(8), dimension(2$\ast$(nm-\/m+1)), intent(in)}]{w\+\_\+data }\end{DoxyParamCaption})}



Definition at line 142 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References d.


\begin{DoxyCode}
142     \textcolor{comment}{!}
143     \textcolor{comment}{! 入力スペクトルデータに逆ラプラシアン}
144     \textcolor{comment}{!}
145     \textcolor{comment}{!    ▽^\{-2\}}
146     \textcolor{comment}{!      =[1/cos^2φ・∂^2/∂λ^2 + 1/cosφ・∂/∂φ(cosφ∂/∂φ)]^\{-1\}}
147     \textcolor{comment}{!}
148     \textcolor{comment}{! を作用する(1 層用).}
149     \textcolor{comment}{!}
150     \textcolor{comment}{! スペクトルデータの逆ラプラシアンとは, 対応する格子点データに}
151     \textcolor{comment}{! 逆ラプラシアンを作用させたデータのスペクトル変換のことである. }
152     \textcolor{comment}{!}
153     \textcolor{keywordtype}{real(8)}              :: w\_laplainv\_w(2*(nm-m+1))
154     \textcolor{comment}{!(out) スペクトルデータの逆ラプラシアン}
155 
156     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: w\_data(2*(nm-m+1))
157     \textcolor{comment}{!(in) 入力スペクトルデータ}
158 
159     w\_laplainv\_w = w\_data/d
160 
\end{DoxyCode}
\mbox{\Hypertarget{namespacew__wave__module__deriv_af434ad5400dcab2b96a0251cc2a70c1c}\label{namespacew__wave__module__deriv_af434ad5400dcab2b96a0251cc2a70c1c}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!xy\+\_\+gradlambda\+\_\+w@{xy\+\_\+gradlambda\+\_\+w}}
\index{xy\+\_\+gradlambda\+\_\+w@{xy\+\_\+gradlambda\+\_\+w}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{xy\+\_\+gradlambda\+\_\+w()}{xy\_gradlambda\_w()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:im-\/1,1\+:jm), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::xy\+\_\+gradlambda\+\_\+w (\begin{DoxyParamCaption}\item[{real(8), dimension(2$\ast$(nm-\/m+1)), intent(in)}]{w\+\_\+data }\end{DoxyParamCaption})}



Definition at line 266 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References w\+\_\+wave\+\_\+module\+\_\+base\+::xy\+\_\+w().


\begin{DoxyCode}
266     \textcolor{comment}{!}
267     \textcolor{comment}{! スペクトルデータに勾配型経度微分 ∂/∂λ を作用する(1 層用).}
268     \textcolor{comment}{!}
269     \textcolor{keywordtype}{real(8)}              :: xy\_gradlambda\_w(0:im-1,1:jm)
270     \textcolor{comment}{!(out) スペクトルデータを勾配型経度微分した格子点データ}
271 
272     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: w\_data(2*(nm-m+1))
273     \textcolor{comment}{!(in) 入力スペクトルデータ}
274 
275     xy\_gradlambda\_w = xy\_w(w\_data,ipow=0,iflag=-1)
276 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__wave__module__deriv_af434ad5400dcab2b96a0251cc2a70c1c_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__wave__module__deriv_af60c8ba8ad2768115060250d730b608b}\label{namespacew__wave__module__deriv_af60c8ba8ad2768115060250d730b608b}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!xy\+\_\+gradlat\+\_\+w@{xy\+\_\+gradlat\+\_\+w}}
\index{xy\+\_\+gradlat\+\_\+w@{xy\+\_\+gradlat\+\_\+w}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{xy\+\_\+gradlat\+\_\+w()}{xy\_gradlat\_w()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:im-\/1,1\+:jm), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::xy\+\_\+gradlat\+\_\+w (\begin{DoxyParamCaption}\item[{real(8), dimension(2$\ast$(nm-\/m+1)), intent(in)}]{w\+\_\+data }\end{DoxyParamCaption})}



Definition at line 179 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References w\+\_\+wave\+\_\+module\+\_\+base\+::xy\+\_\+w().


\begin{DoxyCode}
179     \textcolor{comment}{!}
180     \textcolor{comment}{! スペクトルデータに勾配型緯度微分 ∂/∂φ を作用させて}
181     \textcolor{comment}{! 格子点データに変換して返す(1 層用).}
182     \textcolor{comment}{!}
183     \textcolor{keywordtype}{real(8)}              :: xy\_gradlat\_w(0:im-1,1:jm)
184     \textcolor{comment}{!(out) スペクトルデータを勾配型緯度微分した格子点データ}
185 
186     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: w\_data(2*(nm-m+1))
187     \textcolor{comment}{!(in) 入力スペクトルデータ}
188 
189     xy\_gradlat\_w = xy\_w(w\_data,ipow=1,iflag=1)
190 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__wave__module__deriv_af60c8ba8ad2768115060250d730b608b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__wave__module__deriv_a73ff76d33bfd5c9e5852c875f0d08039}\label{namespacew__wave__module__deriv_a73ff76d33bfd5c9e5852c875f0d08039}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!xy\+\_\+gradlon\+\_\+w@{xy\+\_\+gradlon\+\_\+w}}
\index{xy\+\_\+gradlon\+\_\+w@{xy\+\_\+gradlon\+\_\+w}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{xy\+\_\+gradlon\+\_\+w()}{xy\_gradlon\_w()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:im-\/1,1\+:jm), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::xy\+\_\+gradlon\+\_\+w (\begin{DoxyParamCaption}\item[{real(8), dimension(2$\ast$(nm-\/m+1)), intent(in)}]{w\+\_\+data }\end{DoxyParamCaption})}



Definition at line 164 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References w\+\_\+wave\+\_\+module\+\_\+base\+::xy\+\_\+w().


\begin{DoxyCode}
164     \textcolor{comment}{!}
165     \textcolor{comment}{! スペクトルデータに勾配型経度微分 1/cosφ・∂/∂λ を}
166     \textcolor{comment}{! 作用させた格子点データを返す(1 層用).}
167     \textcolor{comment}{!}
168     \textcolor{keywordtype}{real(8)}              :: xy\_gradlon\_w(0:im-1,1:jm)
169     \textcolor{comment}{!(out) スペクトルデータを勾配型経度微分した格子点データ}
170 
171     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: w\_data(2*(nm-m+1))
172     \textcolor{comment}{!(in) 入力スペクトルデータ}
173 
174     xy\_gradlon\_w = xy\_w(w\_data,ipow=1,iflag=-1)
175 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__wave__module__deriv_a73ff76d33bfd5c9e5852c875f0d08039_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__wave__module__deriv_a1b1dd853e14125affe34ae8e59bf1460}\label{namespacew__wave__module__deriv_a1b1dd853e14125affe34ae8e59bf1460}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!xy\+\_\+gradmu\+\_\+w@{xy\+\_\+gradmu\+\_\+w}}
\index{xy\+\_\+gradmu\+\_\+w@{xy\+\_\+gradmu\+\_\+w}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{xy\+\_\+gradmu\+\_\+w()}{xy\_gradmu\_w()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:im-\/1,1\+:jm), public w\+\_\+wave\+\_\+module\+\_\+deriv\+::xy\+\_\+gradmu\+\_\+w (\begin{DoxyParamCaption}\item[{real(8), dimension(2$\ast$(nm-\/m+1)), intent(in)}]{w\+\_\+data }\end{DoxyParamCaption})}



Definition at line 280 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.



References w\+\_\+wave\+\_\+module\+\_\+base\+::xy\+\_\+w().


\begin{DoxyCode}
280     \textcolor{comment}{!}
281     \textcolor{comment}{! スペクトルデータに勾配型緯度微分 (1-μ^2)∂/∂μ  (μ=sinφ)}
282     \textcolor{comment}{! を作用させて格子点データに変換して返す(1 層用).}
283     \textcolor{comment}{!}
284     \textcolor{keywordtype}{real(8)}              :: xy\_gradmu\_w(0:im-1,1:jm)
285     \textcolor{comment}{!(out) スペクトルデータを勾配型緯度微分した格子点データ}
286 
287     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}  :: w\_data(2*(nm-m+1))
288     \textcolor{comment}{!(in) 入力スペクトルデータ}
289 
290     xy\_gradmu\_w = xy\_w(w\_data,ipow=0,iflag=1)
291 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__wave__module__deriv_a1b1dd853e14125affe34ae8e59bf1460_cgraph}
\end{center}
\end{figure}


\subsection{Variable Documentation}
\mbox{\Hypertarget{namespacew__wave__module__deriv_a3f0fd930dbd6c42ab8634cccd1cf288f}\label{namespacew__wave__module__deriv_a3f0fd930dbd6c42ab8634cccd1cf288f}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!d@{d}}
\index{d@{d}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{d}{d}}
{\footnotesize\ttfamily real(8), dimension(\+:), allocatable, save w\+\_\+wave\+\_\+module\+\_\+deriv\+::d}



Definition at line 50 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}
50   \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{allocatable}  :: d(:)
\end{DoxyCode}
\mbox{\Hypertarget{namespacew__wave__module__deriv_aeea8d98f78a3b9aec18efa37ba4f708b}\label{namespacew__wave__module__deriv_aeea8d98f78a3b9aec18efa37ba4f708b}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!rn@{rn}}
\index{rn@{rn}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{rn}{rn}}
{\footnotesize\ttfamily real(8), dimension(\+:,\+:), allocatable, save, public w\+\_\+wave\+\_\+module\+\_\+deriv\+::rn}



Definition at line 57 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}
57   \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{allocatable}  :: rn(:,:)            
\end{DoxyCode}
\mbox{\Hypertarget{namespacew__wave__module__deriv_a61207c33bd726239204150656817cc4d}\label{namespacew__wave__module__deriv_a61207c33bd726239204150656817cc4d}} 
\index{w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}!w\+\_\+wave\+\_\+deriv\+\_\+initialize@{w\+\_\+wave\+\_\+deriv\+\_\+initialize}}
\index{w\+\_\+wave\+\_\+deriv\+\_\+initialize@{w\+\_\+wave\+\_\+deriv\+\_\+initialize}!w\+\_\+wave\+\_\+module\+\_\+deriv@{w\+\_\+wave\+\_\+module\+\_\+deriv}}
\subsubsection{\texorpdfstring{w\+\_\+wave\+\_\+deriv\+\_\+initialize}{w\_wave\_deriv\_initialize}}
{\footnotesize\ttfamily logical w\+\_\+wave\+\_\+module\+\_\+deriv\+::w\+\_\+wave\+\_\+deriv\+\_\+initialize =.false.}



Definition at line 67 of file w\+\_\+wave\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}
67   \textcolor{keywordtype}{logical}               :: w\_wave\_deriv\_initialize=.false.   \textcolor{comment}{! 初期化フラッグ}
\end{DoxyCode}
