\hypertarget{interfacewa__module__interpolate_1_1a__interpolate__wa}{}\doxysection{wa\+\_\+module\+\_\+interpolate\+::a\+\_\+interpolate\+\_\+wa Interface Reference}
\label{interfacewa__module__interpolate_1_1a__interpolate__wa}\index{wa\_module\_interpolate::a\_interpolate\_wa@{wa\_module\_interpolate::a\_interpolate\_wa}}
\doxysubsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
real(dp) function, dimension(size(wa\+\_\+data, 2)) \mbox{\hyperlink{interfacewa__module__interpolate_1_1a__interpolate__wa_a2fc975b242c91577be9b4f5102dad127}{a\+\_\+interpolate\+\_\+array00\+\_\+wa}} (wa\+\_\+data, alon, alat)
\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}


Definition at line 61 of file wa\+\_\+module\+\_\+interpolate.\+f90.



\doxysubsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacewa__module__interpolate_1_1a__interpolate__wa_a2fc975b242c91577be9b4f5102dad127}\label{interfacewa__module__interpolate_1_1a__interpolate__wa_a2fc975b242c91577be9b4f5102dad127}} 
\index{wa\_module\_interpolate::a\_interpolate\_wa@{wa\_module\_interpolate::a\_interpolate\_wa}!a\_interpolate\_array00\_wa@{a\_interpolate\_array00\_wa}}
\index{a\_interpolate\_array00\_wa@{a\_interpolate\_array00\_wa}!wa\_module\_interpolate::a\_interpolate\_wa@{wa\_module\_interpolate::a\_interpolate\_wa}}
\doxysubsubsection{\texorpdfstring{a\_interpolate\_array00\_wa()}{a\_interpolate\_array00\_wa()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(wa\+\_\+data,2)) wa\+\_\+module\+\_\+interpolate\+::a\+\_\+interpolate\+\_\+wa\+::a\+\_\+interpolate\+\_\+array00\+\_\+wa (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{wa\+\_\+data,  }\item[{real(dp), intent(in)}]{alon,  }\item[{real(dp), intent(in)}]{alat }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 83 of file wa\+\_\+module\+\_\+interpolate.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{83     \textcolor{comment}{!}}
\DoxyCodeLine{84     \textcolor{comment}{! 緯度 alon, 経度 alat における関数値を}}
\DoxyCodeLine{85     \textcolor{comment}{! その球面調和変換係数 wa\_data から補間計算する}}
\DoxyCodeLine{86     \textcolor{comment}{!}}
\DoxyCodeLine{87 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(IN)} :: wa\_data(:,:)             \textcolor{comment}{! スペクトルデータ}}
\DoxyCodeLine{88 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(IN)} :: alon                     \textcolor{comment}{! 補間する位置(経度)}}
\DoxyCodeLine{89 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(IN)} :: alat                     \textcolor{comment}{! 補間する位置(緯度)}}
\DoxyCodeLine{90 \textcolor{keywordtype}{    real}(DP) :: a\_Interpolate\_array00\_wa(size(wa\_data,2))   \textcolor{comment}{! 補間した値}}
\DoxyCodeLine{91 }
\DoxyCodeLine{92 \textcolor{keywordtype}{    real}(DP) :: mu}
\DoxyCodeLine{93 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(size(wa\_data,2))} :: y0, y1, y2, AnmPnm}
\DoxyCodeLine{94     \textcolor{keywordtype}{integer} :: k,m,n}
\DoxyCodeLine{95 }
\DoxyCodeLine{96     n = int(nm)}
\DoxyCodeLine{97 }
\DoxyCodeLine{98     mu = sin(alat)}
\DoxyCodeLine{99     a\_interpolate\_array00\_wa = 0.0d0}
\DoxyCodeLine{100 }
\DoxyCodeLine{101     \textcolor{comment}{!-\/-\/-\/-\/ Σa\_n\string^0 P\_n\string^0 の計算}}
\DoxyCodeLine{102     y2 = 0.0d0 ; y1 = 0.0d0}
\DoxyCodeLine{103     \textcolor{keywordflow}{do} k=n,1,-\/1}
\DoxyCodeLine{104       y0 = alpha(k,0,mu) * y1 + beta(k+1,0)*y2 + wa\_data(l\_nm(k,0),:)}
\DoxyCodeLine{105       y2 = y1 ; y1 = y0}
\DoxyCodeLine{106 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{107     a\_interpolate\_array00\_wa = (  beta(1,0) * y2 + mu*sqrt(3.0d0) * y1 \&}
\DoxyCodeLine{108       + wa\_data(l\_nm(0,0),:)  ) * pmm(0,mu)}
\DoxyCodeLine{109 }
\DoxyCodeLine{110     \textcolor{comment}{!-\/-\/-\/-\/ cos mλ Σa\_n\string^m P\_n\string^m の計算}}
\DoxyCodeLine{111     \textcolor{keywordflow}{do} m=1,n}
\DoxyCodeLine{112       y2 = 0.0d0 ; y1 = 0.0d0}
\DoxyCodeLine{113       \textcolor{keywordflow}{do} k=n,m+1,-\/1}
\DoxyCodeLine{114         y0 = alpha(k,m,mu) * y1 + beta(k+1,m) * y2 + wa\_data(l\_nm(k,m),:)}
\DoxyCodeLine{115         y2 = y1 ; y1 = y0}
\DoxyCodeLine{116 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{117 }
\DoxyCodeLine{118       anmpnm =(wa\_data(l\_nm(m,m),:) + beta(m+1,m)*y2 \&}
\DoxyCodeLine{119         + mu*sqrt(2.0d0*m+3)*y1 ) * pmm(m,mu)}
\DoxyCodeLine{120 }
\DoxyCodeLine{121       a\_interpolate\_array00\_wa = a\_interpolate\_array00\_wa \&}
\DoxyCodeLine{122         + anmpnm * 2.0d0 * cos(m*alon)}
\DoxyCodeLine{123 \textcolor{keywordflow}{    end do}}
\DoxyCodeLine{124 }
\DoxyCodeLine{125     \textcolor{comment}{!-\/-\/-\/-\/ sin λ Σa\_n\string^m P\_n\string^m の計算n}}
\DoxyCodeLine{126     \textcolor{keywordflow}{do} m=1,n}
\DoxyCodeLine{127       y2 = 0.0d0 ; y1 = 0.0d0}
\DoxyCodeLine{128       \textcolor{keywordflow}{do} k=n,m+1,-\/1}
\DoxyCodeLine{129         y0 = alpha(k,m,mu) * y1 + beta(k+1,m)*y2 + wa\_data(l\_nm(k,-\/m),:)}
\DoxyCodeLine{130         y2 = y1 ; y1 = y0}
\DoxyCodeLine{131 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{132 }
\DoxyCodeLine{133       anmpnm =(wa\_data(l\_nm(m,-\/m),:) + beta(m+1,m)*y2 \&}
\DoxyCodeLine{134         + mu*sqrt(2.0d0*m+3)*y1 ) * pmm(m,mu)}
\DoxyCodeLine{135 }
\DoxyCodeLine{136 }
\DoxyCodeLine{137       a\_interpolate\_array00\_wa = a\_interpolate\_array00\_wa \&}
\DoxyCodeLine{138         -\/ anmpnm * 2.0d0 * sin(m*alon)}
\DoxyCodeLine{139 \textcolor{keywordflow}{    end do}}
\DoxyCodeLine{140 }

\end{DoxyCode}


The documentation for this interface was generated from the following file\+:\begin{DoxyCompactItemize}
\item 
wa\+\_\+module/\mbox{\hyperlink{wa__module__interpolate_8f90}{wa\+\_\+module\+\_\+interpolate.\+f90}}\end{DoxyCompactItemize}
