\hypertarget{namespaceua__mpi__module__integral}{}\section{ua\+\_\+mpi\+\_\+module\+\_\+integral Module Reference}
\label{namespaceua__mpi__module__integral}\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real(8) function, dimension(size(pva\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_af8d1925343354d05b543aff301875d32}{a\+\_\+intlonlat\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, public \hyperlink{namespaceua__mpi__module__integral_aa1b8adeddd5dbb9710f39147b0dceaaa}{intlonlat\+\_\+pv} (pv\+\_\+data)
\item 
real(8) function, dimension(0\+:ic-\/1, size(pva\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_ac9f58a0f17b769c89fe92682d706ecb2}{pa\+\_\+intlat\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, dimension(jc, size(pva\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_ad65cdd7379c1fe5731e35bf65e886dea}{va\+\_\+intlon\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, dimension(size(pa\+\_\+data, 2)), public \hyperlink{namespaceua__mpi__module__integral_a707b5e6e4b9a7e9b9f9b3e0d88d34f36}{a\+\_\+intlon\+\_\+pa} (pa\+\_\+data)
\item 
real(8) function, public \hyperlink{namespaceua__mpi__module__integral_a22d7fc5dc285dcfdb3825fa3c5759fef}{intlon\+\_\+p} (p\+\_\+data)
\item 
real(8) function, dimension(size(va\+\_\+data, 2)), public \hyperlink{namespaceua__mpi__module__integral_a65c5dc45702d1909a6551821781c4c1d}{a\+\_\+intlat\+\_\+va} (va\+\_\+data)
\item 
real(8) function, dimension(size(pva\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_a1df9310a53cb61cccad700dd88051b86}{a\+\_\+avrlonlat\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, public \hyperlink{namespaceua__mpi__module__integral_aa8357f3c4850aff5240d7e5f466fa7f6}{avrlonlat\+\_\+pv} (pv\+\_\+data)
\item 
real(8) function, dimension(0\+:ic-\/1, size(pva\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_a5a490aff92817e74c2e0941aa8811a16}{pa\+\_\+avrlat\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, dimension(jc, size(pva\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_a3874d06ba5307b1cf95da8d2173483a9}{va\+\_\+avrlon\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, dimension(size(pa\+\_\+data, 2)), public \hyperlink{namespaceua__mpi__module__integral_a30b3676153b0279bae23c1e8b1afb37d}{a\+\_\+avrlon\+\_\+pa} (pa\+\_\+data)
\item 
real(8) function, public \hyperlink{namespaceua__mpi__module__integral_a42508d78a283c5b2727ad6114b6d921f}{avrlon\+\_\+p} (p\+\_\+data)
\item 
real(8) function, dimension(size(va\+\_\+data, 2)), public \hyperlink{namespaceua__mpi__module__integral_a45b7110848c8a8802b07f1960d4ce125}{a\+\_\+avrlat\+\_\+va} (va\+\_\+data)
\item 
real(8) function, dimension(size(xvb\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_afdcdfdfac08745f5d074029febbfc4b2}{b\+\_\+intlonlat\+\_\+xvb} (xvb\+\_\+data)
\item 
real(8) function, dimension(0\+:im-\/1, size(xvb\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_a511b8dd0766b32ffc1e6dde4629c4cfd}{xb\+\_\+intlat\+\_\+xvb} (xvb\+\_\+data)
\item 
real(8) function, dimension(jc, size(xvb\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_a8177a83e77d188c76b64d16c1f025834}{vb\+\_\+intlon\+\_\+xvb} (xvb\+\_\+data)
\item 
real(8) function, dimension(size(xb\+\_\+data, 2)), public \hyperlink{namespaceua__mpi__module__integral_a6b69b2a29d7e392b9a936def013395a4}{b\+\_\+intlon\+\_\+xb} (xb\+\_\+data)
\item 
real(8) function, dimension(size(vb\+\_\+data, 2)), public \hyperlink{namespaceua__mpi__module__integral_ad872d385cbc5a2e52cce198d80402b4b}{b\+\_\+intlat\+\_\+vb} (vb\+\_\+data)
\item 
real(8) function, dimension(size(xvb\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_abd525f3fee07429054e78ca4e2132895}{b\+\_\+avrlonlat\+\_\+xvb} (xvb\+\_\+data)
\item 
real(8) function, dimension(0\+:im-\/1, size(xvb\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_ae4f0e470791c328ede417c63fe65241a}{xb\+\_\+avrlat\+\_\+xvb} (xvb\+\_\+data)
\item 
real(8) function, dimension(jc, size(xvb\+\_\+data, 3)), public \hyperlink{namespaceua__mpi__module__integral_a70bb102c0a2082c1f1f5fe13c8533359}{vb\+\_\+avrlon\+\_\+xvb} (xvb\+\_\+data)
\item 
real(8) function, dimension(size(xb\+\_\+data, 2)), public \hyperlink{namespaceua__mpi__module__integral_a9f0daae7f8aa13f587fc290e63705bd3}{b\+\_\+avrlon\+\_\+xb} (xb\+\_\+data)
\item 
real(8) function, dimension(size(vb\+\_\+data, 2)), public \hyperlink{namespaceua__mpi__module__integral_a2330633aa81a2d8eb16372c75ebde07d}{b\+\_\+avrlat\+\_\+vb} (vb\+\_\+data)
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer \hyperlink{namespaceua__mpi__module__integral_a34f2faf4dfef4ce0bc70f4a804884f50}{ierr}
\end{DoxyCompactItemize}


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



Definition at line 352 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References a\+\_\+intlat\+\_\+va(), ierr, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h.


\begin{DoxyCode}
352     \textcolor{comment}{!}
353     \textcolor{comment}{! 1 次元(Y)格子点データの緯度(Y)方向平均(多層用).}
354     \textcolor{comment}{!}
355     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算し,}
356     \textcolor{comment}{! y\_Y\_Weight の総和で割ることで平均している.}
357     \textcolor{comment}{!}
358     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: va\_data(:,:)
359     \textcolor{comment}{!(in)  1 次元緯度格子点データの並び(jc,*)}
360 
361     \textcolor{keywordtype}{real(8)}             :: a\_avrlat\_va(size(va\_data,2))
362     \textcolor{comment}{!(out) 平均値の並び(*)}
363 
364     \textcolor{keywordtype}{real(8)}             :: tmp
365     \textcolor{keywordtype}{real(8)}             :: lat\_weight\_sum
366 
367     tmp = sum(v\_lat\_weight)
368     \textcolor{keyword}{CALL }mpi\_allreduce(tmp,lat\_weight\_sum,1,mpi\_real8, &
369          mpi\_sum,mpi\_comm\_h,ierr)
370 
371     a\_avrlat\_va = a\_intlat\_va(va\_data)/lat\_weight\_sum
372 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a45b7110848c8a8802b07f1960d4ce125_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a30b3676153b0279bae23c1e8b1afb37d}\label{namespaceua__mpi__module__integral_a30b3676153b0279bae23c1e8b1afb37d}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!a\+\_\+avrlon\+\_\+pa@{a\+\_\+avrlon\+\_\+pa}}
\index{a\+\_\+avrlon\+\_\+pa@{a\+\_\+avrlon\+\_\+pa}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+avrlon\+\_\+pa()}{a\_avrlon\_pa()}}
{\footnotesize\ttfamily real(8) function, dimension(size(pa\+\_\+data,2)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::a\+\_\+avrlon\+\_\+pa (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:,\+:), intent(in)}]{pa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 306 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References a\+\_\+intlon\+\_\+pa(), ierr, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+v, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::p\+\_\+lon\+\_\+weight.


\begin{DoxyCode}
306     \textcolor{comment}{!}
307     \textcolor{comment}{! 1 次元(X)格子点データの経度(X)方向平均(多層用).}
308     \textcolor{comment}{!}
309     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算し,}
310     \textcolor{comment}{! x\_X\_Weight の総和で割ることで平均している.}
311     \textcolor{comment}{!}
312     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: pa\_data(0:,:)
313     \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:im-1,*)}
314 
315     \textcolor{keywordtype}{real(8)}             :: a\_avrlon\_pa(size(pa\_data,2))
316     \textcolor{comment}{!(out) 平均値の並び(*)}
317 
318     \textcolor{keywordtype}{real(8)}             :: tmp
319     \textcolor{keywordtype}{real(8)}             :: lon\_weight\_sum
320 
321     tmp = sum(p\_lon\_weight)
322     \textcolor{keyword}{CALL }mpi\_allreduce(tmp,lon\_weight\_sum,1,mpi\_real8, &
323          mpi\_sum,mpi\_comm\_v,ierr)
324 
325     a\_avrlon\_pa = a\_intlon\_pa(pa\_data)/lon\_weight\_sum
326 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a30b3676153b0279bae23c1e8b1afb37d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a1df9310a53cb61cccad700dd88051b86}\label{namespaceua__mpi__module__integral_a1df9310a53cb61cccad700dd88051b86}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!a\+\_\+avrlonlat\+\_\+pva@{a\+\_\+avrlonlat\+\_\+pva}}
\index{a\+\_\+avrlonlat\+\_\+pva@{a\+\_\+avrlonlat\+\_\+pva}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+avrlonlat\+\_\+pva()}{a\_avrlonlat\_pva()}}
{\footnotesize\ttfamily real(8) function, dimension(size(pva\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::a\+\_\+avrlonlat\+\_\+pva (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{pva\+\_\+data }\end{DoxyParamCaption})}



Definition at line 226 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References a\+\_\+avrlon\+\_\+pa(), and pa\+\_\+avrlat\+\_\+pva().


\begin{DoxyCode}
226     \textcolor{comment}{!}
227     \textcolor{comment}{! 2 次元緯度経度格子点データの全領域平均(多層用).}
228     \textcolor{comment}{!}
229     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
230     \textcolor{comment}{! 総和を計算し, x\_X\_Weight*y\_Y\_Weight の総和で割ることで平均している.}
231     \textcolor{comment}{!}
232     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: pva\_data(:,:,:)
233     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
234 
235     \textcolor{keywordtype}{real(8)} :: a\_avrlonlat\_pva(size(pva\_data,3))
236     \textcolor{comment}{!(out) 平均値の並び(*)}
237 
238     a\_avrlonlat\_pva = a\_avrlon\_pa(pa\_avrlat\_pva(pva\_data))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a1df9310a53cb61cccad700dd88051b86_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a65c5dc45702d1909a6551821781c4c1d}\label{namespaceua__mpi__module__integral_a65c5dc45702d1909a6551821781c4c1d}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!a\+\_\+intlat\+\_\+va@{a\+\_\+intlat\+\_\+va}}
\index{a\+\_\+intlat\+\_\+va@{a\+\_\+intlat\+\_\+va}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+intlat\+\_\+va()}{a\_intlat\_va()}}
{\footnotesize\ttfamily real(8) function, dimension(size(va\+\_\+data,2)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::a\+\_\+intlat\+\_\+va (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{va\+\_\+data }\end{DoxyParamCaption})}



Definition at line 199 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References ierr, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h.


\begin{DoxyCode}
199     \textcolor{comment}{!}
200     \textcolor{comment}{! 1 次元緯度(Y)格子点データの Y 方向積分(多層用).}
201     \textcolor{comment}{!}
202     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算している.}
203     \textcolor{comment}{!}
204     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: va\_data(:,:)
205     \textcolor{comment}{!(in)  1 次元緯度(Y)格子点データの並び(jc,*)}
206 
207     \textcolor{keywordtype}{real(8)}             :: a\_intlat\_va(size(va\_data,2))
208     \textcolor{comment}{!(out) 積分値の並び(*)}
209 
210     \textcolor{keywordtype}{real(8)}             :: a\_intlattmp(size(va\_data,2))
211     \textcolor{keywordtype}{integer} :: j
212 
213     a\_intlat\_va = 0
214     \textcolor{keywordflow}{do} j=1,jc
215        a\_intlat\_va = a\_intlat\_va + va\_data(j,:) * v\_lat\_weight(j)
216 \textcolor{keywordflow}{    enddo}
217 
218     a\_intlattmp=a\_intlat\_va
219     \textcolor{keyword}{CALL }mpi\_allreduce(a\_intlattmp,a\_intlat\_va,\textcolor{keyword}{size}(va\_data,2),mpi\_real8, &
220          mpi\_sum,mpi\_comm\_h,ierr)
221 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a707b5e6e4b9a7e9b9f9b3e0d88d34f36}\label{namespaceua__mpi__module__integral_a707b5e6e4b9a7e9b9f9b3e0d88d34f36}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!a\+\_\+intlon\+\_\+pa@{a\+\_\+intlon\+\_\+pa}}
\index{a\+\_\+intlon\+\_\+pa@{a\+\_\+intlon\+\_\+pa}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+intlon\+\_\+pa()}{a\_intlon\_pa()}}
{\footnotesize\ttfamily real(8) function, dimension(size(pa\+\_\+data,2)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::a\+\_\+intlon\+\_\+pa (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:,\+:), intent(in)}]{pa\+\_\+data }\end{DoxyParamCaption})}



Definition at line 154 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References ua\+\_\+mpi\+\_\+module\+\_\+base\+::ic, ierr, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+v, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::p\+\_\+lon\+\_\+weight.


\begin{DoxyCode}
154     \textcolor{comment}{!}
155     \textcolor{comment}{! 1 次元経度(X)格子点データの X 方向積分(多層用).}
156     \textcolor{comment}{!}
157     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}
158     \textcolor{comment}{!}
159     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: pa\_data(0:,:)
160     \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:ic-1,*)}
161     \textcolor{keywordtype}{real(8)}             :: a\_intlon\_pa(size(pa\_data,2))
162     \textcolor{comment}{!(out) 積分値の並び(*)}
163     \textcolor{keywordtype}{integer} :: i
164 
165     \textcolor{keywordtype}{real(8)}             :: a\_intlontmp(size(pa\_data,2))
166 
167     a\_intlon\_pa = 0.0d0
168     \textcolor{keywordflow}{do} i=0,ic-1
169        a\_intlon\_pa = a\_intlon\_pa + pa\_data(i,:) * p\_lon\_weight(i)
170 \textcolor{keywordflow}{    enddo}
171 
172     a\_intlontmp = a\_intlon\_pa
173     \textcolor{keyword}{CALL }mpi\_allreduce(a\_intlontmp,a\_intlon\_pa,\textcolor{keyword}{size}(pa\_data,2),&
174          mpi\_real8, mpi\_sum, mpi\_comm\_v, ierr)
175 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_af8d1925343354d05b543aff301875d32}\label{namespaceua__mpi__module__integral_af8d1925343354d05b543aff301875d32}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!a\+\_\+intlonlat\+\_\+pva@{a\+\_\+intlonlat\+\_\+pva}}
\index{a\+\_\+intlonlat\+\_\+pva@{a\+\_\+intlonlat\+\_\+pva}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+intlonlat\+\_\+pva()}{a\_intlonlat\_pva()}}
{\footnotesize\ttfamily real(8) function, dimension(size(pva\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::a\+\_\+intlonlat\+\_\+pva (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{pva\+\_\+data }\end{DoxyParamCaption})}



Definition at line 70 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References a\+\_\+intlon\+\_\+pa(), and pa\+\_\+intlat\+\_\+pva().


\begin{DoxyCode}
70     \textcolor{comment}{!}
71     \textcolor{comment}{! 2 次元緯度経度格子点データの全領域積分(多層用).}
72     \textcolor{comment}{!}
73     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
74     \textcolor{comment}{! 総和を計算している.}
75     \textcolor{comment}{!}
76     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: pva\_data(:,:,:)
77     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:ic-1,jc,*)}
78 
79     \textcolor{keywordtype}{real(8)} :: a\_intlonlat\_pva(size(pva\_data,3))
80     \textcolor{comment}{!(out) 積分されたデータの並び(*)}
81 
82     a\_intlonlat\_pva = a\_intlon\_pa(pa\_intlat\_pva(pva\_data))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_af8d1925343354d05b543aff301875d32_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a42508d78a283c5b2727ad6114b6d921f}\label{namespaceua__mpi__module__integral_a42508d78a283c5b2727ad6114b6d921f}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!avrlon\+\_\+p@{avrlon\+\_\+p}}
\index{avrlon\+\_\+p@{avrlon\+\_\+p}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{avrlon\+\_\+p()}{avrlon\_p()}}
{\footnotesize\ttfamily real(8) function, public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::avrlon\+\_\+p (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:), intent(in)}]{p\+\_\+data }\end{DoxyParamCaption})}



