\hypertarget{namespacew__mpi__module__base}{}\doxysection{w\+\_\+mpi\+\_\+module\+\_\+base Module Reference}
\label{namespacew__mpi__module__base}\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}}


\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*{Data Types}
\begin{DoxyCompactItemize}
\item 
interface \mbox{\hyperlink{interfacew__mpi__module__base_1_1l__nm}{l\+\_\+nm}}
\begin{DoxyCompactList}\small\item\em 波数 (n,m) よりスペクトルデータの格納位置 l を返す \end{DoxyCompactList}\item 
interface \mbox{\hyperlink{interfacew__mpi__module__base_1_1nm__l}{nm\+\_\+l}}
\begin{DoxyCompactList}\small\item\em スペクトルデータの位置(l) より，対応する波数 (n,m) を返す \end{DoxyCompactList}\end{DoxyCompactItemize}
\doxysubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \mbox{\hyperlink{namespacew__mpi__module__base_ac9f74ac01303fb3d69e551a7c455da47}{w\+\_\+base\+\_\+mpi\+\_\+initial}} (n\+\_\+in, i\+\_\+in, j\+\_\+in, mpi\+\_\+comm)
\begin{DoxyCompactList}\small\item\em スペクトル変換の格子点数, 波数および O\+P\+E\+N\+MP 使用時の 最大スレッド数を設定する. \end{DoxyCompactList}\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}{im}}-\/1, 1\+:\mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), public \mbox{\hyperlink{namespacew__mpi__module__base_af3c71ab39dece6b5a1016ba418f8371b}{xv\+\_\+w}} (w\+\_\+data, ipow, iflag)
\begin{DoxyCompactList}\small\item\em スペクトルデータから格子データへ変換する(1 層用). \end{DoxyCompactList}\item 
real(dp) function, dimension(\mbox{\hyperlink{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}{nc}}), public \mbox{\hyperlink{namespacew__mpi__module__base_a8437d71392fa94854209b7898dc2dd99}{w\+\_\+xv}} (xv\+\_\+data, ipow, iflag)
\begin{DoxyCompactList}\small\item\em 格子データからスペクトルデータへ(正)変換する(1 層用). \end{DoxyCompactList}\item 
subroutine, public \mbox{\hyperlink{namespacew__mpi__module__base_a004e891d275758b2e9a39b5d41672a53}{w\+\_\+streampotential2vectormpi}} (w\+\_\+\+Psi, w\+\_\+\+Chi, xv\+\_\+U, xv\+\_\+V)
\begin{DoxyCompactList}\small\item\em 流線・ポテンシャル(スペクトルデータ)から速度場(格子データ)に (逆)変換する(1 層用, M\+PI) \end{DoxyCompactList}\item 
subroutine, public \mbox{\hyperlink{namespacew__mpi__module__base_a15326f414093545618c681f41166ac70}{w\+\_\+vector2vordivmpi}} (xv\+\_\+U, xv\+\_\+V, w\+\_\+\+Vor, w\+\_\+\+Div)
\begin{DoxyCompactList}\small\item\em 速度場(格子データ)から渦度・発散(スペクトルデータ)に (正)変換する(1 層用, M\+PI) \end{DoxyCompactList}\item 
subroutine, public \mbox{\hyperlink{namespacew__mpi__module__base_a843761fce9a1f561f1e84a2ce7fc7456}{w\+\_\+vectorcoslat2vordivmpi}} (xv\+\_\+\+U\+Cos\+Lat, xv\+\_\+\+V\+Cos\+Lat, w\+\_\+\+Vor, w\+\_\+\+Div)
\begin{DoxyCompactList}\small\item\em 速度場(格子データ)から渦度・発散(スペクトルデータ)に (正)変換する(1 層用, M\+PI) \end{DoxyCompactList}\item 
real(dp) function, dimension(size(av, 1), \mbox{\hyperlink{namespacew__mpi__module__base_a2b229672ec02d54aa8720cd2296723f0}{jm}}), public \mbox{\hyperlink{namespacew__mpi__module__base_ae63f80b24fdcb153f05ceb6b594a3020}{ay\+\_\+av}} (av)
\begin{DoxyCompactList}\small\item\em 分割緯度データを集める. \end{DoxyCompactList}\item 
real(dp) function, dimension(size(ay, 1), \mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), public \mbox{\hyperlink{namespacew__mpi__module__base_ab3571ec52a70bea40da26233894aeef3}{av\+\_\+ay}} (ay)
\begin{DoxyCompactList}\small\item\em 緯度データを分割する \end{DoxyCompactList}\item 
subroutine, public \mbox{\hyperlink{namespacew__mpi__module__base_ad4e9b0478f28164ffbb806acb7955427}{w\+\_\+base\+\_\+mpi\+\_\+finalize}}
\begin{DoxyCompactList}\small\item\em モジュールの終了処理(割り付け配列の解放)をおこなう. \end{DoxyCompactList}\item 
integer function \mbox{\hyperlink{namespacew__mpi__module__base_ac2f04512765593310fad8fb876585c27}{l\+\_\+nm\+\_\+array00}} (n\+\_\+in, m\+\_\+in)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function \mbox{\hyperlink{namespacew__mpi__module__base_a3181d68c4fe1ef7404a97c63bb47a90a}{l\+\_\+nm\+\_\+darray00}} (n\+\_\+in, m\+\_\+in)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(marray)) \mbox{\hyperlink{namespacew__mpi__module__base_a337d660c6e686341e029cc85014f6491}{l\+\_\+nm\+\_\+array01}} (n, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(marray)) \mbox{\hyperlink{namespacew__mpi__module__base_ab863ecb6fa618eab233cc263cc97e89e}{l\+\_\+nm\+\_\+darray01}} (n, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{namespacew__mpi__module__base_afd1bc93bf34ef4bebe41196b00b5d8c3}{l\+\_\+nm\+\_\+array10}} (narray, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{namespacew__mpi__module__base_a7e4e5d4ac133bc3a34a00be2a49e63c7}{l\+\_\+nm\+\_\+darray10}} (narray, m)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{namespacew__mpi__module__base_a6b465c358f794d846bf3aed3de251c0f}{l\+\_\+nm\+\_\+array11}} (narray, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(narray)) \mbox{\hyperlink{namespacew__mpi__module__base_a98187ced0c4ed1f8f4f8484d48672fa0}{l\+\_\+nm\+\_\+darray11}} (narray, marray)
\begin{DoxyCompactList}\small\item\em 全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. \end{DoxyCompactList}\item 
integer function, dimension(2) \mbox{\hyperlink{namespacew__mpi__module__base_a55134055c78e03105f6f592310297270}{nm\+\_\+l\+\_\+int}} (l)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. \end{DoxyCompactList}\item 
integer function, dimension(2) \mbox{\hyperlink{namespacew__mpi__module__base_a05cea32c903f65e4f64fd3e4da719dcf}{nm\+\_\+l\+\_\+dint}} (l)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(larray), 2) \mbox{\hyperlink{namespacew__mpi__module__base_a784d14901d518c50f483772269e391a6}{nm\+\_\+l\+\_\+array}} (larray)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. \end{DoxyCompactList}\item 
integer function, dimension(size(larray), 2) \mbox{\hyperlink{namespacew__mpi__module__base_ad8fb33225a66dc9bba17d264084876f2}{nm\+\_\+l\+\_\+darray}} (larray)
\begin{DoxyCompactList}\small\item\em スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. \end{DoxyCompactList}\end{DoxyCompactItemize}
\doxysubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer(8), save, public \mbox{\hyperlink{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}{im}} =64
\begin{DoxyCompactList}\small\item\em 格子点の設定(東西) \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__mpi__module__base_a2b229672ec02d54aa8720cd2296723f0}{jm}} =32
\begin{DoxyCompactList}\small\item\em 格子点の設定(南北) \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__mpi__module__base_a8425e34ad804e0f42d95bf509cb17626}{mm}}
\begin{DoxyCompactList}\small\item\em 切断波数(東西波数)の設定 \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__mpi__module__base_a306a78f85237328517087aae0cf2278a}{nn}}
\begin{DoxyCompactList}\small\item\em 切断波数(全波数)の設定 \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__mpi__module__base_a2394d4ea48fd8016698745debaaf65eb}{nm}}
\begin{DoxyCompactList}\small\item\em 計算する最大の全波数の設定 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespacew__mpi__module__base_a072b71533174027ae9d27c2f1ff0f2fb}{x\+\_\+lon}}
\begin{DoxyCompactList}\small\item\em 経度座標格子点 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespacew__mpi__module__base_a6ba4addf173c21cc9324d9d1ca54053a}{x\+\_\+lon\+\_\+weight}}
\begin{DoxyCompactList}\small\item\em 経度座標格子点重み \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespacew__mpi__module__base_ad610bc790b82eefa025e56ce5323efeb}{v\+\_\+lat}}
\begin{DoxyCompactList}\small\item\em 緯度座標分散格子点 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespacew__mpi__module__base_a4e11ba6f50fd2ab37e67507800b4ebb4}{v\+\_\+lat\+\_\+weight}}
\begin{DoxyCompactList}\small\item\em 緯度座標分散格子点重み \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespacew__mpi__module__base_a558a26a9e3991d3a1ee452a4558064ca}{y\+\_\+lat}}
\begin{DoxyCompactList}\small\item\em 緯度座標格子点 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespacew__mpi__module__base_a4786b3235b0aca80489c1eee6f3d03de}{y\+\_\+lat\+\_\+weight}}
\begin{DoxyCompactList}\small\item\em 緯度座標格子点重み \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), allocatable, public \mbox{\hyperlink{namespacew__mpi__module__base_aae7c556f825b8898424456421c6b5564}{xv\+\_\+lon}}
\begin{DoxyCompactList}\small\item\em 分散座標経度格子点, 2次元配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), allocatable, public \mbox{\hyperlink{namespacew__mpi__module__base_aeea6ed2d8858448c1eb88e3b40cdce8b}{xv\+\_\+lat}}
\begin{DoxyCompactList}\small\item\em 分散座標緯度格子点, 2次元配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), allocatable, public \mbox{\hyperlink{namespacew__mpi__module__base_a944d0cb65b11e2709ec56f34e7da8e36}{xy\+\_\+lon}}
\begin{DoxyCompactList}\small\item\em 座標経度格子点, 2次元配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), allocatable, public \mbox{\hyperlink{namespacew__mpi__module__base_aa21774d521bd62be2746c359c9e6ec9b}{xy\+\_\+lat}}
\begin{DoxyCompactList}\small\item\em 座標緯度格子点, 2次元配列 \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__mpi__module__base_af5e3db67c239a3e8b2a850ac73abf702}{icom}}
\begin{DoxyCompactList}\small\item\em コミュニケータ \end{DoxyCompactList}\item 
integer(8), dimension(\+:), allocatable, save, public \mbox{\hyperlink{namespacew__mpi__module__base_a8c5519e5496969ee7a701f06777d72de}{it}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
integer(8), dimension(\+:), allocatable, save, public \mbox{\hyperlink{namespacew__mpi__module__base_a4e95d6c32cbce40f4047c6332ce6f46b}{jc}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, save, public \mbox{\hyperlink{namespacew__mpi__module__base_aaef0c94ed2ea40df2026dd69c5ce5039}{t}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, save, public \mbox{\hyperlink{namespacew__mpi__module__base_a1ed2fa41d296057ce767d1d4a02bed88}{r}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), pointer, save, public \mbox{\hyperlink{namespacew__mpi__module__base_ae4b015764a79f414de33dcbd01484ede}{p}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__mpi__module__base_aa05ba597bf438210e6d593f01220d1df}{j1}}
\begin{DoxyCompactList}\small\item\em 分散配置用変数 \end{DoxyCompactList}\item 
integer(8), save, public \mbox{\hyperlink{namespacew__mpi__module__base_a314a50bfc7f6f6a9de03e8640d84f18e}{j2}}
\begin{DoxyCompactList}\small\item\em 分散配置用変数 \end{DoxyCompactList}\item 
integer, save, public \mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}
\begin{DoxyCompactList}\small\item\em 分散格子データの大きさ \end{DoxyCompactList}\item 
integer, save, public \mbox{\hyperlink{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}{nc}}
\begin{DoxyCompactList}\small\item\em 分散スペクトルデータの大きさ \end{DoxyCompactList}\item 
integer, save, public \mbox{\hyperlink{namespacew__mpi__module__base_ad6e4677d45a8306c58f581ef5ccd363c}{np}}
\begin{DoxyCompactList}\small\item\em M\+PI プロセス数 \end{DoxyCompactList}\item 
integer, save, public \mbox{\hyperlink{namespacew__mpi__module__base_a0521d9abdcd00560146fa9bd257fdb4d}{ip}}
\begin{DoxyCompactList}\small\item\em M\+PI プロセス番号 \end{DoxyCompactList}\item 
integer(8) \mbox{\hyperlink{namespacew__mpi__module__base_a263c5eb619547936844f51901e8c5584}{ig}} =1
\begin{DoxyCompactList}\small\item\em グリッド種類 \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), pointer, save \mbox{\hyperlink{namespacew__mpi__module__base_a174314d096aa372f5be25b771ae70bc6}{g}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), pointer, save \mbox{\hyperlink{namespacew__mpi__module__base_a4adf21d3f6c0e24bb04a15f1a7bdf1cd}{w}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), pointer, save \mbox{\hyperlink{namespacew__mpi__module__base_a06ae1f72f46d5413aeda1c425a9b39f4}{g1}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:,\+:), pointer, save \mbox{\hyperlink{namespacew__mpi__module__base_ab647f31e722b8d8c0b03140f2e74fc8e}{g2}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), pointer, save \mbox{\hyperlink{namespacew__mpi__module__base_a2f1ddab24eaa7a8b2e1efbcf936e5dc1}{ww}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
type(c\+\_\+ptr) \mbox{\hyperlink{namespacew__mpi__module__base_a43cc0c23b246e691446ddbf9573143a4}{pp}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
type(c\+\_\+ptr), save \mbox{\hyperlink{namespacew__mpi__module__base_acdd32805156fb81f3031a2efdbd96a8b}{pg}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
type(c\+\_\+ptr), save \mbox{\hyperlink{namespacew__mpi__module__base_af8488e58f6cd67964f51cf329004aeed}{pw}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
type(c\+\_\+ptr), save \mbox{\hyperlink{namespacew__mpi__module__base_a51d1f25be30e29429203fa27863a9d90}{pww}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
type(c\+\_\+ptr), save \mbox{\hyperlink{namespacew__mpi__module__base_a1965b95825c811619965a892f386d2f8}{pg1}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
type(c\+\_\+ptr), save \mbox{\hyperlink{namespacew__mpi__module__base_a907e165aef5578662c75b0e657d9e183}{pg2}}
\begin{DoxyCompactList}\small\item\em 変換用配列 \end{DoxyCompactList}\item 
real(dp), dimension(\+:), allocatable, save \mbox{\hyperlink{namespacew__mpi__module__base_ab82d4b3dfb6d3ac2bef7139620f5aef0}{c}}
\begin{DoxyCompactList}\small\item\em 作業配列 \end{DoxyCompactList}\item 
integer, dimension(\+:), allocatable, save \mbox{\hyperlink{namespacew__mpi__module__base_a738622eb94fbe878813f45e39a21e5b4}{j1p}}
\begin{DoxyCompactList}\small\item\em 分散配置用変数 \end{DoxyCompactList}\item 
integer, dimension(\+:), allocatable, save \mbox{\hyperlink{namespacew__mpi__module__base_a9d6a33af6b9fc2ba8a404789d12d9c8a}{j2p}}
\begin{DoxyCompactList}\small\item\em 分散配置用変数 \end{DoxyCompactList}\item 
integer, dimension(\+:), allocatable, save \mbox{\hyperlink{namespacew__mpi__module__base_a84a460481dced1f1deafb9b5159246e7}{jlp}}
\begin{DoxyCompactList}\small\item\em 分散格子データの大きさ \end{DoxyCompactList}\item 
integer, dimension(\+:), allocatable, save \mbox{\hyperlink{namespacew__mpi__module__base_ab41734b46dbe2f936330642213759742}{ncp}}
\begin{DoxyCompactList}\small\item\em 分散スペクトルデータの大きさ \end{DoxyCompactList}\item 
integer, dimension(\+:), allocatable, save \mbox{\hyperlink{namespacew__mpi__module__base_a39286beac82bc12c6b047fecc6ac74fe}{snd\+\_\+rank}}
\begin{DoxyCompactList}\small\item\em 分散/全データ変換用配列 \end{DoxyCompactList}\item 
integer, dimension(\+:), allocatable, save \mbox{\hyperlink{namespacew__mpi__module__base_a8d80e852d6d919c7bc0a9f2a37d5aa67}{rcv\+\_\+rank}}
\begin{DoxyCompactList}\small\item\em 分散/全データ変換用配列 \end{DoxyCompactList}\item 
integer(8), save \mbox{\hyperlink{namespacew__mpi__module__base_ac85608ccdc34b90d67a87ea8e0bf0c1b}{jv}}
\begin{DoxyCompactList}\small\item\em ベクトル長 \end{DoxyCompactList}\item 
logical, save \mbox{\hyperlink{namespacew__mpi__module__base_a53154abc9efde0be3638fa9247abb808}{w\+\_\+base\+\_\+mpi\+\_\+initialize}} =.false.
\begin{DoxyCompactList}\small\item\em 初期化フラグ \end{DoxyCompactList}\end{DoxyCompactItemize}


\doxysubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespacew__mpi__module__base_ab3571ec52a70bea40da26233894aeef3}\label{namespacew__mpi__module__base_ab3571ec52a70bea40da26233894aeef3}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!av\_ay@{av\_ay}}
\index{av\_ay@{av\_ay}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{av\_ay()}{av\_ay()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(ay,1),\mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), public w\+\_\+mpi\+\_\+module\+\_\+base\+::av\+\_\+ay (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{ay }\end{DoxyParamCaption})}



緯度データを分割する 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em ay} & 緯度格子点データ(分割) (\+:,jc) \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
緯度格子点データ 
\end{DoxyReturn}


Definition at line 670 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{670 }
\DoxyCodeLine{671 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{intent(in)} :: ay}
\DoxyCodeLine{673 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(size(ay,1),jl)} :: av\_ay}
\DoxyCodeLine{674 }
\DoxyCodeLine{675     av\_ay = ay(:,j1:j2)}
\DoxyCodeLine{676 }

\end{DoxyCode}


References j1, and j2.

\mbox{\Hypertarget{namespacew__mpi__module__base_ae63f80b24fdcb153f05ceb6b594a3020}\label{namespacew__mpi__module__base_ae63f80b24fdcb153f05ceb6b594a3020}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!ay\_av@{ay\_av}}
\index{ay\_av@{ay\_av}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{ay\_av()}{ay\_av()}}
{\footnotesize\ttfamily real(dp) function, dimension(size(av,1),\mbox{\hyperlink{namespacew__mpi__module__base_a2b229672ec02d54aa8720cd2296723f0}{jm}}), public w\+\_\+mpi\+\_\+module\+\_\+base\+::ay\+\_\+av (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{av }\end{DoxyParamCaption})}



分割緯度データを集める. 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em av} & 緯度格子点データ(分割) (\+:,jl) \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
緯度格子点データ 
\end{DoxyReturn}


Definition at line 636 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{636 }
\DoxyCodeLine{637 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{intent(in)} :: av}
\DoxyCodeLine{639 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{dimension(size(av,1),jm)}   :: ay\_av}
\DoxyCodeLine{640 }
\DoxyCodeLine{641     \textcolor{keywordtype}{integer} :: a\_size}
\DoxyCodeLine{642     \textcolor{keywordtype}{integer} :: IRQSTS}
\DoxyCodeLine{643     \textcolor{keywordtype}{integer} :: IST( MPI\_STATUS\_SIZE )}
\DoxyCodeLine{644 }
\DoxyCodeLine{645     \textcolor{keywordtype}{integer} :: ierr, i}
\DoxyCodeLine{646     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter} :: itag=103}
\DoxyCodeLine{647 }
\DoxyCodeLine{648     a\_size = \textcolor{keyword}{size}(av,1)}
\DoxyCodeLine{649 }
\DoxyCodeLine{650     \textcolor{keyword}{call }mpi\_barrier(int(icom),ierr)}
\DoxyCodeLine{651     \textcolor{keywordflow}{do} i=1,np-\/1}
\DoxyCodeLine{652       \textcolor{keyword}{call }mpi\_isend(av, a\_size*jl, mpi\_real8, rcv\_rank(i),\&}
\DoxyCodeLine{653         itag,int(icom),irqsts,ierr)}
\DoxyCodeLine{654       \textcolor{keywordflow}{if} ( j1p(snd\_rank(i)) .ge. 1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{655         \textcolor{keyword}{call }mpi\_recv(ay\_av(1,j1p(snd\_rank(i))),\&}
\DoxyCodeLine{656           a\_size*jlp(snd\_rank(i)), mpi\_real8,  \&}
\DoxyCodeLine{657           snd\_rank(i), itag, int(icom), ist, ierr)}
\DoxyCodeLine{658 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{659       \textcolor{keyword}{CALL }mpi\_wait(irqsts,ist,ierr)}
\DoxyCodeLine{660 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{661 }
\DoxyCodeLine{662     ay\_av(:,j1:j2) = av}
\DoxyCodeLine{663 }

\end{DoxyCode}


References icom, j1, j1p, j2, jl, jlp, np, rcv\+\_\+rank, and snd\+\_\+rank.



Referenced by w\+\_\+base\+\_\+mpi\+\_\+initial().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__base_ae63f80b24fdcb153f05ceb6b594a3020_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_ac2f04512765593310fad8fb876585c27}\label{namespacew__mpi__module__base_ac2f04512765593310fad8fb876585c27}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!l\_nm\_array00@{l\_nm\_array00}}
\index{l\_nm\_array00@{l\_nm\_array00}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array00()}{l\_nm\_array00()}}
{\footnotesize\ttfamily integer function w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+array00 (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{n\+\_\+in,  }\item[{integer, intent(in)}]{m\+\_\+in }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. 

引数 n,m がともに整数値の場合, 整数値を返す. プロセスに n,m が存在しない場合 0 を返す 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n\+\_\+in} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m\+\_\+in} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


Definition at line 732 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{732 }
\DoxyCodeLine{733     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: n\_in}
\DoxyCodeLine{735     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: m\_in}
\DoxyCodeLine{737     \textcolor{keywordtype}{integer}               :: l\_nm\_array00}
\DoxyCodeLine{738 }
\DoxyCodeLine{739     \textcolor{keywordtype}{integer(8)} :: ip\_w}
\DoxyCodeLine{740     \textcolor{keywordtype}{integer(8)} :: l, n, m}
\DoxyCodeLine{741 }
\DoxyCodeLine{742     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{743       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array00'},\&}
\DoxyCodeLine{744         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialize yet. Use synm2l routine in ISPACK3 directly.'})}
\DoxyCodeLine{745 \textcolor{keywordflow}{    end if}}
\DoxyCodeLine{746     n = n\_in}
\DoxyCodeLine{747     m = m\_in}
\DoxyCodeLine{748     \textcolor{keyword}{call }synm2l(nn,n,m,ip\_w,l,icom)}
\DoxyCodeLine{749     \textcolor{keywordflow}{if} ( ip\_w /= ip ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{750       l\_nm\_array00 = 0}
\DoxyCodeLine{751     \textcolor{keywordflow}{else}}
\DoxyCodeLine{752       l\_nm\_array00 = int(l)}
\DoxyCodeLine{753 \textcolor{keywordflow}{    endif}}

\end{DoxyCode}


References icom, ip, nn, and w\+\_\+base\+\_\+mpi\+\_\+initialize.



Referenced by l\+\_\+nm\+\_\+array01(), l\+\_\+nm\+\_\+array10(), and l\+\_\+nm\+\_\+array11().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_ac2f04512765593310fad8fb876585c27_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a337d660c6e686341e029cc85014f6491}\label{namespacew__mpi__module__base_a337d660c6e686341e029cc85014f6491}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!l\_nm\_array01@{l\_nm\_array01}}
\index{l\_nm\_array01@{l\_nm\_array01}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array01()}{l\_nm\_array01()}}
{\footnotesize\ttfamily integer function, dimension(size(marray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+array01 (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{n,  }\item[{integer, dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. 

第 1 引数 n が整数, 第 2 引数 marray が整数 1 次元配列の場合, marray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 794 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{794 }
\DoxyCodeLine{795     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: n}
\DoxyCodeLine{797     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{799     \textcolor{keywordtype}{integer}              :: l\_nm\_array01(size(marray))}
\DoxyCodeLine{800 }
\DoxyCodeLine{801     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{802 }
\DoxyCodeLine{803     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(marray)}
\DoxyCodeLine{804       l\_nm\_array01(i) = l\_nm\_array00(n,marray(i))}
\DoxyCodeLine{805 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+array00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_a337d660c6e686341e029cc85014f6491_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_afd1bc93bf34ef4bebe41196b00b5d8c3}\label{namespacew__mpi__module__base_afd1bc93bf34ef4bebe41196b00b5d8c3}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!l\_nm\_array10@{l\_nm\_array10}}
\index{l\_nm\_array10@{l\_nm\_array10}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array10()}{l\_nm\_array10()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+array10 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{narray,  }\item[{integer, intent(in)}]{m }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. 

第 1 引数 narray が整数 1 次元配列, 第 2 引数 m が整数の場合, narray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 836 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{836 }
\DoxyCodeLine{837     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{839     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: m}
\DoxyCodeLine{841     \textcolor{keywordtype}{integer}              :: l\_nm\_array10(size(narray))}
\DoxyCodeLine{842 }
\DoxyCodeLine{843     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{844 }
\DoxyCodeLine{845     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{846       l\_nm\_array10(i) = l\_nm\_array00(narray(i),m)}
\DoxyCodeLine{847 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+array00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_afd1bc93bf34ef4bebe41196b00b5d8c3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a6b465c358f794d846bf3aed3de251c0f}\label{namespacew__mpi__module__base_a6b465c358f794d846bf3aed3de251c0f}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!l\_nm\_array11@{l\_nm\_array11}}
\index{l\_nm\_array11@{l\_nm\_array11}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_array11()}{l\_nm\_array11()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+array11 (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{narray,  }\item[{integer, dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. 

第 1,2 引数 narray, marray がともに整数 1 次元配列の場合, narray, marray と同じ大きさの 1 次元整数配列を返す. narray, marray は同じ大きさでなければならない. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 879 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{879 }
\DoxyCodeLine{880     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{882     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{884     \textcolor{keywordtype}{integer}              :: l\_nm\_array11(size(narray))}
\DoxyCodeLine{885 }
\DoxyCodeLine{886     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{887 }
\DoxyCodeLine{888     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(narray) .ne. \textcolor{keyword}{size}(marray) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{889       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array11'},\&}
\DoxyCodeLine{890         \textcolor{stringliteral}{'dimensions of input arrays  n and m are different.'})}
\DoxyCodeLine{891 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{892 }
\DoxyCodeLine{893     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{894       l\_nm\_array11(i) = l\_nm\_array00(narray(i),marray(i))}
\DoxyCodeLine{895 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+array00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_a6b465c358f794d846bf3aed3de251c0f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a3181d68c4fe1ef7404a97c63bb47a90a}\label{namespacew__mpi__module__base_a3181d68c4fe1ef7404a97c63bb47a90a}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!l\_nm\_darray00@{l\_nm\_darray00}}
\index{l\_nm\_darray00@{l\_nm\_darray00}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray00()}{l\_nm\_darray00()}}
{\footnotesize\ttfamily integer function w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+darray00 (\begin{DoxyParamCaption}\item[{integer(8), intent(in)}]{n\+\_\+in,  }\item[{integer(8), intent(in)}]{m\+\_\+in }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. 

引数 n,m がともに整数値の場合, 整数値を返す. プロセスに n,m が存在しない場合 0 を返す 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n\+\_\+in} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m\+\_\+in} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


Definition at line 763 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{763 }
\DoxyCodeLine{764     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}   :: n\_in}
\DoxyCodeLine{766     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}   :: m\_in}
\DoxyCodeLine{768     \textcolor{keywordtype}{integer}               :: l\_nm\_darray00}
\DoxyCodeLine{769 }
\DoxyCodeLine{770     \textcolor{keywordtype}{integer(8)} :: ip\_w}
\DoxyCodeLine{771     \textcolor{keywordtype}{integer(8)} :: l, n, m}
\DoxyCodeLine{772 }
\DoxyCodeLine{773     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{774       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array00'},\&}
\DoxyCodeLine{775         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialize yet. Use synm2l routine in ISPACK3 directly.'})}
\DoxyCodeLine{776 \textcolor{keywordflow}{    end if}}
\DoxyCodeLine{777     n = n\_in}
\DoxyCodeLine{778     m = m\_in}
\DoxyCodeLine{779     \textcolor{keyword}{call }synm2l(nn,n,m,ip\_w,l,icom)}
\DoxyCodeLine{780     \textcolor{keywordflow}{if} ( ip\_w /= ip ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{781       l\_nm\_darray00 = 0}
\DoxyCodeLine{782     \textcolor{keywordflow}{else}}
\DoxyCodeLine{783       l\_nm\_darray00 = int(l)}
\DoxyCodeLine{784 \textcolor{keywordflow}{    endif}}

\end{DoxyCode}


References icom, ip, nn, and w\+\_\+base\+\_\+mpi\+\_\+initialize.



Referenced by l\+\_\+nm\+\_\+darray01(), l\+\_\+nm\+\_\+darray10(), and l\+\_\+nm\+\_\+darray11().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_a3181d68c4fe1ef7404a97c63bb47a90a_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_ab863ecb6fa618eab233cc263cc97e89e}\label{namespacew__mpi__module__base_ab863ecb6fa618eab233cc263cc97e89e}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!l\_nm\_darray01@{l\_nm\_darray01}}
\index{l\_nm\_darray01@{l\_nm\_darray01}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray01()}{l\_nm\_darray01()}}
{\footnotesize\ttfamily integer function, dimension(size(marray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+darray01 (\begin{DoxyParamCaption}\item[{integer(8), intent(in)}]{n,  }\item[{integer(8), dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. 

第 1 引数 n が整数, 第 2 引数 marray が整数 1 次元配列の場合, marray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em n} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 815 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{815 }
\DoxyCodeLine{816     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: n}
\DoxyCodeLine{818     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{820     \textcolor{keywordtype}{integer}                 :: l\_nm\_darray01(size(marray))}
\DoxyCodeLine{821 }
\DoxyCodeLine{822     \textcolor{keywordtype}{integer}                 :: i}
\DoxyCodeLine{823 }
\DoxyCodeLine{824     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(marray)}
\DoxyCodeLine{825       l\_nm\_darray01(i) = l\_nm\_darray00(n,marray(i))}
\DoxyCodeLine{826 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+darray00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_ab863ecb6fa618eab233cc263cc97e89e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a7e4e5d4ac133bc3a34a00be2a49e63c7}\label{namespacew__mpi__module__base_a7e4e5d4ac133bc3a34a00be2a49e63c7}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!l\_nm\_darray10@{l\_nm\_darray10}}
\index{l\_nm\_darray10@{l\_nm\_darray10}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray10()}{l\_nm\_darray10()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+darray10 (\begin{DoxyParamCaption}\item[{integer(8), dimension(\+:), intent(in)}]{narray,  }\item[{integer(8), intent(in)}]{m }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. 

第 1 引数 narray が整数 1 次元配列, 第 2 引数 m が整数の場合, narray と同じ大きさの 1 次元整数配列を返す. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em m} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 857 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{857 }
\DoxyCodeLine{858     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{860     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: m}
\DoxyCodeLine{862     \textcolor{keywordtype}{integer}                 :: l\_nm\_darray10(size(narray))}
\DoxyCodeLine{863 }
\DoxyCodeLine{864     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{865 }
\DoxyCodeLine{866     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{867       l\_nm\_darray10(i) = l\_nm\_darray00(narray(i),m)}
\DoxyCodeLine{868 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+darray00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_a7e4e5d4ac133bc3a34a00be2a49e63c7_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a98187ced0c4ed1f8f4f8484d48672fa0}\label{namespacew__mpi__module__base_a98187ced0c4ed1f8f4f8484d48672fa0}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!l\_nm\_darray11@{l\_nm\_darray11}}
\index{l\_nm\_darray11@{l\_nm\_darray11}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{l\_nm\_darray11()}{l\_nm\_darray11()}}
{\footnotesize\ttfamily integer function, dimension(size(narray)) w\+\_\+mpi\+\_\+module\+\_\+base\+::l\+\_\+nm\+\_\+darray11 (\begin{DoxyParamCaption}\item[{integer(8), dimension(\+:), intent(in)}]{narray,  }\item[{integer(8), dimension(\+:), intent(in)}]{marray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



全波数(n)と東西波数(m)からそのスペクトルデータの格納位置を返す. 

第 1,2 引数 narray, marray がともに整数 1 次元配列の場合, narray, marray と同じ大きさの 1 次元整数配列を返す. narray, marray は同じ大きさでなければならない. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em narray} & 全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em marray} & 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ位置 
\end{DoxyReturn}


Definition at line 906 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{906 }
\DoxyCodeLine{907     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: narray(:)}
\DoxyCodeLine{909     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: marray(:)}
\DoxyCodeLine{911     \textcolor{keywordtype}{integer}              :: l\_nm\_darray11(size(narray))}
\DoxyCodeLine{912 }
\DoxyCodeLine{913     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{914 }
\DoxyCodeLine{915     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(narray) .ne. \textcolor{keyword}{size}(marray) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{916       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'l\_nm\_array11'},\&}
\DoxyCodeLine{917         \textcolor{stringliteral}{'dimensions of input arrays  n and m are different.'})}
\DoxyCodeLine{918 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{919 }
\DoxyCodeLine{920     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(narray)}
\DoxyCodeLine{921       l\_nm\_darray11(i) = l\_nm\_darray00(narray(i),marray(i))}
\DoxyCodeLine{922 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References l\+\_\+nm\+\_\+darray00().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_a98187ced0c4ed1f8f4f8484d48672fa0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a784d14901d518c50f483772269e391a6}\label{namespacew__mpi__module__base_a784d14901d518c50f483772269e391a6}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!nm\_l\_array@{nm\_l\_array}}
\index{nm\_l\_array@{nm\_l\_array}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{nm\_l\_array()}{nm\_l\_array()}}
{\footnotesize\ttfamily integer function, dimension(size(larray),2) w\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+l\+\_\+array (\begin{DoxyParamCaption}\item[{integer, dimension(\+:), intent(in)}]{larray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. 

引数 larray が整数 1 次元配列の場合, larray に対応する n, m を格納した 2 次元整数配列を返す. nm\+\_\+l\+\_\+array(\+:,1) が全波数, nm\+\_\+l\+\_\+array(\+:,2) が帯状波数である. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em larray} & 全波数, 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


Definition at line 981 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{981 }
\DoxyCodeLine{982     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}  :: larray(:)}
\DoxyCodeLine{984     \textcolor{keywordtype}{integer}              :: nm\_l\_array(size(larray),2)}
\DoxyCodeLine{985 }
\DoxyCodeLine{986     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{987 }
\DoxyCodeLine{988     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(larray)}
\DoxyCodeLine{989       nm\_l\_array(i,:) = nm\_l\_int(larray(i))}
\DoxyCodeLine{990 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References nm\+\_\+l\+\_\+int().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_a784d14901d518c50f483772269e391a6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_ad8fb33225a66dc9bba17d264084876f2}\label{namespacew__mpi__module__base_ad8fb33225a66dc9bba17d264084876f2}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!nm\_l\_darray@{nm\_l\_darray}}
\index{nm\_l\_darray@{nm\_l\_darray}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{nm\_l\_darray()}{nm\_l\_darray()}}
{\footnotesize\ttfamily integer function, dimension(size(larray),2) w\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+l\+\_\+darray (\begin{DoxyParamCaption}\item[{integer(8), dimension(\+:), intent(in)}]{larray }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. 

引数 larray が整数 1 次元配列の場合, larray に対応する n, m を格納した 2 次元整数配列を返す. nm\+\_\+l\+\_\+array(\+:,1) が全波数, nm\+\_\+l\+\_\+array(\+:,2) が帯状波数である. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em larray} & 全波数, 帯状波数 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータの格納位置 
\end{DoxyReturn}


Definition at line 1001 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1001 }
\DoxyCodeLine{1002     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}  :: larray(:)}
\DoxyCodeLine{1004     \textcolor{keywordtype}{integer}              :: nm\_l\_darray(size(larray),2)}
\DoxyCodeLine{1005 }
\DoxyCodeLine{1006     \textcolor{keywordtype}{integer}              :: i}
\DoxyCodeLine{1007 }
\DoxyCodeLine{1008     \textcolor{keywordflow}{do} i=1, \textcolor{keyword}{size}(larray)}
\DoxyCodeLine{1009       nm\_l\_darray(i,:) = nm\_l\_dint(larray(i))}
\DoxyCodeLine{1010 \textcolor{keywordflow}{    enddo}}

\end{DoxyCode}


References nm\+\_\+l\+\_\+dint().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_ad8fb33225a66dc9bba17d264084876f2_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a05cea32c903f65e4f64fd3e4da719dcf}\label{namespacew__mpi__module__base_a05cea32c903f65e4f64fd3e4da719dcf}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!nm\_l\_dint@{nm\_l\_dint}}
\index{nm\_l\_dint@{nm\_l\_dint}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{nm\_l\_dint()}{nm\_l\_dint()}}
{\footnotesize\ttfamily integer function, dimension(2) w\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+l\+\_\+dint (\begin{DoxyParamCaption}\item[{integer(8), intent(in)}]{l }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. 

引数 l が整数値の場合, 対応する全波数と帯状波数を 長さ 2 の 1 次元整数値を返す. nm\+\_\+l(1) が全波数, nm\+\_\+l(2) が帯状波数である. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em l} & スペクトルデータの格納位置 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
全波数, 帯状波数 
\end{DoxyReturn}


Definition at line 957 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{957 }
\DoxyCodeLine{958     \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{intent(in)}   :: l}
\DoxyCodeLine{960     \textcolor{keywordtype}{integer}               :: nm\_l\_dint(2)}
\DoxyCodeLine{961 }
\DoxyCodeLine{962     \textcolor{keywordtype}{integer(8)}            :: n,m          \textcolor{comment}{! 全波数, 帯状波数}}
\DoxyCodeLine{963 }
\DoxyCodeLine{964     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{965       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'nm\_l\_int'}, \&}
\DoxyCodeLine{966         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialize yet. Use syl2nm routine in ISPACK3 directly.'})}
\DoxyCodeLine{967 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{968     \textcolor{keyword}{call }syl2nm(mm,nn,l,n,m,icom)}
\DoxyCodeLine{969     nm\_l\_dint = (/int(n),int(m)/)}
\DoxyCodeLine{970 }

\end{DoxyCode}


References icom, mm, nn, and w\+\_\+base\+\_\+mpi\+\_\+initialize.



Referenced by nm\+\_\+l\+\_\+darray().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_a05cea32c903f65e4f64fd3e4da719dcf_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a55134055c78e03105f6f592310297270}\label{namespacew__mpi__module__base_a55134055c78e03105f6f592310297270}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!nm\_l\_int@{nm\_l\_int}}
\index{nm\_l\_int@{nm\_l\_int}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{nm\_l\_int()}{nm\_l\_int()}}
{\footnotesize\ttfamily integer function, dimension(2) w\+\_\+mpi\+\_\+module\+\_\+base\+::nm\+\_\+l\+\_\+int (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{l }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



スペクトルデータの格納位置(l)から全波数(n)と東西波数(m)を返す. 

引数 l が整数値の場合, 対応する全波数と帯状波数を 長さ 2 の 1 次元整数値を返す. nm\+\_\+l(1) が全波数, nm\+\_\+l(2) が帯状波数である. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em l} & スペクトルデータの格納位置 \\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
全波数, 帯状波数 
\end{DoxyReturn}


Definition at line 933 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{933 }
\DoxyCodeLine{934     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}   :: l}
\DoxyCodeLine{936     \textcolor{keywordtype}{integer}               :: nm\_l\_int(2)}
\DoxyCodeLine{937 }
\DoxyCodeLine{938     \textcolor{keywordtype}{integer(8)}            :: n,m          \textcolor{comment}{! 全波数, 帯状波数}}
\DoxyCodeLine{939 }
\DoxyCodeLine{940     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{941       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'nm\_l\_int'}, \&}
\DoxyCodeLine{942         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialize yet. Use syl2nm routine in ISPACK3 directly.'})}
\DoxyCodeLine{943 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{944     \textcolor{keyword}{call }syl2nm(mm,nn,int(l,kind=8),n,m,icom)}
\DoxyCodeLine{945     nm\_l\_int = (/int(n),int(m)/)}
\DoxyCodeLine{946 }

\end{DoxyCode}


References icom, mm, nn, and w\+\_\+base\+\_\+mpi\+\_\+initialize.



Referenced by nm\+\_\+l\+\_\+array().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_a55134055c78e03105f6f592310297270_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_ad4e9b0478f28164ffbb806acb7955427}\label{namespacew__mpi__module__base_ad4e9b0478f28164ffbb806acb7955427}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!w\_base\_mpi\_finalize@{w\_base\_mpi\_finalize}}
\index{w\_base\_mpi\_finalize@{w\_base\_mpi\_finalize}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_base\_mpi\_finalize()}{w\_base\_mpi\_finalize()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+mpi\+\_\+module\+\_\+base\+::w\+\_\+base\+\_\+mpi\+\_\+finalize (\begin{DoxyParamCaption}{ }\end{DoxyParamCaption})}



モジュールの終了処理(割り付け配列の解放)をおこなう. 

実際の使用には上位サブルーチン \mbox{\hyperlink{namespacew__mpi__module_afaaa0926433bb9ac9829dfaa3fe5dfff}{w\+\_\+mpi\+\_\+finalize()}} を用いること. 

Definition at line 686 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{686     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{687       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'W'},\textcolor{stringliteral}{'w\_base\_mpi\_Finalize'},\&}
\DoxyCodeLine{688         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialized yet'})}
\DoxyCodeLine{689       \textcolor{keywordflow}{return}}
\DoxyCodeLine{690 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{691 }
\DoxyCodeLine{692     \textcolor{keyword}{deallocate}(it)                 \textcolor{comment}{! 変換用配列}}
\DoxyCodeLine{693     \textcolor{keyword}{deallocate}(t)                  \textcolor{comment}{! 変換用配列}}
\DoxyCodeLine{694     \textcolor{keyword}{deallocate}(r)                  \textcolor{comment}{! 変換用配列}}
\DoxyCodeLine{695     \textcolor{keyword}{deallocate}(jc)                 \textcolor{comment}{! 変換用配列}}
\DoxyCodeLine{696     \textcolor{keyword}{deallocate}(c)                  \textcolor{comment}{! 変換用作業配列}}
\DoxyCodeLine{697 }
\DoxyCodeLine{698     \textcolor{keyword}{call }mxfree(pp)                \textcolor{comment}{! 変換用作業配列}}
\DoxyCodeLine{699     \textcolor{keyword}{call }mxfree(pg)                \textcolor{comment}{! 変換用作業配列}}
\DoxyCodeLine{700     \textcolor{keyword}{call }mxfree(pg1)               \textcolor{comment}{! 変換用作業配列}}
\DoxyCodeLine{701     \textcolor{keyword}{call }mxfree(pg2)               \textcolor{comment}{! 変換用作業配列}}
\DoxyCodeLine{702     \textcolor{keyword}{call }mxfree(pw)                \textcolor{comment}{! 変換用作業配列}}
\DoxyCodeLine{703     \textcolor{keyword}{call }mxfree(pww)               \textcolor{comment}{! 変換用作業配列}}
\DoxyCodeLine{704     \textcolor{keyword}{deallocate}(j1p,j2p)}
\DoxyCodeLine{705     \textcolor{keyword}{deallocate}(jlp)}
\DoxyCodeLine{706     \textcolor{keyword}{deallocate}(ncp)}
\DoxyCodeLine{707     \textcolor{keyword}{deallocate}(snd\_rank)}
\DoxyCodeLine{708     \textcolor{keyword}{deallocate}(rcv\_rank)}
\DoxyCodeLine{709     \textcolor{keyword}{deallocate}(x\_lon)              \textcolor{comment}{! 格子点座標格納配列(経度)}}
\DoxyCodeLine{710     \textcolor{keyword}{deallocate}(x\_lon\_weight)}
\DoxyCodeLine{711     \textcolor{keyword}{deallocate}(xv\_lon)}
\DoxyCodeLine{712     \textcolor{keyword}{deallocate}(v\_lat)}
\DoxyCodeLine{713     \textcolor{keyword}{deallocate}(v\_lat\_weight)       \textcolor{comment}{! 格子点座標格納配列}}
\DoxyCodeLine{714     \textcolor{keyword}{deallocate}(xv\_lat)             \textcolor{comment}{! 格子点座標格納配列}}
\DoxyCodeLine{715     \textcolor{keyword}{deallocate}(y\_lat,y\_lat\_weight) \textcolor{comment}{! 格子点座標格納配列}}
\DoxyCodeLine{716     \textcolor{keyword}{deallocate}(xy\_lon,xy\_lat)      \textcolor{comment}{! 格子点座標格納配列}}
\DoxyCodeLine{717 }
\DoxyCodeLine{718     w\_base\_mpi\_initialize = .false.}
\DoxyCodeLine{719 }
\DoxyCodeLine{720     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'w\_base\_mpi\_Finalize'},\&}
\DoxyCodeLine{721       \textcolor{stringliteral}{'w\_base\_mpi\_module (2019/10/05) is finalized'})}
\DoxyCodeLine{722 }

\end{DoxyCode}


References c, it, j1p, j2p, jc, jlp, ncp, pg, pg1, pg2, pp, pw, pww, r, rcv\+\_\+rank, snd\+\_\+rank, t, v\+\_\+lat, v\+\_\+lat\+\_\+weight, w\+\_\+base\+\_\+mpi\+\_\+initialize, x\+\_\+lon, x\+\_\+lon\+\_\+weight, xv\+\_\+lat, xv\+\_\+lon, xy\+\_\+lat, xy\+\_\+lon, y\+\_\+lat, and y\+\_\+lat\+\_\+weight.



Referenced by ua\+\_\+mpi\+\_\+module\+\_\+base\+::ua\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+mpi\+\_\+module\+::w\+\_\+mpi\+\_\+finalize().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__base_ad4e9b0478f28164ffbb806acb7955427_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_ac9f74ac01303fb3d69e551a7c455da47}\label{namespacew__mpi__module__base_ac9f74ac01303fb3d69e551a7c455da47}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!w\_base\_mpi\_initial@{w\_base\_mpi\_initial}}
\index{w\_base\_mpi\_initial@{w\_base\_mpi\_initial}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_base\_mpi\_initial()}{w\_base\_mpi\_initial()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+mpi\+\_\+module\+\_\+base\+::w\+\_\+base\+\_\+mpi\+\_\+initial (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{n\+\_\+in,  }\item[{integer, intent(in)}]{i\+\_\+in,  }\item[{integer, intent(in)}]{j\+\_\+in,  }\item[{integer, intent(in), optional}]{mpi\+\_\+comm }\end{DoxyParamCaption})}



スペクトル変換の格子点数, 波数および O\+P\+E\+N\+MP 使用時の 最大スレッド数を設定する. 

実際の使用には上位サブルーチン \mbox{\hyperlink{namespacew__mpi__module_ad43aa36675d4efea7d671c07510f897c}{w\+\_\+mpi\+\_\+initial()}} を用いること. 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em i\+\_\+in} & 格子点数(東西), 2の巾乗($<$=2048) \\
\hline
\mbox{\texttt{ in}}  & {\em j\+\_\+in} & 格子点数(南北), 4 の倍数 \\
\hline
\mbox{\texttt{ in}}  & {\em n\+\_\+in} & 切断全波数 \\
\hline
\mbox{\texttt{ in}}  & {\em mpi\+\_\+comm} & コミュニケーター \\
\hline
\end{DoxyParams}


Definition at line 199 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{199 }
\DoxyCodeLine{200     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: i\_in}
\DoxyCodeLine{202     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: j\_in}
\DoxyCodeLine{204     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: n\_in}
\DoxyCodeLine{206     \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: mpi\_comm}
\DoxyCodeLine{207 }
\DoxyCodeLine{208     \textcolor{keywordtype}{integer} :: i, j}
\DoxyCodeLine{209     \textcolor{keywordtype}{integer} :: ierr}
\DoxyCodeLine{210 }
\DoxyCodeLine{211     \textcolor{comment}{! 三角波数切断}}
\DoxyCodeLine{212     im = i\_in}
\DoxyCodeLine{213     jm = j\_in}
\DoxyCodeLine{214     nn = n\_in}
\DoxyCodeLine{215     nm = n\_in+1}
\DoxyCodeLine{216     mm = n\_in}
\DoxyCodeLine{217     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(mpi\_comm) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{218       icom = mpi\_comm}
\DoxyCodeLine{219     \textcolor{keywordflow}{else}}
\DoxyCodeLine{220       icom = mpi\_comm\_world}
\DoxyCodeLine{221 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{222 }
\DoxyCodeLine{223     \textcolor{keyword}{CALL }mpi\_comm\_size(int(icom),np,ierr)}
\DoxyCodeLine{224     \textcolor{keyword}{CALL }mpi\_comm\_rank(int(icom),ip,ierr)}
\DoxyCodeLine{225 }
\DoxyCodeLine{226     \textcolor{keyword}{allocate}(t(im*3/2))}
\DoxyCodeLine{227     \textcolor{keyword}{allocate}(it(im/2))}
\DoxyCodeLine{228     \textcolor{keyword}{allocate}(r(5*(mm/np+1)*(2*nm-\/mm/np*np)/4+mm/np+1))}
\DoxyCodeLine{229     \textcolor{keyword}{allocate}(jc((mm/np+1)*(2*nm-\/mm/np*np)/16+mm/np+1))}
\DoxyCodeLine{230     \textcolor{keyword}{call }mxallc(pp,jm/2*(5+2*(mm/np+1)))}
\DoxyCodeLine{231     \textcolor{keyword}{call }c\_f\_pointer(pp,p,[jm/2,5+2*(mm/np+1)])}
\DoxyCodeLine{232 }
\DoxyCodeLine{233     \textcolor{comment}{! 変換用作業配列}}
\DoxyCodeLine{234     \textcolor{keyword}{allocate}(c((mm/np+1)*(2*(nn+1)-\/mm/np*np)))}
\DoxyCodeLine{235 }
\DoxyCodeLine{236     \textcolor{keyword}{call }syini1(mm,nm,im,it,t,r,icom)}
\DoxyCodeLine{237     \textcolor{keyword}{call }syini2(mm,nm,jm,ig,p,r,jc,icom)}
\DoxyCodeLine{238     \textcolor{keyword}{call }syinic(mm,nn,c,icom)}
\DoxyCodeLine{239 }
\DoxyCodeLine{240     \textcolor{comment}{! 変換用変数割付}}
\DoxyCodeLine{241     \textcolor{keyword}{call }syqrjv(jm,jv)}
\DoxyCodeLine{242 }
\DoxyCodeLine{243     \textcolor{keyword}{call }mxallc(pg,im*((jm/jv-\/1)/np+1)*jv)}
\DoxyCodeLine{244     \textcolor{keyword}{call }c\_f\_pointer(pg, g, [im,((jm/jv-\/1)/np+1)*jv])}
\DoxyCodeLine{245     \textcolor{keyword}{call }mxallc(pw,2*jv*((jm/jv-\/1)/np+1)*(mm/np+1)*np*2)}
\DoxyCodeLine{246     \textcolor{keyword}{call }c\_f\_pointer(pw, w, [2*jv*((jm/jv-\/1)/np+1)*(mm/np+1)*np*2])}
\DoxyCodeLine{247 }
\DoxyCodeLine{248     \textcolor{keyword}{call }mxallc(pg1,im*((jm/jv-\/1)/np+1)*jv)}
\DoxyCodeLine{249     \textcolor{keyword}{call }c\_f\_pointer(pg1, g1, [im,((jm/jv-\/1)/np+1)*jv])}
\DoxyCodeLine{250     \textcolor{keyword}{call }mxallc(pg2,im*((jm/jv-\/1)/np+1)*jv)}
\DoxyCodeLine{251     \textcolor{keyword}{call }c\_f\_pointer(pg2, g2, [im,((jm/jv-\/1)/np+1)*jv])}
\DoxyCodeLine{252     \textcolor{keyword}{call }mxallc(pww,2*jv*((jm/jv-\/1)/np+1)*(mm/np+1)*np*2*2)}
\DoxyCodeLine{253     \textcolor{keyword}{call }c\_f\_pointer(pww, ww, [2*jv*((jm/jv-\/1)/np+1)*(mm/np+1)*np*2*2])}
\DoxyCodeLine{254 }
\DoxyCodeLine{255 }
\DoxyCodeLine{256     \textcolor{comment}{! 各プロセスの担当緯度, 波数情報}}
\DoxyCodeLine{257     \textcolor{keyword}{call }syqrnj(jm,jv,j1,j2,icom)}
\DoxyCodeLine{258     \textcolor{comment}{! 分散格子データの大きさ}}
\DoxyCodeLine{259     jl = int(j2-\/j1+1)}
\DoxyCodeLine{260     \textcolor{comment}{! 分散スペクトルデータの大きさ}}
\DoxyCodeLine{261     nc = int((mm/np+1)*(2*(nn+1)-\/mm/np*np))}
\DoxyCodeLine{262 }
\DoxyCodeLine{263     \textcolor{keyword}{allocate}(j1p(0:np-\/1),j2p(0:np-\/1))}
\DoxyCodeLine{264     \textcolor{keyword}{allocate}(jlp(0:np-\/1))}
\DoxyCodeLine{265     \textcolor{keyword}{allocate}(ncp(0:np-\/1))}
\DoxyCodeLine{266 }
\DoxyCodeLine{267     \textcolor{keyword}{call }mpi\_allgather( jl, 1, mpi\_integer, \&}
\DoxyCodeLine{268       jlp(0), 1, mpi\_integer, int(icom), ierr)}
\DoxyCodeLine{269     \textcolor{keyword}{call }mpi\_allgather( j1, 1, mpi\_integer, \&}
\DoxyCodeLine{270       j1p(0), 1, mpi\_integer, int(icom), ierr)}
\DoxyCodeLine{271     \textcolor{keyword}{call }mpi\_allgather( j2, 1, mpi\_integer, \&}
\DoxyCodeLine{272       j2p(0), 1, mpi\_integer, int(icom), ierr)}
\DoxyCodeLine{273     \textcolor{keyword}{call }mpi\_allgather( nc, 1, mpi\_integer, \&}
\DoxyCodeLine{274       ncp(0), 1, mpi\_integer, int(icom), ierr)}
\DoxyCodeLine{275 }
\DoxyCodeLine{276     \textcolor{keyword}{allocate}(snd\_rank(1:np-\/1))}
\DoxyCodeLine{277     \textcolor{keyword}{allocate}(rcv\_rank(1:np-\/1))}
\DoxyCodeLine{278 }
\DoxyCodeLine{279     \textcolor{keywordflow}{do} i=1,np-\/1}
\DoxyCodeLine{280       rcv\_rank(i) = mod(ip+i,np)}
\DoxyCodeLine{281       snd\_rank(i) = mod(ip+np-\/i,np)}
\DoxyCodeLine{282 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{283 }
\DoxyCodeLine{284     \textcolor{comment}{! 座標変数設定}}
\DoxyCodeLine{285     \textcolor{keyword}{allocate}(x\_lon(0:im-\/1))                       \textcolor{comment}{! 格子点座標格納配列(経度)}}
\DoxyCodeLine{286     \textcolor{keyword}{allocate}(x\_lon\_weight(0:im-\/1))}
\DoxyCodeLine{287     \textcolor{keyword}{allocate}(v\_lat(jl),v\_lat\_weight(jl))          \textcolor{comment}{! 格子点座標格納配列}}
\DoxyCodeLine{288     \textcolor{keyword}{allocate}(y\_lat(jm),y\_lat\_weight(jm))          \textcolor{comment}{! 格子点座標格納配列}}
\DoxyCodeLine{289     \textcolor{keyword}{allocate}(xv\_lon(0:im-\/1,jl),xv\_lat(0:im-\/1,jl)) \textcolor{comment}{! 格子点座標格納配列}}
\DoxyCodeLine{290     \textcolor{keyword}{allocate}(xy\_lon(0:im-\/1,jm),xy\_lat(0:im-\/1,jm)) \textcolor{comment}{! 格子点座標格納配列}}
\DoxyCodeLine{291 }
\DoxyCodeLine{292     \textcolor{keywordflow}{do} i=0,int(im)-\/1}
\DoxyCodeLine{293       x\_lon(i)  = 2*(pi/im)*i             \textcolor{comment}{! 経度座標}}
\DoxyCodeLine{294       x\_lon\_weight(i) = 2*(pi/im)         \textcolor{comment}{! 経度座標重み}}
\DoxyCodeLine{295 \textcolor{keywordflow}{    end do}}
\DoxyCodeLine{296 }
\DoxyCodeLine{297     \textcolor{keywordflow}{do} j=int(j1),int(j2)}
\DoxyCodeLine{298       \textcolor{keywordflow}{if} ( j .gt. jm/2 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{299         v\_lat(j-\/j1+1)        =  asin(p(j-\/jm/2,1))    \textcolor{comment}{! 緯度座標}}
\DoxyCodeLine{300         v\_lat\_weight(j-\/j1+1) = 2*p(j -\/jm/2,2)        \textcolor{comment}{! 緯度重み(Gauss grid)}}
\DoxyCodeLine{301       \textcolor{keywordflow}{else}}
\DoxyCodeLine{302         v\_lat(j-\/j1+1)        = -\/ asin(p(jm/2-\/j+1,1)) \textcolor{comment}{! 緯度座標}}
\DoxyCodeLine{303         v\_lat\_weight(j-\/j1+1) = 2*p(jm/2-\/j+1,2)       \textcolor{comment}{! 緯度重み(Gauss grid)}}
\DoxyCodeLine{304 \textcolor{keywordflow}{      end if}}
\DoxyCodeLine{305 \textcolor{keywordflow}{    end do}}
\DoxyCodeLine{306 }
\DoxyCodeLine{307     \textcolor{keywordflow}{do} i=0,int(im)-\/1}
\DoxyCodeLine{308       xv\_lat(i,:) = v\_lat}
\DoxyCodeLine{309 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{310     xy\_lat = ay\_av(xv\_lat)}
\DoxyCodeLine{311     y\_lat = xy\_lat(0,:)}
\DoxyCodeLine{312     y\_lat\_weight = reshape(ay\_av(reshape(v\_lat\_weight, (/1,jl/))),(/jm/))}
\DoxyCodeLine{313 }
\DoxyCodeLine{314     \textcolor{keywordflow}{do} j=1,int(jl)}
\DoxyCodeLine{315       xv\_lon(:,j) = x\_lon}
\DoxyCodeLine{316 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{317     \textcolor{keywordflow}{do} j=1,int(jm)}
\DoxyCodeLine{318       xy\_lon(:,j) = x\_lon}
\DoxyCodeLine{319 \textcolor{keywordflow}{    enddo}}
\DoxyCodeLine{320 }
\DoxyCodeLine{321     w\_base\_mpi\_initialize = .true.}
\DoxyCodeLine{322 }
\DoxyCodeLine{323     \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'w\_base\_mpi\_initial'}, \&}
\DoxyCodeLine{324       \textcolor{stringliteral}{'w\_base\_mpi\_module (2019/10/05) is initialized'})}
\DoxyCodeLine{325 }

\end{DoxyCode}


References ay\+\_\+av(), c, g, g1, g2, icom, ig, im, ip, it, j1, j1p, j2, j2p, jc, jl, jlp, jm, jv, mm, nc, ncp, nm, nn, np, p, pg, pg1, pg2, pp, pw, pww, r, rcv\+\_\+rank, snd\+\_\+rank, t, v\+\_\+lat, v\+\_\+lat\+\_\+weight, w, w\+\_\+base\+\_\+mpi\+\_\+initialize, ww, x\+\_\+lon, x\+\_\+lon\+\_\+weight, xv\+\_\+lat, xv\+\_\+lon, xy\+\_\+lat, xy\+\_\+lon, y\+\_\+lat, and y\+\_\+lat\+\_\+weight.



Referenced by ua\+\_\+mpi\+\_\+module\+\_\+base\+::ua\+\_\+base\+\_\+mpi\+\_\+initial(), and w\+\_\+mpi\+\_\+module\+::w\+\_\+mpi\+\_\+initial().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=344pt]{namespacew__mpi__module__base_ac9f74ac01303fb3d69e551a7c455da47_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__base_ac9f74ac01303fb3d69e551a7c455da47_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a004e891d275758b2e9a39b5d41672a53}\label{namespacew__mpi__module__base_a004e891d275758b2e9a39b5d41672a53}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!w\_streampotential2vectormpi@{w\_streampotential2vectormpi}}
\index{w\_streampotential2vectormpi@{w\_streampotential2vectormpi}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_streampotential2vectormpi()}{w\_streampotential2vectormpi()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+mpi\+\_\+module\+\_\+base\+::w\+\_\+streampotential2vectormpi (\begin{DoxyParamCaption}\item[{real(dp), dimension(\mbox{\hyperlink{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}{nc}}), intent(in)}]{w\+\_\+\+Psi,  }\item[{real(dp), dimension(\mbox{\hyperlink{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}{nc}}), intent(in)}]{w\+\_\+\+Chi,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), intent(out)}]{xv\+\_\+U,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), intent(out)}]{xv\+\_\+V }\end{DoxyParamCaption})}



流線・ポテンシャル(スペクトルデータ)から速度場(格子データ)に (逆)変換する(1 層用, M\+PI) 

スペクトル変換を用いず微分を計算するために, 変換回数が 2 回ですむ. \begin{align*} u \cosφ &= ∂χ/∂λ - \cosφ∂ψ/∂φ, \\ v \cosφ &= \cosφ∂χ/∂φ + ∂ψ/∂λ \end{align*} 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em w\+\_\+psi} & 流線関数 \\
\hline
\mbox{\texttt{ in}}  & {\em w\+\_\+chi} & 速度ポテンシャル \\
\hline
\mbox{\texttt{ out}}  & {\em xv\+\_\+u} & 速度経度成分 \\
\hline
\mbox{\texttt{ out}}  & {\em xv\+\_\+v} & 速度緯度成分 \\
\hline
\end{DoxyParams}


Definition at line 468 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{468 }
\DoxyCodeLine{469 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: w\_Psi(nc)}
\DoxyCodeLine{471 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: w\_Chi(nc)}
\DoxyCodeLine{473 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: xv\_U(0:im-\/1,1:jl)}
\DoxyCodeLine{475 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: xv\_V(0:im-\/1,1:jl)}
\DoxyCodeLine{476 }
\DoxyCodeLine{477 \textcolor{keywordtype}{    real}(DP)             :: w\_Rdata1((mm/np+1)*(2*(nm+1)-\/mm/np*np))}
\DoxyCodeLine{478 \textcolor{keywordtype}{    real}(DP)             :: w\_Rdata2((mm/np+1)*(2*(nm+1)-\/mm/np*np))}
\DoxyCodeLine{479     \textcolor{comment}{! 作業用スペクトルデータ(SYTS2G 出力用)}}
\DoxyCodeLine{480 \textcolor{keywordtype}{    real}(DP)             :: w\_Xdata((mm/np+1)*(2*(nn+1)-\/mm/np*np))}
\DoxyCodeLine{481     \textcolor{comment}{! 作業用スペクトルデータ(SYCS2X 出力用)}}
\DoxyCodeLine{482 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata((mm/np+1)*(2*(nm+1)-\/mm/np*np))}
\DoxyCodeLine{483     \textcolor{comment}{! 作業用スペクトルデータ(SYCS2Y 出力用)}}
\DoxyCodeLine{484 }
\DoxyCodeLine{485     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{486       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'w\_StreamPotential2VectorMPI'},\&}
\DoxyCodeLine{487         \textcolor{stringliteral}{'w\_base\_module not initialize yet.'})}
\DoxyCodeLine{488 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{489     \textcolor{comment}{!}}
\DoxyCodeLine{490     \textcolor{comment}{!   u cosφ = ∂χ/∂λ -\/ cosφ∂ψ/∂φ}}
\DoxyCodeLine{491     \textcolor{comment}{!}}
\DoxyCodeLine{492     \textcolor{keyword}{call }sycs2x(mm,nn,w\_chi,w\_xdata,icom)}
\DoxyCodeLine{493     \textcolor{keyword}{call }sycs2y(mm,nn,w\_psi,w\_ydata,c,icom)}
\DoxyCodeLine{494     \textcolor{keyword}{call }sycrpk(mm,nn,nm,w\_xdata,w\_rdata1,icom)}
\DoxyCodeLine{495     w\_rdata1 = w\_rdata1 -\/ w\_ydata}
\DoxyCodeLine{496     \textcolor{comment}{!}}
\DoxyCodeLine{497     \textcolor{comment}{!   v cosφ = cosφ∂χ/∂φ + ∂ψ/∂λ}}
\DoxyCodeLine{498     \textcolor{comment}{!}}
\DoxyCodeLine{499     \textcolor{keyword}{call }sycs2y(mm,nn,w\_chi,w\_ydata,c,icom)}
\DoxyCodeLine{500     \textcolor{keyword}{call }sycs2x(mm,nn,w\_psi,w\_xdata,icom)}
\DoxyCodeLine{501     \textcolor{keyword}{call }sycrpk(mm,nn,nm,w\_xdata,w\_rdata2,icom)}
\DoxyCodeLine{502     w\_rdata2= w\_rdata2 + w\_ydata}
\DoxyCodeLine{503     \textcolor{comment}{!}}
\DoxyCodeLine{504     \textcolor{keyword}{call }syts2v(mm,nm,nm,im,jm,jv, \&}
\DoxyCodeLine{505       \& w\_rdata1,w\_rdata2,g1,g2,it,t,p,r,jc,ww,1\_8,icom)}
\DoxyCodeLine{506     \textcolor{comment}{! u}}
\DoxyCodeLine{507     xv\_u = g1(:,1:jl)}
\DoxyCodeLine{508     \textcolor{comment}{! v}}
\DoxyCodeLine{509     xv\_v = g2(:,1:jl)}
\DoxyCodeLine{510 }

\end{DoxyCode}


References c, g1, g2, icom, im, it, jc, jl, jm, jv, mm, nm, nn, p, r, t, w\+\_\+base\+\_\+mpi\+\_\+initialize, and ww.



Referenced by ua\+\_\+mpi\+\_\+module\+\_\+base\+::ua\+\_\+streampotential2vectormpi().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__base_a004e891d275758b2e9a39b5d41672a53_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a15326f414093545618c681f41166ac70}\label{namespacew__mpi__module__base_a15326f414093545618c681f41166ac70}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!w\_vector2vordivmpi@{w\_vector2vordivmpi}}
\index{w\_vector2vordivmpi@{w\_vector2vordivmpi}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_vector2vordivmpi()}{w\_vector2vordivmpi()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+mpi\+\_\+module\+\_\+base\+::w\+\_\+vector2vordivmpi (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), intent(in)}]{xv\+\_\+U,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), intent(in)}]{xv\+\_\+V,  }\item[{real(dp), dimension(\mbox{\hyperlink{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}{nc}}), intent(out)}]{w\+\_\+\+Vor,  }\item[{real(dp), dimension(\mbox{\hyperlink{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}{nc}}), intent(out)}]{w\+\_\+\+Div }\end{DoxyParamCaption})}



速度場(格子データ)から渦度・発散(スペクトルデータ)に (正)変換する(1 層用, M\+PI) 

スペクトル変換を用いず微分を計算するために, 変換回数が 2 回ですむ. \begin{align*} ζ & = 1/\cosφ∂v/∂λ - 1/\cosφ ∂(u \cosφ)/∂φ, \\ D & = 1/\cosφ∂u/∂λ + 1/\cosφ ∂(v \cosφ)/∂φ \end{align*} 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em xv\+\_\+u} & 速度経度成分 \\
\hline
\mbox{\texttt{ in}}  & {\em xv\+\_\+v} & 速度緯度成分 \\
\hline
\mbox{\texttt{ out}}  & {\em w\+\_\+vor} & 流線関数 \\
\hline
\mbox{\texttt{ out}}  & {\em w\+\_\+div} & 速度ポテンシャル \\
\hline
\end{DoxyParams}


Definition at line 524 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{524 }
\DoxyCodeLine{525 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xv\_U(0:im-\/1,1:jl)}
\DoxyCodeLine{527 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xv\_V(0:im-\/1,1:jl)}
\DoxyCodeLine{529 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}  :: w\_Vor(nc)}
\DoxyCodeLine{531 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}  :: w\_Div(nc)}
\DoxyCodeLine{532 }
\DoxyCodeLine{533 \textcolor{keywordtype}{    real}(DP)             :: w\_Xdata((mm/np+1)*(2*(nn+1)-\/mm/np*np))}
\DoxyCodeLine{534     \textcolor{comment}{! 作業用スペクトルデータ(SUCS2X 出力用)}}
\DoxyCodeLine{535 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata1((mm/np+1)*(2*(nm+1)-\/mm/np*np))}
\DoxyCodeLine{536 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata2((mm/np+1)*(2*(nm+1)-\/mm/np*np))}
\DoxyCodeLine{537     \textcolor{comment}{! 作業用スペクトルデータ(SUCS2Y 出力用)}}
\DoxyCodeLine{538 \textcolor{keywordtype}{    real}(DP)             :: w\_Data1((mm/np+1)*(2*(nn+1)-\/mm/np*np))}
\DoxyCodeLine{539 \textcolor{keywordtype}{    real}(DP)             :: w\_Data2((mm/np+1)*(2*(nn+1)-\/mm/np*np))}
\DoxyCodeLine{540 }
\DoxyCodeLine{541     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{542       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'w\_Vector2VorDivMPI'},\&}
\DoxyCodeLine{543         \textcolor{stringliteral}{'w\_base\_module not initialize yet.'})}
\DoxyCodeLine{544 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{545     \textcolor{comment}{!}}
\DoxyCodeLine{546     \textcolor{comment}{! 1/cosφ∂u/∂λ, 1/cosφ ∂(u cosφ)/∂φ}}
\DoxyCodeLine{547     \textcolor{comment}{!}}
\DoxyCodeLine{548     g1 = 0.0d0 ; g1(:,1:jl) = xv\_u}
\DoxyCodeLine{549     g2 = 0.0d0 ; g2(:,1:jl) = xv\_v}
\DoxyCodeLine{550     \textcolor{keyword}{call }sytv2s(mm,nm,nn+1,im,jm,jv,\&}
\DoxyCodeLine{551       \& w\_ydata1,w\_ydata2,g1,g2,it,t,p,r,jc,ww,1\_8,icom)}
\DoxyCodeLine{552 }
\DoxyCodeLine{553     \textcolor{keyword}{call }sycrpk(mm,nm,nn,w\_ydata1,w\_xdata,icom)}
\DoxyCodeLine{554     \textcolor{keyword}{call }sycs2x(mm,nn,w\_xdata,w\_div,icom)}
\DoxyCodeLine{555     \textcolor{keyword}{call }sycy2s(mm,nn,w\_ydata2,w\_data2,c,icom)}
\DoxyCodeLine{556     \textcolor{comment}{!}}
\DoxyCodeLine{557     \textcolor{comment}{! 1/cosφ∂v/∂λ, 1/cosφ ∂(v cosφ)/∂φ}}
\DoxyCodeLine{558     \textcolor{comment}{!}}
\DoxyCodeLine{559     \textcolor{keyword}{call }sycrpk(mm,nm,nn,w\_ydata2,w\_xdata,icom)}
\DoxyCodeLine{560     \textcolor{keyword}{call }sycs2x(mm,nn,w\_xdata,w\_vor,icom)}
\DoxyCodeLine{561     \textcolor{keyword}{call }sycy2s(mm,nn,w\_ydata1,w\_data1,c,icom)}
\DoxyCodeLine{562     \textcolor{comment}{!}}
\DoxyCodeLine{563     \textcolor{comment}{!  渦度・発散の計算}}
\DoxyCodeLine{564     \textcolor{comment}{!}}
\DoxyCodeLine{565     \textcolor{comment}{!   ζ = 1/cosφ∂v/∂λ -\/ 1/cosφ ∂(u cosφ)/∂φ}}
\DoxyCodeLine{566     \textcolor{comment}{!    D = 1/cosφ∂u/∂λ + 1/cosφ ∂(v cosφ)/∂φ}}
\DoxyCodeLine{567     \textcolor{comment}{!}}
\DoxyCodeLine{568     w\_vor = w\_vor -\/ w\_data1}
\DoxyCodeLine{569     w\_div = w\_div + w\_data2}
\DoxyCodeLine{570 }

\end{DoxyCode}


References c, g1, g2, icom, im, it, jc, jl, jm, jv, mm, nm, nn, p, r, t, w\+\_\+base\+\_\+mpi\+\_\+initialize, and ww.



Referenced by ua\+\_\+mpi\+\_\+module\+\_\+base\+::ua\+\_\+vector2vordivmpi().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=343pt]{namespacew__mpi__module__base_a15326f414093545618c681f41166ac70_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a843761fce9a1f561f1e84a2ce7fc7456}\label{namespacew__mpi__module__base_a843761fce9a1f561f1e84a2ce7fc7456}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!w\_vectorcoslat2vordivmpi@{w\_vectorcoslat2vordivmpi}}
\index{w\_vectorcoslat2vordivmpi@{w\_vectorcoslat2vordivmpi}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_vectorcoslat2vordivmpi()}{w\_vectorcoslat2vordivmpi()}}
{\footnotesize\ttfamily subroutine, public w\+\_\+mpi\+\_\+module\+\_\+base\+::w\+\_\+vectorcoslat2vordivmpi (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), intent(in)}]{xv\+\_\+\+U\+Cos\+Lat,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), intent(in)}]{xv\+\_\+\+V\+Cos\+Lat,  }\item[{real(dp), dimension(\mbox{\hyperlink{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}{nc}}), intent(out)}]{w\+\_\+\+Vor,  }\item[{real(dp), dimension(\mbox{\hyperlink{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}{nc}}), intent(out)}]{w\+\_\+\+Div }\end{DoxyParamCaption})}



速度場(格子データ)から渦度・発散(スペクトルデータ)に (正)変換する(1 層用, M\+PI) 

スペクトル変換を用いず微分を計算するために, 変換回数が 2 回ですむ. \begin{align*} ζ & = 1/\cosφ∂v/∂λ - 1/\cosφ ∂(u \cosφ)/∂φ, \\ D & = 1/\cosφ∂u/∂λ + 1/\cosφ ∂(v \cosφ)/∂φ \end{align*} 
\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em xv\+\_\+ucoslat} & 速度経度成分 $\ast$ cos(lat) \\
\hline
\mbox{\texttt{ in}}  & {\em xv\+\_\+vcoslat} & 速度緯度成分 $\ast$ cos(lat) \\
\hline
\mbox{\texttt{ out}}  & {\em w\+\_\+vor} & 流線関数 \\
\hline
\mbox{\texttt{ out}}  & {\em w\+\_\+div} & 速度ポテンシャル \\
\hline
\end{DoxyParams}


Definition at line 584 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{584 }
\DoxyCodeLine{585 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xv\_UCosLat(0:im-\/1,1:jl)}
\DoxyCodeLine{587 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xv\_VCosLat(0:im-\/1,1:jl)}
\DoxyCodeLine{589 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: w\_Vor(nc)}
\DoxyCodeLine{591 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(out)}   :: w\_Div(nc)}
\DoxyCodeLine{592 }
\DoxyCodeLine{593 \textcolor{keywordtype}{    real}(DP)             :: w\_Xdata((mm/np+1)*(2*(nn+1)-\/mm/np*np))}
\DoxyCodeLine{594     \textcolor{comment}{! 作業用スペクトルデータ(SUCS2X 出力用)}}
\DoxyCodeLine{595 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata1((mm/np+1)*(2*(nm+1)-\/mm/np*np))}
\DoxyCodeLine{596 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata2((mm/np+1)*(2*(nm+1)-\/mm/np*np))}
\DoxyCodeLine{597     \textcolor{comment}{! 作業用スペクトルデータ(SUCS2Y 出力用)}}
\DoxyCodeLine{598 \textcolor{keywordtype}{    real}(DP)             :: w\_Data1((mm/np+1)*(2*(nn+1)-\/mm/np*np))}
\DoxyCodeLine{599 \textcolor{keywordtype}{    real}(DP)             :: w\_Data2((mm/np+1)*(2*(nn+1)-\/mm/np*np))}
\DoxyCodeLine{600 }
\DoxyCodeLine{601     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{602       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'w\_VectorCosLat2VorDivMPI'},\&}
\DoxyCodeLine{603         \textcolor{stringliteral}{'w\_base\_module not initialize yet.'})}
\DoxyCodeLine{604 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{605     \textcolor{comment}{!}}
\DoxyCodeLine{606     \textcolor{comment}{! 1/cosφ∂u/∂λ, 1/cosφ ∂(u cosφ)/∂φ の計算}}
\DoxyCodeLine{607     \textcolor{comment}{!}}
\DoxyCodeLine{608     g1 = 0.0d0 ; g1(:,1:jl) = xv\_ucoslat}
\DoxyCodeLine{609     g2 = 0.0d0 ; g2(:,1:jl) = xv\_vcoslat}
\DoxyCodeLine{610     \textcolor{keyword}{call }sytv2s(mm,nm,nn+1,im,jm,jv,w\_ydata1,w\_ydata2,g1,g2,it,t,p,r,jc,ww,2\_8,icom)}
\DoxyCodeLine{611 }
\DoxyCodeLine{612     \textcolor{keyword}{call }sycrpk(mm,nm,nn,w\_ydata1,w\_xdata,icom)}
\DoxyCodeLine{613     \textcolor{keyword}{call }sycs2x(mm,nn,w\_xdata,w\_div,icom)}
\DoxyCodeLine{614     \textcolor{keyword}{call }sycy2s(mm,nn,w\_ydata2,w\_data2,c,icom)}
\DoxyCodeLine{615     \textcolor{comment}{!}}
\DoxyCodeLine{616     \textcolor{comment}{! 1/cosφ∂v/∂λ, 1/cosφ ∂(v cosφ)/∂φ の計算}}
\DoxyCodeLine{617     \textcolor{comment}{!}}
\DoxyCodeLine{618     \textcolor{keyword}{call }sycrpk(mm,nm,nn,w\_ydata2,w\_xdata,icom)}
\DoxyCodeLine{619     \textcolor{keyword}{call }sycs2x(mm,nn,w\_xdata,w\_vor,icom)}
\DoxyCodeLine{620     \textcolor{keyword}{call }sycy2s(mm,nn,w\_ydata1,w\_data1,c,icom)}
\DoxyCodeLine{621     \textcolor{comment}{!}}
\DoxyCodeLine{622     \textcolor{comment}{!  渦度・発散の計算}}
\DoxyCodeLine{623     \textcolor{comment}{!}}
\DoxyCodeLine{624     \textcolor{comment}{!   ζ = 1/cosφ∂v/∂λ -\/ 1/cosφ ∂(u cosφ)/∂φ}}
\DoxyCodeLine{625     \textcolor{comment}{!    D = 1/cosφ∂u/∂λ + 1/cosφ ∂(v cosφ)/∂φ}}
\DoxyCodeLine{626     \textcolor{comment}{!}}
\DoxyCodeLine{627     w\_vor = w\_vor -\/ w\_data1}
\DoxyCodeLine{628     w\_div = w\_div + w\_data2}
\DoxyCodeLine{629 }

\end{DoxyCode}


References c, g1, g2, icom, im, it, jc, jl, jm, jv, mm, nm, nn, p, r, t, w\+\_\+base\+\_\+mpi\+\_\+initialize, and ww.



Referenced by ua\+\_\+mpi\+\_\+module\+\_\+base\+::ua\+\_\+vectorcoslat2vordivmpi().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__base_a843761fce9a1f561f1e84a2ce7fc7456_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_a8437d71392fa94854209b7898dc2dd99}\label{namespacew__mpi__module__base_a8437d71392fa94854209b7898dc2dd99}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!w\_xv@{w\_xv}}
\index{w\_xv@{w\_xv}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_xv()}{w\_xv()}}
{\footnotesize\ttfamily real(dp) function, dimension(\mbox{\hyperlink{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}{nc}}), public w\+\_\+mpi\+\_\+module\+\_\+base\+::w\+\_\+xv (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), intent(in)}]{xv\+\_\+data,  }\item[{integer, intent(in), optional}]{ipow,  }\item[{integer, intent(in), optional}]{iflag }\end{DoxyParamCaption})}



