\hypertarget{namespacewa__module__integral}{}\section{wa\+\_\+module\+\_\+integral Module Reference}
\label{namespacewa__module__integral}\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real(dp) function, dimension(size(xya\+\_\+data, 3)), public \hyperlink{namespacewa__module__integral_aecf7e444ae26ee03f91b01bfb6db374d}{a\+\_\+intlonlat\+\_\+xya} (xya\+\_\+data)
\item 
real(dp) function, dimension(0\+:im-\/1, size(xya\+\_\+data, 3)), public \hyperlink{namespacewa__module__integral_a0bc370739169fe50ab71d542efe55a74}{xa\+\_\+intlat\+\_\+xya} (xya\+\_\+data)
\item 
real(dp) function, dimension(1\+:jm, size(xya\+\_\+data, 3)), public \hyperlink{namespacewa__module__integral_a3f5d48aa51cf060ad5383b6ae073cfb0}{ya\+\_\+intlon\+\_\+xya} (xya\+\_\+data)
\item 
real(dp) function, dimension(size(ya\+\_\+data, 2)), public \hyperlink{namespacewa__module__integral_a165323bc096081effa931c8a98229ca9}{a\+\_\+intlat\+\_\+ya} (ya\+\_\+data)
\item 
real(dp) function, dimension(size(xa\+\_\+data, 2)), public \hyperlink{namespacewa__module__integral_ac50aa3e8abda53a10e8f1bff3537cb20}{a\+\_\+intlon\+\_\+xa} (xa\+\_\+data)
\item 
real(dp) function, dimension(size(xya\+\_\+data, 3)), public \hyperlink{namespacewa__module__integral_a2fdc4b9268012b4e82945bff8244064b}{a\+\_\+avrlonlat\+\_\+xya} (xya\+\_\+data)
\item 
real(dp) function, dimension(0\+:im-\/1, size(xya\+\_\+data, 3)), public \hyperlink{namespacewa__module__integral_a92bce28b6477f250f96173b79d9d759b}{xa\+\_\+avrlat\+\_\+xya} (xya\+\_\+data)
\item 
real(dp) function, dimension(1\+:jm, size(xya\+\_\+data, 3)), public \hyperlink{namespacewa__module__integral_a671d893ef30c3900a73e7c6e9a48e8ed}{ya\+\_\+avrlon\+\_\+xya} (xya\+\_\+data)
\item 
real(dp) function, dimension(size(ya\+\_\+data, 2)), public \hyperlink{namespacewa__module__integral_a238b23883086a49c2dc28d1be56e2328}{a\+\_\+avrlat\+\_\+ya} (ya\+\_\+data)
\item 
real(dp) function, dimension(size(xa\+\_\+data, 2)), public \hyperlink{namespacewa__module__integral_af98920bc20185a11a3461d2896128197}{a\+\_\+avrlon\+\_\+xa} (xa\+\_\+data)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacewa__module__integral_a238b23883086a49c2dc28d1be56e2328}\label{namespacewa__module__integral_a238b23883086a49c2dc28d1be56e2328}} 
\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}!a\+\_\+avrlat\+\_\+ya@{a\+\_\+avrlat\+\_\+ya}}
\index{a\+\_\+avrlat\+\_\+ya@{a\+\_\+avrlat\+\_\+ya}!wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+avrlat\+\_\+ya()}{a\_avrlat\_ya()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(ya\+\_\+data,2)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+avrlat\+\_\+ya (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{ya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 223 of file wa\+\_\+module\+\_\+integral.\+f90.



References a\+\_\+intlat\+\_\+ya(), and w\+\_\+module\+\_\+base\+::y\+\_\+lat\+\_\+weight.


\begin{DoxyCode}
223     \textcolor{comment}{!}
224     \textcolor{comment}{! 1 次元(Y)格子点データの緯度(Y)方向平均(多層用).}
225     \textcolor{comment}{!}
226     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算し,}
227     \textcolor{comment}{! y\_Y\_Weight の総和で割ることで平均している.}
228     \textcolor{comment}{!}
229     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)} :: ya\_data(:,:)
230     \textcolor{comment}{!(in)  1 次元緯度格子点データの並び(1:jm,*)}
231 
232     \textcolor{keywordtype}{real(DP)}             :: a\_avrlat\_ya(size(ya\_data,2))
233     \textcolor{comment}{!(out) 平均値の並び(*)}
234 
235     a\_avrlat\_ya = a\_intlat\_ya(ya\_data)/sum(y\_lat\_weight)
236 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_a238b23883086a49c2dc28d1be56e2328_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_af98920bc20185a11a3461d2896128197}\label{namespacewa__module__integral_af98920bc20185a11a3461d2896128197}} 
\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}!a\+\_\+avrlon\+\_\+xa@{a\+\_\+avrlon\+\_\+xa}}
\index{a\+\_\+avrlon\+\_\+xa@{a\+\_\+avrlon\+\_\+xa}!wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+avrlon\+\_\+xa()}{a\_avrlon\_xa()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(xa\+\_\+data,2)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+avrlon\+\_\+xa (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:), intent(in)}]{xa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 240 of file wa\+\_\+module\+\_\+integral.\+f90.



References a\+\_\+intlon\+\_\+xa(), and w\+\_\+module\+\_\+base\+::x\+\_\+lon\+\_\+weight.


\begin{DoxyCode}
240     \textcolor{comment}{!}
241     \textcolor{comment}{! 1 次元(X)格子点データの経度(X)方向平均(多層用).}
242     \textcolor{comment}{!}
243     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算し,}
244     \textcolor{comment}{! x\_X\_Weight の総和で割ることで平均している.}
245     \textcolor{comment}{!}
246     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)} :: xa\_data(0:,:)
247     \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:im-1,*)}
248 
249     \textcolor{keywordtype}{real(DP)}             :: a\_avrlon\_xa(size(xa\_data,2))
250     \textcolor{comment}{!(out) 平均値の並び(*)}
251 
252     a\_avrlon\_xa = a\_intlon\_xa(xa\_data)/sum(x\_lon\_weight)
253 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_af98920bc20185a11a3461d2896128197_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a2fdc4b9268012b4e82945bff8244064b}\label{namespacewa__module__integral_a2fdc4b9268012b4e82945bff8244064b}} 
\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}!a\+\_\+avrlonlat\+\_\+xya@{a\+\_\+avrlonlat\+\_\+xya}}
\index{a\+\_\+avrlonlat\+\_\+xya@{a\+\_\+avrlonlat\+\_\+xya}!wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+avrlonlat\+\_\+xya()}{a\_avrlonlat\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+avrlonlat\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 172 of file wa\+\_\+module\+\_\+integral.\+f90.



References a\+\_\+avrlon\+\_\+xa(), and xa\+\_\+avrlat\+\_\+xya().


\begin{DoxyCode}
172     \textcolor{comment}{!}
173     \textcolor{comment}{! 2 次元緯度経度格子点データの全領域平均(多層用).}
174     \textcolor{comment}{!}
175     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
176     \textcolor{comment}{! 総和を計算し, x\_X\_Weight*y\_Y\_Weight の総和で割ることで平均している.}
177     \textcolor{comment}{!}
178     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: xya\_data(0:,:,:)
179     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,1:jm,*)}
180 
181     \textcolor{keywordtype}{real(DP)} :: a\_avrlonlat\_xya(size(xya\_data,3))
182     \textcolor{comment}{!(out) 平均値の並び(*)}
183 
184     a\_avrlonlat\_xya = a\_avrlon\_xa(xa\_avrlat\_xya(xya\_data))
185 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__integral_a2fdc4b9268012b4e82945bff8244064b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a165323bc096081effa931c8a98229ca9}\label{namespacewa__module__integral_a165323bc096081effa931c8a98229ca9}} 
\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}!a\+\_\+intlat\+\_\+ya@{a\+\_\+intlat\+\_\+ya}}
\index{a\+\_\+intlat\+\_\+ya@{a\+\_\+intlat\+\_\+ya}!wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+intlat\+\_\+ya()}{a\_intlat\_ya()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(ya\+\_\+data,2)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+intlat\+\_\+ya (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{ya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 126 of file wa\+\_\+module\+\_\+integral.\+f90.



References w\+\_\+module\+\_\+base\+::jm, and w\+\_\+module\+\_\+base\+::y\+\_\+lat\+\_\+weight.


\begin{DoxyCode}
126     \textcolor{comment}{!}
127     \textcolor{comment}{! 1 次元緯度(Y)格子点データの Y 方向積分(多層用).}
128     \textcolor{comment}{!}
129     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算している.}
130     \textcolor{comment}{!}
131     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)} :: ya\_data(:,:)
132     \textcolor{comment}{!(in)  1 次元緯度(Y)格子点データの並び(1:jm,*)}
133 
134     \textcolor{keywordtype}{real(DP)}             :: a\_intlat\_ya(size(ya\_data,2))
135     \textcolor{comment}{!(out) 積分値の並び(*)}
136 
137     \textcolor{keywordtype}{integer} :: i\_jm
138     \textcolor{keywordtype}{integer} :: j
139 
140     i\_jm = int(jm)
141 
142     a\_intlat\_ya = 0.0d0
143     \textcolor{keywordflow}{do} j=1,i\_jm
144       a\_intlat\_ya = a\_intlat\_ya + ya\_data(j,:) * y\_lat\_weight(j)
145 \textcolor{keywordflow}{    enddo}
146 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__integral_ac50aa3e8abda53a10e8f1bff3537cb20}\label{namespacewa__module__integral_ac50aa3e8abda53a10e8f1bff3537cb20}} 
\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}!a\+\_\+intlon\+\_\+xa@{a\+\_\+intlon\+\_\+xa}}
\index{a\+\_\+intlon\+\_\+xa@{a\+\_\+intlon\+\_\+xa}!wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+intlon\+\_\+xa()}{a\_intlon\_xa()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(xa\+\_\+data,2)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+intlon\+\_\+xa (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:), intent(in)}]{xa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 150 of file wa\+\_\+module\+\_\+integral.\+f90.



References w\+\_\+module\+\_\+base\+::im, and w\+\_\+module\+\_\+base\+::x\+\_\+lon\+\_\+weight.


\begin{DoxyCode}
150     \textcolor{comment}{!}
151     \textcolor{comment}{! 1 次元経度(X)格子点データの X 方向積分(多層用).}
152     \textcolor{comment}{!}
153     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}
154     \textcolor{comment}{!}
155     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)} :: xa\_data(0:,:)
156     \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:im-1,*)}
157     \textcolor{keywordtype}{real(DP)}             :: a\_intlon\_xa(size(xa\_data,2))
158     \textcolor{comment}{!(out) 積分値の並び(*)}
159     \textcolor{keywordtype}{integer} :: i\_im
160     \textcolor{keywordtype}{integer} :: i
161 
162     i\_im = int(im)
163     a\_intlon\_xa = 0.0d0
164     \textcolor{keywordflow}{do} i=0,i\_im-1
165       a\_intlon\_xa = a\_intlon\_xa + xa\_data(i,:) * x\_lon\_weight(i)
166 \textcolor{keywordflow}{    enddo}
167 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__integral_aecf7e444ae26ee03f91b01bfb6db374d}\label{namespacewa__module__integral_aecf7e444ae26ee03f91b01bfb6db374d}} 
\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}!a\+\_\+intlonlat\+\_\+xya@{a\+\_\+intlonlat\+\_\+xya}}
\index{a\+\_\+intlonlat\+\_\+xya@{a\+\_\+intlonlat\+\_\+xya}!wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+intlonlat\+\_\+xya()}{a\_intlonlat\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+intlonlat\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 65 of file wa\+\_\+module\+\_\+integral.\+f90.



References a\+\_\+intlon\+\_\+xa(), and xa\+\_\+intlat\+\_\+xya().


\begin{DoxyCode}
65     \textcolor{comment}{!}
66     \textcolor{comment}{! 2 次元緯度経度格子点データの全領域積分(多層用).}
67     \textcolor{comment}{!}
68     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
69     \textcolor{comment}{! 総和を計算している.}
70     \textcolor{comment}{!}
71     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}   :: xya\_data(0:,:,:)
72     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,1:jm,*)}
73     \textcolor{keywordtype}{real(DP)} :: a\_intlonlat\_xya(size(xya\_data,3))
74     \textcolor{comment}{!(out) 積分されたデータの並び(*)}
75 
76     a\_intlonlat\_xya = a\_intlon\_xa(xa\_intlat\_xya(xya\_data))
77 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_aecf7e444ae26ee03f91b01bfb6db374d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a92bce28b6477f250f96173b79d9d759b}\label{namespacewa__module__integral_a92bce28b6477f250f96173b79d9d759b}} 
\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}!xa\+\_\+avrlat\+\_\+xya@{xa\+\_\+avrlat\+\_\+xya}}
\index{xa\+\_\+avrlat\+\_\+xya@{xa\+\_\+avrlat\+\_\+xya}!wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{xa\+\_\+avrlat\+\_\+xya()}{xa\_avrlat\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::xa\+\_\+avrlat\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 189 of file wa\+\_\+module\+\_\+integral.\+f90.



References xa\+\_\+intlat\+\_\+xya(), and w\+\_\+module\+\_\+base\+::y\+\_\+lat\+\_\+weight.


\begin{DoxyCode}
189     \textcolor{comment}{!}
190     \textcolor{comment}{! 2 次元緯度経度格子点データの緯度(Y)方向平均(多層用).}
191     \textcolor{comment}{!}
192     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算し,}
193     \textcolor{comment}{! y\_Y\_Weight の総和で割ることで平均している.}
194     \textcolor{comment}{!}
195     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)} :: xya\_data(0:,:,:)
196     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,1:jm,*)}
197 
198     \textcolor{keywordtype}{real(DP)}             :: xa\_avrlat\_xya(0:im-1,size(xya\_data,3))
199     \textcolor{comment}{!(out) 平均された 1 次元経度(X)格子点データの並び(im,*)}
200 
201     xa\_avrlat\_xya = xa\_intlat\_xya(xya\_data)/sum(y\_lat\_weight)
202 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_a92bce28b6477f250f96173b79d9d759b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a0bc370739169fe50ab71d542efe55a74}\label{namespacewa__module__integral_a0bc370739169fe50ab71d542efe55a74}} 
\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}!xa\+\_\+intlat\+\_\+xya@{xa\+\_\+intlat\+\_\+xya}}
\index{xa\+\_\+intlat\+\_\+xya@{xa\+\_\+intlat\+\_\+xya}!wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{xa\+\_\+intlat\+\_\+xya()}{xa\_intlat\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::xa\+\_\+intlat\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 81 of file wa\+\_\+module\+\_\+integral.\+f90.



References w\+\_\+module\+\_\+base\+::jm, and w\+\_\+module\+\_\+base\+::y\+\_\+lat\+\_\+weight.


\begin{DoxyCode}
81     \textcolor{comment}{!}
82     \textcolor{comment}{! 2 次元緯度経度格子点データの緯度(Y)方向積分(多層用).}
83     \textcolor{comment}{!}
84     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算している.}
85     \textcolor{comment}{!}
86     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)} :: xya\_data(0:,:,:)
87     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,1:jm,*)}
88     \textcolor{keywordtype}{real(DP)}             :: xa\_intlat\_xya(0:im-1,size(xya\_data,3))
89     \textcolor{comment}{!(out) 積分された 1 次元経度(X)格子点データの並び}
90     \textcolor{keywordtype}{integer} :: j
91     \textcolor{keywordtype}{integer} :: i\_jm
92 
93     i\_jm = int(jm)
94     xa\_intlat\_xya = 0.0d0
95     \textcolor{keywordflow}{do} j=1,i\_jm
96       xa\_intlat\_xya = xa\_intlat\_xya + xya\_data(:,j,:) * y\_lat\_weight(j)
97 \textcolor{keywordflow}{    enddo}
98 
\end{DoxyCode}
\mbox{\Hypertarget{namespacewa__module__integral_a671d893ef30c3900a73e7c6e9a48e8ed}\label{namespacewa__module__integral_a671d893ef30c3900a73e7c6e9a48e8ed}} 
\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}!ya\+\_\+avrlon\+\_\+xya@{ya\+\_\+avrlon\+\_\+xya}}
\index{ya\+\_\+avrlon\+\_\+xya@{ya\+\_\+avrlon\+\_\+xya}!wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{ya\+\_\+avrlon\+\_\+xya()}{ya\_avrlon\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(1\+:jm,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::ya\+\_\+avrlon\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 206 of file wa\+\_\+module\+\_\+integral.\+f90.



References w\+\_\+module\+\_\+base\+::x\+\_\+lon\+\_\+weight, and ya\+\_\+intlon\+\_\+xya().


\begin{DoxyCode}
206     \textcolor{comment}{!}
207     \textcolor{comment}{! 2 次元緯度経度格子点データの経度(X)方向平均(多層用).}
208     \textcolor{comment}{!}
209     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算し,}
210     \textcolor{comment}{! x\_X\_Weight の総和で割ることで平均している.}
211     \textcolor{comment}{!}
212     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)} :: xya\_data(0:,:,:)
213     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,1:jm,*)}
214 
215     \textcolor{keywordtype}{real(DP)}             :: ya\_avrlon\_xya(1:jm,size(xya\_data,3))
216     \textcolor{comment}{!(out) 平均された 1 次元緯度(Y)格子点の並び(1:jm,*)}
217 
218     ya\_avrlon\_xya = ya\_intlon\_xya(xya\_data)/sum(x\_lon\_weight)
219 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_a671d893ef30c3900a73e7c6e9a48e8ed_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a3f5d48aa51cf060ad5383b6ae073cfb0}\label{namespacewa__module__integral_a3f5d48aa51cf060ad5383b6ae073cfb0}} 
\index{wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}!ya\+\_\+intlon\+\_\+xya@{ya\+\_\+intlon\+\_\+xya}}
\index{ya\+\_\+intlon\+\_\+xya@{ya\+\_\+intlon\+\_\+xya}!wa\+\_\+module\+\_\+integral@{wa\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{ya\+\_\+intlon\+\_\+xya()}{ya\_intlon\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(1\+:jm,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::ya\+\_\+intlon\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



Definition at line 102 of file wa\+\_\+module\+\_\+integral.\+f90.



References w\+\_\+module\+\_\+base\+::im, and w\+\_\+module\+\_\+base\+::x\+\_\+lon\+\_\+weight.


\begin{DoxyCode}
102     \textcolor{comment}{!}
103     \textcolor{comment}{! 2 次元緯度経度格子点データの経度(X)方向積分(多層用).}
104     \textcolor{comment}{!}
105     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}
106     \textcolor{comment}{!}
107     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)} :: xya\_data(0:,:,:)
108     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,1:jm,*)}
109 
110     \textcolor{keywordtype}{real(DP)}             :: ya\_intlon\_xya(1:jm,size(xya\_data,3))
111     \textcolor{comment}{!(out) 積分された 1 次元緯度(Y)格子点データの並び}
112 
113     \textcolor{keywordtype}{integer} :: i
114     \textcolor{keywordtype}{integer} :: i\_im
115 
116     i\_im = int(im)
117 
118     ya\_intlon\_xya = 0.0d0
119     \textcolor{keywordflow}{do} i=0,i\_im-1
120       ya\_intlon\_xya = ya\_intlon\_xya + xya\_data(i,:,:) * x\_lon\_weight(i)
121 \textcolor{keywordflow}{    enddo}
122 
\end{DoxyCode}
