\hypertarget{namespaceua__mpi__module__integral}{}\doxysection{ua\+\_\+mpi\+\_\+module\+\_\+integral Module Reference}
\label{namespaceua__mpi__module__integral}\index{ua\_mpi\_module\_integral@{ua\_mpi\_module\_integral}}
\doxysubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real(8) function, dimension(size(xvb\+\_\+data, 3)), public \mbox{\hyperlink{namespaceua__mpi__module__integral_afdcdfdfac08745f5d074029febbfc4b2}{b\+\_\+intlonlat\+\_\+xvb}} (xvb\+\_\+data)
\item 
real(8) function, dimension(0\+:im-\/1, size(xvb\+\_\+data, 3)), public \mbox{\hyperlink{namespaceua__mpi__module__integral_a511b8dd0766b32ffc1e6dde4629c4cfd}{xb\+\_\+intlat\+\_\+xvb}} (xvb\+\_\+data)
\item 
real(8) function, dimension(jc, size(xvb\+\_\+data, 3)), public \mbox{\hyperlink{namespaceua__mpi__module__integral_a8177a83e77d188c76b64d16c1f025834}{vb\+\_\+intlon\+\_\+xvb}} (xvb\+\_\+data)
\item 
real(8) function, dimension(size(xb\+\_\+data, 2)), public \mbox{\hyperlink{namespaceua__mpi__module__integral_a6b69b2a29d7e392b9a936def013395a4}{b\+\_\+intlon\+\_\+xb}} (xb\+\_\+data)
\item 
real(8) function, dimension(size(vb\+\_\+data, 2)), public \mbox{\hyperlink{namespaceua__mpi__module__integral_ad872d385cbc5a2e52cce198d80402b4b}{b\+\_\+intlat\+\_\+vb}} (vb\+\_\+data)
\item 
real(8) function, dimension(size(xvb\+\_\+data, 3)), public \mbox{\hyperlink{namespaceua__mpi__module__integral_abd525f3fee07429054e78ca4e2132895}{b\+\_\+avrlonlat\+\_\+xvb}} (xvb\+\_\+data)
\item 
real(8) function, dimension(0\+:im-\/1, size(xvb\+\_\+data, 3)), public \mbox{\hyperlink{namespaceua__mpi__module__integral_ae4f0e470791c328ede417c63fe65241a}{xb\+\_\+avrlat\+\_\+xvb}} (xvb\+\_\+data)
\item 
real(8) function, dimension(jc, size(xvb\+\_\+data, 3)), public \mbox{\hyperlink{namespaceua__mpi__module__integral_a70bb102c0a2082c1f1f5fe13c8533359}{vb\+\_\+avrlon\+\_\+xvb}} (xvb\+\_\+data)
\item 
real(8) function, dimension(size(xb\+\_\+data, 2)), public \mbox{\hyperlink{namespaceua__mpi__module__integral_a9f0daae7f8aa13f587fc290e63705bd3}{b\+\_\+avrlon\+\_\+xb}} (xb\+\_\+data)
\item 
real(8) function, dimension(size(vb\+\_\+data, 2)), public \mbox{\hyperlink{namespaceua__mpi__module__integral_a2330633aa81a2d8eb16372c75ebde07d}{b\+\_\+avrlat\+\_\+vb}} (vb\+\_\+data)
\end{DoxyCompactItemize}
\doxysubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer \mbox{\hyperlink{namespaceua__mpi__module__integral_a34f2faf4dfef4ce0bc70f4a804884f50}{ierr}}
\end{DoxyCompactItemize}


