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


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



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


\begin{DoxyCode}{0}
\DoxyCodeLine{223     \textcolor{comment}{!}}
\DoxyCodeLine{224     \textcolor{comment}{! 1 次元(Y)格子点データの緯度(Y)方向平均(多層用).}}
\DoxyCodeLine{225     \textcolor{comment}{!}}
\DoxyCodeLine{226     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算し,}}
\DoxyCodeLine{227     \textcolor{comment}{! y\_Y\_Weight の総和で割ることで平均している.}}
\DoxyCodeLine{228     \textcolor{comment}{!}}
\DoxyCodeLine{229 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: ya\_data(:,:)}
\DoxyCodeLine{230     \textcolor{comment}{!(in)  1 次元緯度格子点データの並び(1:jm,*)}}
\DoxyCodeLine{231 }
\DoxyCodeLine{232 \textcolor{keywordtype}{    real}(DP)             :: a\_AvrLat\_ya(size(ya\_data,2))}
\DoxyCodeLine{233     \textcolor{comment}{!(out) 平均値の並び(*)}}
\DoxyCodeLine{234 }
\DoxyCodeLine{235     a\_avrlat\_ya = a\_intlat\_ya(ya\_data)/sum(y\_lat\_weight)}
\DoxyCodeLine{236 }

\end{DoxyCode}


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

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_a238b23883086a49c2dc28d1be56e2328_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_af98920bc20185a11a3461d2896128197}\label{namespacewa__module__integral_af98920bc20185a11a3461d2896128197}} 
\index{wa\_module\_integral@{wa\_module\_integral}!a\_avrlon\_xa@{a\_avrlon\_xa}}
\index{a\_avrlon\_xa@{a\_avrlon\_xa}!wa\_module\_integral@{wa\_module\_integral}}
\doxysubsubsection{\texorpdfstring{a\_avrlon\_xa()}{a\_avrlon\_xa()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(xa\+\_\+data,2)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+avrlon\+\_\+xa (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:), intent(in)}]{xa\+\_\+data }\end{DoxyParamCaption})}



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


\begin{DoxyCode}{0}
\DoxyCodeLine{240     \textcolor{comment}{!}}
\DoxyCodeLine{241     \textcolor{comment}{! 1 次元(X)格子点データの経度(X)方向平均(多層用).}}
\DoxyCodeLine{242     \textcolor{comment}{!}}
\DoxyCodeLine{243     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算し,}}
\DoxyCodeLine{244     \textcolor{comment}{! x\_X\_Weight の総和で割ることで平均している.}}
\DoxyCodeLine{245     \textcolor{comment}{!}}
\DoxyCodeLine{246 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: xa\_data(0:,:)}
\DoxyCodeLine{247     \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:im-\/1,*)}}
\DoxyCodeLine{248 }
\DoxyCodeLine{249 \textcolor{keywordtype}{    real}(DP)             :: a\_AvrLon\_xa(size(xa\_data,2))}
\DoxyCodeLine{250     \textcolor{comment}{!(out) 平均値の並び(*)}}
\DoxyCodeLine{251 }
\DoxyCodeLine{252     a\_avrlon\_xa = a\_intlon\_xa(xa\_data)/sum(x\_lon\_weight)}
\DoxyCodeLine{253 }

\end{DoxyCode}


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