Definition at line 330 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References ierr, intlon\+\_\+p(), ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+v, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::p\+\_\+lon\+\_\+weight.


\begin{DoxyCode}
330     \textcolor{comment}{!}
331     \textcolor{comment}{! 1 次元経度(X)格子点データの X 方向積分(一層用).}
332     \textcolor{comment}{!}
333     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}
334     \textcolor{comment}{!}
335     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: p\_data(:)
336     \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:im-1,*)}
337     \textcolor{keywordtype}{real(8)}             :: avrlon\_p
338     \textcolor{comment}{!(out) 積分値の並び(*)}
339 
340     \textcolor{keywordtype}{real(8)}             :: tmp
341     \textcolor{keywordtype}{real(8)}             :: lon\_weight\_sum
342 
343     tmp = sum(p\_lon\_weight)
344     \textcolor{keyword}{CALL }mpi\_allreduce(tmp,lon\_weight\_sum,1,mpi\_real8, &
345          mpi\_sum,mpi\_comm\_v,ierr)
346 
347     avrlon\_p = intlon\_p(p\_data)/lon\_weight\_sum
348 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a42508d78a283c5b2727ad6114b6d921f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_aa8357f3c4850aff5240d7e5f466fa7f6}\label{namespaceua__mpi__module__integral_aa8357f3c4850aff5240d7e5f466fa7f6}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!avrlonlat\+\_\+pv@{avrlonlat\+\_\+pv}}
\index{avrlonlat\+\_\+pv@{avrlonlat\+\_\+pv}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{avrlonlat\+\_\+pv()}{avrlonlat\_pv()}}
{\footnotesize\ttfamily real(8) function, public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::avrlonlat\+\_\+pv (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{pv\+\_\+data }\end{DoxyParamCaption})}