\doxysubsection{Function/\+Subroutine Documentation}
\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}}
\doxysubsubsection{\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 243 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{243       \textcolor{comment}{!}}
\DoxyCodeLine{244       \textcolor{comment}{! 1 次元(Y)格子点データの緯度(Y)方向平均(多層用).}}
\DoxyCodeLine{245       \textcolor{comment}{!}}
\DoxyCodeLine{246       \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算し,}}
\DoxyCodeLine{247       \textcolor{comment}{! y\_Y\_Weight の総和で割ることで平均している.}}
\DoxyCodeLine{248       \textcolor{comment}{!}}
\DoxyCodeLine{249 \textcolor{keywordtype}{      real}(8), \textcolor{keywordtype}{intent(in)} :: vb\_data(:,:)}
\DoxyCodeLine{250       \textcolor{comment}{!(in)  1 次元緯度格子点データの並び(jc,*)}}
\DoxyCodeLine{251 }
\DoxyCodeLine{252 \textcolor{keywordtype}{      real}(8)             :: b\_AvrLat\_vb(size(vb\_data,2))}
\DoxyCodeLine{253       \textcolor{comment}{!(out) 平均値の並び(*)}}
\DoxyCodeLine{254 }
\DoxyCodeLine{255 \textcolor{keywordtype}{      real}(8)             :: Tmp}
\DoxyCodeLine{256 \textcolor{keywordtype}{      real}(8)             :: Lat\_Weight\_Sum}
\DoxyCodeLine{257 }
\DoxyCodeLine{258       tmp = sum(v\_lat\_weight)}
\DoxyCodeLine{259       \textcolor{keyword}{CALL }mpi\_allreduce(tmp,lat\_weight\_sum,1,mpi\_real8, \&}
\DoxyCodeLine{260                          mpi\_sum,mpi\_comm\_h,ierr)}
\DoxyCodeLine{261 }
\DoxyCodeLine{262       b\_avrlat\_vb = b\_intlat\_vb(vb\_data)/lat\_weight\_sum}
\DoxyCodeLine{263 }

\end{DoxyCode}


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

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}}
\doxysubsubsection{\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 226 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{226       \textcolor{comment}{!}}
\DoxyCodeLine{227       \textcolor{comment}{! 1 次元(X)格子点データの経度(X)方向平均(多層用).}}
\DoxyCodeLine{228       \textcolor{comment}{!}}
\DoxyCodeLine{229       \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算し,}}
\DoxyCodeLine{230       \textcolor{comment}{! x\_X\_Weight の総和で割ることで平均している.}}
\DoxyCodeLine{231       \textcolor{comment}{!}}
\DoxyCodeLine{232 \textcolor{keywordtype}{      real}(8), \textcolor{keywordtype}{intent(in)} :: xb\_data(0:,:)}
\DoxyCodeLine{233       \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:im-\/1,*)}}
\DoxyCodeLine{234 }
\DoxyCodeLine{235 \textcolor{keywordtype}{      real}(8)             :: b\_AvrLon\_xb(size(xb\_data,2))}
\DoxyCodeLine{236       \textcolor{comment}{!(out) 平均値の並び(*)}}
\DoxyCodeLine{237 }
\DoxyCodeLine{238       b\_avrlon\_xb = b\_intlon\_xb(xb\_data)/sum(x\_lon\_weight)}
\DoxyCodeLine{239 }

\end{DoxyCode}


References b\+\_\+intlon\+\_\+xb(), and w\+\_\+mpi\+\_\+module\+\_\+base\+::x\+\_\+lon\+\_\+weight.



Referenced by b\+\_\+avrlonlat\+\_\+xvb().

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}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a9f0daae7f8aa13f587fc290e63705bd3_icgraph}
\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}}
\doxysubsubsection{\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 169 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{169       \textcolor{comment}{!}}
\DoxyCodeLine{170       \textcolor{comment}{! 2 次元緯度経度格子点データの全領域平均(多層用).}}
\DoxyCodeLine{171       \textcolor{comment}{!}}
\DoxyCodeLine{172       \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}}
\DoxyCodeLine{173       \textcolor{comment}{! 総和を計算し, x\_X\_Weight*y\_Y\_Weight の総和で割ることで平均している.}}
\DoxyCodeLine{174       \textcolor{comment}{!}}
\DoxyCodeLine{175 \textcolor{keywordtype}{      real}(8), \textcolor{keywordtype}{intent(in)}   :: xvb\_data(:,:,:)}
\DoxyCodeLine{176       \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-\/1,jc,*)}}
\DoxyCodeLine{177 }
\DoxyCodeLine{178 \textcolor{keywordtype}{      real}(8) :: b\_AvrLonLat\_xvb(size(xvb\_data,3))}
\DoxyCodeLine{179       \textcolor{comment}{!(out) 平均値の並び(*)}}
\DoxyCodeLine{180 }
\DoxyCodeLine{181       b\_avrlonlat\_xvb = b\_avrlon\_xb(xb\_avrlat\_xvb(xvb\_data))}

