\hypertarget{namespacew__mpi__module__integral}{}\doxysection{w\+\_\+mpi\+\_\+module\+\_\+integral Module Reference}
\label{namespacew__mpi__module__integral}\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}


\doxysubsection{Detailed Description}
\mbox{\hyperlink{namespacew__mpi__module}{w\+\_\+mpi\+\_\+module}} の下部モジュール\+: 積分・平均 

\begin{DoxyCopyright}{Copyright}
Copyright (C) S\+P\+M\+O\+D\+EL Development Group, 2019. License is M\+I\+T/\+X11. see \mbox{\hyperlink{COPYRIGHT}{C\+O\+P\+Y\+R\+I\+G\+HT}} in detail 
\end{DoxyCopyright}
\begin{DoxyAuthor}{Author}
Shin-\/ichi Takehiro, Youhei S\+A\+S\+A\+KI 
\end{DoxyAuthor}
\begin{DoxyWarning}{Warning}
本モジュールを直接呼ぶ事は想定されていないことに注意されたい． ユーザは \mbox{\hyperlink{namespacew__mpi__module}{w\+\_\+mpi\+\_\+module}} を呼ぶこと． 
\end{DoxyWarning}
\doxysubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
real(dp) function, public \mbox{\hyperlink{namespacew__mpi__module__integral_ac5af87b417884be2b5cb2999284b1306}{intlonlat\+\_\+xv}} (xv\+\_\+data)
\begin{DoxyCompactList}\small\item\em 2 次元緯度経度格子点データの全領域積分(1 層用). \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:im-\/1), public \mbox{\hyperlink{namespacew__mpi__module__integral_a71b75e471c8cdb91d0ae71087710cafa}{x\+\_\+intlat\+\_\+xv}} (xv\+\_\+data)
\begin{DoxyCompactList}\small\item\em 2 次元緯度経度格子点データの緯度(\+Y)方向積分(1 層用). \end{DoxyCompactList}\item 
real(dp) function, dimension(jc), public \mbox{\hyperlink{namespacew__mpi__module__integral_ab648eb7e4753d7bef778f73ba59f44f9}{v\+\_\+intlon\+\_\+xv}} (xv\+\_\+data)
\begin{DoxyCompactList}\small\item\em 2 次元緯度経度格子点データの経度(\+X)方向積分(1 層用). \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespacew__mpi__module__integral_a6a200156a354cde87981a5995db3bbbd}{intlon\+\_\+x}} (x\+\_\+data)
\begin{DoxyCompactList}\small\item\em 1 次元経度(\+X)格子点データの X 方向積分(1 層用). \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespacew__mpi__module__integral_af757b3b5cc28c759991c14504b75f2d2}{intlat\+\_\+v}} (v\+\_\+data)
\begin{DoxyCompactList}\small\item\em 1 次元緯度(\+Y)格子点データの Y 方向積分(1 層用). \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespacew__mpi__module__integral_a700c19629d80b3fe18a9cb6e938da5ad}{avrlonlat\+\_\+xv}} (xv\+\_\+data)
\begin{DoxyCompactList}\small\item\em 2 次元緯度経度格子点データの全領域平均(1 層用). \end{DoxyCompactList}\item 
real(dp) function, dimension(im), public \mbox{\hyperlink{namespacew__mpi__module__integral_ac6285d0af7ec095f2e01357e51d27ea2}{x\+\_\+avrlat\+\_\+xv}} (xv\+\_\+data)
\begin{DoxyCompactList}\small\item\em 2 次元緯度経度格子点データの緯度(\+Y)方向平均(1 層用). \end{DoxyCompactList}\item 
real(dp) function, dimension(jc), public \mbox{\hyperlink{namespacew__mpi__module__integral_a2aae0ec7dfbaa01ac333543cb077d3fd}{v\+\_\+avrlon\+\_\+xv}} (xv\+\_\+data)
\begin{DoxyCompactList}\small\item\em 2 次元緯度経度格子点データの経度(\+X)方向平均(1 層用). \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespacew__mpi__module__integral_a52546cfced200f8a9a3c605d79af7824}{avrlon\+\_\+x}} (x\+\_\+data)
\begin{DoxyCompactList}\small\item\em 1 次元(\+X)格子点データの経度(\+X)方向平均(1 層用). \end{DoxyCompactList}\item 
real(dp) function, public \mbox{\hyperlink{namespacew__mpi__module__integral_a58d3350d84b1507c0acb6ac596717eae}{avrlat\+\_\+v}} (v\+\_\+data)
\begin{DoxyCompactList}\small\item\em 1 次元(\+Y)格子点データの緯度(\+Y)方向平均(1 層用). \end{DoxyCompactList}\end{DoxyCompactItemize}
\doxysubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer \mbox{\hyperlink{namespacew__mpi__module__integral_a04313aadf057178262401850381db66a}{ierr}}
\end{DoxyCompactItemize}


\doxysubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacew__mpi__module__integral_a58d3350d84b1507c0acb6ac596717eae}\label{namespacew__mpi__module__integral_a58d3350d84b1507c0acb6ac596717eae}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!avrlat\_v@{avrlat\_v}}
\index{avrlat\_v@{avrlat\_v}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{avrlat\_v()}{avrlat\_v()}}
{\footnotesize\ttfamily real(dp) function, public w\+\_\+mpi\+\_\+module\+\_\+integral\+::avrlat\+\_\+v (\begin{DoxyParamCaption}\item[{real(dp), dimension(jc), intent(in)}]{v\+\_\+data }\end{DoxyParamCaption})}



1 次元(\+Y)格子点データの緯度(\+Y)方向平均(1 層用). 

実際には格子点データ各点毎に v\+\_\+\+Y\+\_\+\+Weight をかけた総和を計算し, v\+\_\+\+Y\+\_\+\+Weight の総和で割ることで平均している. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em v\+\_\+data} & 1 次元緯度格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
平均値 
\end{DoxyReturn}


Definition at line 216 of file w\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{216 }
\DoxyCodeLine{217 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: v\_data(jc)}
\DoxyCodeLine{219 \textcolor{keywordtype}{    real}(DP)             :: AvrLat\_v}
\DoxyCodeLine{220 }
\DoxyCodeLine{221 \textcolor{keywordtype}{    real}(DP)             :: Tmp}
\DoxyCodeLine{222 \textcolor{keywordtype}{    real}(DP)             :: Lat\_Weight\_Sum}
\DoxyCodeLine{223 }
\DoxyCodeLine{224     tmp = sum(v\_lat\_weight)}
\DoxyCodeLine{225     \textcolor{keyword}{CALL }mpi\_allreduce(tmp, lat\_weight\_sum, 1, mpi\_real8, \&}
\DoxyCodeLine{226       \& mpi\_sum, int(icom), ierr)}
\DoxyCodeLine{227     avrlat\_v = intlat\_v(v\_data)/lat\_weight\_sum}
\DoxyCodeLine{228 }

\end{DoxyCode}


References w\+\_\+mpi\+\_\+module\+\_\+base\+::icom, ierr, intlat\+\_\+v(), 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]{namespacew__mpi__module__integral_a58d3350d84b1507c0acb6ac596717eae_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__integral_a52546cfced200f8a9a3c605d79af7824}\label{namespacew__mpi__module__integral_a52546cfced200f8a9a3c605d79af7824}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!avrlon\_x@{avrlon\_x}}
\index{avrlon\_x@{avrlon\_x}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{avrlon\_x()}{avrlon\_x()}}
{\footnotesize\ttfamily real(dp) function, public w\+\_\+mpi\+\_\+module\+\_\+integral\+::avrlon\+\_\+x (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:im-\/1), intent(in)}]{x\+\_\+data }\end{DoxyParamCaption})}



1 次元(\+X)格子点データの経度(\+X)方向平均(1 層用). 

実際には格子点データ各点毎に x\+\_\+\+X\+\_\+\+Weight をかけた総和を計算し, x\+\_\+\+X\+\_\+\+Weight の総和で割ることで平均している. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em x\+\_\+data} & 1 次元経度(\+X)格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
平均値 
\end{DoxyReturn}


Definition at line 200 of file w\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{200 }
\DoxyCodeLine{201 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: x\_data(0:im-\/1)}
\DoxyCodeLine{203 \textcolor{keywordtype}{    real}(DP)             :: AvrLon\_x}
\DoxyCodeLine{204 }
\DoxyCodeLine{205     avrlon\_x = intlon\_x(x\_data)/sum(x\_lon\_weight)}
\DoxyCodeLine{206 }

\end{DoxyCode}


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