Definition at line 242 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References a\+\_\+avrlon\+\_\+pa().


\begin{DoxyCode}
242     \textcolor{comment}{!}
243     \textcolor{comment}{! 2 次元緯度経度格子点データの全領域平均(一層用).}
244     \textcolor{comment}{!}
245     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
246     \textcolor{comment}{! 総和を計算し, x\_X\_Weight*y\_Y\_Weight の総和で割ることで平均している.}
247     \textcolor{comment}{!}
248     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: pv\_data(:,:)
249     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:ic-1,jc,*)}
250 
251     \textcolor{keywordtype}{real(8)} :: avrlonlat\_pv
252     \textcolor{comment}{!(out) 平均値の並び(*)}
253 
254     avrlonlat\_pv = avrlat\_v(a\_avrlon\_pa(pv\_data))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_aa8357f3c4850aff5240d7e5f466fa7f6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a2330633aa81a2d8eb16372c75ebde07d}\label{namespaceua__mpi__module__integral_a2330633aa81a2d8eb16372c75ebde07d}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!b\+\_\+avrlat\+\_\+vb@{b\+\_\+avrlat\+\_\+vb}}
\index{b\+\_\+avrlat\+\_\+vb@{b\+\_\+avrlat\+\_\+vb}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{b\+\_\+avrlat\+\_\+vb()}{b\_avrlat\_vb()}}
{\footnotesize\ttfamily real(8) function, dimension(size(vb\+\_\+data,2)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+avrlat\+\_\+vb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{vb\+\_\+data }\end{DoxyParamCaption})}