\end{DoxyCode}


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

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}}
\doxysubsubsection{\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 142 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{142       \textcolor{comment}{!}}
\DoxyCodeLine{143       \textcolor{comment}{! 1 次元緯度(Y)格子点データの Y 方向積分(多層用).}}
\DoxyCodeLine{144       \textcolor{comment}{!}}
\DoxyCodeLine{145       \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算している.}}
\DoxyCodeLine{146       \textcolor{comment}{!}}
\DoxyCodeLine{147 \textcolor{keywordtype}{      real}(8), \textcolor{keywordtype}{intent(in)} :: vb\_data(:,:)}
\DoxyCodeLine{148       \textcolor{comment}{!(in)  1 次元緯度(Y)格子点データの並び(jc,*)}}
\DoxyCodeLine{149 }
\DoxyCodeLine{150 \textcolor{keywordtype}{      real}(8)             :: b\_IntLat\_vb(size(vb\_data,2))}
\DoxyCodeLine{151       \textcolor{comment}{!(out) 積分値の並び(*)}}
\DoxyCodeLine{152 }
\DoxyCodeLine{153 \textcolor{keywordtype}{      real}(8)             :: b\_IntLatTmp(size(vb\_data,2))}
\DoxyCodeLine{154       \textcolor{keywordtype}{integer} :: j}
\DoxyCodeLine{155 }
\DoxyCodeLine{156       b\_intlat\_vb = 0}
\DoxyCodeLine{157       \textcolor{keywordflow}{do} j=1,jc}
\DoxyCodeLine{158          b\_intlat\_vb = b\_intlat\_vb + vb\_data(j,:) * v\_lat\_weight(j)}
\DoxyCodeLine{159 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{160 }
\DoxyCodeLine{161       b\_intlattmp=b\_intlat\_vb}
\DoxyCodeLine{162       \textcolor{keyword}{CALL }mpi\_allreduce(b\_intlattmp,b\_intlat\_vb,\textcolor{keyword}{size}(vb\_data,2),mpi\_real8, \&}
\DoxyCodeLine{163                          mpi\_sum,mpi\_comm\_h,ierr)}
\DoxyCodeLine{164 }

\end{DoxyCode}


References ierr, w\+\_\+mpi\+\_\+module\+\_\+base\+::jc, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h, and w\+\_\+mpi\+\_\+module\+\_\+base\+::v\+\_\+lat\+\_\+weight.



Referenced by b\+\_\+avrlat\+\_\+vb().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_ad872d385cbc5a2e52cce198d80402b4b_icgraph}
\end{center}
\end{figure}
\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}}
\doxysubsubsection{\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 123 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{123       \textcolor{comment}{!}}
\DoxyCodeLine{124       \textcolor{comment}{! 1 次元経度(X)格子点データの X 方向積分(多層用).}}
\DoxyCodeLine{125       \textcolor{comment}{!}}
\DoxyCodeLine{126       \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}}
\DoxyCodeLine{127       \textcolor{comment}{!}}
\DoxyCodeLine{128 \textcolor{keywordtype}{      real}(8), \textcolor{keywordtype}{intent(in)} :: xb\_data(0:,:)}
\DoxyCodeLine{129       \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:im-\/1,*)}}
\DoxyCodeLine{130 \textcolor{keywordtype}{      real}(8)             :: b\_IntLon\_xb(size(xb\_data,2))}
\DoxyCodeLine{131       \textcolor{comment}{!(out) 積分値の並び(*)}}
\DoxyCodeLine{132       \textcolor{keywordtype}{integer} :: i}
\DoxyCodeLine{133 }
\DoxyCodeLine{134       b\_intlon\_xb = 0.0d0}
\DoxyCodeLine{135       \textcolor{keywordflow}{do} i=0,int(im)-\/1}
\DoxyCodeLine{136          b\_intlon\_xb = b\_intlon\_xb + xb\_data(i,:) * x\_lon\_weight(i)}
\DoxyCodeLine{137 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{138 }

\end{DoxyCode}


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



Referenced by b\+\_\+avrlon\+\_\+xb(), and b\+\_\+intlonlat\+\_\+xvb().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a6b69b2a29d7e392b9a936def013395a4_icgraph}
\end{center}
\end{figure}
\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}}
\doxysubsubsection{\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 60 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{60       \textcolor{comment}{!}}
\DoxyCodeLine{61       \textcolor{comment}{! 2 次元緯度経度格子点データの全領域積分(多層用).}}
\DoxyCodeLine{62       \textcolor{comment}{!}}
\DoxyCodeLine{63       \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}}
\DoxyCodeLine{64       \textcolor{comment}{! 総和を計算している.}}
\DoxyCodeLine{65       \textcolor{comment}{!}}
\DoxyCodeLine{66 \textcolor{keywordtype}{      real}(8), \textcolor{keywordtype}{intent(in)}   :: xvb\_data(:,:,:)}
\DoxyCodeLine{67       \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-\/1,jc,*)}}
\DoxyCodeLine{68 }
\DoxyCodeLine{69 \textcolor{keywordtype}{      real}(8) :: b\_IntLonLat\_xvb(size(xvb\_data,3))}
\DoxyCodeLine{70       \textcolor{comment}{!(out) 積分されたデータの並び(*)}}
\DoxyCodeLine{71 }
\DoxyCodeLine{72       b\_intlonlat\_xvb = b\_intlon\_xb(xb\_intlat\_xvb(xvb\_data))}