Referenced by avrlonlat\+\_\+xv().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__integral_a52546cfced200f8a9a3c605d79af7824_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__integral_a52546cfced200f8a9a3c605d79af7824_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__integral_a700c19629d80b3fe18a9cb6e938da5ad}\label{namespacew__mpi__module__integral_a700c19629d80b3fe18a9cb6e938da5ad}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!avrlonlat\_xv@{avrlonlat\_xv}}
\index{avrlonlat\_xv@{avrlonlat\_xv}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{avrlonlat\_xv()}{avrlonlat\_xv()}}
{\footnotesize\ttfamily real(dp) function, public w\+\_\+mpi\+\_\+module\+\_\+integral\+::avrlonlat\+\_\+xv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:im-\/1,jc), intent(in)}]{xv\+\_\+data }\end{DoxyParamCaption})}



2 次元緯度経度格子点データの全領域平均(1 層用). 

実際には格子点データ各点毎に x\+\_\+\+X\+\_\+\+Weight, v\+\_\+\+Y\+\_\+\+Weight をかけた 総和を計算し, x\+\_\+\+X\+\_\+\+Weight$\ast$v\+\_\+\+Y\+\_\+\+Weight の総和で割ることで平均している. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em xv\+\_\+data} & 2 次元経度緯度格子点データ(0\+:im-\/1,jc) \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
平均値 
\end{DoxyReturn}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{145 }
\DoxyCodeLine{146 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xv\_data(0:im-\/1,jc)}
\DoxyCodeLine{148 \textcolor{keywordtype}{    real}(DP) :: AvrLonLat\_xv}
\DoxyCodeLine{149 }
\DoxyCodeLine{150     avrlonlat\_xv = avrlon\_x(x\_avrlat\_xv(xv\_data))}
\DoxyCodeLine{151 }

\end{DoxyCode}


References avrlon\+\_\+x(), and x\+\_\+avrlat\+\_\+xv().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__integral_a700c19629d80b3fe18a9cb6e938da5ad_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__integral_af757b3b5cc28c759991c14504b75f2d2}\label{namespacew__mpi__module__integral_af757b3b5cc28c759991c14504b75f2d2}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!intlat\_v@{intlat\_v}}
\index{intlat\_v@{intlat\_v}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{intlat\_v()}{intlat\_v()}}
{\footnotesize\ttfamily real(dp) function, public w\+\_\+mpi\+\_\+module\+\_\+integral\+::intlat\+\_\+v (\begin{DoxyParamCaption}\item[{real(dp), dimension(jc), intent(in)}]{v\+\_\+data }\end{DoxyParamCaption})}



1 次元緯度(\+Y)格子点データの Y 方向積分(1 層用). 

実際には格子点データ各点毎に v\+\_\+\+Y\+\_\+\+Weight をかけた総和を計算している. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em v\+\_\+data} & 1 次元緯度(\+Y)格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
積分値 
\end{DoxyReturn}


Definition at line 124 of file w\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{124 }
\DoxyCodeLine{125 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: v\_data(jc)}
\DoxyCodeLine{127 \textcolor{keywordtype}{    real}(DP)             :: IntLat\_v}
\DoxyCodeLine{128 }
\DoxyCodeLine{129 \textcolor{keywordtype}{    real}(DP)             :: IntLatTmp}
\DoxyCodeLine{130 }
\DoxyCodeLine{131     intlat\_v = sum(v\_data * v\_lat\_weight)}
\DoxyCodeLine{132     intlattmp=intlat\_v}
\DoxyCodeLine{133     \textcolor{keyword}{CALL }mpi\_allreduce(intlattmp, intlat\_v, 1, mpi\_real8, \&}
\DoxyCodeLine{134       \& mpi\_sum, int(icom), ierr)}
\DoxyCodeLine{135 }

\end{DoxyCode}


References w\+\_\+mpi\+\_\+module\+\_\+base\+::icom, ierr, and w\+\_\+mpi\+\_\+module\+\_\+base\+::v\+\_\+lat\+\_\+weight.



Referenced by avrlat\+\_\+v().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__integral_af757b3b5cc28c759991c14504b75f2d2_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__integral_a6a200156a354cde87981a5995db3bbbd}\label{namespacew__mpi__module__integral_a6a200156a354cde87981a5995db3bbbd}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!intlon\_x@{intlon\_x}}
\index{intlon\_x@{intlon\_x}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{intlon\_x()}{intlon\_x()}}
{\footnotesize\ttfamily real(dp) function, public w\+\_\+mpi\+\_\+module\+\_\+integral\+::intlon\+\_\+x (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:im-\/1), intent(in)}]{x\+\_\+data }\end{DoxyParamCaption})}