Definition at line 560 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References b\+\_\+intlat\+\_\+vb(), ierr, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h.


\begin{DoxyCode}
560     \textcolor{comment}{!}
561     \textcolor{comment}{! 1 次元(Y)格子点データの緯度(Y)方向平均(多層用).}
562     \textcolor{comment}{!}
563     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算し,}
564     \textcolor{comment}{! y\_Y\_Weight の総和で割ることで平均している.}
565     \textcolor{comment}{!}
566     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: vb\_data(:,:)
567     \textcolor{comment}{!(in)  1 次元緯度格子点データの並び(jc,*)}
568 
569     \textcolor{keywordtype}{real(8)}             :: b\_avrlat\_vb(size(vb\_data,2))
570     \textcolor{comment}{!(out) 平均値の並び(*)}
571 
572     \textcolor{keywordtype}{real(8)}             :: tmp
573     \textcolor{keywordtype}{real(8)}             :: lat\_weight\_sum
574 
575     tmp = sum(v\_lat\_weight)
576     \textcolor{keyword}{CALL }mpi\_allreduce(tmp,lat\_weight\_sum,1,mpi\_real8, &
577          mpi\_sum,mpi\_comm\_h,ierr)
578 
579     b\_avrlat\_vb = b\_intlat\_vb(vb\_data)/lat\_weight\_sum
580 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a2330633aa81a2d8eb16372c75ebde07d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a9f0daae7f8aa13f587fc290e63705bd3}\label{namespaceua__mpi__module__integral_a9f0daae7f8aa13f587fc290e63705bd3}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!b\+\_\+avrlon\+\_\+xb@{b\+\_\+avrlon\+\_\+xb}}
\index{b\+\_\+avrlon\+\_\+xb@{b\+\_\+avrlon\+\_\+xb}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{b\+\_\+avrlon\+\_\+xb()}{b\_avrlon\_xb()}}
{\footnotesize\ttfamily real(8) function, dimension(size(xb\+\_\+data,2)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+avrlon\+\_\+xb (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:,\+:), intent(in)}]{xb\+\_\+data }\end{DoxyParamCaption})}



Definition at line 543 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References b\+\_\+intlon\+\_\+xb().


\begin{DoxyCode}
543     \textcolor{comment}{!}
544     \textcolor{comment}{! 1 次元(X)格子点データの経度(X)方向平均(多層用).}
545     \textcolor{comment}{!}
546     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算し,}
547     \textcolor{comment}{! x\_X\_Weight の総和で割ることで平均している.}
548     \textcolor{comment}{!}
549     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: xb\_data(0:,:)
550     \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:im-1,*)}
551 
552     \textcolor{keywordtype}{real(8)}             :: b\_avrlon\_xb(size(xb\_data,2))
553     \textcolor{comment}{!(out) 平均値の並び(*)}
554 
555     b\_avrlon\_xb = b\_intlon\_xb(xb\_data)/sum(x\_lon\_weight)
556 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a9f0daae7f8aa13f587fc290e63705bd3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_abd525f3fee07429054e78ca4e2132895}\label{namespaceua__mpi__module__integral_abd525f3fee07429054e78ca4e2132895}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!b\+\_\+avrlonlat\+\_\+xvb@{b\+\_\+avrlonlat\+\_\+xvb}}
\index{b\+\_\+avrlonlat\+\_\+xvb@{b\+\_\+avrlonlat\+\_\+xvb}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{b\+\_\+avrlonlat\+\_\+xvb()}{b\_avrlonlat\_xvb()}}
{\footnotesize\ttfamily real(8) function, dimension(size(xvb\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+avrlonlat\+\_\+xvb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{xvb\+\_\+data }\end{DoxyParamCaption})}



Definition at line 486 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References b\+\_\+avrlon\+\_\+xb(), and xb\+\_\+avrlat\+\_\+xvb().


\begin{DoxyCode}
486     \textcolor{comment}{!}
487     \textcolor{comment}{! 2 次元緯度経度格子点データの全領域平均(多層用).}
488     \textcolor{comment}{!}
489     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
490     \textcolor{comment}{! 総和を計算し, x\_X\_Weight*y\_Y\_Weight の総和で割ることで平均している.}
491     \textcolor{comment}{!}
492     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: xvb\_data(:,:,:)
493     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
494 
495     \textcolor{keywordtype}{real(8)} :: b\_avrlonlat\_xvb(size(xvb\_data,3))
496     \textcolor{comment}{!(out) 平均値の並び(*)}
497 
498     b\_avrlonlat\_xvb = b\_avrlon\_xb(xb\_avrlat\_xvb(xvb\_data))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_abd525f3fee07429054e78ca4e2132895_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_ad872d385cbc5a2e52cce198d80402b4b}\label{namespaceua__mpi__module__integral_ad872d385cbc5a2e52cce198d80402b4b}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!b\+\_\+intlat\+\_\+vb@{b\+\_\+intlat\+\_\+vb}}
\index{b\+\_\+intlat\+\_\+vb@{b\+\_\+intlat\+\_\+vb}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{b\+\_\+intlat\+\_\+vb()}{b\_intlat\_vb()}}
{\footnotesize\ttfamily real(8) function, dimension(size(vb\+\_\+data,2)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+intlat\+\_\+vb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{vb\+\_\+data }\end{DoxyParamCaption})}



