\hypertarget{namespacewb__mpi__module__integral}{}\section{wb\+\_\+mpi\+\_\+module\+\_\+integral Module Reference}
\label{namespacewb__mpi__module__integral}\index{wb\+\_\+mpi\+\_\+module\+\_\+integral@{wb\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real(8) function, dimension(size(pva\+\_\+data, 3)), public \hyperlink{namespacewb__mpi__module__integral_a338b860f72dbf196d60f8b16620a2ab3}{a\+\_\+intlonlat\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, public \hyperlink{namespacewb__mpi__module__integral_a16d65497ee73ee72e75dadc09bbcf29a}{intlonlat\+\_\+pv} (pv\+\_\+data)
\item 
real(8) function, dimension(ic, size(pva\+\_\+data, 3)), public \hyperlink{namespacewb__mpi__module__integral_a354cf1eb41526c2fddc57507a98c748c}{pa\+\_\+intlat\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, dimension(jc, size(pva\+\_\+data, 3)), public \hyperlink{namespacewb__mpi__module__integral_af37c2e2cd2b5132f74ad28bd1c0d21e4}{va\+\_\+intlon\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, dimension(size(pa\+\_\+data, 2)), public \hyperlink{namespacewb__mpi__module__integral_a1054910e310497c5867a249aaf88e8bc}{a\+\_\+intlon\+\_\+pa} (pa\+\_\+data)
\item 
real(8) function, public \hyperlink{namespacewb__mpi__module__integral_a35d0d8de859caaf17a35fb7aced63e3c}{intlon\+\_\+p} (p\+\_\+data)
\item 
real(8) function, dimension(size(va\+\_\+data, 2)), public \hyperlink{namespacewb__mpi__module__integral_a1cdc49785639039b991c8b6965bcfd77}{a\+\_\+intlat\+\_\+va} (va\+\_\+data)
\item 
real(8) function, dimension(size(pva\+\_\+data, 3)), public \hyperlink{namespacewb__mpi__module__integral_a92bd7a22e2cee9f46d9c25637c143301}{a\+\_\+avrlonlat\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, public \hyperlink{namespacewb__mpi__module__integral_a496e2091be181aabe07b4dd2255bfa99}{avrlonlat\+\_\+pv} (pv\+\_\+data)
\item 
real(8) function, dimension(ic, size(pva\+\_\+data, 3)), public \hyperlink{namespacewb__mpi__module__integral_aeb6276b68872898d1174ddd083bdb959}{pa\+\_\+avrlat\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, dimension(jc, size(pva\+\_\+data, 3)), public \hyperlink{namespacewb__mpi__module__integral_a457c833cc2db943e78a3ad640570ce3d}{va\+\_\+avrlon\+\_\+pva} (pva\+\_\+data)
\item 
real(8) function, dimension(size(pa\+\_\+data, 2)), public \hyperlink{namespacewb__mpi__module__integral_a4b15c6ac299e2befc6471777493f99b7}{a\+\_\+avrlon\+\_\+pa} (pa\+\_\+data)
\item 
real(8) function, public \hyperlink{namespacewb__mpi__module__integral_a414fde887921c6d58221a266431827ba}{avrlon\+\_\+p} (p\+\_\+data)
\item 
real(8) function, dimension(size(va\+\_\+data, 2)), public \hyperlink{namespacewb__mpi__module__integral_a2d2070f9b61747c577f946b273d4d10e}{a\+\_\+avrlat\+\_\+va} (va\+\_\+data)
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer \hyperlink{namespacewb__mpi__module__integral_a7394ebef31c72ef25d7e343b76547706}{ierr}
\end{DoxyCompactItemize}


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



Definition at line 343 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


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



Definition at line 297 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


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



Definition at line 217 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


\begin{DoxyCode}
217       \textcolor{comment}{!}
218       \textcolor{comment}{! 2 次元緯度経度格子点データの全領域平均(多層用).}
219       \textcolor{comment}{!}
220       \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
221       \textcolor{comment}{! 総和を計算し, x\_X\_Weight*y\_Y\_Weight の総和で割ることで平均している.}
222       \textcolor{comment}{!}
223       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: pva\_data(:,:,:)
224       \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
225 
226       \textcolor{keywordtype}{real(8)} :: a\_avrlonlat\_pva(size(pva\_data,3))
227       \textcolor{comment}{!(out) 平均値の並び(*)}
228 
229       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]{namespacewb__mpi__module__integral_a92bd7a22e2cee9f46d9c25637c143301_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewb__mpi__module__integral_a1cdc49785639039b991c8b6965bcfd77}\label{namespacewb__mpi__module__integral_a1cdc49785639039b991c8b6965bcfd77}} 
\index{wb\+\_\+mpi\+\_\+module\+\_\+integral@{wb\+\_\+mpi\+\_\+module\+\_\+integral}!a\+\_\+intlat\+\_\+va@{a\+\_\+intlat\+\_\+va}}
\index{a\+\_\+intlat\+\_\+va@{a\+\_\+intlat\+\_\+va}!wb\+\_\+mpi\+\_\+module\+\_\+integral@{wb\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{a\+\_\+intlat\+\_\+va()}{a\_intlat\_va()}}
{\footnotesize\ttfamily real(8) function, dimension(size(va\+\_\+data,2)), public wb\+\_\+mpi\+\_\+module\+\_\+integral\+::a\+\_\+intlat\+\_\+va (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:), intent(in)}]{va\+\_\+data }\end{DoxyParamCaption})}



Definition at line 190 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


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



Definition at line 145 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


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



Definition at line 61 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


\begin{DoxyCode}
61       \textcolor{comment}{!}
62       \textcolor{comment}{! 2 次元緯度経度格子点データの全領域積分(多層用).}
63       \textcolor{comment}{!}
64       \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
65       \textcolor{comment}{! 総和を計算している.}
66       \textcolor{comment}{!}
67       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: pva\_data(:,:,:)
68       \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(ic,jc,*)}
69 
70       \textcolor{keywordtype}{real(8)} :: a\_intlonlat\_pva(size(pva\_data,3))
71       \textcolor{comment}{!(out) 積分されたデータの並び(*)}
72 
73       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]{namespacewb__mpi__module__integral_a338b860f72dbf196d60f8b16620a2ab3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewb__mpi__module__integral_a414fde887921c6d58221a266431827ba}\label{namespacewb__mpi__module__integral_a414fde887921c6d58221a266431827ba}} 
\index{wb\+\_\+mpi\+\_\+module\+\_\+integral@{wb\+\_\+mpi\+\_\+module\+\_\+integral}!avrlon\+\_\+p@{avrlon\+\_\+p}}
\index{avrlon\+\_\+p@{avrlon\+\_\+p}!wb\+\_\+mpi\+\_\+module\+\_\+integral@{wb\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{avrlon\+\_\+p()}{avrlon\_p()}}
{\footnotesize\ttfamily real(8) function, public wb\+\_\+mpi\+\_\+module\+\_\+integral\+::avrlon\+\_\+p (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:), intent(in)}]{p\+\_\+data }\end{DoxyParamCaption})}



