\hypertarget{namespacewa__module__deriv}{}\doxysection{wa\+\_\+module\+\_\+deriv Module Reference}
\label{namespacewa__module__deriv}\index{wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real(dp) function, dimension((nm+1) $\ast$(nm+1), size(wa\+\_\+data, 2)), public \mbox{\hyperlink{namespacewa__module__deriv_a1d06e3097dab6ac428d9681139719fea}{wa\+\_\+lapla\+\_\+wa}} (wa\+\_\+data)
\item 
real(dp) function, dimension((nm+1) $\ast$(nm+1), size(wa\+\_\+data, 2)), public \mbox{\hyperlink{namespacewa__module__deriv_a922ff3a5cfb927d00afec3dd9df827e0}{wa\+\_\+laplainv\+\_\+wa}} (wa\+\_\+data)
\item 
real(dp) function, dimension((nm+1) $\ast$(nm+1), size(wa\+\_\+data, 2)), public \mbox{\hyperlink{namespacewa__module__deriv_ae143b688a5bb10daf8904281cb297012}{wa\+\_\+dlon\+\_\+wa}} (wa\+\_\+data)
\item 
real(dp) function, dimension(0\+:im-\/1, 1\+:jm, size(wa\+\_\+data, 2)), public \mbox{\hyperlink{namespacewa__module__deriv_aa45cb2f4714ad006c8a6963820821521}{xya\+\_\+gradlon\+\_\+wa}} (wa\+\_\+data)
\item 
real(dp) function, dimension(0\+:im-\/1, 1\+:jm, size(wa\+\_\+data, 2)), public \mbox{\hyperlink{namespacewa__module__deriv_ae38c93df54e72fe8898d3d6a9549f794}{xya\+\_\+gradlat\+\_\+wa}} (wa\+\_\+data)
\item 
real(dp) function, dimension((nm+1) $\ast$$\ast$2, size(xya\+\_\+data, 3)), public \mbox{\hyperlink{namespacewa__module__deriv_ad30d3f1be6a8ec92cd1bac490bd80815}{wa\+\_\+divlon\+\_\+xya}} (xya\+\_\+data)
\item 
real(dp) function, dimension((nm+1) $\ast$$\ast$2, size(xya\+\_\+data, 3)), public \mbox{\hyperlink{namespacewa__module__deriv_a9ed2015385b3e42ec7df6ce7cae7ae6c}{wa\+\_\+divlat\+\_\+xya}} (xya\+\_\+data)
\item 
real(dp) function, dimension((nm+1) $\ast$$\ast$2, size(xya\+\_\+u, 3)), public \mbox{\hyperlink{namespacewa__module__deriv_a59732ffcb7d360b05c1b2ca26e8c3569}{wa\+\_\+div\+\_\+xya\+\_\+xya}} (xya\+\_\+u, xya\+\_\+v)
\item 
real(dp) function, dimension((nm+1) $\ast$$\ast$2, size(wa\+\_\+a, 2)), public \mbox{\hyperlink{namespacewa__module__deriv_af0d9000fe52f4ef67432a734e992eb8d}{wa\+\_\+jacobian\+\_\+wa\+\_\+wa}} (wa\+\_\+a, wa\+\_\+b)
\item 
real(dp) function, dimension(0\+:im-\/1, 1\+:jm, size(wa\+\_\+data, 2)), public \mbox{\hyperlink{namespacewa__module__deriv_af3257cedf615b2bbd2205c3d6952a91b}{xya\+\_\+gradlambda\+\_\+wa}} (wa\+\_\+data)
\item 
real(dp) function, dimension(0\+:im-\/1, 1\+:jm, size(wa\+\_\+data, 2)), public \mbox{\hyperlink{namespacewa__module__deriv_a7d747e78d1d2ddba0f3dbe272ec41482}{xya\+\_\+gradmu\+\_\+wa}} (wa\+\_\+data)
\item 
real(dp) function, dimension((nm+1) $\ast$$\ast$2, size(xya\+\_\+data, 3)), public \mbox{\hyperlink{namespacewa__module__deriv_a4ce86b92c965c7e230cb2e920c05a2b5}{wa\+\_\+divlambda\+\_\+xya}} (xya\+\_\+data)
\item 
real(dp) function, dimension((nm+1) $\ast$$\ast$2, size(xya\+\_\+data, 3)), public \mbox{\hyperlink{namespacewa__module__deriv_a49076a5135f3752a834808958c16db27}{wa\+\_\+divmu\+\_\+xya}} (xya\+\_\+data)
\end{DoxyCompactItemize}


\doxysubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacewa__module__deriv_a59732ffcb7d360b05c1b2ca26e8c3569}\label{namespacewa__module__deriv_a59732ffcb7d360b05c1b2ca26e8c3569}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!wa\_div\_xya\_xya@{wa\_div\_xya\_xya}}
\index{wa\_div\_xya\_xya@{wa\_div\_xya\_xya}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{wa\_div\_xya\_xya()}{wa\_div\_xya\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension((nm+1)$\ast$$\ast$2,size(xya\+\_\+u,3)), public wa\+\_\+module\+\_\+deriv\+::wa\+\_\+div\+\_\+xya\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+u,  }\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+v }\end{DoxyParamCaption})}