Definition at line 459 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References ierr, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h.


\begin{DoxyCode}
459     \textcolor{comment}{!}
460     \textcolor{comment}{! 1 次元緯度(Y)格子点データの Y 方向積分(多層用).}
461     \textcolor{comment}{!}
462     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算している.}
463     \textcolor{comment}{!}
464     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: vb\_data(:,:)
465     \textcolor{comment}{!(in)  1 次元緯度(Y)格子点データの並び(jc,*)}
466 
467     \textcolor{keywordtype}{real(8)}             :: b\_intlat\_vb(size(vb\_data,2))
468     \textcolor{comment}{!(out) 積分値の並び(*)}
469 
470     \textcolor{keywordtype}{real(8)}             :: b\_intlattmp(size(vb\_data,2))
471     \textcolor{keywordtype}{integer} :: j
472 
473     b\_intlat\_vb = 0
474     \textcolor{keywordflow}{do} j=1,jc
475        b\_intlat\_vb = b\_intlat\_vb + vb\_data(j,:) * v\_lat\_weight(j)
476 \textcolor{keywordflow}{    enddo}
477 
478     b\_intlattmp=b\_intlat\_vb
479     \textcolor{keyword}{CALL }mpi\_allreduce(b\_intlattmp,b\_intlat\_vb,\textcolor{keyword}{size}(vb\_data,2),mpi\_real8, &
480          mpi\_sum,mpi\_comm\_h,ierr)
481 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a6b69b2a29d7e392b9a936def013395a4}\label{namespaceua__mpi__module__integral_a6b69b2a29d7e392b9a936def013395a4}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!b\+\_\+intlon\+\_\+xb@{b\+\_\+intlon\+\_\+xb}}
\index{b\+\_\+intlon\+\_\+xb@{b\+\_\+intlon\+\_\+xb}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{b\+\_\+intlon\+\_\+xb()}{b\_intlon\_xb()}}
{\footnotesize\ttfamily real(8) function, dimension(size(xb\+\_\+data,2)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+intlon\+\_\+xb (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:,\+:), intent(in)}]{xb\+\_\+data }\end{DoxyParamCaption})}



Definition at line 440 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References w\+\_\+mpi\+\_\+module\+\_\+base\+::im.


\begin{DoxyCode}
440     \textcolor{comment}{!}
441     \textcolor{comment}{! 1 次元経度(X)格子点データの X 方向積分(多層用).}
442     \textcolor{comment}{!}
443     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}
444     \textcolor{comment}{!}
445     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: xb\_data(0:,:)
446     \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:im-1,*)}
447     \textcolor{keywordtype}{real(8)}             :: b\_intlon\_xb(size(xb\_data,2))
448     \textcolor{comment}{!(out) 積分値の並び(*)}
449     \textcolor{keywordtype}{integer} :: i
450 
451     b\_intlon\_xb = 0.0d0
452     \textcolor{keywordflow}{do} i=0,int(im)-1
453        b\_intlon\_xb = b\_intlon\_xb + xb\_data(i,:) * x\_lon\_weight(i)
454 \textcolor{keywordflow}{    enddo}
455 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_afdcdfdfac08745f5d074029febbfc4b2}\label{namespaceua__mpi__module__integral_afdcdfdfac08745f5d074029febbfc4b2}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!b\+\_\+intlonlat\+\_\+xvb@{b\+\_\+intlonlat\+\_\+xvb}}
\index{b\+\_\+intlonlat\+\_\+xvb@{b\+\_\+intlonlat\+\_\+xvb}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{b\+\_\+intlonlat\+\_\+xvb()}{b\_intlonlat\_xvb()}}
{\footnotesize\ttfamily real(8) function, dimension(size(xvb\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+intlonlat\+\_\+xvb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{xvb\+\_\+data }\end{DoxyParamCaption})}



Definition at line 377 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References b\+\_\+intlon\+\_\+xb(), and xb\+\_\+intlat\+\_\+xvb().


\begin{DoxyCode}
377     \textcolor{comment}{!}
378     \textcolor{comment}{! 2 次元緯度経度格子点データの全領域積分(多層用).}
379     \textcolor{comment}{!}
380     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
381     \textcolor{comment}{! 総和を計算している.}
382     \textcolor{comment}{!}
383     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: xvb\_data(:,:,:)
384     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
385 
386     \textcolor{keywordtype}{real(8)} :: b\_intlonlat\_xvb(size(xvb\_data,3))
387     \textcolor{comment}{!(out) 積分されたデータの並び(*)}
388 
389     b\_intlonlat\_xvb = b\_intlon\_xb(xb\_intlat\_xvb(xvb\_data))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_afdcdfdfac08745f5d074029febbfc4b2_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a22d7fc5dc285dcfdb3825fa3c5759fef}\label{namespaceua__mpi__module__integral_a22d7fc5dc285dcfdb3825fa3c5759fef}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!intlon\+\_\+p@{intlon\+\_\+p}}
\index{intlon\+\_\+p@{intlon\+\_\+p}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{intlon\+\_\+p()}{intlon\_p()}}
{\footnotesize\ttfamily real(8) function, public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::intlon\+\_\+p (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:), intent(in)}]{p\+\_\+data }\end{DoxyParamCaption})}



Definition at line 179 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References ierr, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+v, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::p\+\_\+lon\+\_\+weight.


