\hypertarget{interfacew__module__interpolate_1_1interpolate__w}{}\doxysection{w\+\_\+module\+\_\+interpolate\+::interpolate\+\_\+w Interface Reference}
\label{interfacew__module__interpolate_1_1interpolate__w}\index{w\_module\_interpolate::interpolate\_w@{w\_module\_interpolate::interpolate\_w}}
\doxysubsection*{Private Member Functions}
\begin{DoxyCompactItemize}
\item 
real(dp) function \mbox{\hyperlink{interfacew__module__interpolate_1_1interpolate__w_a1cb7e790ccfb5e905761f82544c820b8}{interpolate\+\_\+array00\+\_\+w}} (w\+\_\+data, alon, alat)
\begin{DoxyCompactList}\small\item\em 緯度 alat, 経度 alon における関数値を その球面調和変換係数 w\+\_\+data から補間計算する \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Detailed Description}


Definition at line 29 of file w\+\_\+module\+\_\+interpolate.\+f90.



\doxysubsection{Member Function/\+Subroutine Documentation}
\mbox{\Hypertarget{interfacew__module__interpolate_1_1interpolate__w_a1cb7e790ccfb5e905761f82544c820b8}\label{interfacew__module__interpolate_1_1interpolate__w_a1cb7e790ccfb5e905761f82544c820b8}} 
\index{w\_module\_interpolate::interpolate\_w@{w\_module\_interpolate::interpolate\_w}!interpolate\_array00\_w@{interpolate\_array00\_w}}
\index{interpolate\_array00\_w@{interpolate\_array00\_w}!w\_module\_interpolate::interpolate\_w@{w\_module\_interpolate::interpolate\_w}}
\doxysubsubsection{\texorpdfstring{interpolate\_array00\_w()}{interpolate\_array00\_w()}}
{\footnotesize\ttfamily real(dp) function w\+\_\+module\+\_\+interpolate\+::interpolate\+\_\+w\+::interpolate\+\_\+array00\+\_\+w (\begin{DoxyParamCaption}\item[{real(dp), dimension((nm+1)$\ast$(nm+1)), intent(in)}]{w\+\_\+data,  }\item[{real(dp), intent(in)}]{alon,  }\item[{real(dp), intent(in)}]{alat }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



緯度 alat, 経度 alon における関数値を その球面調和変換係数 w\+\_\+data から補間計算する 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em w\+\_\+data} & スペクトルデータ \\
\hline
\mbox{\texttt{ in}}  & {\em alon} & 補間する位置(経度) \\
\hline
\mbox{\texttt{ in}}  & {\em alat} & 補間する位置(緯度) \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
補間した値 
\end{DoxyReturn}


Definition at line 48 of file w\+\_\+module\+\_\+interpolate.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{48 }
\DoxyCodeLine{49 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(IN)} :: w\_data((nm+1)*(nm+1))}
\DoxyCodeLine{51 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(IN)} :: alon}
\DoxyCodeLine{53 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(IN)} :: alat}
\DoxyCodeLine{55 \textcolor{keywordtype}{    real}(DP)             :: Interpolate\_array00\_w}
\DoxyCodeLine{56 }
\DoxyCodeLine{57 \textcolor{keywordtype}{    real}(DP)   :: mu}
\DoxyCodeLine{58 \textcolor{keywordtype}{    real}(DP)   :: y0}
\DoxyCodeLine{59 \textcolor{keywordtype}{    real}(DP)   :: y1}
\DoxyCodeLine{60 \textcolor{keywordtype}{    real}(DP)   :: y2}
\DoxyCodeLine{61 \textcolor{keywordtype}{    real}(DP)   :: AnmPnm}
\DoxyCodeLine{62     \textcolor{keywordtype}{integer(8)} :: k}
\DoxyCodeLine{63     \textcolor{keywordtype}{integer(8)} :: m}
\DoxyCodeLine{64 }
\DoxyCodeLine{65     mu = sin(alat)}
\DoxyCodeLine{66     interpolate\_array00\_w = 0.0d0}
\DoxyCodeLine{67 }
\DoxyCodeLine{68     \textcolor{comment}{!-\/-\/-\/-\/ Σa\_n\string^0 P\_n\string^0 の計算}}
\DoxyCodeLine{69     y2 = 0.0d0}
\DoxyCodeLine{70     y1 = 0.0d0}
\DoxyCodeLine{71     \textcolor{keywordflow}{do} k=nm,1,-\/1}
\DoxyCodeLine{72       y0 =   alpha(k,0\_8,mu) * y1  \&}
\DoxyCodeLine{73         \&  + beta(k+1\_8,0\_8) * y2  \&}
\DoxyCodeLine{74         \&  + w\_data(l\_nm(int(k),0))}
\DoxyCodeLine{75       y2 = y1}
\DoxyCodeLine{76       y1 = y0}
\DoxyCodeLine{77 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{78     interpolate\_array00\_w =  \&}
\DoxyCodeLine{79       \& ( beta(1\_8,0\_8) * y2 + mu*sqrt(3.0d0) * y1 \&}
\DoxyCodeLine{80       \&   + w\_data(l\_nm(0,0))  ) * pmm(0\_8,mu)}
\DoxyCodeLine{81 }
\DoxyCodeLine{82     \textcolor{comment}{!-\/-\/-\/-\/  Σ Re[s\_n\string^m] P\_n\string^m exp(imλ)の計算}}
\DoxyCodeLine{83     \textcolor{keywordflow}{do} m=1,nm}
\DoxyCodeLine{84       y2 = 0.0d0}
\DoxyCodeLine{85       y1 = 0.0d0}
\DoxyCodeLine{86       \textcolor{keywordflow}{do} k=nm,m+1,-\/1}
\DoxyCodeLine{87         y0 =   alpha(k,m,mu) * y1  \&}
\DoxyCodeLine{88           \&  + beta(k+1\_8,m) * y2  \&}
\DoxyCodeLine{89           \&  + w\_data(l\_nm(int(k),int(m)))}
\DoxyCodeLine{90         y2 = y1}
\DoxyCodeLine{91         y1 = y0}
\DoxyCodeLine{92 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{93 }
\DoxyCodeLine{94       anmpnm = ( w\_data(l\_nm(int(m),int(m))) \&}
\DoxyCodeLine{95         \&        + beta(m+1\_8,m)*y2 \&}
\DoxyCodeLine{96         \&        + mu*sqrt(2.0d0*m+3) * y1 ) * pmm(m,mu)}
\DoxyCodeLine{97 }
\DoxyCodeLine{98       interpolate\_array00\_w = interpolate\_array00\_w \&}
\DoxyCodeLine{99         \&                     + anmpnm * 2 * cos(m*alon)}
\DoxyCodeLine{100 \textcolor{keywordflow}{      end do}}
\DoxyCodeLine{101 }
\DoxyCodeLine{102       \textcolor{comment}{!-\/-\/-\/-\/  Σ Im[s\_n\string^m] P\_n\string^m exp(imλ)の計算}}
\DoxyCodeLine{103       \textcolor{keywordflow}{do} m=1,nm}
\DoxyCodeLine{104         y2 = 0.0d0}
\DoxyCodeLine{105         y1 = 0.0d0}
\DoxyCodeLine{106         \textcolor{keywordflow}{do} k=nm,m+1,-\/1}
\DoxyCodeLine{107           y0 =   alpha(k,m,mu) * y1 \&}
\DoxyCodeLine{108             \&  + beta(k+1\_8,m) * y2 \&}
\DoxyCodeLine{109             \&  + w\_data(l\_nm(int(k),-\/int(m)))}
\DoxyCodeLine{110           y2 = y1}
\DoxyCodeLine{111           y1 = y0}
\DoxyCodeLine{112 \textcolor{keywordflow}{        enddo}}
\DoxyCodeLine{113 }
\DoxyCodeLine{114         anmpnm =( w\_data(l\_nm(int(m),-\/int(m)))  \&}
\DoxyCodeLine{115           \&       + beta(m+1\_8,m) * y2          \&}
\DoxyCodeLine{116           \&       + mu*dsqrt(2.0d0*m+3) * y1 ) * pmm(m,mu)}
\DoxyCodeLine{117 }
\DoxyCodeLine{118 }
\DoxyCodeLine{119         interpolate\_array00\_w = interpolate\_array00\_w \&}
\DoxyCodeLine{120           \&                     -\/ anmpnm * 2 * sin(m*alon)}
\DoxyCodeLine{121 \textcolor{keywordflow}{      end do}}
\DoxyCodeLine{122 }

\end{DoxyCode}


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