Definition at line 321 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


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



Definition at line 233 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


\begin{DoxyCode}
233       \textcolor{comment}{!}
234       \textcolor{comment}{! 2 次元緯度経度格子点データの全領域平均(一層用).}
235       \textcolor{comment}{!}
236       \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
237       \textcolor{comment}{! 総和を計算し, x\_X\_Weight*y\_Y\_Weight の総和で割ることで平均している.}
238       \textcolor{comment}{!}
239       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: pv\_data(:,:)
240       \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(ic,jc,*)}
241 
242       \textcolor{keywordtype}{real(8)} :: avrlonlat\_pv
243       \textcolor{comment}{!(out) 平均値の並び(*)}
244 
245       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]{namespacewb__mpi__module__integral_a496e2091be181aabe07b4dd2255bfa99_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewb__mpi__module__integral_a35d0d8de859caaf17a35fb7aced63e3c}\label{namespacewb__mpi__module__integral_a35d0d8de859caaf17a35fb7aced63e3c}} 
\index{wb\+\_\+mpi\+\_\+module\+\_\+integral@{wb\+\_\+mpi\+\_\+module\+\_\+integral}!intlon\+\_\+p@{intlon\+\_\+p}}
\index{intlon\+\_\+p@{intlon\+\_\+p}!wb\+\_\+mpi\+\_\+module\+\_\+integral@{wb\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{intlon\+\_\+p()}{intlon\_p()}}
{\footnotesize\ttfamily real(8) function, public wb\+\_\+mpi\+\_\+module\+\_\+integral\+::intlon\+\_\+p (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:), intent(in)}]{p\+\_\+data }\end{DoxyParamCaption})}