\begin{DoxyCode}
179     \textcolor{comment}{!}
180     \textcolor{comment}{! 1 次元経度(X)格子点データの X 方向積分(一層用).}
181     \textcolor{comment}{!}
182     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}
183     \textcolor{comment}{!}
184     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: p\_data(:)
185     \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:ic-1,*)}
186     \textcolor{keywordtype}{real(8)}             :: intlon\_p
187     \textcolor{comment}{!(out) 積分値の並び(*)}
188 
189     \textcolor{keywordtype}{real(8)}             :: intlontmp
190 
191     intlontmp= sum(p\_data*p\_lon\_weight)
192 
193     \textcolor{keyword}{CALL }mpi\_allreduce(intlontmp,intlon\_p,1,&
194          mpi\_real8, mpi\_sum, mpi\_comm\_v, ierr)
195 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_aa1b8adeddd5dbb9710f39147b0dceaaa}\label{namespaceua__mpi__module__integral_aa1b8adeddd5dbb9710f39147b0dceaaa}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!intlonlat\+\_\+pv@{intlonlat\+\_\+pv}}
\index{intlonlat\+\_\+pv@{intlonlat\+\_\+pv}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{intlonlat\+\_\+pv()}{intlonlat\_pv()}}
{\footnotesize\ttfamily real(8) function, public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::intlonlat\+\_\+pv (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{pv\+\_\+data }\end{DoxyParamCaption})}



Definition at line 86 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References a\+\_\+intlon\+\_\+pa().


\begin{DoxyCode}
86     \textcolor{comment}{!}
87     \textcolor{comment}{! 2 次元緯度経度格子点データの全領域積分(一層用).}
88     \textcolor{comment}{!}
89     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
90     \textcolor{comment}{! 総和を計算している.}
91     \textcolor{comment}{!}
92     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: pv\_data(:,:)
93     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:ic-1,jc)}
94 
95     \textcolor{keywordtype}{real(8)} :: intlonlat\_pv
96     \textcolor{comment}{!(out) 積分されたデータの並び(*)}
97 
98     intlonlat\_pv = intlat\_v(a\_intlon\_pa(pv\_data))
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_aa1b8adeddd5dbb9710f39147b0dceaaa_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a5a490aff92817e74c2e0941aa8811a16}\label{namespaceua__mpi__module__integral_a5a490aff92817e74c2e0941aa8811a16}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!pa\+\_\+avrlat\+\_\+pva@{pa\+\_\+avrlat\+\_\+pva}}
\index{pa\+\_\+avrlat\+\_\+pva@{pa\+\_\+avrlat\+\_\+pva}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{pa\+\_\+avrlat\+\_\+pva()}{pa\_avrlat\_pva()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:ic-\/1,size(pva\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::pa\+\_\+avrlat\+\_\+pva (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{pva\+\_\+data }\end{DoxyParamCaption})}



Definition at line 258 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References ierr, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h, and pa\+\_\+intlat\+\_\+pva().


\begin{DoxyCode}
258     \textcolor{comment}{!}
259     \textcolor{comment}{! 2 次元緯度経度格子点データの緯度(Y)方向平均(多層用).}
260     \textcolor{comment}{!}
261     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算し,}
262     \textcolor{comment}{! y\_Y\_Weight の総和で割ることで平均している.}
263     \textcolor{comment}{!}
264     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: pva\_data(:,:,:)
265     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
266 
267     \textcolor{keywordtype}{real(8)}             :: pa\_avrlat\_pva(0:ic-1,size(pva\_data,3))
268     \textcolor{comment}{!(out) 平均された 1 次元経度(X)格子点データの並び(0:im-1,*)}
269 
270     \textcolor{keywordtype}{real(8)}             :: tmp
271     \textcolor{keywordtype}{real(8)}             :: lat\_weight\_sum
272 
273     tmp = sum(v\_lat\_weight)
274     \textcolor{keyword}{CALL }mpi\_allreduce(tmp,lat\_weight\_sum,1,mpi\_real8, &
275          mpi\_sum,mpi\_comm\_h,ierr)
276 
277     pa\_avrlat\_pva = pa\_intlat\_pva(pva\_data)/lat\_weight\_sum
278 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a5a490aff92817e74c2e0941aa8811a16_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_ac9f58a0f17b769c89fe92682d706ecb2}\label{namespaceua__mpi__module__integral_ac9f58a0f17b769c89fe92682d706ecb2}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!pa\+\_\+intlat\+\_\+pva@{pa\+\_\+intlat\+\_\+pva}}
\index{pa\+\_\+intlat\+\_\+pva@{pa\+\_\+intlat\+\_\+pva}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{pa\+\_\+intlat\+\_\+pva()}{pa\_intlat\_pva()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:ic-\/1,size(pva\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::pa\+\_\+intlat\+\_\+pva (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{pva\+\_\+data }\end{DoxyParamCaption})}



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



References ua\+\_\+mpi\+\_\+module\+\_\+base\+::ic, ierr, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h.


\begin{DoxyCode}
102     \textcolor{comment}{!}
103     \textcolor{comment}{! 2 次元緯度経度格子点データの緯度(Y)方向積分(多層用).}
104     \textcolor{comment}{!}
105     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算している.}
106     \textcolor{comment}{!}
107     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: pva\_data(:,:,:)
108     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
109 
110     \textcolor{keywordtype}{real(8)}             :: pa\_intlat\_pva(0:ic-1,size(pva\_data,3))
111     \textcolor{comment}{!(out) 積分された 1 次元経度(X)格子点データの並び}
112 
113     \textcolor{keywordtype}{real(8)}             :: pa\_intlattmp(0:ic-1,size(pva\_data,3))
114     \textcolor{keywordtype}{Integer} :: j
115 
116     pa\_intlat\_pva = 0
117     \textcolor{keywordflow}{do} j=1,jc
118        pa\_intlat\_pva = pa\_intlat\_pva + pva\_data(:,j,:) * v\_lat\_weight(j)
119 \textcolor{keywordflow}{    enddo}
120 
121     pa\_intlattmp=pa\_intlat\_pva
122     \textcolor{keyword}{CALL }mpi\_allreduce(pa\_intlattmp,pa\_intlat\_pva,ic*\textcolor{keyword}{size}(pva\_data,3),&
123          mpi\_real8, mpi\_sum,mpi\_comm\_h,ierr)
124 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a3874d06ba5307b1cf95da8d2173483a9}\label{namespaceua__mpi__module__integral_a3874d06ba5307b1cf95da8d2173483a9}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!va\+\_\+avrlon\+\_\+pva@{va\+\_\+avrlon\+\_\+pva}}
\index{va\+\_\+avrlon\+\_\+pva@{va\+\_\+avrlon\+\_\+pva}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{va\+\_\+avrlon\+\_\+pva()}{va\_avrlon\_pva()}}
{\footnotesize\ttfamily real(8) function, dimension(jc,size(pva\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::va\+\_\+avrlon\+\_\+pva (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{pva\+\_\+data }\end{DoxyParamCaption})}



Definition at line 282 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References ierr, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+v, ua\+\_\+mpi\+\_\+module\+\_\+base\+::p\+\_\+lon\+\_\+weight, and va\+\_\+intlon\+\_\+pva().


\begin{DoxyCode}
282     \textcolor{comment}{!}
283     \textcolor{comment}{! 2 次元緯度経度格子点データの経度(X)方向平均(多層用).}
284     \textcolor{comment}{!}
285     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算し,}
286     \textcolor{comment}{! x\_X\_Weight の総和で割ることで平均している.}
287     \textcolor{comment}{!}
288     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: pva\_data(:,:,:)
289     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
290 
291     \textcolor{keywordtype}{real(8)}             :: va\_avrlon\_pva(jc,size(pva\_data,3))
292     \textcolor{comment}{!(out) 平均された 1 次元緯度(Y)格子点の並び(jc,*)}
293 
294     \textcolor{keywordtype}{real(8)}             :: tmp
295     \textcolor{keywordtype}{real(8)}             :: lon\_weight\_sum
296 
297     tmp = sum(p\_lon\_weight)
298     \textcolor{keyword}{CALL }mpi\_allreduce(tmp,lon\_weight\_sum,1,mpi\_real8, &
299          mpi\_sum,mpi\_comm\_v,ierr)
300 
301     va\_avrlon\_pva = va\_intlon\_pva(pva\_data)/lon\_weight\_sum
302 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a3874d06ba5307b1cf95da8d2173483a9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_ad65cdd7379c1fe5731e35bf65e886dea}\label{namespaceua__mpi__module__integral_ad65cdd7379c1fe5731e35bf65e886dea}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!va\+\_\+intlon\+\_\+pva@{va\+\_\+intlon\+\_\+pva}}
\index{va\+\_\+intlon\+\_\+pva@{va\+\_\+intlon\+\_\+pva}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{va\+\_\+intlon\+\_\+pva()}{va\_intlon\_pva()}}
{\footnotesize\ttfamily real(8) function, dimension(jc,size(pva\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::va\+\_\+intlon\+\_\+pva (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:,\+:,\+:), intent(in)}]{pva\+\_\+data }\end{DoxyParamCaption})}