Definition at line 195 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{195     \textcolor{comment}{!}}
\DoxyCodeLine{196     \textcolor{comment}{! 2 つの入力格子点データをベクトル成分とする発散を計算し,}}
\DoxyCodeLine{197     \textcolor{comment}{! スペクトルデータとして返す(多層用).}}
\DoxyCodeLine{198     \textcolor{comment}{!}}
\DoxyCodeLine{199 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: xya\_u(0:,:,:)}
\DoxyCodeLine{200     \textcolor{comment}{!(in) ベクトル経度成分の格子点データ}}
\DoxyCodeLine{201 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: xya\_v(0:,:,:)}
\DoxyCodeLine{202     \textcolor{comment}{!(in) ベクトル緯度成分の格子点データ}}
\DoxyCodeLine{203 \textcolor{keywordtype}{    real}(DP)              :: wa\_Div\_xya\_xya((nm+1)**2,size(xya\_u,3))}
\DoxyCodeLine{204     \textcolor{comment}{!(out) 2 つの入力格子点データをベクトル成分とする発散のスペクトルデータ}}
\DoxyCodeLine{205 }
\DoxyCodeLine{206     wa\_div\_xya\_xya = wa\_divlon\_xya(xya\_u) + wa\_divlat\_xya(xya\_v)}
\DoxyCodeLine{207 }

\end{DoxyCode}