\end{DoxyCode}


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

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_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}}
\doxysubsubsection{\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 209 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{209       \textcolor{comment}{!}}
\DoxyCodeLine{210       \textcolor{comment}{! 2 次元緯度経度格子点データの経度(X)方向平均(多層用).}}
\DoxyCodeLine{211       \textcolor{comment}{!}}
\DoxyCodeLine{212       \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算し,}}
\DoxyCodeLine{213       \textcolor{comment}{! x\_X\_Weight の総和で割ることで平均している.}}
\DoxyCodeLine{214       \textcolor{comment}{!}}
\DoxyCodeLine{215 \textcolor{keywordtype}{      real}(8), \textcolor{keywordtype}{intent(in)} :: xvb\_data(:,:,:)}
\DoxyCodeLine{216       \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-\/1,jc,*)}}
\DoxyCodeLine{217 }
\DoxyCodeLine{218 \textcolor{keywordtype}{      real}(8)             :: vb\_AvrLon\_xvb(jc,size(xvb\_data,3))}
\DoxyCodeLine{219       \textcolor{comment}{!(out) 平均された 1 次元緯度(Y)格子点の並び(jc,*)}}
\DoxyCodeLine{220 }
\DoxyCodeLine{221       vb\_avrlon\_xvb = vb\_intlon\_xvb(xvb\_data)/sum(x\_lon\_weight)}
\DoxyCodeLine{222 }

\end{DoxyCode}


References vb\+\_\+intlon\+\_\+xvb(), and w\+\_\+mpi\+\_\+module\+\_\+base\+::x\+\_\+lon\+\_\+weight.

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}}
\doxysubsubsection{\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 102 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


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

\end{DoxyCode}


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



Referenced by vb\+\_\+avrlon\+\_\+xvb().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_a8177a83e77d188c76b64d16c1f025834_icgraph}
\end{center}
\end{figure}
\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}}
\doxysubsubsection{\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 185 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{185       \textcolor{comment}{!}}
\DoxyCodeLine{186       \textcolor{comment}{! 2 次元緯度経度格子点データの緯度(Y)方向平均(多層用).}}
\DoxyCodeLine{187       \textcolor{comment}{!}}
\DoxyCodeLine{188       \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算し,}}
\DoxyCodeLine{189       \textcolor{comment}{! y\_Y\_Weight の総和で割ることで平均している.}}
\DoxyCodeLine{190       \textcolor{comment}{!}}
\DoxyCodeLine{191 \textcolor{keywordtype}{      real}(8), \textcolor{keywordtype}{intent(in)} :: xvb\_data(:,:,:)}
\DoxyCodeLine{192       \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-\/1,jc,*)}}
\DoxyCodeLine{193 }
\DoxyCodeLine{194 \textcolor{keywordtype}{      real}(8)             :: xb\_AvrLat\_xvb(0:im-\/1,size(xvb\_data,3))}
\DoxyCodeLine{195       \textcolor{comment}{!(out) 平均された 1 次元経度(X)格子点データの並び(0:im-\/1,*)}}
\DoxyCodeLine{196 }
\DoxyCodeLine{197 \textcolor{keywordtype}{      real}(8)             :: Tmp}
\DoxyCodeLine{198 \textcolor{keywordtype}{      real}(8)             :: Lat\_Weight\_Sum}
\DoxyCodeLine{199 }
\DoxyCodeLine{200       tmp = sum(v\_lat\_weight)}
\DoxyCodeLine{201       \textcolor{keyword}{CALL }mpi\_allreduce(tmp,lat\_weight\_sum,1,mpi\_real8, \&}
\DoxyCodeLine{202                          mpi\_sum,mpi\_comm\_h,ierr)}
\DoxyCodeLine{203 }
\DoxyCodeLine{204       xb\_avrlat\_xvb = xb\_intlat\_xvb(xvb\_data)/lat\_weight\_sum}
\DoxyCodeLine{205 }