Definition at line 128 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References ua\+\_\+mpi\+\_\+module\+\_\+base\+::ic, ierr, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+v, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::p\+\_\+lon\+\_\+weight.


\begin{DoxyCode}
128     \textcolor{comment}{!}
129     \textcolor{comment}{! 2 次元緯度経度格子点データの経度(X)方向積分(多層用).}
130     \textcolor{comment}{!}
131     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}
132     \textcolor{comment}{!}
133     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: pva\_data(0:,:,:)
134     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:ic-1,jc,*)}
135 
136     \textcolor{keywordtype}{real(8)}             :: va\_intlon\_pva(jc,size(pva\_data,3))
137     \textcolor{comment}{!(out) 積分された 1 次元緯度(Y)格子点データの並び}
138 
139     \textcolor{keywordtype}{real(8)}             :: va\_intlontmp(jc,size(pva\_data,3))
140     \textcolor{keywordtype}{integer} :: i
141 
142     va\_intlon\_pva = 0
143     \textcolor{keywordflow}{do} i=0,ic-1
144        va\_intlon\_pva = va\_intlon\_pva + pva\_data(i,:,:) * p\_lon\_weight(i)
145 \textcolor{keywordflow}{    enddo}
146 
147     va\_intlontmp=va\_intlon\_pva
148     \textcolor{keyword}{CALL }mpi\_allreduce(va\_intlontmp,va\_intlon\_pva,jc*\textcolor{keyword}{size}(pva\_data,3),&
149          mpi\_real8, mpi\_sum, mpi\_comm\_v, ierr)
150 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a70bb102c0a2082c1f1f5fe13c8533359}\label{namespaceua__mpi__module__integral_a70bb102c0a2082c1f1f5fe13c8533359}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!vb\+\_\+avrlon\+\_\+xvb@{vb\+\_\+avrlon\+\_\+xvb}}
\index{vb\+\_\+avrlon\+\_\+xvb@{vb\+\_\+avrlon\+\_\+xvb}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{vb\+\_\+avrlon\+\_\+xvb()}{vb\_avrlon\_xvb()}}
{\footnotesize\ttfamily real(8) function, dimension(jc,size(xvb\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::vb\+\_\+avrlon\+\_\+xvb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{xvb\+\_\+data }\end{DoxyParamCaption})}



Definition at line 526 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References vb\+\_\+intlon\+\_\+xvb().


\begin{DoxyCode}
526     \textcolor{comment}{!}
527     \textcolor{comment}{! 2 次元緯度経度格子点データの経度(X)方向平均(多層用).}
528     \textcolor{comment}{!}
529     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算し,}
530     \textcolor{comment}{! x\_X\_Weight の総和で割ることで平均している.}
531     \textcolor{comment}{!}
532     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: xvb\_data(:,:,:)
533     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
534 
535     \textcolor{keywordtype}{real(8)}             :: vb\_avrlon\_xvb(jc,size(xvb\_data,3))
536     \textcolor{comment}{!(out) 平均された 1 次元緯度(Y)格子点の並び(jc,*)}
537 
538     vb\_avrlon\_xvb = vb\_intlon\_xvb(xvb\_data)/sum(x\_lon\_weight)
539 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a70bb102c0a2082c1f1f5fe13c8533359_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a8177a83e77d188c76b64d16c1f025834}\label{namespaceua__mpi__module__integral_a8177a83e77d188c76b64d16c1f025834}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!vb\+\_\+intlon\+\_\+xvb@{vb\+\_\+intlon\+\_\+xvb}}
\index{vb\+\_\+intlon\+\_\+xvb@{vb\+\_\+intlon\+\_\+xvb}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{vb\+\_\+intlon\+\_\+xvb()}{vb\_intlon\_xvb()}}
{\footnotesize\ttfamily real(8) function, dimension(jc,size(xvb\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::vb\+\_\+intlon\+\_\+xvb (\begin{DoxyParamCaption}\item[{real(8), dimension(0\+:,\+:,\+:), intent(in)}]{xvb\+\_\+data }\end{DoxyParamCaption})}



Definition at line 419 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References w\+\_\+mpi\+\_\+module\+\_\+base\+::im.


\begin{DoxyCode}
419     \textcolor{comment}{!}
420     \textcolor{comment}{! 2 次元緯度経度格子点データの経度(X)方向積分(多層用).}
421     \textcolor{comment}{!}
422     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}
423     \textcolor{comment}{!}
424     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: xvb\_data(0:,:,:)
425     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
426 
427     \textcolor{keywordtype}{real(8)}             :: vb\_intlon\_xvb(jc,size(xvb\_data,3))
428     \textcolor{comment}{!(out) 積分された 1 次元緯度(Y)格子点データの並び}
429 
430     \textcolor{keywordtype}{integer} :: i
431 
432     vb\_intlon\_xvb = 0
433     \textcolor{keywordflow}{do} i=0,int(im)-1
434        vb\_intlon\_xvb = vb\_intlon\_xvb + xvb\_data(i,:,:) * x\_lon\_weight(i)
435 \textcolor{keywordflow}{    enddo}
436 
\end{DoxyCode}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_ae4f0e470791c328ede417c63fe65241a}\label{namespaceua__mpi__module__integral_ae4f0e470791c328ede417c63fe65241a}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!xb\+\_\+avrlat\+\_\+xvb@{xb\+\_\+avrlat\+\_\+xvb}}
\index{xb\+\_\+avrlat\+\_\+xvb@{xb\+\_\+avrlat\+\_\+xvb}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{xb\+\_\+avrlat\+\_\+xvb()}{xb\_avrlat\_xvb()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:im-\/1,size(xvb\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::xb\+\_\+avrlat\+\_\+xvb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{xvb\+\_\+data }\end{DoxyParamCaption})}



Definition at line 502 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References ierr, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h, and xb\+\_\+intlat\+\_\+xvb().


\begin{DoxyCode}
502     \textcolor{comment}{!}
503     \textcolor{comment}{! 2 次元緯度経度格子点データの緯度(Y)方向平均(多層用).}
504     \textcolor{comment}{!}
505     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算し,}
506     \textcolor{comment}{! y\_Y\_Weight の総和で割ることで平均している.}
507     \textcolor{comment}{!}
508     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: xvb\_data(:,:,:)
509     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
510 
511     \textcolor{keywordtype}{real(8)}             :: xb\_avrlat\_xvb(0:im-1,size(xvb\_data,3))
512     \textcolor{comment}{!(out) 平均された 1 次元経度(X)格子点データの並び(0:im-1,*)}
513 
514     \textcolor{keywordtype}{real(8)}             :: tmp
515     \textcolor{keywordtype}{real(8)}             :: lat\_weight\_sum
516 
517     tmp = sum(v\_lat\_weight)
518     \textcolor{keyword}{CALL }mpi\_allreduce(tmp,lat\_weight\_sum,1,mpi\_real8, &
519          mpi\_sum,mpi\_comm\_h,ierr)
520 
521     xb\_avrlat\_xvb = xb\_intlat\_xvb(xvb\_data)/lat\_weight\_sum
522 
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_ae4f0e470791c328ede417c63fe65241a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a511b8dd0766b32ffc1e6dde4629c4cfd}\label{namespaceua__mpi__module__integral_a511b8dd0766b32ffc1e6dde4629c4cfd}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!xb\+\_\+intlat\+\_\+xvb@{xb\+\_\+intlat\+\_\+xvb}}
\index{xb\+\_\+intlat\+\_\+xvb@{xb\+\_\+intlat\+\_\+xvb}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{xb\+\_\+intlat\+\_\+xvb()}{xb\_intlat\_xvb()}}
{\footnotesize\ttfamily real(8) function, dimension(0\+:im-\/1,size(xvb\+\_\+data,3)), public ua\+\_\+mpi\+\_\+module\+\_\+integral\+::xb\+\_\+intlat\+\_\+xvb (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{xvb\+\_\+data }\end{DoxyParamCaption})}