1 次元経度(\+X)格子点データの X 方向積分(1 層用). 

実際には格子点データ各点毎に x\+\_\+\+X\+\_\+\+Weight をかけた総和を計算している. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em x\+\_\+data} & 1 次元経度(\+X)格子点データ \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
積分値 
\end{DoxyReturn}


Definition at line 109 of file w\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{109 }
\DoxyCodeLine{110 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: x\_data(0:im-\/1)}
\DoxyCodeLine{112 \textcolor{keywordtype}{    real}(DP)             :: IntLon\_x}
\DoxyCodeLine{113 }
\DoxyCodeLine{114     intlon\_x = sum(x\_data * x\_lon\_weight)}
\DoxyCodeLine{115 }

\end{DoxyCode}


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



Referenced by avrlon\+\_\+x(), and intlonlat\+\_\+xv().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__integral_a6a200156a354cde87981a5995db3bbbd_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__integral_ac5af87b417884be2b5cb2999284b1306}\label{namespacew__mpi__module__integral_ac5af87b417884be2b5cb2999284b1306}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!intlonlat\_xv@{intlonlat\_xv}}
\index{intlonlat\_xv@{intlonlat\_xv}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{intlonlat\_xv()}{intlonlat\_xv()}}
{\footnotesize\ttfamily real(dp) function, public w\+\_\+mpi\+\_\+module\+\_\+integral\+::intlonlat\+\_\+xv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:im-\/1,jc), intent(in)}]{xv\+\_\+data }\end{DoxyParamCaption})}



2 次元緯度経度格子点データの全領域積分(1 層用). 

実際には格子点データ各点毎に x\+\_\+\+X\+\_\+\+Weight, v\+\_\+\+V\+\_\+\+Weight をかけた 総和を計算している. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em xv\+\_\+data} & 2 次元経度緯度格子点データ(0\+:im-\/1,jc) \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
積分値 
\end{DoxyReturn}


Definition at line 50 of file w\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{50 }
\DoxyCodeLine{51 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xv\_data(0:im-\/1,jc)}
\DoxyCodeLine{53 \textcolor{keywordtype}{    real}(DP) :: IntLonLat\_xv}
\DoxyCodeLine{54 }
\DoxyCodeLine{55     intlonlat\_xv = intlon\_x(x\_intlat\_xv(xv\_data))}
\DoxyCodeLine{56 }

\end{DoxyCode}


References intlon\+\_\+x(), and x\+\_\+intlat\+\_\+xv().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__integral_ac5af87b417884be2b5cb2999284b1306_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__integral_a2aae0ec7dfbaa01ac333543cb077d3fd}\label{namespacew__mpi__module__integral_a2aae0ec7dfbaa01ac333543cb077d3fd}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!v\_avrlon\_xv@{v\_avrlon\_xv}}
\index{v\_avrlon\_xv@{v\_avrlon\_xv}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{v\_avrlon\_xv()}{v\_avrlon\_xv()}}
{\footnotesize\ttfamily real(dp) function, dimension(jc), public w\+\_\+mpi\+\_\+module\+\_\+integral\+::v\+\_\+avrlon\+\_\+xv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:im-\/1,jc), intent(in)}]{xv\+\_\+data }\end{DoxyParamCaption})}



2 次元緯度経度格子点データの経度(\+X)方向平均(1 層用). 

実際には格子点データ各点毎に x\+\_\+\+X\+\_\+\+Weight をかけた総和を計算し, x\+\_\+\+X\+\_\+\+Weight の総和で割ることで平均している. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em xv\+\_\+data} & 2 次元経度緯度格子点データ(0\+:im-\/1,jc) \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
平均された 1 次元緯度(\+Y)格子点 
\end{DoxyReturn}


Definition at line 184 of file w\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{184 }
\DoxyCodeLine{185 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: xv\_data(0:im-\/1,jc)}
\DoxyCodeLine{187 \textcolor{keywordtype}{    real}(DP)             :: v\_AvrLon\_xv(jc)}
\DoxyCodeLine{188 }
\DoxyCodeLine{189     v\_avrlon\_xv = v\_intlon\_xv(xv\_data)/sum(x\_lon\_weight)}
\DoxyCodeLine{190 }