Referenced by a\+\_\+avrlonlat\+\_\+xya().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_af98920bc20185a11a3461d2896128197_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_af98920bc20185a11a3461d2896128197_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a2fdc4b9268012b4e82945bff8244064b}\label{namespacewa__module__integral_a2fdc4b9268012b4e82945bff8244064b}} 
\index{wa\_module\_integral@{wa\_module\_integral}!a\_avrlonlat\_xya@{a\_avrlonlat\_xya}}
\index{a\_avrlonlat\_xya@{a\_avrlonlat\_xya}!wa\_module\_integral@{wa\_module\_integral}}
\doxysubsubsection{\texorpdfstring{a\_avrlonlat\_xya()}{a\_avrlonlat\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+avrlonlat\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



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


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

\end{DoxyCode}


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

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__integral_a2fdc4b9268012b4e82945bff8244064b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a165323bc096081effa931c8a98229ca9}\label{namespacewa__module__integral_a165323bc096081effa931c8a98229ca9}} 
\index{wa\_module\_integral@{wa\_module\_integral}!a\_intlat\_ya@{a\_intlat\_ya}}
\index{a\_intlat\_ya@{a\_intlat\_ya}!wa\_module\_integral@{wa\_module\_integral}}
\doxysubsubsection{\texorpdfstring{a\_intlat\_ya()}{a\_intlat\_ya()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(ya\+\_\+data,2)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+intlat\+\_\+ya (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{ya\+\_\+data }\end{DoxyParamCaption})}



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


\begin{DoxyCode}{0}
\DoxyCodeLine{126     \textcolor{comment}{!}}
\DoxyCodeLine{127     \textcolor{comment}{! 1 次元緯度(Y)格子点データの Y 方向積分(多層用).}}
\DoxyCodeLine{128     \textcolor{comment}{!}}
\DoxyCodeLine{129     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算している.}}
\DoxyCodeLine{130     \textcolor{comment}{!}}
\DoxyCodeLine{131 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: ya\_data(:,:)}
\DoxyCodeLine{132     \textcolor{comment}{!(in)  1 次元緯度(Y)格子点データの並び(1:jm,*)}}
\DoxyCodeLine{133 }
\DoxyCodeLine{134 \textcolor{keywordtype}{    real}(DP)             :: a\_IntLat\_ya(size(ya\_data,2))}
\DoxyCodeLine{135     \textcolor{comment}{!(out) 積分値の並び(*)}}
\DoxyCodeLine{136 }
\DoxyCodeLine{137     \textcolor{keywordtype}{integer} :: i\_jm}
\DoxyCodeLine{138     \textcolor{keywordtype}{integer} :: j}
\DoxyCodeLine{139 }
\DoxyCodeLine{140     i\_jm = int(jm)}
\DoxyCodeLine{141 }
\DoxyCodeLine{142     a\_intlat\_ya = 0.0d0}
\DoxyCodeLine{143     \textcolor{keywordflow}{do} j=1,i\_jm}
\DoxyCodeLine{144       a\_intlat\_ya = a\_intlat\_ya + ya\_data(j,:) * y\_lat\_weight(j)}
\DoxyCodeLine{145 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{146 }

\end{DoxyCode}


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



Referenced by a\+\_\+avrlat\+\_\+ya().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_a165323bc096081effa931c8a98229ca9_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_ac50aa3e8abda53a10e8f1bff3537cb20}\label{namespacewa__module__integral_ac50aa3e8abda53a10e8f1bff3537cb20}} 
\index{wa\_module\_integral@{wa\_module\_integral}!a\_intlon\_xa@{a\_intlon\_xa}}
\index{a\_intlon\_xa@{a\_intlon\_xa}!wa\_module\_integral@{wa\_module\_integral}}
\doxysubsubsection{\texorpdfstring{a\_intlon\_xa()}{a\_intlon\_xa()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(xa\+\_\+data,2)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+intlon\+\_\+xa (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:), intent(in)}]{xa\+\_\+data }\end{DoxyParamCaption})}



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


\begin{DoxyCode}{0}
\DoxyCodeLine{150     \textcolor{comment}{!}}
\DoxyCodeLine{151     \textcolor{comment}{! 1 次元経度(X)格子点データの X 方向積分(多層用).}}
\DoxyCodeLine{152     \textcolor{comment}{!}}
\DoxyCodeLine{153     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight をかけた総和を計算している.}}
\DoxyCodeLine{154     \textcolor{comment}{!}}
\DoxyCodeLine{155 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: xa\_data(0:,:)}
\DoxyCodeLine{156     \textcolor{comment}{!(in)  1 次元経度(X)格子点データの並び(0:im-\/1,*)}}
\DoxyCodeLine{157 \textcolor{keywordtype}{    real}(DP)             :: a\_IntLon\_xa(size(xa\_data,2))}
\DoxyCodeLine{158     \textcolor{comment}{!(out) 積分値の並び(*)}}
\DoxyCodeLine{159     \textcolor{keywordtype}{integer} :: i\_im}
\DoxyCodeLine{160     \textcolor{keywordtype}{integer} :: i}
\DoxyCodeLine{161 }
\DoxyCodeLine{162     i\_im = int(im)}
\DoxyCodeLine{163     a\_intlon\_xa = 0.0d0}
\DoxyCodeLine{164     \textcolor{keywordflow}{do} i=0,i\_im-\/1}
\DoxyCodeLine{165       a\_intlon\_xa = a\_intlon\_xa + xa\_data(i,:) * x\_lon\_weight(i)}
\DoxyCodeLine{166 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{167 }

\end{DoxyCode}


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



Referenced by a\+\_\+avrlon\+\_\+xa(), and a\+\_\+intlonlat\+\_\+xya().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__integral_ac50aa3e8abda53a10e8f1bff3537cb20_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_aecf7e444ae26ee03f91b01bfb6db374d}\label{namespacewa__module__integral_aecf7e444ae26ee03f91b01bfb6db374d}} 
\index{wa\_module\_integral@{wa\_module\_integral}!a\_intlonlat\_xya@{a\_intlonlat\_xya}}
\index{a\_intlonlat\_xya@{a\_intlonlat\_xya}!wa\_module\_integral@{wa\_module\_integral}}
\doxysubsubsection{\texorpdfstring{a\_intlonlat\_xya()}{a\_intlonlat\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::a\+\_\+intlonlat\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



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


\begin{DoxyCode}{0}
\DoxyCodeLine{65     \textcolor{comment}{!}}
\DoxyCodeLine{66     \textcolor{comment}{! 2 次元緯度経度格子点データの全領域積分(多層用).}}
\DoxyCodeLine{67     \textcolor{comment}{!}}
\DoxyCodeLine{68     \textcolor{comment}{! 実際には格子点データ各点毎に x\_X\_Weight, y\_Y\_Weight をかけた}}
\DoxyCodeLine{69     \textcolor{comment}{! 総和を計算している.}}
\DoxyCodeLine{70     \textcolor{comment}{!}}
\DoxyCodeLine{71 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xya\_data(0:,:,:)}
\DoxyCodeLine{72     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-\/1,1:jm,*)}}
\DoxyCodeLine{73 \textcolor{keywordtype}{    real}(DP) :: a\_IntLonLat\_xya(size(xya\_data,3))}
\DoxyCodeLine{74     \textcolor{comment}{!(out) 積分されたデータの並び(*)}}
\DoxyCodeLine{75 }
\DoxyCodeLine{76     a\_intlonlat\_xya = a\_intlon\_xa(xa\_intlat\_xya(xya\_data))}
\DoxyCodeLine{77 }