\end{DoxyCode}


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



Referenced by b\+\_\+avrlonlat\+\_\+xvb().

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}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceua__mpi__module__integral_ae4f0e470791c328ede417c63fe65241a_icgraph}
\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}}
\doxysubsubsection{\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 76 of file ua\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{76       \textcolor{comment}{!}}
\DoxyCodeLine{77       \textcolor{comment}{! 2 次元緯度経度格子点データの緯度(Y)方向積分(多層用).}}
\DoxyCodeLine{78       \textcolor{comment}{!}}
\DoxyCodeLine{79       \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算している.}}
\DoxyCodeLine{80       \textcolor{comment}{!}}
\DoxyCodeLine{81 \textcolor{keywordtype}{      real}(8), \textcolor{keywordtype}{intent(in)} :: xvb\_data(:,:,:)}
\DoxyCodeLine{82       \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-\/1,jc,*)}}
\DoxyCodeLine{83 }
\DoxyCodeLine{84 \textcolor{keywordtype}{      real}(8)             :: xb\_IntLat\_xvb(0:im-\/1,size(xvb\_data,3))}
\DoxyCodeLine{85       \textcolor{comment}{!(out) 積分された 1 次元経度(X)格子点データの並び}}
\DoxyCodeLine{86 }
\DoxyCodeLine{87 \textcolor{keywordtype}{      real}(8)             :: xb\_IntLatTmp(0:im-\/1,size(xvb\_data,3))}
\DoxyCodeLine{88       \textcolor{keywordtype}{Integer} :: j}
\DoxyCodeLine{89 }
\DoxyCodeLine{90       xb\_intlat\_xvb = 0}
\DoxyCodeLine{91       \textcolor{keywordflow}{do} j=1,jc}
\DoxyCodeLine{92          xb\_intlat\_xvb = xb\_intlat\_xvb + xvb\_data(:,j,:) * v\_lat\_weight(j)}
\DoxyCodeLine{93 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{94 }
\DoxyCodeLine{95       xb\_intlattmp=xb\_intlat\_xvb}
\DoxyCodeLine{96       \textcolor{keyword}{CALL }mpi\_allreduce(xb\_intlattmp,xb\_intlat\_xvb,int(im)*\textcolor{keyword}{size}(xvb\_data,3),\&}
\DoxyCodeLine{97            mpi\_real8, mpi\_sum,mpi\_comm\_h,ierr)}
\DoxyCodeLine{98 }

\end{DoxyCode}


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



Referenced by b\+\_\+intlonlat\+\_\+xvb(), and xb\+\_\+avrlat\+\_\+xvb().

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


\doxysubsection{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}}
\doxysubsubsection{\texorpdfstring{ierr}{ierr}}
{\footnotesize\ttfamily integer ua\+\_\+mpi\+\_\+module\+\_\+integral\+::ierr}



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


\begin{DoxyCode}{0}
\DoxyCodeLine{45   \textcolor{keywordtype}{integer} :: ierr}

\end{DoxyCode}


Referenced by b\+\_\+avrlat\+\_\+vb(), b\+\_\+intlat\+\_\+vb(), xb\+\_\+avrlat\+\_\+xvb(), and xb\+\_\+intlat\+\_\+xvb().