\end{DoxyCode}


References v\+\_\+intlon\+\_\+xv(), 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]{namespacew__mpi__module__integral_a2aae0ec7dfbaa01ac333543cb077d3fd_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__integral_ab648eb7e4753d7bef778f73ba59f44f9}\label{namespacew__mpi__module__integral_ab648eb7e4753d7bef778f73ba59f44f9}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!v\_intlon\_xv@{v\_intlon\_xv}}
\index{v\_intlon\_xv@{v\_intlon\_xv}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{v\_intlon\_xv()}{v\_intlon\_xv()}}
{\footnotesize\ttfamily real(dp) function, dimension(jc), public w\+\_\+mpi\+\_\+module\+\_\+integral\+::v\+\_\+intlon\+\_\+xv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:im-\/1,jc), intent(in)}]{xv\+\_\+data }\end{DoxyParamCaption})}



2 次元緯度経度格子点データの経度(\+X)方向積分(1 層用). 

実際には格子点データ各点毎に x\+\_\+\+X\+\_\+\+Weight をかけた総和を計算している. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em xv\+\_\+data} & 2 次元経度緯度格子点データ(0\+:im-\/1,jc) \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
積分された 1 次元緯度(\+Y)格子点データ 
\end{DoxyReturn}


Definition at line 89 of file w\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{89 }
\DoxyCodeLine{90 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: xv\_data(0:im-\/1,jc)}
\DoxyCodeLine{92 \textcolor{keywordtype}{    real}(DP)             :: v\_IntLon\_xv(jc)}
\DoxyCodeLine{93 }
\DoxyCodeLine{94     \textcolor{keywordtype}{integer} :: i}
\DoxyCodeLine{95 }
\DoxyCodeLine{96     v\_intlon\_xv = 0.0d0}
\DoxyCodeLine{97     \textcolor{keywordflow}{do} i=0,int(im)-\/1}
\DoxyCodeLine{98       v\_intlon\_xv = v\_intlon\_xv + xv\_data(i,:) * x\_lon\_weight(i)}
\DoxyCodeLine{99 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{100 }

\end{DoxyCode}


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



Referenced by v\+\_\+avrlon\+\_\+xv().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__integral_ab648eb7e4753d7bef778f73ba59f44f9_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__integral_ac6285d0af7ec095f2e01357e51d27ea2}\label{namespacew__mpi__module__integral_ac6285d0af7ec095f2e01357e51d27ea2}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!x\_avrlat\_xv@{x\_avrlat\_xv}}
\index{x\_avrlat\_xv@{x\_avrlat\_xv}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{x\_avrlat\_xv()}{x\_avrlat\_xv()}}
{\footnotesize\ttfamily real(dp) function, dimension(im), public w\+\_\+mpi\+\_\+module\+\_\+integral\+::x\+\_\+avrlat\+\_\+xv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:im-\/1,jc), intent(in)}]{xv\+\_\+data }\end{DoxyParamCaption})}



2 次元緯度経度格子点データの緯度(\+Y)方向平均(1 層用). 

実際には格子点データ各点毎に v\+\_\+\+Lat\+\_\+\+Weight をかけた総和を計算し, y\+\_\+\+Lat\+\_\+\+Weight の総和で割ることで平均している. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em xv\+\_\+data} & 2 次元経度緯度格子点データ(0\+:im-\/1,jc) \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
平均された 1 次元経度(\+X)格子点データ 
\end{DoxyReturn}


Definition at line 161 of file w\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{161 }
\DoxyCodeLine{162 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: xv\_data(0:im-\/1,jc)}
\DoxyCodeLine{164 \textcolor{keywordtype}{    real}(DP)             :: x\_AvrLat\_xv(im)}
\DoxyCodeLine{165 }
\DoxyCodeLine{166 \textcolor{keywordtype}{    real}(DP)             :: Tmp}
\DoxyCodeLine{167 \textcolor{keywordtype}{    real}(DP)             :: Lat\_Weight\_Sum}
\DoxyCodeLine{168 }
\DoxyCodeLine{169     tmp = sum(v\_lat\_weight)}
\DoxyCodeLine{170     \textcolor{keyword}{CALL }mpi\_allreduce(tmp, lat\_weight\_sum, 1, mpi\_real8, \&}
\DoxyCodeLine{171       \& mpi\_sum, int(icom), ierr)}
\DoxyCodeLine{172 }
\DoxyCodeLine{173     x\_avrlat\_xv = x\_intlat\_xv(xv\_data)/lat\_weight\_sum}
\DoxyCodeLine{174 }