\end{DoxyCode}


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

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_aecf7e444ae26ee03f91b01bfb6db374d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a92bce28b6477f250f96173b79d9d759b}\label{namespacewa__module__integral_a92bce28b6477f250f96173b79d9d759b}} 
\index{wa\_module\_integral@{wa\_module\_integral}!xa\_avrlat\_xya@{xa\_avrlat\_xya}}
\index{xa\_avrlat\_xya@{xa\_avrlat\_xya}!wa\_module\_integral@{wa\_module\_integral}}
\doxysubsubsection{\texorpdfstring{xa\_avrlat\_xya()}{xa\_avrlat\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::xa\+\_\+avrlat\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



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


\begin{DoxyCode}{0}
\DoxyCodeLine{189     \textcolor{comment}{!}}
\DoxyCodeLine{190     \textcolor{comment}{! 2 次元緯度経度格子点データの緯度(Y)方向平均(多層用).}}
\DoxyCodeLine{191     \textcolor{comment}{!}}
\DoxyCodeLine{192     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算し,}}
\DoxyCodeLine{193     \textcolor{comment}{! y\_Y\_Weight の総和で割ることで平均している.}}
\DoxyCodeLine{194     \textcolor{comment}{!}}
\DoxyCodeLine{195 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: xya\_data(0:,:,:)}
\DoxyCodeLine{196     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-\/1,1:jm,*)}}
\DoxyCodeLine{197 }
\DoxyCodeLine{198 \textcolor{keywordtype}{    real}(DP)             :: xa\_AvrLat\_xya(0:im-\/1,size(xya\_data,3))}
\DoxyCodeLine{199     \textcolor{comment}{!(out) 平均された 1 次元経度(X)格子点データの並び(im,*)}}
\DoxyCodeLine{200 }
\DoxyCodeLine{201     xa\_avrlat\_xya = xa\_intlat\_xya(xya\_data)/sum(y\_lat\_weight)}
\DoxyCodeLine{202 }

\end{DoxyCode}


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