Definition at line 170 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


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



Definition at line 77 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


\begin{DoxyCode}
77       \textcolor{comment}{!}
78       \textcolor{comment}{! 2 次元緯度経度格子点データの全領域積分(一層用).}
79       \textcolor{comment}{!}
80       \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}
81       \textcolor{comment}{! 総和を計算している.}
82       \textcolor{comment}{!}
83       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)}   :: pv\_data(:,:)
84       \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(ic,jc)}
85 
86       \textcolor{keywordtype}{real(8)} :: intlonlat\_pv
87       \textcolor{comment}{!(out) 積分されたデータの並び(*)}
88 
89       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]{namespacewb__mpi__module__integral_a16d65497ee73ee72e75dadc09bbcf29a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewb__mpi__module__integral_aeb6276b68872898d1174ddd083bdb959}\label{namespacewb__mpi__module__integral_aeb6276b68872898d1174ddd083bdb959}} 
\index{wb\+\_\+mpi\+\_\+module\+\_\+integral@{wb\+\_\+mpi\+\_\+module\+\_\+integral}!pa\+\_\+avrlat\+\_\+pva@{pa\+\_\+avrlat\+\_\+pva}}
\index{pa\+\_\+avrlat\+\_\+pva@{pa\+\_\+avrlat\+\_\+pva}!wb\+\_\+mpi\+\_\+module\+\_\+integral@{wb\+\_\+mpi\+\_\+module\+\_\+integral}}
\subsubsection{\texorpdfstring{pa\+\_\+avrlat\+\_\+pva()}{pa\_avrlat\_pva()}}
{\footnotesize\ttfamily real(8) function, dimension(ic,size(pva\+\_\+data,3)), public wb\+\_\+mpi\+\_\+module\+\_\+integral\+::pa\+\_\+avrlat\+\_\+pva (\begin{DoxyParamCaption}\item[{real(8), dimension(\+:,\+:,\+:), intent(in)}]{pva\+\_\+data }\end{DoxyParamCaption})}



Definition at line 249 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


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



Definition at line 93 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


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



Definition at line 273 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


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



Definition at line 119 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.



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


\begin{DoxyCode}
119       \textcolor{comment}{!}
120       \textcolor{comment}{! 2 次元緯度経度格子点データの経度(X)方向積分(多層用).}
121       \textcolor{comment}{!}
122       \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}
123       \textcolor{comment}{!}
124       \textcolor{keywordtype}{real(8)}, \textcolor{keywordtype}{intent(in)} :: pva\_data(:,:,:)
125       \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-1,jc,*)}
126 
127       \textcolor{keywordtype}{real(8)}             :: va\_intlon\_pva(jc,size(pva\_data,3))
128       \textcolor{comment}{!(out) 積分された 1 次元緯度(Y)格子点データの並び}
129 
130       \textcolor{keywordtype}{real(8)}             :: va\_intlontmp(jc,size(pva\_data,3))
131       \textcolor{keywordtype}{integer} :: i
132 
133       va\_intlon\_pva = 0
134       \textcolor{keywordflow}{do} i=1,ic
135          va\_intlon\_pva = va\_intlon\_pva + pva\_data(i,:,:) * p\_lon\_weight(i)
136 \textcolor{keywordflow}{      enddo}
137 
138       va\_intlontmp=va\_intlon\_pva
139       \textcolor{keyword}{CALL }mpi\_allreduce(va\_intlontmp,va\_intlon\_pva,jc*\textcolor{keyword}{size}(pva\_data,3),&
140            mpi\_real8, mpi\_sum, mpi\_comm\_v, ierr)
141 
\end{DoxyCode}


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



Definition at line 46 of file wb\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


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