References wa\+\_\+divlat\+\_\+xya(), and wa\+\_\+divlon\+\_\+xya().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__deriv_a59732ffcb7d360b05c1b2ca26e8c3569_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__deriv_a4ce86b92c965c7e230cb2e920c05a2b5}\label{namespacewa__module__deriv_a4ce86b92c965c7e230cb2e920c05a2b5}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!wa\_divlambda\_xya@{wa\_divlambda\_xya}}
\index{wa\_divlambda\_xya@{wa\_divlambda\_xya}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{wa\_divlambda\_xya()}{wa\_divlambda\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension((nm+1)$\ast$$\ast$2,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+deriv\+::wa\+\_\+divlambda\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 262 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{262     \textcolor{comment}{!}}
\DoxyCodeLine{263     \textcolor{comment}{! 格子点データに発散型経度微分 1/(1-\/μ\string^2)・∂/∂λ (μ=sinφ)}}
\DoxyCodeLine{264     \textcolor{comment}{! を作用させてスペクトルデータに変換して返す(多層用).}}
\DoxyCodeLine{265     \textcolor{comment}{!}}
\DoxyCodeLine{266 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: xya\_data(0:,:,:)}
\DoxyCodeLine{267     \textcolor{comment}{!(in) 入力格子点データ}}
\DoxyCodeLine{268 \textcolor{keywordtype}{    real}(DP)              :: wa\_DivLambda\_xya((nm+1)**2,size(xya\_data,3))}
\DoxyCodeLine{269     \textcolor{comment}{!(out) 格子点データを発散型経度微分したスペクトルデータ}}
\DoxyCodeLine{270 }
\DoxyCodeLine{271     wa\_divlambda\_xya = wa\_xya(xya\_data,ipow=2,iflag=-\/1)}
\DoxyCodeLine{272 }

\end{DoxyCode}


References wa\+\_\+module\+\_\+base\+::wa\+\_\+xya().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__deriv_a4ce86b92c965c7e230cb2e920c05a2b5_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__deriv_a9ed2015385b3e42ec7df6ce7cae7ae6c}\label{namespacewa__module__deriv_a9ed2015385b3e42ec7df6ce7cae7ae6c}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!wa\_divlat\_xya@{wa\_divlat\_xya}}
\index{wa\_divlat\_xya@{wa\_divlat\_xya}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{wa\_divlat\_xya()}{wa\_divlat\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension((nm+1)$\ast$$\ast$2,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+deriv\+::wa\+\_\+divlat\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 181 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{181     \textcolor{comment}{!}}
\DoxyCodeLine{182     \textcolor{comment}{! 格子点データに発散型緯度微分 1/cosφ・∂(f cosφ)/∂φ を作用させて}}
\DoxyCodeLine{183     \textcolor{comment}{! スペクトルデータに変換して返す(多層用).}}
\DoxyCodeLine{184     \textcolor{comment}{!}}
\DoxyCodeLine{185 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: xya\_data(0:,:,:)}
\DoxyCodeLine{186     \textcolor{comment}{!(in) 入力格子点データ}}
\DoxyCodeLine{187 \textcolor{keywordtype}{    real}(DP)              :: wa\_DivLat\_xya((nm+1)**2,size(xya\_data,3))}
\DoxyCodeLine{188     \textcolor{comment}{!(out) 格子点データを発散型緯度微分したスペクトルデータ}}
\DoxyCodeLine{189 }
\DoxyCodeLine{190     wa\_divlat\_xya = wa\_xya(xya\_data,ipow=1,iflag=1)}
\DoxyCodeLine{191 }

\end{DoxyCode}


References wa\+\_\+module\+\_\+base\+::wa\+\_\+xya().



Referenced by wa\+\_\+div\+\_\+xya\+\_\+xya().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__deriv_a9ed2015385b3e42ec7df6ce7cae7ae6c_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=338pt]{namespacewa__module__deriv_a9ed2015385b3e42ec7df6ce7cae7ae6c_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__deriv_ad30d3f1be6a8ec92cd1bac490bd80815}\label{namespacewa__module__deriv_ad30d3f1be6a8ec92cd1bac490bd80815}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!wa\_divlon\_xya@{wa\_divlon\_xya}}
\index{wa\_divlon\_xya@{wa\_divlon\_xya}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{wa\_divlon\_xya()}{wa\_divlon\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension((nm+1)$\ast$$\ast$2,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+deriv\+::wa\+\_\+divlon\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 167 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{167     \textcolor{comment}{!}}
\DoxyCodeLine{168     \textcolor{comment}{! 格子点データに発散型経度微分 1/cosφ・∂/∂λ を作用させて}}
\DoxyCodeLine{169     \textcolor{comment}{! スペクトルデータに変換して返す(多層用).}}
\DoxyCodeLine{170     \textcolor{comment}{!}}
\DoxyCodeLine{171 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: xya\_data(0:,:,:)}
\DoxyCodeLine{172     \textcolor{comment}{!(in) 入力格子点データ}}
\DoxyCodeLine{173 \textcolor{keywordtype}{    real}(DP)              :: wa\_DivLon\_xya((nm+1)**2,size(xya\_data,3))}
\DoxyCodeLine{174     \textcolor{comment}{!(out) 格子点データを発散型経度微分したスペクトルデータ}}
\DoxyCodeLine{175 }
\DoxyCodeLine{176     wa\_divlon\_xya = wa\_xya(xya\_data,ipow=1,iflag=-\/1)}
\DoxyCodeLine{177 }

\end{DoxyCode}


References wa\+\_\+module\+\_\+base\+::wa\+\_\+xya().



Referenced by wa\+\_\+div\+\_\+xya\+\_\+xya().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__deriv_ad30d3f1be6a8ec92cd1bac490bd80815_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=338pt]{namespacewa__module__deriv_ad30d3f1be6a8ec92cd1bac490bd80815_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__deriv_a49076a5135f3752a834808958c16db27}\label{namespacewa__module__deriv_a49076a5135f3752a834808958c16db27}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!wa\_divmu\_xya@{wa\_divmu\_xya}}
\index{wa\_divmu\_xya@{wa\_divmu\_xya}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{wa\_divmu\_xya()}{wa\_divmu\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension((nm+1)$\ast$$\ast$2,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+deriv\+::wa\+\_\+divmu\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 276 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{276     \textcolor{comment}{!}}
\DoxyCodeLine{277     \textcolor{comment}{! 格子点データに発散型緯度微分 ∂/∂μ (μ=sinφ)を作用させて}}
\DoxyCodeLine{278     \textcolor{comment}{! スペクトルデータに変換して返す(多層用).}}
\DoxyCodeLine{279     \textcolor{comment}{!}}
\DoxyCodeLine{280 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: xya\_data(0:,:,:)}
\DoxyCodeLine{281     \textcolor{comment}{!(in) 入力格子点データ}}
\DoxyCodeLine{282 \textcolor{keywordtype}{    real}(DP)              :: wa\_DivMu\_xya((nm+1)**2,size(xya\_data,3))}
\DoxyCodeLine{283     \textcolor{comment}{!(out) 格子点データを発散型緯度微分したスペクトルデータ}}
\DoxyCodeLine{284 }
\DoxyCodeLine{285     wa\_divmu\_xya = wa\_xya(xya\_data,ipow=2,iflag=1)}
\DoxyCodeLine{286 }

\end{DoxyCode}


References wa\+\_\+module\+\_\+base\+::wa\+\_\+xya().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__deriv_a49076a5135f3752a834808958c16db27_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__deriv_ae143b688a5bb10daf8904281cb297012}\label{namespacewa__module__deriv_ae143b688a5bb10daf8904281cb297012}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!wa\_dlon\_wa@{wa\_dlon\_wa}}
\index{wa\_dlon\_wa@{wa\_dlon\_wa}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{wa\_dlon\_wa()}{wa\_dlon\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension((nm+1)$\ast$(nm+1),size(wa\+\_\+data,2)), public wa\+\_\+module\+\_\+deriv\+::wa\+\_\+dlon\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 120 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{120     \textcolor{comment}{!}}
\DoxyCodeLine{121     \textcolor{comment}{! スペクトルデータに経度微分 ∂/∂λ を作用させる(多層用).}}
\DoxyCodeLine{122     \textcolor{comment}{!}}
\DoxyCodeLine{123     \textcolor{comment}{! スペクトルデータの経度微分とは, 対応する格子点データに}}
\DoxyCodeLine{124     \textcolor{comment}{! 経度微分∂/∂λを作用させたデータのスペクトル変換のことである.}}
\DoxyCodeLine{125     \textcolor{comment}{!}}
\DoxyCodeLine{126 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: wa\_data(:,:)}
\DoxyCodeLine{127     \textcolor{comment}{!(in) 入力スペクトルデータ}}
\DoxyCodeLine{128 \textcolor{keywordtype}{    real}(DP)              :: wa\_DLon\_wa((nm+1)*(nm+1),size(wa\_data,2))}
\DoxyCodeLine{129     \textcolor{comment}{!(out) スペクトルデータの経度微分}}
\DoxyCodeLine{130     \textcolor{keywordtype}{integer} :: k}
\DoxyCodeLine{131 }
\DoxyCodeLine{132     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(wa\_data,2)}
\DoxyCodeLine{133       wa\_dlon\_wa(:,k) = w\_dlon\_w(wa\_data(:,k))}
\DoxyCodeLine{134 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{135 }

\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__deriv_af0d9000fe52f4ef67432a734e992eb8d}\label{namespacewa__module__deriv_af0d9000fe52f4ef67432a734e992eb8d}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!wa\_jacobian\_wa\_wa@{wa\_jacobian\_wa\_wa}}
\index{wa\_jacobian\_wa\_wa@{wa\_jacobian\_wa\_wa}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{wa\_jacobian\_wa\_wa()}{wa\_jacobian\_wa\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension((nm+1)$\ast$$\ast$2,size(wa\+\_\+a,2)), public wa\+\_\+module\+\_\+deriv\+::wa\+\_\+jacobian\+\_\+wa\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+a,  }\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+b }\end{DoxyParamCaption})}



Definition at line 211 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{211     \textcolor{comment}{! 2 つのスペクトルデータにヤコビアン}}
\DoxyCodeLine{212     \textcolor{comment}{!}}
\DoxyCodeLine{213     \textcolor{comment}{!   J(f,g) = ∂f/∂λ・∂g/∂μ -\/ ∂g/∂λ・∂f/∂μ}}
\DoxyCodeLine{214     \textcolor{comment}{!          = ∂f/∂λ・1/cosφ・∂g/∂φ}}
\DoxyCodeLine{215     \textcolor{comment}{!             -\/ ∂g/∂λ・1/cosφ・∂f/∂φ}}
\DoxyCodeLine{216     \textcolor{comment}{!}}
\DoxyCodeLine{217     \textcolor{comment}{! を作用させる(多層用).}}
\DoxyCodeLine{218     \textcolor{comment}{!}}
\DoxyCodeLine{219 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: wa\_a(:,:)}
\DoxyCodeLine{220     \textcolor{comment}{!(in) 1つ目の入力スペクトルデータ}}
\DoxyCodeLine{221 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: wa\_b(:,:)}
\DoxyCodeLine{222     \textcolor{comment}{!(in) 2つ目の入力スペクトルデータ}}
\DoxyCodeLine{223 \textcolor{keywordtype}{    real}(DP)             :: wa\_Jacobian\_wa\_wa((nm+1)**2,size(wa\_a,2))}
\DoxyCodeLine{224     \textcolor{comment}{!(out) 2 つのスペクトルデータのヤコビアン}}
\DoxyCodeLine{225     \textcolor{keywordtype}{integer} :: k}
\DoxyCodeLine{226 }
\DoxyCodeLine{227     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(wa\_a,2)}
\DoxyCodeLine{228       wa\_jacobian\_wa\_wa(:,k) = w\_jacobian\_w\_w(wa\_a(:,k),wa\_b(:,k))}
\DoxyCodeLine{229 \textcolor{keywordflow}{    end do}}

\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__deriv_a1d06e3097dab6ac428d9681139719fea}\label{namespacewa__module__deriv_a1d06e3097dab6ac428d9681139719fea}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!wa\_lapla\_wa@{wa\_lapla\_wa}}
\index{wa\_lapla\_wa@{wa\_lapla\_wa}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{wa\_lapla\_wa()}{wa\_lapla\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension((nm+1)$\ast$(nm+1),size(wa\+\_\+data,2)), public wa\+\_\+module\+\_\+deriv\+::wa\+\_\+lapla\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 73 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{73     \textcolor{comment}{!}}
\DoxyCodeLine{74     \textcolor{comment}{! 入力スペクトルデータにラプラシアン}}
\DoxyCodeLine{75     \textcolor{comment}{!}}
\DoxyCodeLine{76     \textcolor{comment}{!    ▽\string^2 = 1/cos\string^2φ・∂\string^2/∂λ\string^2 + 1/cosφ・∂/∂φ(cosφ∂/∂φ)}}
\DoxyCodeLine{77     \textcolor{comment}{!}}
\DoxyCodeLine{78     \textcolor{comment}{! を作用する(多層用).}}
\DoxyCodeLine{79     \textcolor{comment}{!}}
\DoxyCodeLine{80     \textcolor{comment}{! スペクトルデータのラプラシアンとは, 対応する格子点データに}}
\DoxyCodeLine{81     \textcolor{comment}{! ラプラシアンを作用させたデータのスペクトル変換のことである.}}
\DoxyCodeLine{82     \textcolor{comment}{!}}
\DoxyCodeLine{83 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: wa\_data(:,:)}
\DoxyCodeLine{84     \textcolor{comment}{!(in) 入力スペクトルデータ}}
\DoxyCodeLine{85 \textcolor{keywordtype}{    real}(DP)              :: wa\_lapla\_wa((nm+1)*(nm+1),size(wa\_data,2))}
\DoxyCodeLine{86     \textcolor{comment}{!(out) 入力スペクトルデータのラプラシアン}}
\DoxyCodeLine{87     \textcolor{keywordtype}{integer} :: k}
\DoxyCodeLine{88 }
\DoxyCodeLine{89     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(wa\_data,2)}
\DoxyCodeLine{90       wa\_lapla\_wa(:,k) = w\_lapla\_w(wa\_data(:,k))}
\DoxyCodeLine{91 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{92 }

\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__deriv_a922ff3a5cfb927d00afec3dd9df827e0}\label{namespacewa__module__deriv_a922ff3a5cfb927d00afec3dd9df827e0}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!wa\_laplainv\_wa@{wa\_laplainv\_wa}}
\index{wa\_laplainv\_wa@{wa\_laplainv\_wa}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{wa\_laplainv\_wa()}{wa\_laplainv\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension((nm+1)$\ast$(nm+1),size(wa\+\_\+data,2)), public wa\+\_\+module\+\_\+deriv\+::wa\+\_\+laplainv\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 96 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{96     \textcolor{comment}{!}}
\DoxyCodeLine{97     \textcolor{comment}{! 入力スペクトルデータに逆ラプラシアン}}
\DoxyCodeLine{98     \textcolor{comment}{!}}
\DoxyCodeLine{99     \textcolor{comment}{!    ▽\string^\{-\/2\}}}
\DoxyCodeLine{100     \textcolor{comment}{!      =[1/cos\string^2φ・∂\string^2/∂λ\string^2 + 1/cosφ・∂/∂φ(cosφ∂/∂φ)]\string^\{-\/1\}}}
\DoxyCodeLine{101     \textcolor{comment}{!}}
\DoxyCodeLine{102     \textcolor{comment}{! を作用する(多層用).}}
\DoxyCodeLine{103     \textcolor{comment}{!}}
\DoxyCodeLine{104     \textcolor{comment}{! スペクトルデータの逆ラプラシアンとは, 対応する格子点データに}}
\DoxyCodeLine{105     \textcolor{comment}{! 逆ラプラシアンを作用させたデータのスペクトル変換のことである.}}
\DoxyCodeLine{106     \textcolor{comment}{!}}
\DoxyCodeLine{107 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: wa\_data(:,:)}
\DoxyCodeLine{108     \textcolor{comment}{!(in) 入力スペクトルデータ}}
\DoxyCodeLine{109 \textcolor{keywordtype}{    real}(DP)              :: wa\_LaplaInv\_wa((nm+1)*(nm+1),size(wa\_data,2))}
\DoxyCodeLine{110     \textcolor{comment}{!(out) スペクトルデータの逆ラプラシアン}}
\DoxyCodeLine{111     \textcolor{keywordtype}{integer} :: k}
\DoxyCodeLine{112 }
\DoxyCodeLine{113     \textcolor{keywordflow}{do} k=1,\textcolor{keyword}{size}(wa\_data,2)}
\DoxyCodeLine{114       wa\_laplainv\_wa(:,k) = w\_laplainv\_w(wa\_data(:,k))}
\DoxyCodeLine{115 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{116 }

\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__deriv_af3257cedf615b2bbd2205c3d6952a91b}\label{namespacewa__module__deriv_af3257cedf615b2bbd2205c3d6952a91b}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!xya\_gradlambda\_wa@{xya\_gradlambda\_wa}}
\index{xya\_gradlambda\_wa@{xya\_gradlambda\_wa}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{xya\_gradlambda\_wa()}{xya\_gradlambda\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1,1\+:jm,size(wa\+\_\+data,2)), public wa\+\_\+module\+\_\+deriv\+::xya\+\_\+gradlambda\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 235 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{235     \textcolor{comment}{!}}
\DoxyCodeLine{236     \textcolor{comment}{! スペクトルデータに勾配型経度微分 ∂/∂λ を作用する(多層用).}}
\DoxyCodeLine{237     \textcolor{comment}{!}}
\DoxyCodeLine{238 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: wa\_data(:,:)}
\DoxyCodeLine{239     \textcolor{comment}{!(in) 入力スペクトルデータ}}
\DoxyCodeLine{240 \textcolor{keywordtype}{    real}(DP)              :: xya\_GradLambda\_wa(0:im-\/1,1:jm,size(wa\_data,2))}
\DoxyCodeLine{241     \textcolor{comment}{!(out) スペクトルデータを勾配型経度微分した格子点データ}}
\DoxyCodeLine{242 }
\DoxyCodeLine{243     xya\_gradlambda\_wa = xya\_wa(wa\_data,ipow=0,iflag=-\/1)}
\DoxyCodeLine{244 }

\end{DoxyCode}


References wa\+\_\+module\+\_\+base\+::xya\+\_\+wa().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__deriv_af3257cedf615b2bbd2205c3d6952a91b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__deriv_ae38c93df54e72fe8898d3d6a9549f794}\label{namespacewa__module__deriv_ae38c93df54e72fe8898d3d6a9549f794}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!xya\_gradlat\_wa@{xya\_gradlat\_wa}}
\index{xya\_gradlat\_wa@{xya\_gradlat\_wa}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{xya\_gradlat\_wa()}{xya\_gradlat\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1,1\+:jm,size(wa\+\_\+data,2)), public wa\+\_\+module\+\_\+deriv\+::xya\+\_\+gradlat\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 153 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{153     \textcolor{comment}{!}}
\DoxyCodeLine{154     \textcolor{comment}{! スペクトルデータに勾配型緯度微分 ∂/∂φ を作用させて}}
\DoxyCodeLine{155     \textcolor{comment}{! 格子点データに変換して返す(多層用).}}
\DoxyCodeLine{156     \textcolor{comment}{!}}
\DoxyCodeLine{157 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: wa\_data(:,:)}
\DoxyCodeLine{158     \textcolor{comment}{!(in) 入力スペクトルデータ}}
\DoxyCodeLine{159 \textcolor{keywordtype}{    real}(DP)              :: xya\_GradLat\_wa(0:im-\/1,1:jm,size(wa\_data,2))}
\DoxyCodeLine{160     \textcolor{comment}{!(out) スペクトルデータを勾配型緯度微分した格子点データ}}
\DoxyCodeLine{161 }
\DoxyCodeLine{162     xya\_gradlat\_wa = xya\_wa(wa\_data,ipow=1,iflag=1)}
\DoxyCodeLine{163 }

\end{DoxyCode}


References wa\+\_\+module\+\_\+base\+::xya\+\_\+wa().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__deriv_ae38c93df54e72fe8898d3d6a9549f794_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__deriv_aa45cb2f4714ad006c8a6963820821521}\label{namespacewa__module__deriv_aa45cb2f4714ad006c8a6963820821521}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!xya\_gradlon\_wa@{xya\_gradlon\_wa}}
\index{xya\_gradlon\_wa@{xya\_gradlon\_wa}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{xya\_gradlon\_wa()}{xya\_gradlon\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1,1\+:jm,size(wa\+\_\+data,2)), public wa\+\_\+module\+\_\+deriv\+::xya\+\_\+gradlon\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 139 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{139     \textcolor{comment}{!}}
\DoxyCodeLine{140     \textcolor{comment}{! スペクトルデータに勾配型経度微分 1/cosφ・∂/∂λ を}}
\DoxyCodeLine{141     \textcolor{comment}{! 作用させた格子点データを返す(多層用).}}
\DoxyCodeLine{142     \textcolor{comment}{!}}
\DoxyCodeLine{143 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: wa\_data(:,:)}
\DoxyCodeLine{144     \textcolor{comment}{!(in) 入力スペクトルデータ}}
\DoxyCodeLine{145 \textcolor{keywordtype}{    real}(DP)              :: xya\_GradLon\_wa(0:im-\/1,1:jm,size(wa\_data,2))}
\DoxyCodeLine{146     \textcolor{comment}{!(out) スペクトルデータを勾配型経度微分した格子点データ}}
\DoxyCodeLine{147 }
\DoxyCodeLine{148     xya\_gradlon\_wa = xya\_wa(wa\_data,ipow=1,iflag=-\/1)}
\DoxyCodeLine{149 }

\end{DoxyCode}


References wa\+\_\+module\+\_\+base\+::xya\+\_\+wa().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__deriv_aa45cb2f4714ad006c8a6963820821521_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__deriv_a7d747e78d1d2ddba0f3dbe272ec41482}\label{namespacewa__module__deriv_a7d747e78d1d2ddba0f3dbe272ec41482}} 
\index{wa\_module\_deriv@{wa\_module\_deriv}!xya\_gradmu\_wa@{xya\_gradmu\_wa}}
\index{xya\_gradmu\_wa@{xya\_gradmu\_wa}!wa\_module\_deriv@{wa\_module\_deriv}}
\doxysubsubsection{\texorpdfstring{xya\_gradmu\_wa()}{xya\_gradmu\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1,1\+:jm,size(wa\+\_\+data,2)), public wa\+\_\+module\+\_\+deriv\+::xya\+\_\+gradmu\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 248 of file wa\+\_\+module\+\_\+deriv.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{248     \textcolor{comment}{!}}
\DoxyCodeLine{249     \textcolor{comment}{! スペクトルデータに勾配型緯度微分 (1-\/μ\string^2)∂/∂μ  (μ=sinφ)}}
\DoxyCodeLine{250     \textcolor{comment}{! を作用させて格子点データに変換して返す(多層用).}}
\DoxyCodeLine{251     \textcolor{comment}{!}}
\DoxyCodeLine{252 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}  :: wa\_data(:,:)}
\DoxyCodeLine{253     \textcolor{comment}{!(in) 入力スペクトルデータ}}
\DoxyCodeLine{254 \textcolor{keywordtype}{    real}(DP)              :: xya\_GradMu\_wa(0:im-\/1,1:jm,size(wa\_data,2))}
\DoxyCodeLine{255     \textcolor{comment}{!(out) スペクトルデータを勾配型緯度微分した格子点データ}}
\DoxyCodeLine{256 }
\DoxyCodeLine{257     xya\_gradmu\_wa = xya\_wa(wa\_data,ipow=0,iflag=1)}
\DoxyCodeLine{258 }

\end{DoxyCode}


References wa\+\_\+module\+\_\+base\+::xya\+\_\+wa().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__deriv_a7d747e78d1d2ddba0f3dbe272ec41482_cgraph}
\end{center}
\end{figure}