Definition at line 393 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



References ierr, w\+\_\+mpi\+\_\+module\+\_\+base\+::im, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h.


\begin{DoxyCode}
393     \textcolor{comment}{!}
394     \textcolor{comment}{! 2 次元緯度経度格子点データの緯度(Y)方向積分(多層用).}
395     \textcolor{comment}{!}
396     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算している.}
397     \textcolor{comment}{!}
398     \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: xvb\_data(:,:,:)
399     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
400 
401     \textcolor{keywordtype}{real(8)}             :: xb\_intlat\_xvb(0:im-1,size(xvb\_data,3))
402     \textcolor{comment}{!(out) 積分された 1 次元経度(X)格子点データの並び}
403 
404     \textcolor{keywordtype}{real(8)}             :: xb\_intlattmp(0:im-1,size(xvb\_data,3))
405     \textcolor{keywordtype}{Integer} :: j
406 
407     xb\_intlat\_xvb = 0
408     \textcolor{keywordflow}{do} j=1,jc
409        xb\_intlat\_xvb = xb\_intlat\_xvb + xvb\_data(:,j,:) * v\_lat\_weight(j)
410 \textcolor{keywordflow}{    enddo}
411 
412     xb\_intlattmp=xb\_intlat\_xvb
413     \textcolor{keyword}{CALL }mpi\_allreduce(xb\_intlattmp,xb\_intlat\_xvb,int(im)*\textcolor{keyword}{size}(xvb\_data,3),&
414          mpi\_real8, mpi\_sum,mpi\_comm\_h,ierr)
415 
\end{DoxyCode}


\subsection{Variable Documentation}
\mbox{\Hypertarget{namespaceua__mpi__module__integral_a34f2faf4dfef4ce0bc70f4a804884f50}\label{namespaceua__mpi__module__integral_a34f2faf4dfef4ce0bc70f4a804884f50}} 
\index{ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}!ierr@{ierr}}
\index{ierr@{ierr}!ua\+\_\+mpi\+\_\+module\+\_\+integral@{ua\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{ierr}{ierr}}
{\footnotesize\ttfamily integer ua\+\_\+mpi\+\_\+module\+\_\+integral\+::ierr}



Definition at line 48 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}
48   \textcolor{keywordtype}{integer} :: ierr
\end{DoxyCode}