格子データからスペクトルデータへ(正)変換する(1 層用). 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em xv\+\_\+data} & 格子点データ \\
\hline
\mbox{\texttt{ in}}  & {\em ipow} & 変換時に同時に作用させる $1/\cosφ$ の次数. 省略時は 0. \\
\hline
\mbox{\texttt{ in}}  & {\em iflag} & 変換の種類. 省略時は 0.
\begin{DoxyItemize}
\item 0 \+: 通常の正変換
\item -\/1 \+: 経度微分を作用させた正変換
\item 1 \+: 緯度微分 $1/\cosφ・∂(f \cos^2φ)/∂φ$ を作用させた正変換
\item 2 \+: $\sinφ$を作用させた正変換 
\end{DoxyItemize}\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
スペクトルデータ 
\end{DoxyReturn}


Definition at line 396 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{396 }
\DoxyCodeLine{397 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: xv\_data(0:im-\/1,1:jl)}
\DoxyCodeLine{399     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: ipow}
\DoxyCodeLine{406     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: iflag}
\DoxyCodeLine{408 \textcolor{keywordtype}{    real}(DP)               :: w\_xv(nc)}
\DoxyCodeLine{409 }
\DoxyCodeLine{410 }
\DoxyCodeLine{411     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: ipow\_default  = 0    \textcolor{comment}{! スイッチデフォルト値}}
\DoxyCodeLine{412     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: iflag\_default = 0    \textcolor{comment}{! スイッチデフォルト値}}
\DoxyCodeLine{413 }
\DoxyCodeLine{414     \textcolor{keywordtype}{integer(8)} :: ipval, ifval}
\DoxyCodeLine{415 }
\DoxyCodeLine{416     \textcolor{comment}{! 作業用スペクトルデータ(SYCS2X 出力用)}}
\DoxyCodeLine{417 \textcolor{keywordtype}{    real}(DP)             :: w\_Xdata((mm/np+1)*(2*(nn+1)-\/mm/np*np))}
\DoxyCodeLine{418     \textcolor{comment}{! 作業用スペクトルデータ(SYCS2Y 出力用)}}
\DoxyCodeLine{419 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata((mm/np+1)*(2*(nm+1)-\/mm/np*np))}
\DoxyCodeLine{420 }
\DoxyCodeLine{421     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{422       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'xv\_w'},\&}
\DoxyCodeLine{423         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialize yet.'})}
\DoxyCodeLine{424 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{425 }
\DoxyCodeLine{426     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ipow)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{427       ipval = ipow}
\DoxyCodeLine{428     \textcolor{keywordflow}{else}}
\DoxyCodeLine{429       ipval = ipow\_default}
\DoxyCodeLine{430 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{431 }
\DoxyCodeLine{432     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(iflag)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{433       ifval = iflag}
\DoxyCodeLine{434     \textcolor{keywordflow}{else}}
\DoxyCodeLine{435       ifval = iflag\_default}
\DoxyCodeLine{436 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{437 }
\DoxyCodeLine{438     \textcolor{keywordflow}{if} ( ifval == 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{439       g = 0.0d0 ; g(:,1:jl) = xv\_data}
\DoxyCodeLine{440       \textcolor{keyword}{call }sytg2s(mm,nm,nn,im,jm,jv,w\_xv,g,it,t,p,r,jc,w,ipval,icom)}
\DoxyCodeLine{441     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( ifval == -\/1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{442       g = 0.0d0 ; g(:,1:jl) = xv\_data}
\DoxyCodeLine{443       \textcolor{keyword}{call }sytg2s(mm,nm,nn,im,jm,jv,w\_xdata,g,it,t,p,r,jc,w,ipval,icom)}
\DoxyCodeLine{444       \textcolor{keyword}{call }sycs2x(mm,nn,w\_xdata,w\_xv,icom)}
\DoxyCodeLine{445     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( ifval == 1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{446       g = 0.0d0 ; g(:,1:jl) = xv\_data}
\DoxyCodeLine{447       \textcolor{keyword}{call }sytg2s(mm,nm,nm,im,jm,jv,w\_ydata,g,it,t,p,r,jc,w,ipval,icom)}
\DoxyCodeLine{448       \textcolor{keyword}{call }sycy2s(mm,nn,w\_ydata,w\_xv,c,icom)}
\DoxyCodeLine{449     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( ifval == 2 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{450       g = 0.0d0 ; g(:,1:jl) = xv\_data*sin(xv\_lat)}
\DoxyCodeLine{451       \textcolor{keyword}{call }sytg2s(mm,nm,nn,im,jm,jv,w\_xv,g,it,t,p,r,jc,w,ipval,icom)}
\DoxyCodeLine{452 \textcolor{keywordflow}{    end if}}
\DoxyCodeLine{453 }

\end{DoxyCode}


References c, g, icom, im, it, jc, jl, jm, jv, mm, nm, nn, p, r, t, w, w\+\_\+base\+\_\+mpi\+\_\+initialize, and xv\+\_\+lat.



Referenced by ua\+\_\+mpi\+\_\+module\+\_\+base\+::u\+\_\+xv(), ua\+\_\+mpi\+\_\+module\+\_\+base\+::ua\+\_\+xvb(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+divlambda\+\_\+xv(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+divlat\+\_\+xv(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+divlon\+\_\+xv(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+divmu\+\_\+xv(), and w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+jacobianmpi\+\_\+w\+\_\+w().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespacew__mpi__module__base_a8437d71392fa94854209b7898dc2dd99_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespacew__mpi__module__base_af3c71ab39dece6b5a1016ba418f8371b}\label{namespacew__mpi__module__base_af3c71ab39dece6b5a1016ba418f8371b}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!xv\_w@{xv\_w}}
\index{xv\_w@{xv\_w}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{xv\_w()}{xv\_w()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}{im}}-\/1,1\+:\mbox{\hyperlink{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}{jl}}), public w\+\_\+mpi\+\_\+module\+\_\+base\+::xv\+\_\+w (\begin{DoxyParamCaption}\item[{real(dp), dimension(\mbox{\hyperlink{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}{nc}}), intent(in)}]{w\+\_\+data,  }\item[{integer, intent(in), optional}]{ipow,  }\item[{integer, intent(in), optional}]{iflag }\end{DoxyParamCaption})}



スペクトルデータから格子データへ変換する(1 層用). 


\begin{DoxyParams}[1]{Parameters}
\mbox{\texttt{ in}}  & {\em w\+\_\+data} & スペクトルデータ \\
\hline
\mbox{\texttt{ in}}  & {\em ipow} & 作用させる $1/\cosφ$ の次数. 省略時は 0. \\
\hline
\mbox{\texttt{ in}}  & {\em iflag} & 変換の種類\+: 省略時は 0.
\begin{DoxyItemize}
\item 0 \+: 通常の逆変換
\item -\/1 \+: 経度微分を作用させた逆変換
\item 1 \+: 緯度微分 $\cosφ・∂/∂φ$ を作用させた逆変換
\item 2 \+: $\sinφ$を作用させた逆変換 
\end{DoxyItemize}\\
\hline
\end{DoxyParams}
\begin{DoxyReturn}{Returns}
格子点データ 
\end{DoxyReturn}


Definition at line 332 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{332 }
\DoxyCodeLine{333 \textcolor{keywordtype}{    real}(DP), \textcolor{keywordtype}{intent(in)}   :: w\_data(nc)}
\DoxyCodeLine{335     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: ipow}
\DoxyCodeLine{341     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: iflag}
\DoxyCodeLine{343 \textcolor{keywordtype}{    real}(DP)               :: xv\_w(0:im-\/1,1:jl)}
\DoxyCodeLine{344 }
\DoxyCodeLine{345     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: ipow\_default  = 0}
\DoxyCodeLine{346     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{parameter}  :: iflag\_default = 0}
\DoxyCodeLine{347 }
\DoxyCodeLine{348     \textcolor{keywordtype}{integer(8)} :: ipval, ifval}
\DoxyCodeLine{349 }
\DoxyCodeLine{350     \textcolor{comment}{! 作業用スペクトルデータ(SYCS2X 出力用)}}
\DoxyCodeLine{351 \textcolor{keywordtype}{    real}(DP)             :: w\_Xdata((mm/np+1)*(2*(nn+1)-\/mm/np*np))}
\DoxyCodeLine{352     \textcolor{comment}{! 作業用スペクトルデータ(SYCS2Y 出力用)}}
\DoxyCodeLine{353 \textcolor{keywordtype}{    real}(DP)             :: w\_Ydata((mm/np+1)*(2*(nm+1)-\/mm/np*np))}
\DoxyCodeLine{354 }
\DoxyCodeLine{355     \textcolor{keywordflow}{if} ( .not. w\_base\_mpi\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{356       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'xv\_w'},\&}
\DoxyCodeLine{357         \textcolor{stringliteral}{'w\_base\_mpi\_module not initialize yet.'})}
\DoxyCodeLine{358 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{359 }
\DoxyCodeLine{360     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(ipow)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{361       ipval = ipow}
\DoxyCodeLine{362     \textcolor{keywordflow}{else}}
\DoxyCodeLine{363       ipval = ipow\_default}
\DoxyCodeLine{364 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{365 }
\DoxyCodeLine{366     \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(iflag)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{367       ifval = iflag}
\DoxyCodeLine{368     \textcolor{keywordflow}{else}}
\DoxyCodeLine{369       ifval = iflag\_default}
\DoxyCodeLine{370 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{371 }
\DoxyCodeLine{372     \textcolor{keywordflow}{if} ( ifval==0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{373       \textcolor{keyword}{call }syts2g(mm,nm,nn,im,jm,jv,w\_data,g,it,t,p,r,jc,w,ipval,icom)}
\DoxyCodeLine{374       xv\_w = g(:,1:jl)}
\DoxyCodeLine{375     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if}( ifval == -\/1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{376       \textcolor{keyword}{call }sycs2x(mm,nn,w\_data,w\_xdata,icom)}
\DoxyCodeLine{377       \textcolor{keyword}{call }syts2g(mm,nm,nn,im,jm,jv,w\_xdata,g,it,t,p,r,jc,w,ipval,icom)}
\DoxyCodeLine{378       xv\_w = g(:,1:jl)}
\DoxyCodeLine{379     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if}( ifval == 1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{380       \textcolor{keyword}{call }sycs2y(mm,nn,w\_data,w\_ydata,c,icom)}
\DoxyCodeLine{381       \textcolor{keyword}{call }syts2g(mm,nm,nm,im,jm,jv,w\_ydata,g,it,t,p,r,jc,w,ipval,icom)}
\DoxyCodeLine{382       xv\_w = g(:,1:jl)}
\DoxyCodeLine{383     \textcolor{keywordflow}{else} \textcolor{keywordflow}{if}( ifval == 2 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{384       \textcolor{keyword}{call }syts2g(mm,nm,nn,im,jm,jv,w\_data,g,it,t,p,r,jc,w,ipval,icom)}
\DoxyCodeLine{385       xv\_w = g(:,1:jl)*sin(xv\_lat)}
\DoxyCodeLine{386     \textcolor{keywordflow}{else}}
\DoxyCodeLine{387       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'xv\_w'},\textcolor{stringliteral}{'invalid value of iflag'})}
\DoxyCodeLine{388 \textcolor{keywordflow}{    endif}}
\DoxyCodeLine{389 }

\end{DoxyCode}


References c, g, icom, im, it, jc, jl, jm, jv, mm, nm, nn, p, r, t, w, w\+\_\+base\+\_\+mpi\+\_\+initialize, and xv\+\_\+lat.



Referenced by w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+jacobianmpi\+\_\+w\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::xv\+\_\+gradlambda\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::xv\+\_\+gradlat\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::xv\+\_\+gradlon\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::xv\+\_\+gradmu\+\_\+w(), ua\+\_\+mpi\+\_\+module\+\_\+base\+::xv\+\_\+u(), and ua\+\_\+mpi\+\_\+module\+\_\+base\+::xvb\+\_\+ua().

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


\doxysubsection{Variable Documentation}
\mbox{\Hypertarget{namespacew__mpi__module__base_ab82d4b3dfb6d3ac2bef7139620f5aef0}\label{namespacew__mpi__module__base_ab82d4b3dfb6d3ac2bef7139620f5aef0}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!c@{c}}
\index{c@{c}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{c}{c}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, save w\+\_\+mpi\+\_\+module\+\_\+base\+::c\hspace{0.3cm}{\ttfamily [private]}}



作業配列 



Definition at line 134 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{134 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: c(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a174314d096aa372f5be25b771ae70bc6}\label{namespacew__mpi__module__base_a174314d096aa372f5be25b771ae70bc6}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!g@{g}}
\index{g@{g}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{g}{g}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), pointer, save w\+\_\+mpi\+\_\+module\+\_\+base\+::g\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



Definition at line 112 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{112 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{pointer}     :: g(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a06ae1f72f46d5413aeda1c425a9b39f4}\label{namespacew__mpi__module__base_a06ae1f72f46d5413aeda1c425a9b39f4}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!g1@{g1}}
\index{g1@{g1}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{g1}{g1}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), pointer, save w\+\_\+mpi\+\_\+module\+\_\+base\+::g1\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



Definition at line 116 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{116 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{pointer}     :: g1(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), and w\+\_\+vectorcoslat2vordivmpi().

\mbox{\Hypertarget{namespacew__mpi__module__base_ab647f31e722b8d8c0b03140f2e74fc8e}\label{namespacew__mpi__module__base_ab647f31e722b8d8c0b03140f2e74fc8e}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!g2@{g2}}
\index{g2@{g2}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{g2}{g2}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), pointer, save w\+\_\+mpi\+\_\+module\+\_\+base\+::g2\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



Definition at line 118 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{118 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{pointer}     :: g2(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), and w\+\_\+vectorcoslat2vordivmpi().

\mbox{\Hypertarget{namespacew__mpi__module__base_af5e3db67c239a3e8b2a850ac73abf702}\label{namespacew__mpi__module__base_af5e3db67c239a3e8b2a850ac73abf702}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!icom@{icom}}
\index{icom@{icom}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{icom}{icom}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::icom}



コミュニケータ 



Definition at line 85 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{85   \textcolor{keywordtype}{integer(8)}              :: icom}

\end{DoxyCode}


Referenced by w\+\_\+mpi\+\_\+module\+\_\+integral\+::avrlat\+\_\+v(), ay\+\_\+av(), w\+\_\+mpi\+\_\+module\+\_\+interpolate\+::interpolate\+\_\+array00\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::intlat\+\_\+v(), l\+\_\+nm\+\_\+array00(), l\+\_\+nm\+\_\+darray00(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::n\+\_\+energyfromstreamfunc\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::n\+\_\+enstrophyfromstreamfunc\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nm\+\_\+energyfromstreamfunc\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nm\+\_\+enstrophyfromstreamfunc\+\_\+w(), nm\+\_\+l\+\_\+dint(), nm\+\_\+l\+\_\+int(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+deriv\+\_\+mpi\+\_\+initial(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+dlon\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+lapla\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+laplainv\+\_\+w(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::x\+\_\+avrlat\+\_\+xv(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::x\+\_\+intlat\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a263c5eb619547936844f51901e8c5584}\label{namespacew__mpi__module__base_a263c5eb619547936844f51901e8c5584}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!ig@{ig}}
\index{ig@{ig}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{ig}{ig}}
{\footnotesize\ttfamily integer(8) w\+\_\+mpi\+\_\+module\+\_\+base\+::ig =1\hspace{0.3cm}{\ttfamily [private]}}



グリッド種類 



Definition at line 110 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{110   \textcolor{keywordtype}{integer(8)}              :: ig=1}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}\label{namespacew__mpi__module__base_aa750b5cf518a6c9d727222f8f48abfa7}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!im@{im}}
\index{im@{im}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{im}{im}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::im =64}



格子点の設定(東西) 



Definition at line 55 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{55   \textcolor{keywordtype}{integer(8)}              :: im=64}

\end{DoxyCode}


Referenced by ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+intlon\+\_\+xb(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::v\+\_\+intlon\+\_\+xv(), ua\+\_\+mpi\+\_\+module\+\_\+integral\+::vb\+\_\+intlon\+\_\+xvb(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::x\+\_\+intlat\+\_\+xv(), ua\+\_\+mpi\+\_\+module\+\_\+integral\+::xb\+\_\+intlat\+\_\+xvb(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a0521d9abdcd00560146fa9bd257fdb4d}\label{namespacew__mpi__module__base_a0521d9abdcd00560146fa9bd257fdb4d}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!ip@{ip}}
\index{ip@{ip}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{ip}{ip}}
{\footnotesize\ttfamily integer, save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::ip}



M\+PI プロセス番号 



Definition at line 107 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{107   \textcolor{keywordtype}{integer}                 :: ip}

\end{DoxyCode}


Referenced by l\+\_\+nm\+\_\+array00(), l\+\_\+nm\+\_\+darray00(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a8c5519e5496969ee7a701f06777d72de}\label{namespacew__mpi__module__base_a8c5519e5496969ee7a701f06777d72de}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!it@{it}}
\index{it@{it}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{it}{it}}
{\footnotesize\ttfamily integer(8), dimension(\+:), allocatable, save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::it}



変換用配列 



Definition at line 87 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{87   \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{allocatable} :: it(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_aa05ba597bf438210e6d593f01220d1df}\label{namespacew__mpi__module__base_aa05ba597bf438210e6d593f01220d1df}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!j1@{j1}}
\index{j1@{j1}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{j1}{j1}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::j1}



分散配置用変数 



Definition at line 97 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{97   \textcolor{keywordtype}{integer(8)}              :: j1}

\end{DoxyCode}


Referenced by av\+\_\+ay(), ay\+\_\+av(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a738622eb94fbe878813f45e39a21e5b4}\label{namespacew__mpi__module__base_a738622eb94fbe878813f45e39a21e5b4}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!j1p@{j1p}}
\index{j1p@{j1p}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{j1p}{j1p}}
{\footnotesize\ttfamily integer, dimension(\+:), allocatable, save w\+\_\+mpi\+\_\+module\+\_\+base\+::j1p\hspace{0.3cm}{\ttfamily [private]}}



分散配置用変数 



Definition at line 136 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{136   \textcolor{keywordtype}{integer},    \textcolor{keywordtype}{allocatable} :: j1p(:)}

\end{DoxyCode}


Referenced by ay\+\_\+av(), w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a314a50bfc7f6f6a9de03e8640d84f18e}\label{namespacew__mpi__module__base_a314a50bfc7f6f6a9de03e8640d84f18e}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!j2@{j2}}
\index{j2@{j2}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{j2}{j2}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::j2}



分散配置用変数 



Definition at line 99 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{99   \textcolor{keywordtype}{integer(8)}              :: j2}

\end{DoxyCode}


Referenced by av\+\_\+ay(), ay\+\_\+av(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a9d6a33af6b9fc2ba8a404789d12d9c8a}\label{namespacew__mpi__module__base_a9d6a33af6b9fc2ba8a404789d12d9c8a}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!j2p@{j2p}}
\index{j2p@{j2p}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{j2p}{j2p}}
{\footnotesize\ttfamily integer, dimension(\+:), allocatable, save w\+\_\+mpi\+\_\+module\+\_\+base\+::j2p\hspace{0.3cm}{\ttfamily [private]}}



分散配置用変数 



Definition at line 138 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{138   \textcolor{keywordtype}{integer},    \textcolor{keywordtype}{allocatable} :: j2p(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a4e95d6c32cbce40f4047c6332ce6f46b}\label{namespacew__mpi__module__base_a4e95d6c32cbce40f4047c6332ce6f46b}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!jc@{jc}}
\index{jc@{jc}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{jc}{jc}}
{\footnotesize\ttfamily integer(8), dimension(\+:), allocatable, save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::jc}



変換用配列 



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


\begin{DoxyCode}{0}
\DoxyCodeLine{89   \textcolor{keywordtype}{integer(8)}, \textcolor{keywordtype}{allocatable} :: jc(:)}

\end{DoxyCode}


Referenced by ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+intlat\+\_\+vb(), w\+\_\+base\+\_\+mpi\+\_\+finalize(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::x\+\_\+intlat\+\_\+xv(), ua\+\_\+mpi\+\_\+module\+\_\+integral\+::xb\+\_\+intlat\+\_\+xvb(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}\label{namespacew__mpi__module__base_a3d7dfd2e961ec614e9616b52cd57db4c}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!jl@{jl}}
\index{jl@{jl}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{jl}{jl}}
{\footnotesize\ttfamily integer, save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::jl}



分散格子データの大きさ 



Definition at line 101 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{101   \textcolor{keywordtype}{integer}                 :: jl}

\end{DoxyCode}


Referenced by ay\+\_\+av(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a84a460481dced1f1deafb9b5159246e7}\label{namespacew__mpi__module__base_a84a460481dced1f1deafb9b5159246e7}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!jlp@{jlp}}
\index{jlp@{jlp}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{jlp}{jlp}}
{\footnotesize\ttfamily integer, dimension(\+:), allocatable, save w\+\_\+mpi\+\_\+module\+\_\+base\+::jlp\hspace{0.3cm}{\ttfamily [private]}}



分散格子データの大きさ 



Definition at line 140 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{140   \textcolor{keywordtype}{integer},    \textcolor{keywordtype}{allocatable} :: jlp(:)}

\end{DoxyCode}


Referenced by ay\+\_\+av(), w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a2b229672ec02d54aa8720cd2296723f0}\label{namespacew__mpi__module__base_a2b229672ec02d54aa8720cd2296723f0}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!jm@{jm}}
\index{jm@{jm}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{jm}{jm}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::jm =32}



格子点の設定(南北) 



Definition at line 57 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{57   \textcolor{keywordtype}{integer(8)}              :: jm=32}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_ac85608ccdc34b90d67a87ea8e0bf0c1b}\label{namespacew__mpi__module__base_ac85608ccdc34b90d67a87ea8e0bf0c1b}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!jv@{jv}}
\index{jv@{jv}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{jv}{jv}}
{\footnotesize\ttfamily integer(8), save w\+\_\+mpi\+\_\+module\+\_\+base\+::jv\hspace{0.3cm}{\ttfamily [private]}}



ベクトル長 



Definition at line 148 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{148   \textcolor{keywordtype}{integer(8)}              :: jv}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a8425e34ad804e0f42d95bf509cb17626}\label{namespacew__mpi__module__base_a8425e34ad804e0f42d95bf509cb17626}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!mm@{mm}}
\index{mm@{mm}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{mm}{mm}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::mm}



切断波数(東西波数)の設定 



Definition at line 59 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{59   \textcolor{keywordtype}{integer(8)}              :: mm}

\end{DoxyCode}


Referenced by nm\+\_\+l\+\_\+dint(), nm\+\_\+l\+\_\+int(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+deriv\+\_\+mpi\+\_\+initial(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+dlon\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+lapla\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+laplainv\+\_\+w(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}\label{namespacew__mpi__module__base_ab592cd691b8f91f3779f0b080f892973}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!nc@{nc}}
\index{nc@{nc}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{nc}{nc}}
{\footnotesize\ttfamily integer, save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::nc}



分散スペクトルデータの大きさ 



Definition at line 103 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{103   \textcolor{keywordtype}{integer}                 :: nc}

\end{DoxyCode}


Referenced by w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::n\+\_\+energyfromstreamfunc\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::n\+\_\+enstrophyfromstreamfunc\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nm\+\_\+energyfromstreamfunc\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nm\+\_\+enstrophyfromstreamfunc\+\_\+w(), w\+\_\+base\+\_\+mpi\+\_\+initial(), and w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+deriv\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_ab41734b46dbe2f936330642213759742}\label{namespacew__mpi__module__base_ab41734b46dbe2f936330642213759742}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!ncp@{ncp}}
\index{ncp@{ncp}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{ncp}{ncp}}
{\footnotesize\ttfamily integer, dimension(\+:), allocatable, save w\+\_\+mpi\+\_\+module\+\_\+base\+::ncp\hspace{0.3cm}{\ttfamily [private]}}



分散スペクトルデータの大きさ 



Definition at line 142 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{142   \textcolor{keywordtype}{integer},    \textcolor{keywordtype}{allocatable} :: ncp(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a2394d4ea48fd8016698745debaaf65eb}\label{namespacew__mpi__module__base_a2394d4ea48fd8016698745debaaf65eb}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!nm@{nm}}
\index{nm@{nm}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{nm}{nm}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::nm}



計算する最大の全波数の設定 



Definition at line 63 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{63   \textcolor{keywordtype}{integer(8)}              :: nm}

\end{DoxyCode}


Referenced by w\+\_\+mpi\+\_\+module\+\_\+interpolate\+::interpolate\+\_\+array00\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+interpolate\+::interpolate\+\_\+array10\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::n\+\_\+energyfromstreamfunc\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::n\+\_\+enstrophyfromstreamfunc\+\_\+w(), ua\+\_\+mpi\+\_\+module\+\_\+spectrum\+::na\+\_\+energyfromstreamfunc\+\_\+ua(), ua\+\_\+mpi\+\_\+module\+\_\+spectrum\+::na\+\_\+enstrophyfromstreamfunc\+\_\+ua(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nm\+\_\+energyfromstreamfunc\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nm\+\_\+enstrophyfromstreamfunc\+\_\+w(), ua\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nma\+\_\+energyfromstreamfunc\+\_\+ua(), ua\+\_\+mpi\+\_\+module\+\_\+spectrum\+::nma\+\_\+enstrophyfromstreamfunc\+\_\+ua(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a306a78f85237328517087aae0cf2278a}\label{namespacew__mpi__module__base_a306a78f85237328517087aae0cf2278a}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!nn@{nn}}
\index{nn@{nn}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{nn}{nn}}
{\footnotesize\ttfamily integer(8), save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::nn}



切断波数(全波数)の設定 



Definition at line 61 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{61   \textcolor{keywordtype}{integer(8)}              :: nn}

\end{DoxyCode}


Referenced by l\+\_\+nm\+\_\+array00(), l\+\_\+nm\+\_\+darray00(), nm\+\_\+l\+\_\+dint(), nm\+\_\+l\+\_\+int(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+deriv\+\_\+mpi\+\_\+initial(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+dlon\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+lapla\+\_\+w(), w\+\_\+mpi\+\_\+module\+\_\+deriv\+::w\+\_\+laplainv\+\_\+w(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_ad6e4677d45a8306c58f581ef5ccd363c}\label{namespacew__mpi__module__base_ad6e4677d45a8306c58f581ef5ccd363c}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!np@{np}}
\index{np@{np}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{np}{np}}
{\footnotesize\ttfamily integer, save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::np}



M\+PI プロセス数 



Definition at line 105 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{105   \textcolor{keywordtype}{integer}                 :: np}

\end{DoxyCode}


Referenced by ay\+\_\+av(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_ae4b015764a79f414de33dcbd01484ede}\label{namespacew__mpi__module__base_ae4b015764a79f414de33dcbd01484ede}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!p@{p}}
\index{p@{p}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{p}{p}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), pointer, save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::p}



変換用配列 



Definition at line 95 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{95 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{pointer}     :: p(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_acdd32805156fb81f3031a2efdbd96a8b}\label{namespacew__mpi__module__base_acdd32805156fb81f3031a2efdbd96a8b}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!pg@{pg}}
\index{pg@{pg}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{pg}{pg}}
{\footnotesize\ttfamily type(c\+\_\+ptr), save w\+\_\+mpi\+\_\+module\+\_\+base\+::pg\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



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


\begin{DoxyCode}{0}
\DoxyCodeLine{124   \textcolor{keywordtype}{type}(c\_ptr)             :: pg}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a1965b95825c811619965a892f386d2f8}\label{namespacew__mpi__module__base_a1965b95825c811619965a892f386d2f8}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!pg1@{pg1}}
\index{pg1@{pg1}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{pg1}{pg1}}
{\footnotesize\ttfamily type(c\+\_\+ptr), save w\+\_\+mpi\+\_\+module\+\_\+base\+::pg1\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



Definition at line 130 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{130   \textcolor{keywordtype}{type}(c\_ptr)             :: pg1}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a907e165aef5578662c75b0e657d9e183}\label{namespacew__mpi__module__base_a907e165aef5578662c75b0e657d9e183}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!pg2@{pg2}}
\index{pg2@{pg2}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{pg2}{pg2}}
{\footnotesize\ttfamily type(c\+\_\+ptr), save w\+\_\+mpi\+\_\+module\+\_\+base\+::pg2\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



Definition at line 132 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{132   \textcolor{keywordtype}{type}(c\_ptr)             :: pg2}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a43cc0c23b246e691446ddbf9573143a4}\label{namespacew__mpi__module__base_a43cc0c23b246e691446ddbf9573143a4}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!pp@{pp}}
\index{pp@{pp}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{pp}{pp}}
{\footnotesize\ttfamily type(c\+\_\+ptr) w\+\_\+mpi\+\_\+module\+\_\+base\+::pp\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



Definition at line 122 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{122   \textcolor{keywordtype}{type}(c\_ptr)             :: pp}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_af8488e58f6cd67964f51cf329004aeed}\label{namespacew__mpi__module__base_af8488e58f6cd67964f51cf329004aeed}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!pw@{pw}}
\index{pw@{pw}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{pw}{pw}}
{\footnotesize\ttfamily type(c\+\_\+ptr), save w\+\_\+mpi\+\_\+module\+\_\+base\+::pw\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



Definition at line 126 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{126   \textcolor{keywordtype}{type}(c\_ptr)             :: pw}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a51d1f25be30e29429203fa27863a9d90}\label{namespacew__mpi__module__base_a51d1f25be30e29429203fa27863a9d90}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!pww@{pww}}
\index{pww@{pww}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{pww}{pww}}
{\footnotesize\ttfamily type(c\+\_\+ptr), save w\+\_\+mpi\+\_\+module\+\_\+base\+::pww\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



Definition at line 128 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{128   \textcolor{keywordtype}{type}(c\_ptr)             :: pww}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a1ed2fa41d296057ce767d1d4a02bed88}\label{namespacew__mpi__module__base_a1ed2fa41d296057ce767d1d4a02bed88}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!r@{r}}
\index{r@{r}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{r}{r}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::r}



変換用配列 



Definition at line 93 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{93 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: r(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a8d80e852d6d919c7bc0a9f2a37d5aa67}\label{namespacew__mpi__module__base_a8d80e852d6d919c7bc0a9f2a37d5aa67}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!rcv\_rank@{rcv\_rank}}
\index{rcv\_rank@{rcv\_rank}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{rcv\_rank}{rcv\_rank}}
{\footnotesize\ttfamily integer, dimension(\+:), allocatable, save w\+\_\+mpi\+\_\+module\+\_\+base\+::rcv\+\_\+rank\hspace{0.3cm}{\ttfamily [private]}}



分散/全データ変換用配列 



Definition at line 146 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{146   \textcolor{keywordtype}{integer},    \textcolor{keywordtype}{allocatable} :: rcv\_rank(:)}

\end{DoxyCode}


Referenced by ay\+\_\+av(), w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a39286beac82bc12c6b047fecc6ac74fe}\label{namespacew__mpi__module__base_a39286beac82bc12c6b047fecc6ac74fe}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!snd\_rank@{snd\_rank}}
\index{snd\_rank@{snd\_rank}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{snd\_rank}{snd\_rank}}
{\footnotesize\ttfamily integer, dimension(\+:), allocatable, save w\+\_\+mpi\+\_\+module\+\_\+base\+::snd\+\_\+rank\hspace{0.3cm}{\ttfamily [private]}}



分散/全データ変換用配列 



Definition at line 144 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{144   \textcolor{keywordtype}{integer},    \textcolor{keywordtype}{allocatable} :: snd\_rank(:)}

\end{DoxyCode}


Referenced by ay\+\_\+av(), w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_aaef0c94ed2ea40df2026dd69c5ce5039}\label{namespacew__mpi__module__base_aaef0c94ed2ea40df2026dd69c5ce5039}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!t@{t}}
\index{t@{t}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{t}{t}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, save, public w\+\_\+mpi\+\_\+module\+\_\+base\+::t}



変換用配列 



Definition at line 91 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{91 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: t(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_ad610bc790b82eefa025e56ce5323efeb}\label{namespacew__mpi__module__base_ad610bc790b82eefa025e56ce5323efeb}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!v\_lat@{v\_lat}}
\index{v\_lat@{v\_lat}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{v\_lat}{v\_lat}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public w\+\_\+mpi\+\_\+module\+\_\+base\+::v\+\_\+lat}



緯度座標分散格子点 



Definition at line 69 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{69 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: v\_Lat(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a4e11ba6f50fd2ab37e67507800b4ebb4}\label{namespacew__mpi__module__base_a4e11ba6f50fd2ab37e67507800b4ebb4}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!v\_lat\_weight@{v\_lat\_weight}}
\index{v\_lat\_weight@{v\_lat\_weight}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{v\_lat\_weight}{v\_lat\_weight}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public w\+\_\+mpi\+\_\+module\+\_\+base\+::v\+\_\+lat\+\_\+weight}



緯度座標分散格子点重み 



Definition at line 71 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{71 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: v\_Lat\_Weight(:)}

\end{DoxyCode}


Referenced by w\+\_\+mpi\+\_\+module\+\_\+integral\+::avrlat\+\_\+v(), ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+avrlat\+\_\+vb(), ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+intlat\+\_\+vb(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::intlat\+\_\+v(), w\+\_\+base\+\_\+mpi\+\_\+finalize(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::x\+\_\+avrlat\+\_\+xv(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::x\+\_\+intlat\+\_\+xv(), ua\+\_\+mpi\+\_\+module\+\_\+integral\+::xb\+\_\+avrlat\+\_\+xvb(), and ua\+\_\+mpi\+\_\+module\+\_\+integral\+::xb\+\_\+intlat\+\_\+xvb().

\mbox{\Hypertarget{namespacew__mpi__module__base_a4adf21d3f6c0e24bb04a15f1a7bdf1cd}\label{namespacew__mpi__module__base_a4adf21d3f6c0e24bb04a15f1a7bdf1cd}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!w@{w}}
\index{w@{w}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{w}{w}}
{\footnotesize\ttfamily real(dp), dimension(\+:), pointer, save w\+\_\+mpi\+\_\+module\+\_\+base\+::w\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



Definition at line 114 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{114 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{pointer}     :: w(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a53154abc9efde0be3638fa9247abb808}\label{namespacew__mpi__module__base_a53154abc9efde0be3638fa9247abb808}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!w\_base\_mpi\_initialize@{w\_base\_mpi\_initialize}}
\index{w\_base\_mpi\_initialize@{w\_base\_mpi\_initialize}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{w\_base\_mpi\_initialize}{w\_base\_mpi\_initialize}}
{\footnotesize\ttfamily logical, save w\+\_\+mpi\+\_\+module\+\_\+base\+::w\+\_\+base\+\_\+mpi\+\_\+initialize =.false.\hspace{0.3cm}{\ttfamily [private]}}



初期化フラグ 



Definition at line 150 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{150   \textcolor{keywordtype}{logical}                 :: w\_base\_mpi\_initialize=.false.}

\end{DoxyCode}


Referenced by l\+\_\+nm\+\_\+array00(), l\+\_\+nm\+\_\+darray00(), nm\+\_\+l\+\_\+dint(), nm\+\_\+l\+\_\+int(), w\+\_\+base\+\_\+mpi\+\_\+finalize(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), w\+\_\+vectorcoslat2vordivmpi(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_a2f1ddab24eaa7a8b2e1efbcf936e5dc1}\label{namespacew__mpi__module__base_a2f1ddab24eaa7a8b2e1efbcf936e5dc1}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!ww@{ww}}
\index{ww@{ww}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{ww}{ww}}
{\footnotesize\ttfamily real(dp), dimension(\+:), pointer, save w\+\_\+mpi\+\_\+module\+\_\+base\+::ww\hspace{0.3cm}{\ttfamily [private]}}



変換用配列 



Definition at line 120 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{120 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{pointer}     :: ww(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+streampotential2vectormpi(), w\+\_\+vector2vordivmpi(), and w\+\_\+vectorcoslat2vordivmpi().

\mbox{\Hypertarget{namespacew__mpi__module__base_a072b71533174027ae9d27c2f1ff0f2fb}\label{namespacew__mpi__module__base_a072b71533174027ae9d27c2f1ff0f2fb}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!x\_lon@{x\_lon}}
\index{x\_lon@{x\_lon}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{x\_lon}{x\_lon}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public w\+\_\+mpi\+\_\+module\+\_\+base\+::x\+\_\+lon}



経度座標格子点 



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


\begin{DoxyCode}{0}
\DoxyCodeLine{65 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: x\_Lon(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a6ba4addf173c21cc9324d9d1ca54053a}\label{namespacew__mpi__module__base_a6ba4addf173c21cc9324d9d1ca54053a}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!x\_lon\_weight@{x\_lon\_weight}}
\index{x\_lon\_weight@{x\_lon\_weight}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{x\_lon\_weight}{x\_lon\_weight}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public w\+\_\+mpi\+\_\+module\+\_\+base\+::x\+\_\+lon\+\_\+weight}



経度座標格子点重み 



Definition at line 67 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{67 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: x\_Lon\_Weight(:)}

\end{DoxyCode}


Referenced by w\+\_\+mpi\+\_\+module\+\_\+integral\+::avrlon\+\_\+x(), ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+avrlon\+\_\+xb(), ua\+\_\+mpi\+\_\+module\+\_\+integral\+::b\+\_\+intlon\+\_\+xb(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::intlon\+\_\+x(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::v\+\_\+avrlon\+\_\+xv(), w\+\_\+mpi\+\_\+module\+\_\+integral\+::v\+\_\+intlon\+\_\+xv(), ua\+\_\+mpi\+\_\+module\+\_\+integral\+::vb\+\_\+avrlon\+\_\+xvb(), ua\+\_\+mpi\+\_\+module\+\_\+integral\+::vb\+\_\+intlon\+\_\+xvb(), w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_aeea6ed2d8858448c1eb88e3b40cdce8b}\label{namespacew__mpi__module__base_aeea6ed2d8858448c1eb88e3b40cdce8b}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!xv\_lat@{xv\_lat}}
\index{xv\_lat@{xv\_lat}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{xv\_lat}{xv\_lat}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), allocatable, public w\+\_\+mpi\+\_\+module\+\_\+base\+::xv\+\_\+lat}



分散座標緯度格子点, 2次元配列 



Definition at line 79 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{79 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: xv\_Lat(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), w\+\_\+base\+\_\+mpi\+\_\+initial(), w\+\_\+xv(), and xv\+\_\+w().

\mbox{\Hypertarget{namespacew__mpi__module__base_aae7c556f825b8898424456421c6b5564}\label{namespacew__mpi__module__base_aae7c556f825b8898424456421c6b5564}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!xv\_lon@{xv\_lon}}
\index{xv\_lon@{xv\_lon}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{xv\_lon}{xv\_lon}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), allocatable, public w\+\_\+mpi\+\_\+module\+\_\+base\+::xv\+\_\+lon}



分散座標経度格子点, 2次元配列 



Definition at line 77 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{77 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: xv\_Lon(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_aa21774d521bd62be2746c359c9e6ec9b}\label{namespacew__mpi__module__base_aa21774d521bd62be2746c359c9e6ec9b}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!xy\_lat@{xy\_lat}}
\index{xy\_lat@{xy\_lat}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{xy\_lat}{xy\_lat}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), allocatable, public w\+\_\+mpi\+\_\+module\+\_\+base\+::xy\+\_\+lat}



座標緯度格子点, 2次元配列 



Definition at line 83 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{83 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: xy\_Lat(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a944d0cb65b11e2709ec56f34e7da8e36}\label{namespacew__mpi__module__base_a944d0cb65b11e2709ec56f34e7da8e36}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!xy\_lon@{xy\_lon}}
\index{xy\_lon@{xy\_lon}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{xy\_lon}{xy\_lon}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), allocatable, public w\+\_\+mpi\+\_\+module\+\_\+base\+::xy\+\_\+lon}



座標経度格子点, 2次元配列 



Definition at line 81 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{81 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: xy\_Lon(:,:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a558a26a9e3991d3a1ee452a4558064ca}\label{namespacew__mpi__module__base_a558a26a9e3991d3a1ee452a4558064ca}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!y\_lat@{y\_lat}}
\index{y\_lat@{y\_lat}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{y\_lat}{y\_lat}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public w\+\_\+mpi\+\_\+module\+\_\+base\+::y\+\_\+lat}



緯度座標格子点 



Definition at line 73 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{73 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: y\_Lat(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespacew__mpi__module__base_a4786b3235b0aca80489c1eee6f3d03de}\label{namespacew__mpi__module__base_a4786b3235b0aca80489c1eee6f3d03de}} 
\index{w\_mpi\_module\_base@{w\_mpi\_module\_base}!y\_lat\_weight@{y\_lat\_weight}}
\index{y\_lat\_weight@{y\_lat\_weight}!w\_mpi\_module\_base@{w\_mpi\_module\_base}}
\doxysubsubsection{\texorpdfstring{y\_lat\_weight}{y\_lat\_weight}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public w\+\_\+mpi\+\_\+module\+\_\+base\+::y\+\_\+lat\+\_\+weight}



緯度座標格子点重み 



Definition at line 75 of file w\+\_\+mpi\+\_\+module\+\_\+base.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{75 \textcolor{keywordtype}{  real}(DP),   \textcolor{keywordtype}{allocatable} :: y\_Lat\_Weight(:)}

\end{DoxyCode}


Referenced by w\+\_\+base\+\_\+mpi\+\_\+finalize(), and w\+\_\+base\+\_\+mpi\+\_\+initial().