Referenced by a\+\_\+avrlonlat\+\_\+xya().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_a92bce28b6477f250f96173b79d9d759b_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_a92bce28b6477f250f96173b79d9d759b_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a0bc370739169fe50ab71d542efe55a74}\label{namespacewa__module__integral_a0bc370739169fe50ab71d542efe55a74}} 
\index{wa\_module\_integral@{wa\_module\_integral}!xa\_intlat\_xya@{xa\_intlat\_xya}}
\index{xa\_intlat\_xya@{xa\_intlat\_xya}!wa\_module\_integral@{wa\_module\_integral}}
\doxysubsubsection{\texorpdfstring{xa\_intlat\_xya()}{xa\_intlat\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:im-\/1,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::xa\+\_\+intlat\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



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


\begin{DoxyCode}{0}
\DoxyCodeLine{81     \textcolor{comment}{!}}
\DoxyCodeLine{82     \textcolor{comment}{! 2 次元緯度経度格子点データの緯度(Y)方向積分(多層用).}}
\DoxyCodeLine{83     \textcolor{comment}{!}}
\DoxyCodeLine{84     \textcolor{comment}{! 実際には格子点データ各点毎に y\_Y\_Weight をかけた総和を計算している.}}
\DoxyCodeLine{85     \textcolor{comment}{!}}
\DoxyCodeLine{86 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)} :: xya\_data(0:,:,:)}
\DoxyCodeLine{87     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-\/1,1:jm,*)}}
\DoxyCodeLine{88 \textcolor{keywordtype}{    real}(DP)             :: xa\_IntLat\_xya(0:im-\/1,size(xya\_data,3))}
\DoxyCodeLine{89     \textcolor{comment}{!(out) 積分された 1 次元経度(X)格子点データの並び}}
\DoxyCodeLine{90     \textcolor{keywordtype}{integer} :: j}
\DoxyCodeLine{91     \textcolor{keywordtype}{integer} :: i\_jm}
\DoxyCodeLine{92 }
\DoxyCodeLine{93     i\_jm = int(jm)}
\DoxyCodeLine{94     xa\_intlat\_xya = 0.0d0}
\DoxyCodeLine{95     \textcolor{keywordflow}{do} j=1,i\_jm}
\DoxyCodeLine{96       xa\_intlat\_xya = xa\_intlat\_xya + xya\_data(:,j,:) * y\_lat\_weight(j)}
\DoxyCodeLine{97 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{98 }

\end{DoxyCode}


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



Referenced by a\+\_\+intlonlat\+\_\+xya(), and xa\+\_\+avrlat\+\_\+xya().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacewa__module__integral_a0bc370739169fe50ab71d542efe55a74_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a671d893ef30c3900a73e7c6e9a48e8ed}\label{namespacewa__module__integral_a671d893ef30c3900a73e7c6e9a48e8ed}} 
\index{wa\_module\_integral@{wa\_module\_integral}!ya\_avrlon\_xya@{ya\_avrlon\_xya}}
\index{ya\_avrlon\_xya@{ya\_avrlon\_xya}!wa\_module\_integral@{wa\_module\_integral}}
\doxysubsubsection{\texorpdfstring{ya\_avrlon\_xya()}{ya\_avrlon\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(1\+:jm,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::ya\+\_\+avrlon\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



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


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

\end{DoxyCode}


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

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=322pt]{namespacewa__module__integral_a671d893ef30c3900a73e7c6e9a48e8ed_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacewa__module__integral_a3f5d48aa51cf060ad5383b6ae073cfb0}\label{namespacewa__module__integral_a3f5d48aa51cf060ad5383b6ae073cfb0}} 
\index{wa\_module\_integral@{wa\_module\_integral}!ya\_intlon\_xya@{ya\_intlon\_xya}}
\index{ya\_intlon\_xya@{ya\_intlon\_xya}!wa\_module\_integral@{wa\_module\_integral}}
\doxysubsubsection{\texorpdfstring{ya\_intlon\_xya()}{ya\_intlon\_xya()}}
{\footnotesize\ttfamily real(dp) function, dimension(1\+:jm,size(xya\+\_\+data,3)), public wa\+\_\+module\+\_\+integral\+::ya\+\_\+intlon\+\_\+xya (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:,\+:,\+:), intent(in)}]{xya\+\_\+data }\end{DoxyParamCaption})}



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


\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}(DP), \textcolor{keywordtype}{intent(in)} :: xya\_data(0:,:,:)}
\DoxyCodeLine{108     \textcolor{comment}{!(in) 2 次元経度緯度格子点データの並び(0:im-\/1,1:jm,*)}}
\DoxyCodeLine{109 }
\DoxyCodeLine{110 \textcolor{keywordtype}{    real}(DP)             :: ya\_IntLon\_xya(1:jm,size(xya\_data,3))}
\DoxyCodeLine{111     \textcolor{comment}{!(out) 積分された 1 次元緯度(Y)格子点データの並び}}
\DoxyCodeLine{112 }
\DoxyCodeLine{113     \textcolor{keywordtype}{integer} :: i}
\DoxyCodeLine{114     \textcolor{keywordtype}{integer} :: i\_im}
\DoxyCodeLine{115 }
\DoxyCodeLine{116     i\_im = int(im)}
\DoxyCodeLine{117 }
\DoxyCodeLine{118     ya\_intlon\_xya = 0.0d0}
\DoxyCodeLine{119     \textcolor{keywordflow}{do} i=0,i\_im-\/1}
\DoxyCodeLine{120       ya\_intlon\_xya = ya\_intlon\_xya + xya\_data(i,:,:) * x\_lon\_weight(i)}
\DoxyCodeLine{121 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{122 }

\end{DoxyCode}


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



Referenced by ya\+\_\+avrlon\+\_\+xya().

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