\end{DoxyCode}


References w\+\_\+mpi\+\_\+module\+\_\+base\+::icom, ierr, w\+\_\+mpi\+\_\+module\+\_\+base\+::v\+\_\+lat\+\_\+weight, and x\+\_\+intlat\+\_\+xv().



Referenced by avrlonlat\+\_\+xv().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__integral_ac6285d0af7ec095f2e01357e51d27ea2_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__integral_ac6285d0af7ec095f2e01357e51d27ea2_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__integral_a71b75e471c8cdb91d0ae71087710cafa}\label{namespacew__mpi__module__integral_a71b75e471c8cdb91d0ae71087710cafa}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!x\_intlat\_xv@{x\_intlat\_xv}}
\index{x\_intlat\_xv@{x\_intlat\_xv}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{x\_intlat\_xv()}{x\_intlat\_xv()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1), public w\+\_\+mpi\+\_\+module\+\_\+integral\+::x\+\_\+intlat\+\_\+xv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:im-\/1,jc), intent(in)}]{xv\+\_\+data }\end{DoxyParamCaption})}



2 次元緯度経度格子点データの緯度(\+Y)方向積分(1 層用). 

実際には格子点データ各点毎に v\+\_\+\+Y\+\_\+\+Weight をかけた総和を計算している. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em xv\+\_\+data} & 2 次元経度緯度格子点データ(0\+:im-\/1,jc) \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
積分された 1 次元経度(\+X)格子点データ 
\end{DoxyReturn}


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


\begin{DoxyCode}{0}
\DoxyCodeLine{65 }
\DoxyCodeLine{66 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: xv\_data(0:im-\/1,jc)}
\DoxyCodeLine{68 \textcolor{keywordtype}{    real}(DP)             :: x\_IntLat\_xv(0:im-\/1)}
\DoxyCodeLine{69 }
\DoxyCodeLine{70 \textcolor{keywordtype}{    real}(DP)             :: x\_IntLatTmp(0:im-\/1)}
\DoxyCodeLine{71     \textcolor{keywordtype}{integer} :: j}
\DoxyCodeLine{72 }
\DoxyCodeLine{73     x\_intlat\_xv = 0.0d0}
\DoxyCodeLine{74     \textcolor{keywordflow}{do} j=1,jc}
\DoxyCodeLine{75       x\_intlat\_xv = x\_intlat\_xv + xv\_data(:,j) * v\_lat\_weight(j)}
\DoxyCodeLine{76 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{77 }
\DoxyCodeLine{78     x\_intlattmp=x\_intlat\_xv}
\DoxyCodeLine{79     \textcolor{keyword}{CALL }mpi\_allreduce(x\_intlattmp, x\_intlat\_xv, int(im), mpi\_real8, \&}
\DoxyCodeLine{80       \& mpi\_sum, int(icom), ierr)}

\end{DoxyCode}


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



Referenced by intlonlat\+\_\+xv(), and x\+\_\+avrlat\+\_\+xv().

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


\doxysubsection{Variable Documentation}
\mbox{\Hypertarget{namespacew__mpi__module__integral_a04313aadf057178262401850381db66a}\label{namespacew__mpi__module__integral_a04313aadf057178262401850381db66a}} 
\index{w\_mpi\_module\_integral@{w\_mpi\_module\_integral}!ierr@{ierr}}
\index{ierr@{ierr}!w\_mpi\_module\_integral@{w\_mpi\_module\_integral}}
\doxysubsubsection{\texorpdfstring{ierr}{ierr}}
{\footnotesize\ttfamily integer w\+\_\+mpi\+\_\+module\+\_\+integral\+::ierr\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 39 of file w\+\_\+mpi\+\_\+module\+\_\+integral.\+f90.


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

\end{DoxyCode}


Referenced by avrlat\+\_\+v(), intlat\+\_\+v(), x\+\_\+avrlat\+\_\+xv(), and x\+\_\+intlat\+\_\+xv().

