\hypertarget{namespaceut__mpi__module}{}\doxysection{ut\+\_\+mpi\+\_\+module Module Reference}
\label{namespaceut__mpi__module}\index{ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsection*{Data Types}
\begin{DoxyCompactItemize}
\item 
interface \mbox{\hyperlink{interfaceut__mpi__module_1_1interpolate__ut}{interpolate\+\_\+ut}}
\item 
interface \mbox{\hyperlink{interfaceut__mpi__module_1_1ut__boundaries}{ut\+\_\+boundaries}}
\item 
interface \mbox{\hyperlink{interfaceut__mpi__module_1_1ut__laplapol2pol__ut}{ut\+\_\+laplapol2pol\+\_\+ut}}
\item 
interface \mbox{\hyperlink{interfaceut__mpi__module_1_1ut__polmagboundaries}{ut\+\_\+polmagboundaries}}
\item 
interface \mbox{\hyperlink{interfaceut__mpi__module_1_1ut__torboundaries}{ut\+\_\+torboundaries}}
\item 
interface \mbox{\hyperlink{interfaceut__mpi__module_1_1ut__tormagboundaries}{ut\+\_\+tormagboundaries}}
\end{DoxyCompactItemize}
\doxysubsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_a32191b0ca7f0560c7a537f00874f44c0}{ut\+\_\+mpi\+\_\+initial}} (i, j, k, n, l, r\+\_\+in, r\+\_\+out, np, npv)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a08265e5c8bcf526cadf141b451e00ba4}{ut\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1, jc, kc), public \mbox{\hyperlink{namespaceut__mpi__module_ae8269ff48efe3f37b1b76dc84ab49f67}{xvh\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_ad0fa09d6c61e41883e886e2d42cd67c6}{ut\+\_\+wh}} (wh)
\item 
real(dp) function, dimension(nc, kc), public \mbox{\hyperlink{namespaceut__mpi__module_a615a116c205ceb196afc3a0aa830d7da}{wh\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public \mbox{\hyperlink{namespaceut__mpi__module_a21720eb02213ecc3287c6855fe4ca394}{wz\+\_\+wh}} (wh)
\item 
real(dp) function, dimension(nc, kc), public \mbox{\hyperlink{namespaceut__mpi__module_ae273a1b08f56d4c6df3ee16dcf988937}{wh\+\_\+wz}} (wz)
\item 
real(dp) function, dimension(nc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public \mbox{\hyperlink{namespaceut__mpi__module_a30040985887362f7197a090cf5d62f8b}{wz\+\_\+wt}} (wt)
\item 
real(dp) function, dimension(nc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_ac5042b60eebc0c40913d3bef605db4bb}{wt\+\_\+wz}} (wz)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a05f2794fcdc6dd89fa374e0b2575a2cb}{ut\+\_\+wt}} (wt)
\item 
real(dp) function, dimension(nc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a1b02bd64052f82f6bfd30620a848f97b}{wt\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public \mbox{\hyperlink{namespaceut__mpi__module_a837d1641a05884eba9e349c194bbd04e}{uz\+\_\+wz}} (wz)
\item 
real(dp) function, dimension(nc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public \mbox{\hyperlink{namespaceut__mpi__module_a5341c7d9086cded4c0715764943288f6}{wz\+\_\+uz}} (uz)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public \mbox{\hyperlink{namespaceut__mpi__module_a44207e9f0a95033ef526372154b7dcda}{uz\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a724e777afeb1dc9b15e3ed20df5fd986}{ut\+\_\+uz}} (uz)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}) \mbox{\hyperlink{namespaceut__mpi__module_a9f7a70497f663ceb26b8af0efc06bf6d}{uz\+\_\+wh}} (wh)
\item 
real(dp) function, dimension(nc, kc) \mbox{\hyperlink{namespaceut__mpi__module_af5ed4de2a5c407c3471359f0f94f70a8}{wh\+\_\+uz}} (uz)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1, jc, kc), public \mbox{\hyperlink{namespaceut__mpi__module_a82a28f5ec0bea91780ba924b4d9d275f}{xvh\+\_\+gradlon\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1, jc, kc), public \mbox{\hyperlink{namespaceut__mpi__module_a180d647fa22a21b25b5f703bd3b6aa17}{xvh\+\_\+gradlat\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_ac6f444520ae73cff7e591317c10ff66b}{ut\+\_\+divlon\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a7aa8f1d85a541b53e55bd124797ff0d2}{ut\+\_\+divlat\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_ac5fa4bed64e51c1e52f49d146dfb02b1}{ut\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh}} (xvh\+\_\+\+Vlon, xvh\+\_\+\+Vlat, xvh\+\_\+\+Vrad)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1, jc, kc), public \mbox{\hyperlink{namespaceut__mpi__module_aca314b51fab6fd51eb6145e0a14d72d2}{xvh\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh}} (xvh\+\_\+\+Vlon, xvh\+\_\+\+Vlat, xvh\+\_\+\+Vrad)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1, jc, kc), public \mbox{\hyperlink{namespaceut__mpi__module_a78aca0397330153607a8b56cd0522b68}{xvh\+\_\+rotlon\+\_\+ut\+\_\+ut}} (ut\+\_\+\+Vrad, ut\+\_\+\+Vlat)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1, jc, kc), public \mbox{\hyperlink{namespaceut__mpi__module_a81f404ff0e5c36c210b56060dd0c9a8a}{xvh\+\_\+rotlat\+\_\+ut\+\_\+ut}} (ut\+\_\+\+Vlon, ut\+\_\+\+Vrad)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_acd04ffa883e63b52dd3c53376ac22296}{ut\+\_\+rotrad\+\_\+xvh\+\_\+xvh}} (xvh\+\_\+\+Vlat, xvh\+\_\+\+Vlon)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a1d581eb8d732be44ff4407f432b34806}{ut\+\_\+drad\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a8b1ac16a6b263fd2ac14774d348884e8}{ut\+\_\+divrad\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_aadbc3e9fb522e1bc419e0c95133ca371}{ut\+\_\+rotrad\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nmc, size(ua\+\_\+data, 2)), public \mbox{\hyperlink{namespaceut__mpi__module_a0c456da020a82625299556e38f09af9c}{ua\+\_\+laplah\+\_\+ua}} (ua\+\_\+data)
\item 
real(dp) function, dimension(nmc, size(ua\+\_\+data, 2)), public \mbox{\hyperlink{namespaceut__mpi__module_ab8bb92d5ff4bc9274778d7bd4c8c30ef}{ua\+\_\+laplahinv\+\_\+ua}} (ua\+\_\+data)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a555784ac52026af836b059e5455877e0}{ut\+\_\+lapla\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a29e1d25e7a719a649e71919a08892895}{ut\+\_\+l2\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a9c13b44212a45229669fd8bcbd53150b}{ut\+\_\+l2inv\+\_\+ut}} (ut)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_abd1b8c452b90f06c672c117b159b7826}{ut\+\_\+radrot\+\_\+xvh\+\_\+xvh}} (xvh\+\_\+\+V\+L\+ON, xvh\+\_\+\+V\+L\+AT)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_a3c928effe2fca32b2b549dce469e240b}{ut\+\_\+radrotrot\+\_\+xvh\+\_\+xvh\+\_\+xvh}} (xvh\+\_\+\+V\+L\+ON, xvh\+\_\+\+V\+L\+AT, xvh\+\_\+\+V\+R\+AD)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_ab033647ba6c157c68f27f66db1ad9827}{ut\+\_\+potential2vectormpi}} (xvh\+\_\+\+V\+L\+ON, xvh\+\_\+\+V\+L\+AT, xvh\+\_\+\+V\+R\+AD, ut\+\_\+\+T\+O\+R\+P\+OT, ut\+\_\+\+P\+O\+L\+P\+OT)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_afc3851a9c9fa51c1bb718e6464d8cf3b}{ut\+\_\+potential2rotationmpi}} (xvh\+\_\+\+Rot\+V\+L\+ON, xvh\+\_\+\+Rot\+V\+L\+AT, xvh\+\_\+\+Rot\+V\+R\+AD, ut\+\_\+\+T\+O\+R\+P\+OT, ut\+\_\+\+P\+O\+L\+P\+OT)
\item 
real(dp) function, dimension(jc, kc), public \mbox{\hyperlink{namespaceut__mpi__module_a4352fb9fdb38863a3b17cc3133c0e3c0}{vh\+\_\+intlon\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1, kc), public \mbox{\hyperlink{namespaceut__mpi__module_a21abf6ec1f5c9ba30c06dddb2eeae323}{xh\+\_\+intlat\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1, jc), public \mbox{\hyperlink{namespaceut__mpi__module_aeb92ef2970dc8494d35ab57cab968441}{xv\+\_\+intrad\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1), public \mbox{\hyperlink{namespaceut__mpi__module_ae270447c21b862fca04e281e9b8c4729}{x\+\_\+intlatrad\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(jc), public \mbox{\hyperlink{namespaceut__mpi__module_af4c15eb60325e5f2fec90ef0a2e57efb}{v\+\_\+intlonrad\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(kc), public \mbox{\hyperlink{namespaceut__mpi__module_a963138d061e8ec7feba8191266cedeed}{h\+\_\+intlonlat\+\_\+xvh}} (xvh)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceut__mpi__module_a464e073ad31dd8cf5d92dc96a71692cc}{intlonlatrad\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(kc), public \mbox{\hyperlink{namespaceut__mpi__module_ad42854400a93942d058293425eb6b55d}{h\+\_\+intlat\+\_\+vh}} (vh)
\item 
real(dp) function, dimension(jc), public \mbox{\hyperlink{namespaceut__mpi__module_a17bc6f31acab93462dd1f3d8dc88ad63}{v\+\_\+intrad\+\_\+vh}} (vh)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceut__mpi__module_a83fbd71e73f9991d9731c1893257daa2}{intlatrad\+\_\+vh}} (vh)
\item 
real(dp) function, dimension(kc), public \mbox{\hyperlink{namespaceut__mpi__module_a6044c11e723ea501e36d3773a5ddc18f}{h\+\_\+intlon\+\_\+xh}} (xh)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1), public \mbox{\hyperlink{namespaceut__mpi__module_a78a894eafe47af26a86eed1415d6ddba}{x\+\_\+intrad\+\_\+xh}} (xh)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceut__mpi__module_ae7648b5c56e7dc5491e3f48e337c6dd0}{intlonrad\+\_\+xh}} (xh)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceut__mpi__module_a55a5e421874d219c2c0177b6d3f3dbc8}{intrad\+\_\+h}} (h)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceut__mpi__module_a8388dc1b87c16373fc7701b4bbb5f082}{intrad\+\_\+z}} (z)
\item 
real(dp) function, dimension(jc, kc), public \mbox{\hyperlink{namespaceut__mpi__module_a0edcb15ca67d6d96126c2c2ac7151992}{vh\+\_\+avrlon\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}, kc), public \mbox{\hyperlink{namespaceut__mpi__module_ad6be669f16c9f4f2b155cf5047eca74f}{xh\+\_\+avrlat\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1, jc), public \mbox{\hyperlink{namespaceut__mpi__module_a5d7d0283f7087b09d9f9b29b56dd4b93}{xv\+\_\+avrrad\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1), public \mbox{\hyperlink{namespaceut__mpi__module_a49ee30b758bf36d6f856eaddfd5585b4}{x\+\_\+avrlatrad\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(jc), public \mbox{\hyperlink{namespaceut__mpi__module_a7456474fd32c19d1b3bc10a061bb8c7f}{v\+\_\+avrlonrad\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(kc), public \mbox{\hyperlink{namespaceut__mpi__module_add4e76f1eecde83f361fea5391c6b5de}{h\+\_\+avrlonlat\+\_\+xvh}} (xvh)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceut__mpi__module_a5f9ad2ade6ff14ba75d3f4fb6f74f28d}{avrlonlatrad\+\_\+xvh}} (xvh)
\item 
real(dp) function, dimension(kc), public \mbox{\hyperlink{namespaceut__mpi__module_a4d925aa2afc4ab9a1419c25001e06447}{h\+\_\+avrlat\+\_\+vh}} (vh)
\item 
real(dp) function, dimension(jc), public \mbox{\hyperlink{namespaceut__mpi__module_a5b2ceefd9dfaa541115525c9bd3a6e7a}{v\+\_\+avrrad\+\_\+vh}} (vh)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceut__mpi__module_a34f2f3ee13d45fb3ca0cd619b9773cc7}{avrlatrad\+\_\+vh}} (vh)
\item 
real(dp) function, dimension(kc), public \mbox{\hyperlink{namespaceut__mpi__module_ab44efc0500a109b7c390008b95e567a3}{h\+\_\+avrlon\+\_\+xh}} (xh)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1), public \mbox{\hyperlink{namespaceut__mpi__module_a9a64b8edac4a400182fcdfe3922ae0c8}{x\+\_\+avrrad\+\_\+xh}} (xh)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceut__mpi__module_a6c9ecb89f909b6ce3553a30a3328e179}{avrlonrad\+\_\+xh}} (xh)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceut__mpi__module_a464bd541b3063f1f5388e65eccccc783}{avrrad\+\_\+h}} (h)
\item 
real(dp) function, public \mbox{\hyperlink{namespaceut__mpi__module_a3d9e5496ca30656e2d371bec4b763cf2}{avrrad\+\_\+z}} (z)
\item 
real(dp) function \mbox{\hyperlink{namespaceut__mpi__module_a51c54771b585c5339a15a665bbc4c578}{interpolate\+\_\+array000\+\_\+ut}} (ut\+\_\+data, alon, alat, arad)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}{nm}},-\/nm\+:nm, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public \mbox{\hyperlink{namespaceut__mpi__module_a19fa52fd395bdc6fbcb5ca9ea87d4166}{nmz\+\_\+toroidalenergyspectrum\+\_\+ut}} (ut\+\_\+\+T\+O\+R\+P\+OT)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}{nm}}, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public \mbox{\hyperlink{namespaceut__mpi__module_a94caa9b0be8c047fa7171796685908a9}{nz\+\_\+toroidalenergyspectrum\+\_\+ut}} (ut\+\_\+\+T\+O\+R\+P\+OT)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}{nm}},-\/nm\+:nm, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public \mbox{\hyperlink{namespaceut__mpi__module_a053ca4217fb17a6c66b5712059f90237}{nmz\+\_\+poloidalenergyspectrum\+\_\+ut}} (ut\+\_\+\+P\+O\+L\+P\+OT)
\item 
real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}{nm}}, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public \mbox{\hyperlink{namespaceut__mpi__module_acd3b4b24dfaf01c365d9adbcbb637898}{nz\+\_\+poloidalenergyspectrum\+\_\+ut}} (ut\+\_\+\+P\+O\+L\+P\+OT)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_a3713a311f89ae3bfb0618773aef5c1c9}{ut\+\_\+boundariestau}} (ut, values, cond)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_a3a5ac97580cc297d5b1573b95d0d2aea}{ut\+\_\+boundariesgrid}} (ut, values, cond)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_afff8654c7604a675eec2df64ec12bd2b}{ut\+\_\+torboundariestau}} (ut\+\_\+\+T\+O\+R\+P\+OT, values, cond, new)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_a18c4dba53683ba320726b16750dfb459}{ut\+\_\+torboundariesgrid}} (ut\+\_\+\+T\+O\+R\+P\+OT, values, cond, new)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public \mbox{\hyperlink{namespaceut__mpi__module_a7dbe6d500795b0d458b504045a8a2a78}{uz\+\_\+laplapol2pol\+\_\+uz}} (uz, cond, new)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_adbae848ef0b494d5a32cce10cb6ad98f}{ut\+\_\+laplapol2poltau\+\_\+ut}} (ut, cond, new)
\item 
real(dp) function, dimension(nmc, 0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public \mbox{\hyperlink{namespaceut__mpi__module_acfac93434de7671be57f901202543c18}{ut\+\_\+laplapol2polgrid\+\_\+ut}} (ut, cond, new)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_aa09728f6be56b839139b514227d2fc75}{ut\+\_\+tormagboundariestau}} (ut\+\_\+\+T\+OR, new)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_a5ea3e05e5975fa3ae45bd0105b81a30a}{ut\+\_\+tormagboundariesgrid}} (ut\+\_\+\+T\+OR, new)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_acd00abc66819e03587fd78d1b5f69c52}{ut\+\_\+polmagboundariestau}} (ut\+\_\+\+P\+OL, new)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_ae86900d2296f8af82b92d277eccd467e}{ut\+\_\+polmagboundariesgrid}} (ut\+\_\+\+P\+OL, new)
\item 
subroutine, public \mbox{\hyperlink{namespaceut__mpi__module_a850ff82982733303587cf87072eaf1bb}{ut\+\_\+mpi\+\_\+finalize}}
\end{DoxyCompactItemize}
\doxysubsection*{Variables}
\begin{DoxyCompactItemize}
\item 
integer, save \mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}} =64
\item 
integer, save \mbox{\hyperlink{namespaceut__mpi__module_aeee889cb8b9fbe10fab89d727892fa20}{jm}} =32
\item 
integer, save \mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}} =16
\item 
integer, save \mbox{\hyperlink{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}{nm}} =21
\item 
integer, save \mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}} =16
\item 
real(dp), save \mbox{\hyperlink{namespaceut__mpi__module_aba1083b125c9f783302a3b1e13e4a385}{ri}} =0.\+0
\item 
real(dp), save \mbox{\hyperlink{namespaceut__mpi__module_ab2207b4cad3404d007a29227f33c45e7}{ro}} =1.\+0
\item 
real(dp), parameter \mbox{\hyperlink{namespaceut__mpi__module_a2f945511a9f4273408ecb425375e873f}{pi}} =3.\+1415926535897932385D0
\item 
real(dp), dimension(\+:,\+:,\+:), allocatable, public \mbox{\hyperlink{namespaceut__mpi__module_a06a72aa6fbff842afbdd93532235f05f}{xvh\+\_\+lon}}
\item 
real(dp), dimension(\+:,\+:,\+:), allocatable, public \mbox{\hyperlink{namespaceut__mpi__module_a2a7dc1c6e45ea5e4867ae67678fc33f9}{xvh\+\_\+lat}}
\item 
real(dp), dimension(\+:,\+:,\+:), allocatable, public \mbox{\hyperlink{namespaceut__mpi__module_aeef4370123da90ecf087e79141a479f2}{xvh\+\_\+rad}}
\item 
real(dp), dimension(\+:,\+:), allocatable, public \mbox{\hyperlink{namespaceut__mpi__module_a87e821c02649c81d5ceb46a4b00bf256}{wh\+\_\+rad}}
\item 
real(dp), dimension(\+:,\+:), allocatable, public \mbox{\hyperlink{namespaceut__mpi__module_a14acbdd359394865ddbf8860897295cd}{uz\+\_\+rad}}
\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespaceut__mpi__module_a19f62f105aab496d228e5d975acfd9e6}{h\+\_\+rad}}
\item 
real(dp), dimension(\+:), allocatable, public \mbox{\hyperlink{namespaceut__mpi__module_a120aed41e8a3e9c431f555e983bc778b}{h\+\_\+rad\+\_\+weight}}
\item 
real(dp), save, public \mbox{\hyperlink{namespaceut__mpi__module_aa9f687d105a67d8f5931513f96fc70aa}{ut\+\_\+vmiss}} = -\/999.\+0
\end{DoxyCompactItemize}


\doxysubsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{namespaceut__mpi__module_a34f2f3ee13d45fb3ca0cd619b9773cc7}\label{namespaceut__mpi__module_a34f2f3ee13d45fb3ca0cd619b9773cc7}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!avrlatrad\_vh@{avrlatrad\_vh}}
\index{avrlatrad\_vh@{avrlatrad\_vh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{avrlatrad\_vh()}{avrlatrad\_vh()}}
{\footnotesize\ttfamily real(dp) function, public ut\+\_\+mpi\+\_\+module\+::avrlatrad\+\_\+vh (\begin{DoxyParamCaption}\item[{real(dp), dimension(jc,kc), intent(in)}]{vh }\end{DoxyParamCaption})}



Definition at line 1944 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1944       \textcolor{comment}{!}}
\DoxyCodeLine{1945       \textcolor{comment}{! 2 次元(VH)格子点データの緯度動径(子午面)平均}}
\DoxyCodeLine{1946       \textcolor{comment}{!}}
\DoxyCodeLine{1947       \textcolor{comment}{! 2 次元データ f(φ,r) に対して}}
\DoxyCodeLine{1948       \textcolor{comment}{!}}
\DoxyCodeLine{1949       \textcolor{comment}{!    ∫f(φ,r) r\string^2cosφ dφdr /(2(r[o]\string^3-\/r[i]\string^3)/3)}}
\DoxyCodeLine{1950       \textcolor{comment}{!}}
\DoxyCodeLine{1951       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1952       \textcolor{comment}{!}}
\DoxyCodeLine{1953 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc,kc)}, \textcolor{keywordtype}{intent(in)} :: vh}
\DoxyCodeLine{1954       \textcolor{comment}{!(in) 2 次元緯度動径(子午面)格子点データ}}
\DoxyCodeLine{1955 }
\DoxyCodeLine{1956 \textcolor{keywordtype}{      real}(DP)                   :: AvrLatRad\_vh}
\DoxyCodeLine{1957       \textcolor{comment}{!(out) 平均値}}
\DoxyCodeLine{1958 }
\DoxyCodeLine{1959       avrlatrad\_vh = intlatrad\_vh(vh)/(sum(y\_lat\_weight)*sum(z\_rad\_weight))}
\DoxyCodeLine{1960 }

\end{DoxyCode}


References intlatrad\+\_\+vh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a34f2f3ee13d45fb3ca0cd619b9773cc7_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a5f9ad2ade6ff14ba75d3f4fb6f74f28d}\label{namespaceut__mpi__module_a5f9ad2ade6ff14ba75d3f4fb6f74f28d}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!avrlonlatrad\_xvh@{avrlonlatrad\_xvh}}
\index{avrlonlatrad\_xvh@{avrlonlatrad\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{avrlonlatrad\_xvh()}{avrlonlatrad\_xvh()}}
{\footnotesize\ttfamily real(dp) function, public ut\+\_\+mpi\+\_\+module\+::avrlonlatrad\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1890 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1890       \textcolor{comment}{!}}
\DoxyCodeLine{1891       \textcolor{comment}{! 3 次元格子点データの緯度経度動径(全球)積分}}
\DoxyCodeLine{1892       \textcolor{comment}{!}}
\DoxyCodeLine{1893       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して}}
\DoxyCodeLine{1894       \textcolor{comment}{!}}
\DoxyCodeLine{1895       \textcolor{comment}{!    ∫f(λ,φ,r) r\string^2cosφ dλdφdr /(4π(r[o]\string^3-\/r[i]\string^3)/3)}}
\DoxyCodeLine{1896       \textcolor{comment}{!}}
\DoxyCodeLine{1897       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1898       \textcolor{comment}{!}}
\DoxyCodeLine{1899 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1900       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1901 }
\DoxyCodeLine{1902 \textcolor{keywordtype}{      real}(DP)                     :: AvrLonLatRad\_xvh}
\DoxyCodeLine{1903       \textcolor{comment}{!(out) 全球平均値}}
\DoxyCodeLine{1904 }
\DoxyCodeLine{1905       avrlonlatrad\_xvh = intlonlatrad\_xvh(xvh) \&}
\DoxyCodeLine{1906             /(sum(x\_lon\_weight)*sum(y\_lat\_weight) * sum(z\_rad\_weight))}
\DoxyCodeLine{1907 }

\end{DoxyCode}


References intlonlatrad\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a5f9ad2ade6ff14ba75d3f4fb6f74f28d_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a6c9ecb89f909b6ce3553a30a3328e179}\label{namespaceut__mpi__module_a6c9ecb89f909b6ce3553a30a3328e179}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!avrlonrad\_xh@{avrlonrad\_xh}}
\index{avrlonrad\_xh@{avrlonrad\_xh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{avrlonrad\_xh()}{avrlonrad\_xh()}}
{\footnotesize\ttfamily real(dp) function, public ut\+\_\+mpi\+\_\+module\+::avrlonrad\+\_\+xh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,kc), intent(in)}]{xh }\end{DoxyParamCaption})}



Definition at line 2001 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2001       \textcolor{comment}{!}}
\DoxyCodeLine{2002       \textcolor{comment}{! 2 次元(XH)格子点データの経度動径平均}}
\DoxyCodeLine{2003       \textcolor{comment}{!}}
\DoxyCodeLine{2004       \textcolor{comment}{! 2 次元データ f(λ,r) に対して}}
\DoxyCodeLine{2005       \textcolor{comment}{!}}
\DoxyCodeLine{2006       \textcolor{comment}{!    ∫f(λ,r) r\string^2dλdr /(2π(r[o]\string^3-\/r[i]\string^3)/3)}}
\DoxyCodeLine{2007       \textcolor{comment}{!}}
\DoxyCodeLine{2008       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{2009       \textcolor{comment}{!}}
\DoxyCodeLine{2010 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,kc)}, \textcolor{keywordtype}{intent(in)} :: xh}
\DoxyCodeLine{2011       \textcolor{comment}{! (in) 2 次元格子点データ}}
\DoxyCodeLine{2012 \textcolor{keywordtype}{      real}(DP)                                 :: AvrLonRad\_xh}
\DoxyCodeLine{2013       \textcolor{comment}{! 積分値}}
\DoxyCodeLine{2014 }
\DoxyCodeLine{2015       avrlonrad\_xh = intlonrad\_xh(xh)/(sum(x\_lon\_weight)*sum(z\_rad\_weight))}
\DoxyCodeLine{2016 }

\end{DoxyCode}


References intlonrad\+\_\+xh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a6c9ecb89f909b6ce3553a30a3328e179_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a464bd541b3063f1f5388e65eccccc783}\label{namespaceut__mpi__module_a464bd541b3063f1f5388e65eccccc783}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!avrrad\_h@{avrrad\_h}}
\index{avrrad\_h@{avrrad\_h}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{avrrad\_h()}{avrrad\_h()}}
{\footnotesize\ttfamily real(dp) function, public ut\+\_\+mpi\+\_\+module\+::avrrad\+\_\+h (\begin{DoxyParamCaption}\item[{real(dp), dimension(kc), intent(in)}]{h }\end{DoxyParamCaption})}



Definition at line 2021 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2021       \textcolor{comment}{!}}
\DoxyCodeLine{2022       \textcolor{comment}{! 1 次元(Z)格子点データの動径方向域平均.}}
\DoxyCodeLine{2023       \textcolor{comment}{!}}
\DoxyCodeLine{2024       \textcolor{comment}{! 1 次元データ f(r) に対して ∫f(r) r\string^2dr /((r[o]\string^3-\/r[i]\string^3)/3) を}}
\DoxyCodeLine{2025       \textcolor{comment}{! 計算する.}}
\DoxyCodeLine{2026       \textcolor{comment}{!}}
\DoxyCodeLine{2027 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(kc)}, \textcolor{keywordtype}{intent(in)} :: h}
\DoxyCodeLine{2028       \textcolor{comment}{!(in) 1 次元動径格子点データ}}
\DoxyCodeLine{2029 \textcolor{keywordtype}{      real}(DP)                            :: AvrRad\_h}
\DoxyCodeLine{2030       \textcolor{comment}{!(out) 平均値}}
\DoxyCodeLine{2031 }
\DoxyCodeLine{2032       avrrad\_h = intrad\_h(h)/sum(z\_rad\_weight)}
\DoxyCodeLine{2033 }

\end{DoxyCode}


References intrad\+\_\+h().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a464bd541b3063f1f5388e65eccccc783_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a3d9e5496ca30656e2d371bec4b763cf2}\label{namespaceut__mpi__module_a3d9e5496ca30656e2d371bec4b763cf2}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!avrrad\_z@{avrrad\_z}}
\index{avrrad\_z@{avrrad\_z}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{avrrad\_z()}{avrrad\_z()}}
{\footnotesize\ttfamily real(dp) function, public ut\+\_\+mpi\+\_\+module\+::avrrad\+\_\+z (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), intent(in)}]{z }\end{DoxyParamCaption})}



Definition at line 2037 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2037       \textcolor{comment}{!}}
\DoxyCodeLine{2038       \textcolor{comment}{! 1 次元(Z)格子点データの動径方向域平均.}}
\DoxyCodeLine{2039       \textcolor{comment}{!}}
\DoxyCodeLine{2040       \textcolor{comment}{! 1 次元データ f(r) に対して ∫f(r) r\string^2dr /((r[o]\string^3-\/r[i]\string^3)/3) を}}
\DoxyCodeLine{2041       \textcolor{comment}{! 計算する.}}
\DoxyCodeLine{2042       \textcolor{comment}{!}}
\DoxyCodeLine{2043 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:km)}, \textcolor{keywordtype}{intent(in)} :: z}
\DoxyCodeLine{2044       \textcolor{comment}{!(in) 1 次元動径格子点データ}}
\DoxyCodeLine{2045 \textcolor{keywordtype}{      real}(DP)                            :: AvrRad\_z}
\DoxyCodeLine{2046       \textcolor{comment}{!(out) 平均値}}
\DoxyCodeLine{2047 }
\DoxyCodeLine{2048       avrrad\_z = intrad\_z(z)/sum(z\_rad\_weight)}
\DoxyCodeLine{2049 }

\end{DoxyCode}


References intrad\+\_\+z().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a3d9e5496ca30656e2d371bec4b763cf2_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a4d925aa2afc4ab9a1419c25001e06447}\label{namespaceut__mpi__module_a4d925aa2afc4ab9a1419c25001e06447}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!h\_avrlat\_vh@{h\_avrlat\_vh}}
\index{h\_avrlat\_vh@{h\_avrlat\_vh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{h\_avrlat\_vh()}{h\_avrlat\_vh()}}
{\footnotesize\ttfamily real(dp) function, dimension(kc), public ut\+\_\+mpi\+\_\+module\+::h\+\_\+avrlat\+\_\+vh (\begin{DoxyParamCaption}\item[{real(dp), dimension(jc,kc), intent(in)}]{vh }\end{DoxyParamCaption})}



Definition at line 1912 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1912       \textcolor{comment}{!}}
\DoxyCodeLine{1913       \textcolor{comment}{! 2 次元(VH)格子点データの緯度方向域平均.}}
\DoxyCodeLine{1914       \textcolor{comment}{!}}
\DoxyCodeLine{1915       \textcolor{comment}{! 2 次元データ f(φ,r) に対して ∫f(φ,r) cosφ dφ/2 を計算する.}}
\DoxyCodeLine{1916       \textcolor{comment}{!}}
\DoxyCodeLine{1917 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc,kc)}, \textcolor{keywordtype}{intent(in)} :: vh}
\DoxyCodeLine{1918       \textcolor{comment}{!(in) 2 次元緯度動径(子午面)格子点データ}}
\DoxyCodeLine{1919 }
\DoxyCodeLine{1920 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(kc)}  :: h\_AvrLat\_vh}
\DoxyCodeLine{1921       \textcolor{comment}{!(out) 緯度平均された 1 次元動径格子点データ}}
\DoxyCodeLine{1922 }
\DoxyCodeLine{1923       h\_avrlat\_vh = h\_intlat\_vh(vh)/sum(y\_lat\_weight)}

\end{DoxyCode}


References h\+\_\+intlat\+\_\+vh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a4d925aa2afc4ab9a1419c25001e06447_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ab44efc0500a109b7c390008b95e567a3}\label{namespaceut__mpi__module_ab44efc0500a109b7c390008b95e567a3}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!h\_avrlon\_xh@{h\_avrlon\_xh}}
\index{h\_avrlon\_xh@{h\_avrlon\_xh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{h\_avrlon\_xh()}{h\_avrlon\_xh()}}
{\footnotesize\ttfamily real(dp) function, dimension(kc), public ut\+\_\+mpi\+\_\+module\+::h\+\_\+avrlon\+\_\+xh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,kc), intent(in)}]{xh }\end{DoxyParamCaption})}



Definition at line 1965 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1965       \textcolor{comment}{!}}
\DoxyCodeLine{1966       \textcolor{comment}{! 2 次元(XH)格子点データの経度方向平均.}}
\DoxyCodeLine{1967       \textcolor{comment}{!}}
\DoxyCodeLine{1968       \textcolor{comment}{! 2 次元データ f(λ,r) に対して ∫f(λ,r)dλ/2π を計算する.}}
\DoxyCodeLine{1969       \textcolor{comment}{!}}
\DoxyCodeLine{1970 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,kc)}, \textcolor{keywordtype}{intent(in)} :: xh}
\DoxyCodeLine{1971       \textcolor{comment}{!(in) 2 次元緯度動径格子点データ}}
\DoxyCodeLine{1972 }
\DoxyCodeLine{1973 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(kc)}  :: h\_AvrLon\_xh}
\DoxyCodeLine{1974       \textcolor{comment}{!(out) 経度平均された 1 次元動径格子点データ}}
\DoxyCodeLine{1975 }
\DoxyCodeLine{1976       h\_avrlon\_xh = h\_intlon\_xh(xh)/sum(x\_lon\_weight)}
\DoxyCodeLine{1977 }

\end{DoxyCode}


References h\+\_\+intlon\+\_\+xh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ab44efc0500a109b7c390008b95e567a3_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_add4e76f1eecde83f361fea5391c6b5de}\label{namespaceut__mpi__module_add4e76f1eecde83f361fea5391c6b5de}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!h\_avrlonlat\_xvh@{h\_avrlonlat\_xvh}}
\index{h\_avrlonlat\_xvh@{h\_avrlonlat\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{h\_avrlonlat\_xvh()}{h\_avrlonlat\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(kc), public ut\+\_\+mpi\+\_\+module\+::h\+\_\+avrlonlat\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1869 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1869       \textcolor{comment}{!}}
\DoxyCodeLine{1870       \textcolor{comment}{! 3 次元格子点データの緯度経度(水平, 球面)積分}}
\DoxyCodeLine{1871       \textcolor{comment}{!}}
\DoxyCodeLine{1872       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して}}
\DoxyCodeLine{1873       \textcolor{comment}{!}}
\DoxyCodeLine{1874       \textcolor{comment}{!    ∫f(λ,φ,r) cosφ dλdφ /4π}}
\DoxyCodeLine{1875       \textcolor{comment}{!}}
\DoxyCodeLine{1876       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1877       \textcolor{comment}{!}}
\DoxyCodeLine{1878 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1879       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1880 }
\DoxyCodeLine{1881 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(kc)}     :: h\_AvrLonLat\_xvh}
\DoxyCodeLine{1882       \textcolor{comment}{!(out) 緯度経度(水平, 球面)平均された 1 次元動径格子点データ}}
\DoxyCodeLine{1883 }
\DoxyCodeLine{1884       h\_avrlonlat\_xvh = h\_intlonlat\_xvh(xvh) \&}
\DoxyCodeLine{1885                  /(sum(x\_lon\_weight)*sum(y\_lat\_weight))}
\DoxyCodeLine{1886 }

\end{DoxyCode}


References h\+\_\+intlonlat\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_add4e76f1eecde83f361fea5391c6b5de_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ad42854400a93942d058293425eb6b55d}\label{namespaceut__mpi__module_ad42854400a93942d058293425eb6b55d}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!h\_intlat\_vh@{h\_intlat\_vh}}
\index{h\_intlat\_vh@{h\_intlat\_vh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{h\_intlat\_vh()}{h\_intlat\_vh()}}
{\footnotesize\ttfamily real(dp) function, dimension(kc), public ut\+\_\+mpi\+\_\+module\+::h\+\_\+intlat\+\_\+vh (\begin{DoxyParamCaption}\item[{real(dp), dimension(jc,kc), intent(in)}]{vh }\end{DoxyParamCaption})}



Definition at line 1614 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1614       \textcolor{comment}{!}}
\DoxyCodeLine{1615       \textcolor{comment}{! 2 次元(VZ)格子点データの緯度方向域積分.}}
\DoxyCodeLine{1616       \textcolor{comment}{!}}
\DoxyCodeLine{1617       \textcolor{comment}{! 2 次元データ f(φ,r) に対して∫f(φ,r) cosφ dφ を計算する.}}
\DoxyCodeLine{1618       \textcolor{comment}{!}}
\DoxyCodeLine{1619 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc,kc)}, \textcolor{keywordtype}{intent(in)} :: vh}
\DoxyCodeLine{1620       \textcolor{comment}{!(in) 2 次元緯度動径(子午面)格子点データ}}
\DoxyCodeLine{1621 }
\DoxyCodeLine{1622 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(kc)}  :: h\_IntLat\_vh}
\DoxyCodeLine{1623       \textcolor{comment}{!(out) 緯度積分された 1 次元動径格子点データ}}
\DoxyCodeLine{1624 }
\DoxyCodeLine{1625       h\_intlat\_vh = b\_intlat\_vb(vh)}
\DoxyCodeLine{1626 }

\end{DoxyCode}


Referenced by h\+\_\+avrlat\+\_\+vh().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ad42854400a93942d058293425eb6b55d_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a6044c11e723ea501e36d3773a5ddc18f}\label{namespaceut__mpi__module_a6044c11e723ea501e36d3773a5ddc18f}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!h\_intlon\_xh@{h\_intlon\_xh}}
\index{h\_intlon\_xh@{h\_intlon\_xh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{h\_intlon\_xh()}{h\_intlon\_xh()}}
{\footnotesize\ttfamily real(dp) function, dimension(kc), public ut\+\_\+mpi\+\_\+module\+::h\+\_\+intlon\+\_\+xh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,kc), intent(in)}]{xh }\end{DoxyParamCaption})}



Definition at line 1668 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1668       \textcolor{comment}{!}}
\DoxyCodeLine{1669       \textcolor{comment}{! 2 次元(XH)格子点データの経度方向積分.}}
\DoxyCodeLine{1670       \textcolor{comment}{!}}
\DoxyCodeLine{1671       \textcolor{comment}{! 2 次元データ f(λ,r) に対して ∫f(λ,r)dλ を計算する.}}
\DoxyCodeLine{1672       \textcolor{comment}{!}}
\DoxyCodeLine{1673 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,kc)}, \textcolor{keywordtype}{intent(in)} :: xh}
\DoxyCodeLine{1674       \textcolor{comment}{!(in) 2 次元緯度動径格子点データ}}
\DoxyCodeLine{1675 }
\DoxyCodeLine{1676 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(kc)}  :: h\_IntLon\_xh}
\DoxyCodeLine{1677       \textcolor{comment}{!(out) 経度積分された 1 次元動径格子点データ}}
\DoxyCodeLine{1678 }
\DoxyCodeLine{1679       \textcolor{keywordtype}{integer} :: i}
\DoxyCodeLine{1680 }
\DoxyCodeLine{1681       h\_intlon\_xh = 0.0d0}
\DoxyCodeLine{1682       \textcolor{keywordflow}{do} i=0,im-\/1}
\DoxyCodeLine{1683          h\_intlon\_xh = h\_intlon\_xh + xh(i,:) * x\_lon\_weight(i)}
\DoxyCodeLine{1684 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{1685 }

\end{DoxyCode}


References at\+\_\+module\+::im.



Referenced by h\+\_\+avrlon\+\_\+xh().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a6044c11e723ea501e36d3773a5ddc18f_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a963138d061e8ec7feba8191266cedeed}\label{namespaceut__mpi__module_a963138d061e8ec7feba8191266cedeed}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!h\_intlonlat\_xvh@{h\_intlonlat\_xvh}}
\index{h\_intlonlat\_xvh@{h\_intlonlat\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{h\_intlonlat\_xvh()}{h\_intlonlat\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(kc), public ut\+\_\+mpi\+\_\+module\+::h\+\_\+intlonlat\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1573 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1573       \textcolor{comment}{!}}
\DoxyCodeLine{1574       \textcolor{comment}{! 3 次元格子点データの緯度経度(水平, 球面)積分}}
\DoxyCodeLine{1575       \textcolor{comment}{!}}
\DoxyCodeLine{1576       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して}}
\DoxyCodeLine{1577       \textcolor{comment}{!}}
\DoxyCodeLine{1578       \textcolor{comment}{!    ∫f(λ,φ,r) cosφ dλdφ}}
\DoxyCodeLine{1579       \textcolor{comment}{!}}
\DoxyCodeLine{1580       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1581       \textcolor{comment}{!}}
\DoxyCodeLine{1582 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1583       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1584 }
\DoxyCodeLine{1585 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(kc)}     :: h\_IntLonLat\_xvh}
\DoxyCodeLine{1586       \textcolor{comment}{!(out) 緯度経度(水平, 球面)積分された 1 次元動径格子点データ}}
\DoxyCodeLine{1587 }
\DoxyCodeLine{1588       h\_intlonlat\_xvh = b\_intlonlat\_xvb(xvh)}
\DoxyCodeLine{1589 }

\end{DoxyCode}


Referenced by h\+\_\+avrlonlat\+\_\+xvh().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a963138d061e8ec7feba8191266cedeed_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a51c54771b585c5339a15a665bbc4c578}\label{namespaceut__mpi__module_a51c54771b585c5339a15a665bbc4c578}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!interpolate\_array000\_ut@{interpolate\_array000\_ut}}
\index{interpolate\_array000\_ut@{interpolate\_array000\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{interpolate\_array000\_ut()}{interpolate\_array000\_ut()}}
{\footnotesize\ttfamily real(dp) function ut\+\_\+mpi\+\_\+module\+::interpolate\+\_\+array000\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+data,  }\item[{real(dp), intent(in)}]{alon,  }\item[{real(dp), intent(in)}]{alat,  }\item[{real(dp), intent(in)}]{arad }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 2054 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2054       \textcolor{comment}{!}}
\DoxyCodeLine{2055       \textcolor{comment}{! 緯度 alon, 経度 alat 動径 arad における関数値を}}
\DoxyCodeLine{2056       \textcolor{comment}{! その球面調和変換係数 wa\_data から補間計算する}}
\DoxyCodeLine{2057       \textcolor{comment}{!}}
\DoxyCodeLine{2058 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{intent(IN)} :: ut\_data(nmc,0:lm)         \textcolor{comment}{! スペクトルデータ}}
\DoxyCodeLine{2059 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{intent(IN)} :: alon                     \textcolor{comment}{! 補間する位置(経度)}}
\DoxyCodeLine{2060 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{intent(IN)} :: alat                     \textcolor{comment}{! 補間する位置(緯度)}}
\DoxyCodeLine{2061 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{intent(IN)} :: arad                     \textcolor{comment}{! 補間する位置(動径)}}
\DoxyCodeLine{2062 \textcolor{keywordtype}{      real}(DP) :: Interpolate\_array000\_ut              \textcolor{comment}{! 補間した値}}
\DoxyCodeLine{2063 }
\DoxyCodeLine{2064 \textcolor{keywordtype}{      real}(DP) :: wa\_data(nc,1)                  \textcolor{comment}{! 補間した値}}
\DoxyCodeLine{2065 }
\DoxyCodeLine{2066       wa\_data = wa\_ua(reshape(a\_interpolate\_at(ut\_data,arad),(/nmc,1/)))}
\DoxyCodeLine{2067       interpolate\_array000\_ut = interpolate\_w(wa\_data(:,1),alon,alat)}
\DoxyCodeLine{2068 }

\end{DoxyCode}


References at\+\_\+module\+::a\+\_\+interpolate\+\_\+at().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a51c54771b585c5339a15a665bbc4c578_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a83fbd71e73f9991d9731c1893257daa2}\label{namespaceut__mpi__module_a83fbd71e73f9991d9731c1893257daa2}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!intlatrad\_vh@{intlatrad\_vh}}
\index{intlatrad\_vh@{intlatrad\_vh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{intlatrad\_vh()}{intlatrad\_vh()}}
{\footnotesize\ttfamily real(dp) function, public ut\+\_\+mpi\+\_\+module\+::intlatrad\+\_\+vh (\begin{DoxyParamCaption}\item[{real(dp), dimension(jc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), intent(in)}]{vh }\end{DoxyParamCaption})}



Definition at line 1650 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1650       \textcolor{comment}{!}}
\DoxyCodeLine{1651       \textcolor{comment}{! 2 次元(VH)格子点データの緯度動径積分(子午面)および平均}}
\DoxyCodeLine{1652       \textcolor{comment}{!}}
\DoxyCodeLine{1653       \textcolor{comment}{! 2 次元データ f(φ,r) に対して ∫f(φ,r) r\string^2cosφ dφdr を計算する.}}
\DoxyCodeLine{1654       \textcolor{comment}{!}}
\DoxyCodeLine{1655 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc,0:km)}, \textcolor{keywordtype}{intent(in)} :: vh}
\DoxyCodeLine{1656       \textcolor{comment}{!(in) 2 次元緯度動径(子午面)格子点データ}}
\DoxyCodeLine{1657 }
\DoxyCodeLine{1658 \textcolor{keywordtype}{      real}(DP)                   :: IntLatRad\_vh}
\DoxyCodeLine{1659       \textcolor{comment}{!(out) 積分値}}
\DoxyCodeLine{1660 }
\DoxyCodeLine{1661       \textcolor{comment}{!IntLatRad\_vh = IntRad\_h(b\_IntLat\_vb(vh))}}
\DoxyCodeLine{1662       intlatrad\_vh = intlat\_v(v\_intrad\_vh(vh))}
\DoxyCodeLine{1663 }

\end{DoxyCode}


References v\+\_\+intrad\+\_\+vh().



Referenced by avrlatrad\+\_\+vh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a83fbd71e73f9991d9731c1893257daa2_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a83fbd71e73f9991d9731c1893257daa2_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a464e073ad31dd8cf5d92dc96a71692cc}\label{namespaceut__mpi__module_a464e073ad31dd8cf5d92dc96a71692cc}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!intlonlatrad\_xvh@{intlonlatrad\_xvh}}
\index{intlonlatrad\_xvh@{intlonlatrad\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{intlonlatrad\_xvh()}{intlonlatrad\_xvh()}}
{\footnotesize\ttfamily real(dp) function, public ut\+\_\+mpi\+\_\+module\+::intlonlatrad\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1593 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1593       \textcolor{comment}{!}}
\DoxyCodeLine{1594       \textcolor{comment}{! 3 次元格子点データの緯度経度動径(全球)積分}}
\DoxyCodeLine{1595       \textcolor{comment}{!}}
\DoxyCodeLine{1596       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して}}
\DoxyCodeLine{1597       \textcolor{comment}{!}}
\DoxyCodeLine{1598       \textcolor{comment}{!     ∫f(λ,φ,r) r\string^2cosφ dλdφdr}}
\DoxyCodeLine{1599       \textcolor{comment}{!}}
\DoxyCodeLine{1600       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1601       \textcolor{comment}{!}}
\DoxyCodeLine{1602 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1603       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1604 }
\DoxyCodeLine{1605 \textcolor{keywordtype}{      real}(DP)                     :: IntLonLatRad\_xvh}
\DoxyCodeLine{1606       \textcolor{comment}{!(out) 全球積分値}}
\DoxyCodeLine{1607 }
\DoxyCodeLine{1608       intlonlatrad\_xvh = intlonlat\_xv(xv\_intrad\_xvh(xvh))}
\DoxyCodeLine{1609 }

\end{DoxyCode}


References xv\+\_\+intrad\+\_\+xvh().



Referenced by avrlonlatrad\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a464e073ad31dd8cf5d92dc96a71692cc_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a464e073ad31dd8cf5d92dc96a71692cc_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ae7648b5c56e7dc5491e3f48e337c6dd0}\label{namespaceut__mpi__module_ae7648b5c56e7dc5491e3f48e337c6dd0}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!intlonrad\_xh@{intlonrad\_xh}}
\index{intlonrad\_xh@{intlonrad\_xh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{intlonrad\_xh()}{intlonrad\_xh()}}
{\footnotesize\ttfamily real(dp) function, public ut\+\_\+mpi\+\_\+module\+::intlonrad\+\_\+xh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,kc), intent(in)}]{xh }\end{DoxyParamCaption})}



Definition at line 1709 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1709       \textcolor{comment}{!}}
\DoxyCodeLine{1710       \textcolor{comment}{! 2 次元(XH)格子点データの経度動径積分}}
\DoxyCodeLine{1711       \textcolor{comment}{!}}
\DoxyCodeLine{1712       \textcolor{comment}{! 2 次元データ f(λ,r) に対して∫f(λ,r) r\string^2dλdr を計算する.}}
\DoxyCodeLine{1713       \textcolor{comment}{!}}
\DoxyCodeLine{1714 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,kc)}, \textcolor{keywordtype}{intent(in)} :: xh}
\DoxyCodeLine{1715       \textcolor{comment}{!(in) 2 次元緯度動径格子点データ}}
\DoxyCodeLine{1716 }
\DoxyCodeLine{1717 \textcolor{keywordtype}{      real}(DP)                                 :: IntLonRad\_xh}
\DoxyCodeLine{1718       \textcolor{comment}{!(out) 積分値}}
\DoxyCodeLine{1719 }
\DoxyCodeLine{1720       intlonrad\_xh = intlon\_x(x\_intrad\_xh(xh))}
\DoxyCodeLine{1721 }

\end{DoxyCode}


References x\+\_\+intrad\+\_\+xh().



Referenced by avrlonrad\+\_\+xh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ae7648b5c56e7dc5491e3f48e337c6dd0_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ae7648b5c56e7dc5491e3f48e337c6dd0_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a55a5e421874d219c2c0177b6d3f3dbc8}\label{namespaceut__mpi__module_a55a5e421874d219c2c0177b6d3f3dbc8}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!intrad\_h@{intrad\_h}}
\index{intrad\_h@{intrad\_h}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{intrad\_h()}{intrad\_h()}}
{\footnotesize\ttfamily real(dp) function, public ut\+\_\+mpi\+\_\+module\+::intrad\+\_\+h (\begin{DoxyParamCaption}\item[{real(dp), dimension(kc), intent(in)}]{h }\end{DoxyParamCaption})}



Definition at line 1726 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1726       \textcolor{comment}{!}}
\DoxyCodeLine{1727       \textcolor{comment}{! 1 次元(Z)格子点データの動径方向域積分.}}
\DoxyCodeLine{1728       \textcolor{comment}{!}}
\DoxyCodeLine{1729       \textcolor{comment}{! 1 次元データ f(r) に対して ∫f(r) r\string^2dr を計算する.}}
\DoxyCodeLine{1730       \textcolor{comment}{!}}
\DoxyCodeLine{1731 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(kc)}, \textcolor{keywordtype}{intent(in)} :: h}
\DoxyCodeLine{1732       \textcolor{comment}{!(in) 1 次元動径格子点データ}}
\DoxyCodeLine{1733 }
\DoxyCodeLine{1734 \textcolor{keywordtype}{      real}(DP)                            :: IntRad\_h}
\DoxyCodeLine{1735       \textcolor{comment}{!(out) 積分値}}
\DoxyCodeLine{1736 }
\DoxyCodeLine{1737 \textcolor{keywordtype}{      real}(DP) :: IntRadTmp}
\DoxyCodeLine{1738       \textcolor{keywordtype}{integer} :: k, ierr}
\DoxyCodeLine{1739 }
\DoxyCodeLine{1740       intradtmp = 0.0d0}
\DoxyCodeLine{1741       \textcolor{keywordflow}{do} k=1,kc}
\DoxyCodeLine{1742          intradtmp = intradtmp + h(k) * h\_rad\_weight(k)}
\DoxyCodeLine{1743 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{1744 }
\DoxyCodeLine{1745       \textcolor{keyword}{CALL }mpi\_allreduce(intradtmp,intrad\_h,1,mpi\_real8, \&}
\DoxyCodeLine{1746                          mpi\_sum,mpi\_comm\_v,ierr)}
\DoxyCodeLine{1747 }
\DoxyCodeLine{1748 }

\end{DoxyCode}


References h\+\_\+rad\+\_\+weight, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+v.



Referenced by avrrad\+\_\+h(), v\+\_\+intrad\+\_\+vh(), and x\+\_\+intrad\+\_\+xh().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a55a5e421874d219c2c0177b6d3f3dbc8_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a8388dc1b87c16373fc7701b4bbb5f082}\label{namespaceut__mpi__module_a8388dc1b87c16373fc7701b4bbb5f082}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!intrad\_z@{intrad\_z}}
\index{intrad\_z@{intrad\_z}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{intrad\_z()}{intrad\_z()}}
{\footnotesize\ttfamily real(dp) function, public ut\+\_\+mpi\+\_\+module\+::intrad\+\_\+z (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), intent(in)}]{z }\end{DoxyParamCaption})}



Definition at line 1752 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1752       \textcolor{comment}{!}}
\DoxyCodeLine{1753       \textcolor{comment}{! 1 次元(Z)格子点データの動径方向域積分.}}
\DoxyCodeLine{1754       \textcolor{comment}{!}}
\DoxyCodeLine{1755       \textcolor{comment}{! 1 次元データ f(r) に対して ∫f(r) r\string^2dr を計算する.}}
\DoxyCodeLine{1756       \textcolor{comment}{!}}
\DoxyCodeLine{1757 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:km)}, \textcolor{keywordtype}{intent(in)} :: z}
\DoxyCodeLine{1758       \textcolor{comment}{!(in) 1 次元動径格子点データ}}
\DoxyCodeLine{1759 }
\DoxyCodeLine{1760 \textcolor{keywordtype}{      real}(DP)                            :: IntRad\_z}
\DoxyCodeLine{1761       \textcolor{comment}{!(out) 積分値}}
\DoxyCodeLine{1762 }
\DoxyCodeLine{1763       \textcolor{keywordtype}{integer} :: k}
\DoxyCodeLine{1764 }
\DoxyCodeLine{1765       intrad\_z = 0.0d0}
\DoxyCodeLine{1766       \textcolor{keywordflow}{do} k=0,km}
\DoxyCodeLine{1767          intrad\_z = intrad\_z + z(k) * z\_rad\_weight(k)}
\DoxyCodeLine{1768 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{1769 }

\end{DoxyCode}


References at\+\_\+module\+::km.



Referenced by avrrad\+\_\+z().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a8388dc1b87c16373fc7701b4bbb5f082_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a053ca4217fb17a6c66b5712059f90237}\label{namespaceut__mpi__module_a053ca4217fb17a6c66b5712059f90237}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!nmz\_poloidalenergyspectrum\_ut@{nmz\_poloidalenergyspectrum\_ut}}
\index{nmz\_poloidalenergyspectrum\_ut@{nmz\_poloidalenergyspectrum\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{nmz\_poloidalenergyspectrum\_ut()}{nmz\_poloidalenergyspectrum\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}{nm}},-\/nm\+:nm,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public ut\+\_\+mpi\+\_\+module\+::nmz\+\_\+poloidalenergyspectrum\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+P\+O\+L\+P\+OT }\end{DoxyParamCaption})}



Definition at line 2199 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2199       \textcolor{comment}{!}}
\DoxyCodeLine{2200       \textcolor{comment}{! ポロイダルポテンシャルから, ポロイダルエネルギーの}}
\DoxyCodeLine{2201       \textcolor{comment}{! 球面調和函数全波数 n, 帯状波数 m の各成分を計算する.}}
\DoxyCodeLine{2202       \textcolor{comment}{!}}
\DoxyCodeLine{2203       \textcolor{comment}{!  * 全波数 n, 帯状波数 m のポロイダルポテンシャルのスペクトル成分}}
\DoxyCodeLine{2204       \textcolor{comment}{!    φ(n,m,r)から全波数 n, 帯状波数 m 成分のポロイダルエネルギー}}
\DoxyCodeLine{2205       \textcolor{comment}{!    スペクトルは}}
\DoxyCodeLine{2206       \textcolor{comment}{!}}
\DoxyCodeLine{2207       \textcolor{comment}{!      (1/2)n(n+1)4π\{|d(rφ(n,m,r))/dr|\string^2 + n(n+1)|φ(n,m,r)|\string^2\}}}
\DoxyCodeLine{2208       \textcolor{comment}{!}}
\DoxyCodeLine{2209       \textcolor{comment}{!    と計算される.}}
\DoxyCodeLine{2210       \textcolor{comment}{!}}
\DoxyCodeLine{2211       \textcolor{comment}{!  * 全てのエネルギースペクトル成分の和を動径積分したもの(r\string^2の重み無し)}}
\DoxyCodeLine{2212       \textcolor{comment}{!    が球殻内での全エネルギーに等しい.}}
\DoxyCodeLine{2213       \textcolor{comment}{!}}
\DoxyCodeLine{2214       \textcolor{comment}{!  * データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される.}}
\DoxyCodeLine{2215       \textcolor{comment}{!    欠損値の値はモジュール変数 ut\_VMiss によって設定できる}}
\DoxyCodeLine{2216       \textcolor{comment}{!    (初期値は -\/999.0)}}
\DoxyCodeLine{2217       \textcolor{comment}{!}}
\DoxyCodeLine{2218 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{intent(in)}   :: ut\_POLPOT(nmc,0:lm)}
\DoxyCodeLine{2219       \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}}
\DoxyCodeLine{2220 }
\DoxyCodeLine{2221 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:nm,-\/nm:nm,0:km)} :: nmz\_PoloidalEnergySpectrum\_ut}
\DoxyCodeLine{2222       \textcolor{comment}{!(out) エネルギースペクトル(水平全波数 n, 帯状波数 m 空間)}}
\DoxyCodeLine{2223 }
\DoxyCodeLine{2224 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:nm,-\/nm:nm,0:km)} :: nmz\_Work \textcolor{comment}{! 作業領域}}
\DoxyCodeLine{2225 }
\DoxyCodeLine{2226 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)} ::wz\_DATA1   \textcolor{comment}{! 作業領域}}
\DoxyCodeLine{2227 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)} ::wz\_DATA2   \textcolor{comment}{! 作業領域}}
\DoxyCodeLine{2228 }
\DoxyCodeLine{2229       \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)}
\DoxyCodeLine{2230 }
\DoxyCodeLine{2231       \textcolor{keywordtype}{integer} :: ierr}
\DoxyCodeLine{2232 }
\DoxyCodeLine{2233       wz\_data1 = wz\_wt(wt\_ut(ut\_polpot))}
\DoxyCodeLine{2234       wz\_data2 = wz\_uz(uz\_rad*uz\_ut(ut\_drad\_ut(ut\_polpot))) \&    \textcolor{comment}{! d(rφ)/dr}}
\DoxyCodeLine{2235                + wz\_wt(wt\_ut(ut\_polpot))                         \textcolor{comment}{! = rdφ/dr+φ}}
\DoxyCodeLine{2236 }
\DoxyCodeLine{2237       nmz\_work = 0.0d0}
\DoxyCodeLine{2238       \textcolor{keywordflow}{do} l=1,nc}
\DoxyCodeLine{2239          nm\_ary = nm\_l(l)}
\DoxyCodeLine{2240          n = nm\_ary(1) ; m = abs(nm\_ary(2))}
\DoxyCodeLine{2241          \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2242             \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2243                nmz\_work(n,0,:) = nmz\_work(n,0,:) \&}
\DoxyCodeLine{2244                     +  0.5 * n*(n+1) * (4*pi) \&}
\DoxyCodeLine{2245                     * ( wz\_data2(l,:)**2 +  n*(n+1)*wz\_data1(l,:)**2 )}
\DoxyCodeLine{2246                   \textcolor{comment}{!  +  0.5 * n*(n+1) * (4*pi) \&}}
\DoxyCodeLine{2247                   \textcolor{comment}{!  * ( wz\_Data2(l,:)**2 +  n*(n+1)*wz\_Data1(l,:)**2 )}}
\DoxyCodeLine{2248             \textcolor{keywordflow}{else}}
\DoxyCodeLine{2249                nmz\_work(n,m,:) = nmz\_work(n,m,:) \&}
\DoxyCodeLine{2250                     +  0.5 * n*(n+1) * (4*pi) \&}
\DoxyCodeLine{2251                     * ( wz\_data2(l,:)**2 +  n*(n+1)*wz\_data1(l,:)**2 )}
\DoxyCodeLine{2252                   \textcolor{comment}{!  +  0.5 * n*(n+1) * (4*pi) \&}}
\DoxyCodeLine{2253                   \textcolor{comment}{!  * ( wz\_Data2(l,:)**2 +  n*(n+1)*wz\_Data1(l,:)**2 )}}
\DoxyCodeLine{2254                nmz\_work(n,-\/m,:) = nmz\_work(n,-\/m,:) \&}
\DoxyCodeLine{2255                     +  0.5 * n*(n+1) * (4*pi) \&}
\DoxyCodeLine{2256                     * ( wz\_data2(l,:)**2 +  n*(n+1)*wz\_data1(l,:)**2 )}
\DoxyCodeLine{2257                   \textcolor{comment}{! +  0.5 * n*(n+1) * (4*pi) \&}}
\DoxyCodeLine{2258                   \textcolor{comment}{! * ( wz\_Data2(l,:)**2 +  n*(n+1)*wz\_Data1(l,:)**2 )}}
\DoxyCodeLine{2259 \textcolor{keywordflow}{            endif}}
\DoxyCodeLine{2260 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2261 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{2262 }
\DoxyCodeLine{2263       \textcolor{keyword}{CALL }mpi\_allreduce(nmz\_work,nmz\_poloidalenergyspectrum\_ut, \&}
\DoxyCodeLine{2264                          (nm+1)*(2*nm+1)*(km+1), \&}
\DoxyCodeLine{2265                          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)}
\DoxyCodeLine{2266 }
\DoxyCodeLine{2267       \textcolor{keywordflow}{do} m=1,nm}
\DoxyCodeLine{2268          \textcolor{keywordflow}{do} n=0,m-\/1}
\DoxyCodeLine{2269             nmz\_poloidalenergyspectrum\_ut(n,m,:)  = ut\_vmiss}
\DoxyCodeLine{2270             nmz\_poloidalenergyspectrum\_ut(n,-\/m,:) = ut\_vmiss}
\DoxyCodeLine{2271 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{2272 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{2273 }

\end{DoxyCode}


References at\+\_\+module\+::km, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h, nm, pi, ut\+\_\+drad\+\_\+ut(), ut\+\_\+vmiss, uz\+\_\+rad, uz\+\_\+ut(), wt\+\_\+ut(), wz\+\_\+uz(), and wz\+\_\+wt().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a053ca4217fb17a6c66b5712059f90237_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a19fa52fd395bdc6fbcb5ca9ea87d4166}\label{namespaceut__mpi__module_a19fa52fd395bdc6fbcb5ca9ea87d4166}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!nmz\_toroidalenergyspectrum\_ut@{nmz\_toroidalenergyspectrum\_ut}}
\index{nmz\_toroidalenergyspectrum\_ut@{nmz\_toroidalenergyspectrum\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{nmz\_toroidalenergyspectrum\_ut()}{nmz\_toroidalenergyspectrum\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}{nm}},-\/nm\+:nm,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public ut\+\_\+mpi\+\_\+module\+::nmz\+\_\+toroidalenergyspectrum\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+T\+O\+R\+P\+OT }\end{DoxyParamCaption})}



Definition at line 2090 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2090       \textcolor{comment}{!}}
\DoxyCodeLine{2091       \textcolor{comment}{! トロイダルポテンシャルから, トロイダルエネルギーの}}
\DoxyCodeLine{2092       \textcolor{comment}{! 球面調和函数全波数 n, 帯状波数 m の各成分を計算する}}
\DoxyCodeLine{2093       \textcolor{comment}{!}}
\DoxyCodeLine{2094       \textcolor{comment}{!  * 全波数 n, 帯状波数 m のトロイダルポテンシャルのスペクトル成分}}
\DoxyCodeLine{2095       \textcolor{comment}{!    ψ(n,m,r)から全波数 n, 帯状波数 m 成分のトロイダルエネルギー}}
\DoxyCodeLine{2096       \textcolor{comment}{!    スペクトルは  (1/2)n(n+1)4πr\string^2|ψ(n,m,r)|\string^2  と計算される.}}
\DoxyCodeLine{2097       \textcolor{comment}{!}}
\DoxyCodeLine{2098       \textcolor{comment}{!  * 全てのエネルギースペクトル成分の和を動径積分したもの(r\string^2の重み無し)}}
\DoxyCodeLine{2099       \textcolor{comment}{!    が球殻内での全エネルギーに等しい.}}
\DoxyCodeLine{2100       \textcolor{comment}{!}}
\DoxyCodeLine{2101       \textcolor{comment}{!  * データの存在しない全波数 n, 帯状波数 m の配列には欠損値が格納される.}}
\DoxyCodeLine{2102       \textcolor{comment}{!    ut\_VMiss によって設定できる (初期値は -\/999.0)}}
\DoxyCodeLine{2103       \textcolor{comment}{!}}
\DoxyCodeLine{2104 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{intent(in)}   :: ut\_TORPOT(nmc,0:lm)}
\DoxyCodeLine{2105       \textcolor{comment}{!(in) 流線関数(スペクトルデータ)}}
\DoxyCodeLine{2106 }
\DoxyCodeLine{2107 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:nm,-\/nm:nm,0:km)} :: nmz\_ToroidalEnergySpectrum\_ut}
\DoxyCodeLine{2108       \textcolor{comment}{!(out) エネルギースペクトル(水平全波数 n, 帯状波数 m 空間)}}
\DoxyCodeLine{2109 }
\DoxyCodeLine{2110 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:nm,-\/nm:nm,0:km)} :: nmz\_Work \textcolor{comment}{! 作業領域}}
\DoxyCodeLine{2111 }
\DoxyCodeLine{2112 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)} ::wz\_DATA      \textcolor{comment}{! 作業領域}}
\DoxyCodeLine{2113 }
\DoxyCodeLine{2114       \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)}
\DoxyCodeLine{2115       \textcolor{keywordtype}{integer} :: ierr}
\DoxyCodeLine{2116 }
\DoxyCodeLine{2117       wz\_data = wz\_wt(wt\_ut(ut\_torpot))}
\DoxyCodeLine{2118 }
\DoxyCodeLine{2119       nmz\_work = 0.0d0}
\DoxyCodeLine{2120       \textcolor{keywordflow}{do} l=1,nc}
\DoxyCodeLine{2121          nm\_ary = nm\_l(l)}
\DoxyCodeLine{2122          n = nm\_ary(1) ; m = abs(nm\_ary(2))}
\DoxyCodeLine{2123          \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2124             \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2125                nmz\_work(n,0,:) = nmz\_work(n,0,:) \&}
\DoxyCodeLine{2126                     +  0.5 * n*(n+1) * (4*pi) * z\_rad**2 * wz\_data(l,:)**2}
\DoxyCodeLine{2127                   \textcolor{comment}{!  + 0.5 * n*(n+1) * (4*pi) * z\_Rad**2 * wz\_Data(l,:)**2}}
\DoxyCodeLine{2128             \textcolor{keywordflow}{else}}
\DoxyCodeLine{2129                nmz\_work(n,m,:) = nmz\_work(n,m,:) \&}
\DoxyCodeLine{2130                     +  0.5 * n*(n+1) * (4*pi) * z\_rad**2 * wz\_data(l,:)**2}
\DoxyCodeLine{2131                   \textcolor{comment}{!  +  0.5 * n*(n+1) * (4*pi) * z\_Rad**2 * wz\_Data(l,:)**2}}
\DoxyCodeLine{2132                nmz\_work(n,-\/m,:) = nmz\_work(n,-\/m,:) \&}
\DoxyCodeLine{2133                     +  0.5 * n*(n+1) * (4*pi) * z\_rad**2 * wz\_data(l,:)**2}
\DoxyCodeLine{2134                   \textcolor{comment}{!  +  0.5 * n*(n+1) * (4*pi) * z\_Rad**2 * wz\_Data(l,:)**2}}
\DoxyCodeLine{2135 \textcolor{keywordflow}{            endif}}
\DoxyCodeLine{2136 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2137 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{2138 }
\DoxyCodeLine{2139       \textcolor{keyword}{CALL }mpi\_allreduce(nmz\_work,nmz\_toroidalenergyspectrum\_ut, \&}
\DoxyCodeLine{2140                          (nm+1)*(2*nm+1)*(km+1), \&}
\DoxyCodeLine{2141                          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)}
\DoxyCodeLine{2142 }
\DoxyCodeLine{2143       \textcolor{keywordflow}{do} m=1,nm}
\DoxyCodeLine{2144          \textcolor{keywordflow}{do} n=0,m-\/1}
\DoxyCodeLine{2145             nmz\_toroidalenergyspectrum\_ut(n,m,:)  = ut\_vmiss}
\DoxyCodeLine{2146             nmz\_toroidalenergyspectrum\_ut(n,-\/m,:) = ut\_vmiss}
\DoxyCodeLine{2147 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{2148 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{2149 }

\end{DoxyCode}


References at\+\_\+module\+::km, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h, nm, pi, ut\+\_\+vmiss, wt\+\_\+ut(), and wz\+\_\+wt().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a19fa52fd395bdc6fbcb5ca9ea87d4166_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_acd3b4b24dfaf01c365d9adbcbb637898}\label{namespaceut__mpi__module_acd3b4b24dfaf01c365d9adbcbb637898}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!nz\_poloidalenergyspectrum\_ut@{nz\_poloidalenergyspectrum\_ut}}
\index{nz\_poloidalenergyspectrum\_ut@{nz\_poloidalenergyspectrum\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{nz\_poloidalenergyspectrum\_ut()}{nz\_poloidalenergyspectrum\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}{nm}},0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public ut\+\_\+mpi\+\_\+module\+::nz\+\_\+poloidalenergyspectrum\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+P\+O\+L\+P\+OT }\end{DoxyParamCaption})}



Definition at line 2277 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2277       \textcolor{comment}{!}}
\DoxyCodeLine{2278       \textcolor{comment}{! ポロイダルポテンシャルから, ポロイダルエネルギーの}}
\DoxyCodeLine{2279       \textcolor{comment}{! 球面調和函数全波数の各成分を計算する}}
\DoxyCodeLine{2280       \textcolor{comment}{!}}
\DoxyCodeLine{2281       \textcolor{comment}{!  * 全波数 n, 帯状波数 m のポロイダルポテンシャルのスペクトル成分}}
\DoxyCodeLine{2282       \textcolor{comment}{!    φ(n,m,r)から全波数 n 成分のポロイダルエネルギースペクトルは}}
\DoxyCodeLine{2283       \textcolor{comment}{!}}
\DoxyCodeLine{2284       \textcolor{comment}{!      Σ[m=-\/n]\string^n ((1/2)n(n+1)4πr\string^2\{[d(rφ(n,m,r))/dr]\string^2}}
\DoxyCodeLine{2285       \textcolor{comment}{!                 + n(n+1)φ(n,m,r)\string^2\}}}
\DoxyCodeLine{2286       \textcolor{comment}{!}}
\DoxyCodeLine{2287       \textcolor{comment}{!    と計算される.}}
\DoxyCodeLine{2288       \textcolor{comment}{!}}
\DoxyCodeLine{2289       \textcolor{comment}{!  * 全ての全波数に対してのエネルギースペクトル成分の和を動径積分したもの}}
\DoxyCodeLine{2290       \textcolor{comment}{!    (r\string^2の重み無し)が球殻内での全エネルギーに等しい.}}
\DoxyCodeLine{2291       \textcolor{comment}{!}}
\DoxyCodeLine{2292 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut\_POLPOT}
\DoxyCodeLine{2293       \textcolor{comment}{!(in) ポロイダルポテンシャル}}
\DoxyCodeLine{2294 }
\DoxyCodeLine{2295 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:nm,0:km)} :: nz\_PoloidalEnergySpectrum\_ut}
\DoxyCodeLine{2296       \textcolor{comment}{!(out) エネルギースペクトルポロイダル成分}}
\DoxyCodeLine{2297 }
\DoxyCodeLine{2298 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)} ::wz\_DATA1   \textcolor{comment}{! 作業領域}}
\DoxyCodeLine{2299 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)} ::wz\_DATA2   \textcolor{comment}{! 作業領域}}
\DoxyCodeLine{2300 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:nm,0:km)}     ::nz\_Work}
\DoxyCodeLine{2301       \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)}
\DoxyCodeLine{2302       \textcolor{keywordtype}{integer} :: ierr}
\DoxyCodeLine{2303 \textcolor{keywordtype}{      real}(DP) :: factor}
\DoxyCodeLine{2304 }
\DoxyCodeLine{2305       nz\_work = 0.0d0}
\DoxyCodeLine{2306       wz\_data1 = wz\_wt(wt\_ut(ut\_polpot))}
\DoxyCodeLine{2307       wz\_data2 = wz\_uz(uz\_rad*uz\_ut(ut\_drad\_ut(ut\_polpot))) \&    \textcolor{comment}{! d(rφ)/dr}}
\DoxyCodeLine{2308                + wz\_wt(wt\_ut(ut\_polpot))                         \textcolor{comment}{! = rdφ/dr+φ}}
\DoxyCodeLine{2309 }
\DoxyCodeLine{2310       \textcolor{keywordflow}{do} l=1,nc}
\DoxyCodeLine{2311          nm\_ary = nm\_l(l)}
\DoxyCodeLine{2312          n = nm\_ary(1) ; m = abs(nm\_ary(2))}
\DoxyCodeLine{2313          \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2314             factor = 1.0d0}
\DoxyCodeLine{2315          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2316             factor = 2.0d0}
\DoxyCodeLine{2317 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2318          \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2319             nz\_work(n,:) = nz\_work(n,:) \&}
\DoxyCodeLine{2320               + factor * 0.5* n*(n+1)* (4*pi) \&}
\DoxyCodeLine{2321               *( wz\_data2(l,:)**2 + n*(n+1)*wz\_data1(l,:)**2 )}
\DoxyCodeLine{2322 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2323 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{2324 }
\DoxyCodeLine{2325       \textcolor{keyword}{CALL }mpi\_allreduce(nz\_work,nz\_poloidalenergyspectrum\_ut,(nm+1)*(km+1), \&}
\DoxyCodeLine{2326                          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)}
\DoxyCodeLine{2327 }

\end{DoxyCode}


References at\+\_\+module\+::km, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h, nm, pi, ut\+\_\+drad\+\_\+ut(), uz\+\_\+rad, uz\+\_\+ut(), wt\+\_\+ut(), wz\+\_\+uz(), and wz\+\_\+wt().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_acd3b4b24dfaf01c365d9adbcbb637898_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a94caa9b0be8c047fa7171796685908a9}\label{namespaceut__mpi__module_a94caa9b0be8c047fa7171796685908a9}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!nz\_toroidalenergyspectrum\_ut@{nz\_toroidalenergyspectrum\_ut}}
\index{nz\_toroidalenergyspectrum\_ut@{nz\_toroidalenergyspectrum\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{nz\_toroidalenergyspectrum\_ut()}{nz\_toroidalenergyspectrum\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}{nm}},0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public ut\+\_\+mpi\+\_\+module\+::nz\+\_\+toroidalenergyspectrum\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+T\+O\+R\+P\+OT }\end{DoxyParamCaption})}



Definition at line 2153 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2153       \textcolor{comment}{!}}
\DoxyCodeLine{2154       \textcolor{comment}{! トロイダルポテンシャルから, トロイダルエネルギーの}}
\DoxyCodeLine{2155       \textcolor{comment}{! 球面調和函数全波数の各成分を計算する.}}
\DoxyCodeLine{2156       \textcolor{comment}{!}}
\DoxyCodeLine{2157       \textcolor{comment}{!  * 全波数 n, 帯状波数 m のトロイダルポテンシャルのスペクトル成分}}
\DoxyCodeLine{2158       \textcolor{comment}{!    ψ(n,m,r)から全波数 n 成分のトロイダルエネルギースペクトルは}}
\DoxyCodeLine{2159       \textcolor{comment}{!    Σ[m=-\/n]\string^n(1/2)n(n+1)4πr\string^2ψ(n,m,r)\string^2 と計算される.}}
\DoxyCodeLine{2160       \textcolor{comment}{!}}
\DoxyCodeLine{2161       \textcolor{comment}{! * 全てのエネルギースペクトル成分の和を動径積分したもの(r\string^2の重み無し)}}
\DoxyCodeLine{2162       \textcolor{comment}{!    が球殻内での全エネルギーに等しい.}}
\DoxyCodeLine{2163       \textcolor{comment}{!}}
\DoxyCodeLine{2164 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut\_TORPOT}
\DoxyCodeLine{2165       \textcolor{comment}{!(in) トロイダルポテンシャル}}
\DoxyCodeLine{2166 }
\DoxyCodeLine{2167 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:nm,0:km)} :: nz\_ToroidalEnergySpectrum\_ut}
\DoxyCodeLine{2168       \textcolor{comment}{!(out) エネルギースペクトルトロイダル成分}}
\DoxyCodeLine{2169 }
\DoxyCodeLine{2170 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)}   :: wz\_DATA   \textcolor{comment}{! 作業領域}}
\DoxyCodeLine{2171 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:nm,0:km)} :: nz\_Work}
\DoxyCodeLine{2172       \textcolor{keywordtype}{integer} :: l, n, m, nm\_ary(2)}
\DoxyCodeLine{2173       \textcolor{keywordtype}{integer} :: ierr}
\DoxyCodeLine{2174 \textcolor{keywordtype}{      real}(DP) :: factor}
\DoxyCodeLine{2175 }
\DoxyCodeLine{2176       nz\_work = 0.0d0}
\DoxyCodeLine{2177       wz\_data = wz\_wt(wt\_ut(ut\_torpot))}
\DoxyCodeLine{2178       \textcolor{keywordflow}{do} l=1,nc}
\DoxyCodeLine{2179          nm\_ary = nm\_l(l)}
\DoxyCodeLine{2180          n = nm\_ary(1) ; m = abs(nm\_ary(2))}
\DoxyCodeLine{2181          \textcolor{keywordflow}{if} ( m == 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2182             factor = 1.0d0}
\DoxyCodeLine{2183          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2184             factor = 2.0d0}
\DoxyCodeLine{2185 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2186          \textcolor{keywordflow}{if} ( n .ge. 0 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2187             nz\_work(n,:) = nz\_work(n,:) \&}
\DoxyCodeLine{2188               + factor * 0.5 * n*(n+1)* (4*pi) * z\_rad**2 * wz\_data(l,:)**2}
\DoxyCodeLine{2189             \textcolor{comment}{!  + 0.5 * n*(n+1)* (4*pi) * z\_Rad**2 * wz\_Data(l,:)**2}}
\DoxyCodeLine{2190 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2191 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{2192 }
\DoxyCodeLine{2193       \textcolor{keyword}{CALL }mpi\_allreduce(nz\_work,nz\_toroidalenergyspectrum\_ut,(nm+1)*(km+1), \&}
\DoxyCodeLine{2194                          mpi\_real8,mpi\_sum,mpi\_comm\_h,ierr)}
\DoxyCodeLine{2195 }

\end{DoxyCode}


References at\+\_\+module\+::km, ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+h, nm, pi, wt\+\_\+ut(), and wz\+\_\+wt().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a94caa9b0be8c047fa7171796685908a9_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a0c456da020a82625299556e38f09af9c}\label{namespaceut__mpi__module_a0c456da020a82625299556e38f09af9c}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ua\_laplah\_ua@{ua\_laplah\_ua}}
\index{ua\_laplah\_ua@{ua\_laplah\_ua}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ua\_laplah\_ua()}{ua\_laplah\_ua()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,size(ua\+\_\+data,2)), public ut\+\_\+mpi\+\_\+module\+::ua\+\_\+laplah\+\_\+ua (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{ua\+\_\+data }\end{DoxyParamCaption})}



Definition at line 1180 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1180       \textcolor{comment}{!}}
\DoxyCodeLine{1181       \textcolor{comment}{! 入力スペクトルデータにラプラシアン}}
\DoxyCodeLine{1182       \textcolor{comment}{!}}
\DoxyCodeLine{1183       \textcolor{comment}{!    ▽\string^2 = 1/cos\string^2φ・∂\string^2/∂λ\string^2 + 1/cosφ・∂/∂φ(cosφ∂/∂φ)}}
\DoxyCodeLine{1184       \textcolor{comment}{!}}
\DoxyCodeLine{1185       \textcolor{comment}{! を作用する(多層用).}}
\DoxyCodeLine{1186       \textcolor{comment}{!}}
\DoxyCodeLine{1187       \textcolor{comment}{! スペクトルデータのラプラシアンとは, 対応する格子点データに}}
\DoxyCodeLine{1188       \textcolor{comment}{! ラプラシアンを作用させたデータのスペクトル変換のことである.}}
\DoxyCodeLine{1189       \textcolor{comment}{!}}
\DoxyCodeLine{1190 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{intent(in)}  :: ua\_data(:,:)}
\DoxyCodeLine{1191       \textcolor{comment}{!(in) 入力スペクトルデータ}}
\DoxyCodeLine{1192 \textcolor{keywordtype}{      real}(DP)              :: ua\_LaplaH\_ua(nmc,size(ua\_data,2))}
\DoxyCodeLine{1193       \textcolor{comment}{!(out) 入力スペクトルデータのラプラシアン}}
\DoxyCodeLine{1194 }
\DoxyCodeLine{1195       ua\_laplah\_ua  = ua\_lapla\_ua(ua\_data)}

\end{DoxyCode}


Referenced by ut\+\_\+l2\+\_\+ut(), and ut\+\_\+lapla\+\_\+ut().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a0c456da020a82625299556e38f09af9c_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ab8bb92d5ff4bc9274778d7bd4c8c30ef}\label{namespaceut__mpi__module_ab8bb92d5ff4bc9274778d7bd4c8c30ef}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ua\_laplahinv\_ua@{ua\_laplahinv\_ua}}
\index{ua\_laplahinv\_ua@{ua\_laplahinv\_ua}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ua\_laplahinv\_ua()}{ua\_laplahinv\_ua()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,size(ua\+\_\+data,2)), public ut\+\_\+mpi\+\_\+module\+::ua\+\_\+laplahinv\+\_\+ua (\begin{DoxyParamCaption}\item[{real(dp), dimension(\+:,\+:), intent(in)}]{ua\+\_\+data }\end{DoxyParamCaption})}



Definition at line 1199 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1199       \textcolor{comment}{!}}
\DoxyCodeLine{1200       \textcolor{comment}{! 入力スペクトルデータにラプラシアン}}
\DoxyCodeLine{1201       \textcolor{comment}{!}}
\DoxyCodeLine{1202       \textcolor{comment}{!    ▽\string^2 = 1/cos\string^2φ・∂\string^2/∂λ\string^2 + 1/cosφ・∂/∂φ(cosφ∂/∂φ)}}
\DoxyCodeLine{1203       \textcolor{comment}{!}}
\DoxyCodeLine{1204       \textcolor{comment}{! を作用する(多層用).}}
\DoxyCodeLine{1205       \textcolor{comment}{!}}
\DoxyCodeLine{1206       \textcolor{comment}{! スペクトルデータのラプラシアンとは, 対応する格子点データに}}
\DoxyCodeLine{1207       \textcolor{comment}{! ラプラシアンを作用させたデータのスペクトル変換のことである.}}
\DoxyCodeLine{1208       \textcolor{comment}{!}}
\DoxyCodeLine{1209 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{intent(in)}  :: ua\_data(:,:)}
\DoxyCodeLine{1210       \textcolor{comment}{!(in) 入力スペクトルデータ}}
\DoxyCodeLine{1211 \textcolor{keywordtype}{      real}(DP)              :: ua\_LaplaHInv\_ua(nmc,size(ua\_data,2))}
\DoxyCodeLine{1212       \textcolor{comment}{!(out) 入力スペクトルデータのラプラシアン}}
\DoxyCodeLine{1213 }
\DoxyCodeLine{1214       ua\_laplahinv\_ua  = ua\_laplainv\_ua(ua\_data)}
\DoxyCodeLine{1215 }

\end{DoxyCode}


Referenced by ut\+\_\+l2inv\+\_\+ut().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ab8bb92d5ff4bc9274778d7bd4c8c30ef_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a3a5ac97580cc297d5b1573b95d0d2aea}\label{namespaceut__mpi__module_a3a5ac97580cc297d5b1573b95d0d2aea}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_boundariesgrid@{ut\_boundariesgrid}}
\index{ut\_boundariesgrid@{ut\_boundariesgrid}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_boundariesgrid()}{ut\_boundariesgrid()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+boundariesgrid (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(inout)}]{ut,  }\item[{real(dp), dimension(nmc,2), intent(in), optional}]{values,  }\item[{character(len=2), intent(in), optional}]{cond }\end{DoxyParamCaption})}



Definition at line 2395 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2395       \textcolor{comment}{!}}
\DoxyCodeLine{2396       \textcolor{comment}{! スペクトルデータにディリクレ・ノイマン境界条件を適用する}}
\DoxyCodeLine{2397       \textcolor{comment}{! 実空間での境界条件適用}}
\DoxyCodeLine{2398       \textcolor{comment}{!}}
\DoxyCodeLine{2399       \textcolor{comment}{! 鉛直実格子点空間において内部領域の値と境界条件を満たすように}}
\DoxyCodeLine{2400       \textcolor{comment}{! 条件を課している(選点法). このルーチンを用いるためには}}
\DoxyCodeLine{2401       \textcolor{comment}{! ut\_Initial にて設定するチェビシェフ切断波数(lm)と鉛直格子点数(km)を}}
\DoxyCodeLine{2402       \textcolor{comment}{! 等しくしておく必要がある.}}
\DoxyCodeLine{2403       \textcolor{comment}{!}}
\DoxyCodeLine{2404 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)},\textcolor{keywordtype}{intent(inout)}      :: ut}
\DoxyCodeLine{2405               \textcolor{comment}{!(inout) 境界条件を適用するデータ. 修正された値を返す.}}
\DoxyCodeLine{2406 }
\DoxyCodeLine{2407 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values}
\DoxyCodeLine{2408               \textcolor{comment}{!(in) 境界での 値/勾配 分布を水平スペクトル変換したものを与える.}}
\DoxyCodeLine{2409               \textcolor{comment}{!    省略時は値/勾配 0 となる.}}
\DoxyCodeLine{2410 }
\DoxyCodeLine{2411       \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}         :: cond}
\DoxyCodeLine{2412               \textcolor{comment}{!(in) 境界条件. 省略時は 'DD'}}
\DoxyCodeLine{2413               \textcolor{comment}{!        DD : 両端ディリクレ条件}}
\DoxyCodeLine{2414               \textcolor{comment}{!        DN : 上端ディリクレ, 下端ノイマン条件}}
\DoxyCodeLine{2415               \textcolor{comment}{!        ND : 上端ノイマン, 下端ディリクレ条件}}
\DoxyCodeLine{2416               \textcolor{comment}{!        NN : 両端ノイマン条件}}
\DoxyCodeLine{2417 }
\DoxyCodeLine{2418       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(cond)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2419          \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2420             \textcolor{keyword}{call }at\_boundariesgrid\_dd(ut,values)}
\DoxyCodeLine{2421          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2422             \textcolor{keyword}{call }at\_boundariesgrid\_dd(ut)}
\DoxyCodeLine{2423 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2424          \textcolor{keywordflow}{return}}
\DoxyCodeLine{2425 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2426 }
\DoxyCodeLine{2427       \textcolor{keywordflow}{select case}(cond)}
\DoxyCodeLine{2428       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'NN'})}
\DoxyCodeLine{2429          \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2430             \textcolor{keyword}{call }at\_boundariesgrid\_nn(ut,values)}
\DoxyCodeLine{2431          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2432             \textcolor{keyword}{call }at\_boundariesgrid\_nn(ut)}
\DoxyCodeLine{2433 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2434       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'DN'})}
\DoxyCodeLine{2435          \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2436             \textcolor{keyword}{call }at\_boundariesgrid\_dn(ut,values)}
\DoxyCodeLine{2437          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2438             \textcolor{keyword}{call }at\_boundariesgrid\_dn(ut)}
\DoxyCodeLine{2439 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2440       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'ND'})}
\DoxyCodeLine{2441          \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2442             \textcolor{keyword}{call }at\_boundariesgrid\_nd(ut,values)}
\DoxyCodeLine{2443          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2444             \textcolor{keyword}{call }at\_boundariesgrid\_nd(ut)}
\DoxyCodeLine{2445 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2446       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'DD'})}
\DoxyCodeLine{2447          \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2448             \textcolor{keyword}{call }at\_boundariesgrid\_dd(ut,values)}
\DoxyCodeLine{2449          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2450             \textcolor{keyword}{call }at\_boundariesgrid\_dd(ut)}
\DoxyCodeLine{2451 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2452 \textcolor{keywordflow}{      case default}}
\DoxyCodeLine{2453          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'ut\_BoundariesGrid'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{2454 \textcolor{keywordflow}{      end select}}
\DoxyCodeLine{2455 }

\end{DoxyCode}
\mbox{\Hypertarget{namespaceut__mpi__module_a3713a311f89ae3bfb0618773aef5c1c9}\label{namespaceut__mpi__module_a3713a311f89ae3bfb0618773aef5c1c9}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_boundariestau@{ut\_boundariestau}}
\index{ut\_boundariestau@{ut\_boundariestau}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_boundariestau()}{ut\_boundariestau()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+boundariestau (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(inout)}]{ut,  }\item[{real(dp), dimension(nmc,2), intent(in), optional}]{values,  }\item[{character(len=2), intent(in), optional}]{cond }\end{DoxyParamCaption})}



Definition at line 2333 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2333       \textcolor{comment}{!}}
\DoxyCodeLine{2334       \textcolor{comment}{! スペクトルデータにディリクレ・ノイマン境界条件を適用する}}
\DoxyCodeLine{2335       \textcolor{comment}{! Chebyshev 空間での境界条件適用(タウ法)}}
\DoxyCodeLine{2336       \textcolor{comment}{!}}
\DoxyCodeLine{2337       \textcolor{comment}{! チェビシェフ空間において境界条件を満たすべく高次の係数を}}
\DoxyCodeLine{2338       \textcolor{comment}{! 定める方法をとっている(タウ法).}}
\DoxyCodeLine{2339       \textcolor{comment}{!}}
\DoxyCodeLine{2340 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)},\textcolor{keywordtype}{intent(inout)}      :: ut}
\DoxyCodeLine{2341       \textcolor{comment}{!(inout) 境界条件を適用するデータ. 修正された値を返す.}}
\DoxyCodeLine{2342 }
\DoxyCodeLine{2343 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values}
\DoxyCodeLine{2344       \textcolor{comment}{!(in) 境界での 値/勾配 分布を水平スペクトル変換したものを与える.}}
\DoxyCodeLine{2345       \textcolor{comment}{!     省略時は値/勾配 0 となる.}}
\DoxyCodeLine{2346 }
\DoxyCodeLine{2347       \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}         :: cond}
\DoxyCodeLine{2348       \textcolor{comment}{!(in) 境界条件. 省略時は 'DD'}}
\DoxyCodeLine{2349       \textcolor{comment}{!        DD : 両端ディリクレ条件}}
\DoxyCodeLine{2350       \textcolor{comment}{!        DN : 上端ディリクレ, 下端ノイマン条件}}
\DoxyCodeLine{2351       \textcolor{comment}{!        ND : 上端ノイマン, 下端ディリクレ条件}}
\DoxyCodeLine{2352       \textcolor{comment}{!        NN : 両端ノイマン条件}}
\DoxyCodeLine{2353 }
\DoxyCodeLine{2354       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(cond)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2355          \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2356             \textcolor{keyword}{call }at\_boundariestau\_dd(ut,values)}
\DoxyCodeLine{2357          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2358             \textcolor{keyword}{call }at\_boundariestau\_dd(ut)}
\DoxyCodeLine{2359 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2360          \textcolor{keywordflow}{return}}
\DoxyCodeLine{2361 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2362 }
\DoxyCodeLine{2363       \textcolor{keywordflow}{select case}(cond)}
\DoxyCodeLine{2364       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'NN'})}
\DoxyCodeLine{2365          \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2366             \textcolor{keyword}{call }at\_boundariestau\_nn(ut,values)}
\DoxyCodeLine{2367          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2368             \textcolor{keyword}{call }at\_boundariestau\_nn(ut)}
\DoxyCodeLine{2369 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2370       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'DN'})}
\DoxyCodeLine{2371          \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2372             \textcolor{keyword}{call }at\_boundariestau\_dn(ut,values)}
\DoxyCodeLine{2373          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2374             \textcolor{keyword}{call }at\_boundariestau\_dn(ut)}
\DoxyCodeLine{2375 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2376       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'ND'})}
\DoxyCodeLine{2377          \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2378             \textcolor{keyword}{call }at\_boundariestau\_nd(ut,values)}
\DoxyCodeLine{2379          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2380             \textcolor{keyword}{call }at\_boundariestau\_nd(ut)}
\DoxyCodeLine{2381 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2382       \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'DD'})}
\DoxyCodeLine{2383          \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(values)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2384             \textcolor{keyword}{call }at\_boundariestau\_dd(ut,values)}
\DoxyCodeLine{2385          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2386             \textcolor{keyword}{call }at\_boundariestau\_dd(ut)}
\DoxyCodeLine{2387 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2388 \textcolor{keywordflow}{      case default}}
\DoxyCodeLine{2389          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'ut\_BoundariesTau'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{2390 \textcolor{keywordflow}{      end select}}
\DoxyCodeLine{2391 }

\end{DoxyCode}
\mbox{\Hypertarget{namespaceut__mpi__module_ac5fa4bed64e51c1e52f49d146dfb02b1}\label{namespaceut__mpi__module_ac5fa4bed64e51c1e52f49d146dfb02b1}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_div\_xvh\_xvh\_xvh@{ut\_div\_xvh\_xvh\_xvh}}
\index{ut\_div\_xvh\_xvh\_xvh@{ut\_div\_xvh\_xvh\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_div\_xvh\_xvh\_xvh()}{ut\_div\_xvh\_xvh\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+Vlon,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+Vlat,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+Vrad }\end{DoxyParamCaption})}



Definition at line 983 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{983       \textcolor{comment}{!}}
\DoxyCodeLine{984       \textcolor{comment}{! べクトル成分である 3 つの格子データに発散を作用させた}}
\DoxyCodeLine{985       \textcolor{comment}{! スペクトルデータを返す.}}
\DoxyCodeLine{986       \textcolor{comment}{!}}
\DoxyCodeLine{987       \textcolor{comment}{! 第 1, 2 ,3 引数(u,v,w)がそれぞれベクトルの経度成分, 緯度成分,}}
\DoxyCodeLine{988       \textcolor{comment}{! 動径成分を表し, 発散は}}
\DoxyCodeLine{989       \textcolor{comment}{!}}
\DoxyCodeLine{990       \textcolor{comment}{!      1/rcosφ・∂u/∂λ + 1/rcosφ・∂(v cosφ)/∂φ}}
\DoxyCodeLine{991       \textcolor{comment}{!    + 1/r\string^2 ∂/∂r (r\string^2 w)}}
\DoxyCodeLine{992       \textcolor{comment}{!}}
\DoxyCodeLine{993       \textcolor{comment}{! と計算される.}}
\DoxyCodeLine{994       \textcolor{comment}{!}}
\DoxyCodeLine{995 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_Vlon}
\DoxyCodeLine{996       \textcolor{comment}{!(in) ベクトル場の経度成分}}
\DoxyCodeLine{997 }
\DoxyCodeLine{998 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_Vlat}
\DoxyCodeLine{999       \textcolor{comment}{!(in) ベクトル場の緯度成分}}
\DoxyCodeLine{1000 }
\DoxyCodeLine{1001 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_Vrad}
\DoxyCodeLine{1002       \textcolor{comment}{!(in) ベクトル場の動径成分}}
\DoxyCodeLine{1003 }
\DoxyCodeLine{1004 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}                    :: ut\_Div\_xvh\_xvh\_xvh}
\DoxyCodeLine{1005       \textcolor{comment}{!(out) ベクトル場の発散}}
\DoxyCodeLine{1006 }
\DoxyCodeLine{1007       ut\_div\_xvh\_xvh\_xvh =   ut\_divlon\_xvh(xvh\_vlon) \&}
\DoxyCodeLine{1008                            + ut\_divlat\_xvh(xvh\_vlat) \&}
\DoxyCodeLine{1009                            + ut\_divrad\_ut(ut\_xvh(xvh\_vrad))}
\DoxyCodeLine{1010 }

\end{DoxyCode}


References ut\+\_\+divlat\+\_\+xvh(), ut\+\_\+divlon\+\_\+xvh(), ut\+\_\+divrad\+\_\+ut(), and ut\+\_\+xvh().



Referenced by xvh\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ac5fa4bed64e51c1e52f49d146dfb02b1_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=335pt]{namespaceut__mpi__module_ac5fa4bed64e51c1e52f49d146dfb02b1_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a7aa8f1d85a541b53e55bd124797ff0d2}\label{namespaceut__mpi__module_a7aa8f1d85a541b53e55bd124797ff0d2}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_divlat\_xvh@{ut\_divlat\_xvh}}
\index{ut\_divlat\_xvh@{ut\_divlat\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_divlat\_xvh()}{ut\_divlat\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+divlat\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 969 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{969       \textcolor{comment}{!}}
\DoxyCodeLine{970       \textcolor{comment}{! 格子データに発散型緯度微分 1/rcosφ・∂(f cosφ)/∂φ を}}
\DoxyCodeLine{971       \textcolor{comment}{! 作用させたスペクトルデータを返す.}}
\DoxyCodeLine{972       \textcolor{comment}{!}}
\DoxyCodeLine{973 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)}   :: xvh}
\DoxyCodeLine{974       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{975 }
\DoxyCodeLine{976 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}       :: ut\_DivLat\_xvh}
\DoxyCodeLine{977       \textcolor{comment}{!(out) 発散型緯度微分を作用された 2 次元スペクトルデータ}}
\DoxyCodeLine{978 }
\DoxyCodeLine{979       ut\_divlat\_xvh = ut\_uz(ua\_divlat\_xvb(xvh/xvh\_rad))}

\end{DoxyCode}


References ut\+\_\+uz(), and xvh\+\_\+rad.



Referenced by ut\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh(), and ut\+\_\+rotrad\+\_\+xvh\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a7aa8f1d85a541b53e55bd124797ff0d2_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a7aa8f1d85a541b53e55bd124797ff0d2_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ac6f444520ae73cff7e591317c10ff66b}\label{namespaceut__mpi__module_ac6f444520ae73cff7e591317c10ff66b}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_divlon\_xvh@{ut\_divlon\_xvh}}
\index{ut\_divlon\_xvh@{ut\_divlon\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_divlon\_xvh()}{ut\_divlon\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+divlon\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 954 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{954       \textcolor{comment}{!}}
\DoxyCodeLine{955       \textcolor{comment}{! 格子点データに発散型経度微分 1/rcosφ・∂/∂λ を作用させた}}
\DoxyCodeLine{956       \textcolor{comment}{! スペクトルデータを返す.}}
\DoxyCodeLine{957       \textcolor{comment}{!}}
\DoxyCodeLine{958 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{959       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{960 }
\DoxyCodeLine{961 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}                    :: ut\_DivLon\_xvh}
\DoxyCodeLine{962       \textcolor{comment}{!(out) 発散型経度微分を作用された 2 次元スペクトルデータ}}
\DoxyCodeLine{963 }
\DoxyCodeLine{964       ut\_divlon\_xvh = ut\_uz(ua\_divlon\_xvb(xvh/xvh\_rad))}
\DoxyCodeLine{965 }

\end{DoxyCode}


References ut\+\_\+uz(), and xvh\+\_\+rad.



Referenced by ut\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh(), and ut\+\_\+rotrad\+\_\+xvh\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ac6f444520ae73cff7e591317c10ff66b_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ac6f444520ae73cff7e591317c10ff66b_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a8b1ac16a6b263fd2ac14774d348884e8}\label{namespaceut__mpi__module_a8b1ac16a6b263fd2ac14774d348884e8}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_divrad\_ut@{ut\_divrad\_ut}}
\index{ut\_divrad\_ut@{ut\_divrad\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_divrad\_ut()}{ut\_divrad\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+divrad\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 1135 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1135       \textcolor{comment}{!}}
\DoxyCodeLine{1136       \textcolor{comment}{! 入力スペクトルデータに発散型動径微分}}
\DoxyCodeLine{1137       \textcolor{comment}{!}}
\DoxyCodeLine{1138       \textcolor{comment}{!       1/r\string^2 ∂/∂r (r\string^2 .)= ∂/∂r + 2/r}}
\DoxyCodeLine{1139       \textcolor{comment}{!}}
\DoxyCodeLine{1140       \textcolor{comment}{! を作用する.}}
\DoxyCodeLine{1141       \textcolor{comment}{!}}
\DoxyCodeLine{1142       \textcolor{comment}{! スペクトルデータの発散型動径微分とは, 対応する格子点データに}}
\DoxyCodeLine{1143       \textcolor{comment}{! 発散型動径微分を作用させたデータのスペクトル変換のことである.}}
\DoxyCodeLine{1144       \textcolor{comment}{!}}
\DoxyCodeLine{1145 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut}
\DoxyCodeLine{1146       \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{1147 }
\DoxyCodeLine{1148 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}             :: ut\_DivRad\_ut}
\DoxyCodeLine{1149       \textcolor{comment}{!(out) 発散型動径微分を作用された 2 次元スペクトルデータ}}
\DoxyCodeLine{1150 }
\DoxyCodeLine{1151 \textcolor{comment}{!      ut\_DivRad\_ut = ut\_uz(uz\_ut(ut\_Drad\_ut(ut\_uz(uz\_Rad**2*uz\_ut(ut))))/uz\_Rad**2)}}
\DoxyCodeLine{1152 }
\DoxyCodeLine{1153       ut\_divrad\_ut = ut\_drad\_ut(ut) + ut\_uz(2/uz\_rad*uz\_ut(ut))}
\DoxyCodeLine{1154 }

\end{DoxyCode}


References ut\+\_\+drad\+\_\+ut(), ut\+\_\+uz(), uz\+\_\+rad, and uz\+\_\+ut().



Referenced by ut\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh(), and ut\+\_\+lapla\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a8b1ac16a6b263fd2ac14774d348884e8_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a8b1ac16a6b263fd2ac14774d348884e8_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a1d581eb8d732be44ff4407f432b34806}\label{namespaceut__mpi__module_a1d581eb8d732be44ff4407f432b34806}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_drad\_ut@{ut\_drad\_ut}}
\index{ut\_drad\_ut@{ut\_drad\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_drad\_ut()}{ut\_drad\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+drad\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 1118 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1118       \textcolor{comment}{!}}
\DoxyCodeLine{1119       \textcolor{comment}{! 入力スペクトルデータに動径微分 ∂/∂r を作用する.}}
\DoxyCodeLine{1120       \textcolor{comment}{!}}
\DoxyCodeLine{1121       \textcolor{comment}{! スペクトルデータの動径微分とは, 対応する格子点データに動径微分を}}
\DoxyCodeLine{1122       \textcolor{comment}{! 作用させたデータのスペクトル変換のことである.}}
\DoxyCodeLine{1123       \textcolor{comment}{!}}
\DoxyCodeLine{1124 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut}
\DoxyCodeLine{1125       \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{1126 }
\DoxyCodeLine{1127 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}             :: ut\_DRad\_ut}
\DoxyCodeLine{1128       \textcolor{comment}{!(in) 動径微分された2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{1129 }
\DoxyCodeLine{1130       ut\_drad\_ut = at\_dr\_at(ut)}
\DoxyCodeLine{1131 }

\end{DoxyCode}


Referenced by nmz\+\_\+poloidalenergyspectrum\+\_\+ut(), nz\+\_\+poloidalenergyspectrum\+\_\+ut(), ut\+\_\+divrad\+\_\+ut(), ut\+\_\+lapla\+\_\+ut(), ut\+\_\+laplapol2poltau\+\_\+ut(), ut\+\_\+polmagboundariesgrid(), ut\+\_\+polmagboundariestau(), and ut\+\_\+rotrad\+\_\+ut().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a1d581eb8d732be44ff4407f432b34806_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a29e1d25e7a719a649e71919a08892895}\label{namespaceut__mpi__module_a29e1d25e7a719a649e71919a08892895}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_l2\_ut@{ut\_l2\_ut}}
\index{ut\_l2\_ut@{ut\_l2\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_l2\_ut()}{ut\_l2\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+l2\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 1277 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1277       \textcolor{comment}{!}}
\DoxyCodeLine{1278       \textcolor{comment}{! 入力スペクトルデータに L\string^2 演算子(=-\/水平ラプラシアン)を作用する.}}
\DoxyCodeLine{1279       \textcolor{comment}{!}}
\DoxyCodeLine{1280       \textcolor{comment}{! L\string^2 演算子は単位球面上の水平ラプラシアンの逆符号にあたる.}}
\DoxyCodeLine{1281       \textcolor{comment}{!  入力スペクトルデ ータに対応する格子点データに演算子}}
\DoxyCodeLine{1282       \textcolor{comment}{!}}
\DoxyCodeLine{1283       \textcolor{comment}{!     L\string^2 = -\/1/cos\string^2φ・∂\string^2/∂λ\string^2 -\/ 1/cosφ・∂/∂φ(cosφ∂/∂φ)}}
\DoxyCodeLine{1284       \textcolor{comment}{!}}
\DoxyCodeLine{1285       \textcolor{comment}{! を作用させたデータのスペクトル変換が返される.}}
\DoxyCodeLine{1286       \textcolor{comment}{!}}
\DoxyCodeLine{1287 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut}
\DoxyCodeLine{1288       \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{1289 }
\DoxyCodeLine{1290 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}             :: ut\_L2\_ut}
\DoxyCodeLine{1291       \textcolor{comment}{!(out) L\string^2 演算子を作用された 2 次元スペクトルデータ}}
\DoxyCodeLine{1292 }
\DoxyCodeLine{1293       ut\_l2\_ut = -\/ua\_laplah\_ua(ut)}
\DoxyCodeLine{1294 }

\end{DoxyCode}


References ua\+\_\+laplah\+\_\+ua().



Referenced by ut\+\_\+potential2vectormpi(), and ut\+\_\+radrotrot\+\_\+xvh\+\_\+xvh\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a29e1d25e7a719a649e71919a08892895_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a29e1d25e7a719a649e71919a08892895_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a9c13b44212a45229669fd8bcbd53150b}\label{namespaceut__mpi__module_a9c13b44212a45229669fd8bcbd53150b}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_l2inv\_ut@{ut\_l2inv\_ut}}
\index{ut\_l2inv\_ut@{ut\_l2inv\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_l2inv\_ut()}{ut\_l2inv\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+l2inv\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 1298 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1298       \textcolor{comment}{!}}
\DoxyCodeLine{1299       \textcolor{comment}{! 入力スペクトルデータに L\string^2 演算子の逆演算(-\/逆水平ラプラシアン)を}}
\DoxyCodeLine{1300       \textcolor{comment}{! 作用する.}}
\DoxyCodeLine{1301       \textcolor{comment}{!}}
\DoxyCodeLine{1302       \textcolor{comment}{! スペクトルデータに L\string^2 演算子を作用させる関数 ut\_L2\_ut の逆計算を}}
\DoxyCodeLine{1303       \textcolor{comment}{! 行う関数である.}}
\DoxyCodeLine{1304       \textcolor{comment}{!}}
\DoxyCodeLine{1305 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut}
\DoxyCodeLine{1306       \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{1307 }
\DoxyCodeLine{1308 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}             :: ut\_L2Inv\_ut}
\DoxyCodeLine{1309       \textcolor{comment}{!(out) L\string^2 演算子の逆演算を作用された 2 次元スペクトルデータ}}
\DoxyCodeLine{1310 }
\DoxyCodeLine{1311       ut\_l2inv\_ut = -\/ua\_laplahinv\_ua(ut)}
\DoxyCodeLine{1312 }

\end{DoxyCode}


References ua\+\_\+laplahinv\+\_\+ua().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a9c13b44212a45229669fd8bcbd53150b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a555784ac52026af836b059e5455877e0}\label{namespaceut__mpi__module_a555784ac52026af836b059e5455877e0}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_lapla\_ut@{ut\_lapla\_ut}}
\index{ut\_lapla\_ut@{ut\_lapla\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_lapla\_ut()}{ut\_lapla\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+lapla\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 1219 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1219       \textcolor{comment}{! 入力スペクトルデータにラプラシアン}}
\DoxyCodeLine{1220       \textcolor{comment}{!}}
\DoxyCodeLine{1221       \textcolor{comment}{!     ▽\string^2 =   1/r\string^2 cos\string^2φ・∂\string^2/∂λ\string^2}}
\DoxyCodeLine{1222       \textcolor{comment}{!            + 1/r\string^2 cosφ・∂/∂φ(cosφ∂/∂φ)}}
\DoxyCodeLine{1223       \textcolor{comment}{!            + 1/r\string^2 ∂/∂r (r\string^2 ∂/∂r)}}
\DoxyCodeLine{1224       \textcolor{comment}{!}}
\DoxyCodeLine{1225       \textcolor{comment}{! を作用する.}}
\DoxyCodeLine{1226       \textcolor{comment}{!}}
\DoxyCodeLine{1227       \textcolor{comment}{! スペクトルデータのラプラシアンとは, 対応する格子点データに}}
\DoxyCodeLine{1228       \textcolor{comment}{! ラプラシアンを作用させたデータのスペクトル変換のことである.}}
\DoxyCodeLine{1229       \textcolor{comment}{!}}
\DoxyCodeLine{1230 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut}
\DoxyCodeLine{1231       \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{1232 }
\DoxyCodeLine{1233 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}             :: ut\_Lapla\_ut}
\DoxyCodeLine{1234       \textcolor{comment}{!(out) ラプラシアンを作用された 2 次元スペクトルデータ}}
\DoxyCodeLine{1235 }
\DoxyCodeLine{1236       ut\_lapla\_ut = ut\_divrad\_ut(ut\_drad\_ut(ut)) \&}
\DoxyCodeLine{1237                    + ut\_uz(uz\_ut(ua\_laplah\_ua(ut))/uz\_rad**2)}
\DoxyCodeLine{1238 }

\end{DoxyCode}


References ua\+\_\+laplah\+\_\+ua(), ut\+\_\+divrad\+\_\+ut(), ut\+\_\+drad\+\_\+ut(), ut\+\_\+uz(), uz\+\_\+rad, and uz\+\_\+ut().



Referenced by ut\+\_\+laplapol2polgrid\+\_\+ut(), ut\+\_\+laplapol2poltau\+\_\+ut(), ut\+\_\+potential2rotationmpi(), and uz\+\_\+laplapol2pol\+\_\+uz().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a555784ac52026af836b059e5455877e0_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a555784ac52026af836b059e5455877e0_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_acfac93434de7671be57f901202543c18}\label{namespaceut__mpi__module_acfac93434de7671be57f901202543c18}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_laplapol2polgrid\_ut@{ut\_laplapol2polgrid\_ut}}
\index{ut\_laplapol2polgrid\_ut@{ut\_laplapol2polgrid\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_laplapol2polgrid\_ut()}{ut\_laplapol2polgrid\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+laplapol2polgrid\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut,  }\item[{character(len=2), intent(in), optional}]{cond,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Definition at line 3007 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{3007       \textcolor{comment}{!}}
\DoxyCodeLine{3008       \textcolor{comment}{! 速度ポロイダルポテンシャルΦを▽\string^2Φから計算する.}}
\DoxyCodeLine{3009       \textcolor{comment}{! チェビシェフ格子点空間で境界条件を適用している.}}
\DoxyCodeLine{3010       \textcolor{comment}{!}}
\DoxyCodeLine{3011       \textcolor{comment}{! この関数を用いるためには ut\_Initial にて設定する}}
\DoxyCodeLine{3012       \textcolor{comment}{! チェビシェフ切断波数(lm)と鉛直格子点数(km)を等しく}}
\DoxyCodeLine{3013       \textcolor{comment}{! しておく必要がある.}}
\DoxyCodeLine{3014       \textcolor{comment}{!}}
\DoxyCodeLine{3015       \textcolor{comment}{! 速度ポロイダルポテンシャルΦを f = ▽\string^2Φから定める式は}}
\DoxyCodeLine{3016       \textcolor{comment}{!}}
\DoxyCodeLine{3017       \textcolor{comment}{!    ▽\string^2Φ = f}}
\DoxyCodeLine{3018       \textcolor{comment}{!      Φ = const. at boundaries.}}
\DoxyCodeLine{3019       \textcolor{comment}{!      ∂Φ/∂r = 0 at boundaries          (粘着条件)}}
\DoxyCodeLine{3020       \textcolor{comment}{!      or ∂\string^2Φ/∂r\string^2 = 0 at boundaries   (応力なし条件)}}
\DoxyCodeLine{3021       \textcolor{comment}{!}}
\DoxyCodeLine{3022       \textcolor{comment}{! 最初に呼ばれるときはオプショナル引数 new に関係なく行列が設定される.}}
\DoxyCodeLine{3023       \textcolor{comment}{!}}
\DoxyCodeLine{3024       \textcolor{comment}{! 最終的にチェビシェフ係数の解が欲しい場合には, uz\_LaplaPol2Pol\_uz に}}
\DoxyCodeLine{3025       \textcolor{comment}{! 比べてチェビシェフ -\/-\/ 格子点変換が 1 回分少なくて済む.}}
\DoxyCodeLine{3026       \textcolor{comment}{!}}
\DoxyCodeLine{3027 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)},\textcolor{keywordtype}{intent(in)}  :: ut}
\DoxyCodeLine{3028               \textcolor{comment}{!(in) 入力▽\string^2φ分布}}
\DoxyCodeLine{3029 }
\DoxyCodeLine{3030 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}             :: ut\_LaplaPol2PolGrid\_ut}
\DoxyCodeLine{3031               \textcolor{comment}{!(out) 出力ポロイダルポテンシャル分布}}
\DoxyCodeLine{3032 }
\DoxyCodeLine{3033       \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond}
\DoxyCodeLine{3034               \textcolor{comment}{!(in) 境界条件スイッチ. 省略時は 'RR'}}
\DoxyCodeLine{3035               \textcolor{comment}{!     RR    : 両端粘着条件}}
\DoxyCodeLine{3036               \textcolor{comment}{!     RF    : 上端粘着, 下端応力なし条件}}
\DoxyCodeLine{3037               \textcolor{comment}{!     FR    : 上端応力なし, 下端粘着条件}}
\DoxyCodeLine{3038               \textcolor{comment}{!     FF    : 両端応力なし条件}}
\DoxyCodeLine{3039 }
\DoxyCodeLine{3040       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{3041               \textcolor{comment}{!(in) true だと境界条件計算用行列を強制的に新たに作る.}}
\DoxyCodeLine{3042               \textcolor{comment}{!     default は false.}}
\DoxyCodeLine{3043 }
\DoxyCodeLine{3044 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{3045       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{3046 }
\DoxyCodeLine{3047 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}  :: uz\_work}
\DoxyCodeLine{3048 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}  :: ut\_work}
\DoxyCodeLine{3049 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:lm,0:lm)}           :: tt\_I}
\DoxyCodeLine{3050 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:lm,0:km)}           :: tz\_work}
\DoxyCodeLine{3051       \textcolor{keywordtype}{logical}                                 :: rigid1=.true.   \textcolor{comment}{! 境界条件}}
\DoxyCodeLine{3052       \textcolor{keywordtype}{logical}                                 :: rigid2=.true.   \textcolor{comment}{! 境界条件}}
\DoxyCodeLine{3053 }
\DoxyCodeLine{3054       \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{3055       \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{3056       \textcolor{keywordtype}{integer} :: l,n}
\DoxyCodeLine{3057       \textcolor{keywordtype}{save}    :: alu, kp, first}
\DoxyCodeLine{3058 }
\DoxyCodeLine{3059       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(cond)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3060          rigid1=.true. ; rigid2=.true.}
\DoxyCodeLine{3061       \textcolor{keywordflow}{else}}
\DoxyCodeLine{3062          \textcolor{keywordflow}{select case} (cond)}
\DoxyCodeLine{3063          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})}
\DoxyCodeLine{3064             rigid1 = .true.  ; rigid2 = .true.}
\DoxyCodeLine{3065          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})}
\DoxyCodeLine{3066             rigid1 = .true.  ; rigid2 = .false.}
\DoxyCodeLine{3067          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})}
\DoxyCodeLine{3068             rigid1 = .false. ; rigid2 = .true.}
\DoxyCodeLine{3069          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})}
\DoxyCodeLine{3070             rigid1 = .false. ; rigid2 = .false.}
\DoxyCodeLine{3071 \textcolor{keywordflow}{         case default}}
\DoxyCodeLine{3072             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'ut\_LaplaPol2PolGrid\_ut'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{3073 \textcolor{keywordflow}{         end select}}
\DoxyCodeLine{3074 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3075 }
\DoxyCodeLine{3076       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3077          new\_matrix=.false.}
\DoxyCodeLine{3078       \textcolor{keywordflow}{else}}
\DoxyCodeLine{3079          new\_matrix=new}
\DoxyCodeLine{3080 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3081 }
\DoxyCodeLine{3082       \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3083          first = .false.}
\DoxyCodeLine{3084 }
\DoxyCodeLine{3085          \textcolor{keywordflow}{if} ( lm /= km ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3086             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'ut\_LaplaPol2PolGrid\_ut'}, \&}
\DoxyCodeLine{3087              \textcolor{stringliteral}{'Chebyshev truncation and number of grid points should be same.'})}
\DoxyCodeLine{3088 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{3089 }
\DoxyCodeLine{3090          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{3091          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{3092          \textcolor{keyword}{allocate}(alu(nmc,0:km,0:lm),kp(nmc,0:lm))}
\DoxyCodeLine{3093 }
\DoxyCodeLine{3094          \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{3095             ut\_work = 0.0d0 ; ut\_work(:,l) = 1.0d0}
\DoxyCodeLine{3096 }
\DoxyCodeLine{3097             \textcolor{comment}{! 各水平波数に関して独立の式}}
\DoxyCodeLine{3098             alu(:,:,l) = uz\_ut(ut\_lapla\_ut(ut\_work))}
\DoxyCodeLine{3099 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3100 }
\DoxyCodeLine{3101          \textcolor{comment}{! 運動学的条件. 流線は境界で一定}}
\DoxyCodeLine{3102          tt\_i = 0.0d0}
\DoxyCodeLine{3103          \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{3104             tt\_i(l,l)=1.0d0}
\DoxyCodeLine{3105 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3106 }
\DoxyCodeLine{3107          \textcolor{comment}{! 非電気伝導体}}
\DoxyCodeLine{3108          tz\_work = az\_at(tt\_i)}
\DoxyCodeLine{3109 }
\DoxyCodeLine{3110          \textcolor{keywordflow}{do} n=1,nmc}
\DoxyCodeLine{3111             alu(n,0,:)  = tz\_work(:,0)}
\DoxyCodeLine{3112             alu(n,km,:) = tz\_work(:,km)}
\DoxyCodeLine{3113 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3114 }
\DoxyCodeLine{3115          \textcolor{comment}{! 力学的条件粘着条件}}
\DoxyCodeLine{3116          \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3117             tz\_work=az\_at(at\_dr\_at(tt\_i))}
\DoxyCodeLine{3118          \textcolor{keywordflow}{else}}
\DoxyCodeLine{3119             tz\_work=az\_at(at\_dr\_at(at\_dr\_at(tt\_i)))}
\DoxyCodeLine{3120 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{3121          \textcolor{keywordflow}{do} n=1,nmc}
\DoxyCodeLine{3122             alu(n,1,:) = tz\_work(:,0)}
\DoxyCodeLine{3123 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3124 }
\DoxyCodeLine{3125          \textcolor{comment}{! 力学的条件粘着条件}}
\DoxyCodeLine{3126          \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3127             tz\_work=az\_at(at\_dr\_at(tt\_i))}
\DoxyCodeLine{3128          \textcolor{keywordflow}{else}}
\DoxyCodeLine{3129             tz\_work=az\_at(at\_dr\_at(at\_dr\_at(tt\_i)))}
\DoxyCodeLine{3130 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{3131          \textcolor{keywordflow}{do} n=1,nmc}
\DoxyCodeLine{3132             alu(n,km-\/1,:) = tz\_work(:,km)}
\DoxyCodeLine{3133 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3134 }
\DoxyCodeLine{3135          \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{3136 }
\DoxyCodeLine{3137          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_LaplaPol2PolGrid\_ut'},\&}
\DoxyCodeLine{3138                            \textcolor{stringliteral}{'Matrix to apply  b.c. newly produced.'})}
\DoxyCodeLine{3139 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3140 }
\DoxyCodeLine{3141       uz\_work         = uz\_ut(ut)}
\DoxyCodeLine{3142       uz\_work(:,1)    = 0.0d0               \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{3143       uz\_work(:,km-\/1) = 0.0d0               \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{3144       uz\_work(:,0)    = 0.0d0               \textcolor{comment}{! 運動学的条件}}
\DoxyCodeLine{3145       uz\_work(:,km)   = 0.0d0               \textcolor{comment}{! 運動学的条件}}
\DoxyCodeLine{3146 }
\DoxyCodeLine{3147       ut\_laplapol2polgrid\_ut = lusolve(alu,kp,uz\_work)}
\DoxyCodeLine{3148 }

\end{DoxyCode}


References at\+\_\+module\+::km, lm, ut\+\_\+lapla\+\_\+ut(), and uz\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_acfac93434de7671be57f901202543c18_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_adbae848ef0b494d5a32cce10cb6ad98f}\label{namespaceut__mpi__module_adbae848ef0b494d5a32cce10cb6ad98f}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_laplapol2poltau\_ut@{ut\_laplapol2poltau\_ut}}
\index{ut\_laplapol2poltau\_ut@{ut\_laplapol2poltau\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_laplapol2poltau\_ut()}{ut\_laplapol2poltau\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+laplapol2poltau\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut,  }\item[{character(len=2), intent(in), optional}]{cond,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Definition at line 2883 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2883       \textcolor{comment}{!}}
\DoxyCodeLine{2884       \textcolor{comment}{! 速度ポロイダルポテンシャルΦを▽\string^2Φから計算する.}}
\DoxyCodeLine{2885       \textcolor{comment}{! チェビシェフタウ法で境界条件を適用している.}}
\DoxyCodeLine{2886       \textcolor{comment}{!}}
\DoxyCodeLine{2887       \textcolor{comment}{! 速度ポロイダルポテンシャルΦを f = ▽\string^2Φから定める式は}}
\DoxyCodeLine{2888       \textcolor{comment}{!}}
\DoxyCodeLine{2889       \textcolor{comment}{!    ▽\string^2Φ = f}}
\DoxyCodeLine{2890       \textcolor{comment}{!      Φ = const. at boundaries.}}
\DoxyCodeLine{2891       \textcolor{comment}{!      ∂Φ/∂r = 0 at boundaries          (粘着条件)}}
\DoxyCodeLine{2892       \textcolor{comment}{!      or ∂\string^2Φ/∂r\string^2 = 0 at boundaries   (応力なし条件)}}
\DoxyCodeLine{2893       \textcolor{comment}{!}}
\DoxyCodeLine{2894       \textcolor{comment}{! 最初に呼ばれるときはオプショナル引数 new に関係なく行列が設定される.}}
\DoxyCodeLine{2895       \textcolor{comment}{!}}
\DoxyCodeLine{2896 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)},\textcolor{keywordtype}{intent(in)}  :: ut}
\DoxyCodeLine{2897               \textcolor{comment}{!(in) 入力▽\string^2φ分布}}
\DoxyCodeLine{2898 }
\DoxyCodeLine{2899 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}             :: ut\_LaplaPol2PolTau\_ut}
\DoxyCodeLine{2900               \textcolor{comment}{!(out) 出力ポロイダルポテンシャル分布}}
\DoxyCodeLine{2901 }
\DoxyCodeLine{2902       \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond}
\DoxyCodeLine{2903               \textcolor{comment}{!(in) 境界条件スイッチ. 省略時は 'RR'}}
\DoxyCodeLine{2904               \textcolor{comment}{!     RR    : 両端粘着条件}}
\DoxyCodeLine{2905               \textcolor{comment}{!     RF    : 上端粘着, 下端応力なし条件}}
\DoxyCodeLine{2906               \textcolor{comment}{!     FR    : 上端応力なし, 下端粘着条件}}
\DoxyCodeLine{2907               \textcolor{comment}{!     FF    : 両端応力なし条件}}
\DoxyCodeLine{2908 }
\DoxyCodeLine{2909       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{2910               \textcolor{comment}{!(in) true だと境界条件計算用行列を強制的に新たに作る.}}
\DoxyCodeLine{2911               \textcolor{comment}{!     default は false.}}
\DoxyCodeLine{2912 }
\DoxyCodeLine{2913 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{2914       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{2915 }
\DoxyCodeLine{2916 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}  :: uz\_work}
\DoxyCodeLine{2917 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}  :: ut\_work}
\DoxyCodeLine{2918       \textcolor{keywordtype}{logical}                       :: rigid1=.true.   \textcolor{comment}{! 境界条件}}
\DoxyCodeLine{2919       \textcolor{keywordtype}{logical}                       :: rigid2=.true.   \textcolor{comment}{! 境界条件}}
\DoxyCodeLine{2920 }
\DoxyCodeLine{2921       \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{2922       \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{2923       \textcolor{keywordtype}{integer} :: l}
\DoxyCodeLine{2924       \textcolor{keywordtype}{save}    :: alu, kp, first}
\DoxyCodeLine{2925 }
\DoxyCodeLine{2926       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(cond)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2927          rigid1=.true. ; rigid2=.true.}
\DoxyCodeLine{2928       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2929          \textcolor{keywordflow}{select case} (cond)}
\DoxyCodeLine{2930          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})}
\DoxyCodeLine{2931             rigid1 = .true.  ; rigid2 = .true.}
\DoxyCodeLine{2932          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})}
\DoxyCodeLine{2933             rigid1 = .true.  ; rigid2 = .false.}
\DoxyCodeLine{2934          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})}
\DoxyCodeLine{2935             rigid1 = .false. ; rigid2 = .true.}
\DoxyCodeLine{2936          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})}
\DoxyCodeLine{2937             rigid1 = .false. ; rigid2 = .false.}
\DoxyCodeLine{2938 \textcolor{keywordflow}{         case default}}
\DoxyCodeLine{2939             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'ut\_LaplaPol2PolTau\_ut'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{2940 \textcolor{keywordflow}{         end select}}
\DoxyCodeLine{2941 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2942 }
\DoxyCodeLine{2943       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2944          new\_matrix=.false.}
\DoxyCodeLine{2945       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2946          new\_matrix=new}
\DoxyCodeLine{2947 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2948 }
\DoxyCodeLine{2949       \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2950          first = .false.}
\DoxyCodeLine{2951 }
\DoxyCodeLine{2952          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{2953          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{2954          \textcolor{keyword}{allocate}(alu(nmc,0:lm,0:lm),kp(nmc,0:lm))}
\DoxyCodeLine{2955 }
\DoxyCodeLine{2956          alu = 0.0d0}
\DoxyCodeLine{2957          \textcolor{keywordflow}{do} l=0,lm-\/2}
\DoxyCodeLine{2958             ut\_work = 0.0d0 ; ut\_work(:,l) = 1.0d0}
\DoxyCodeLine{2959 }
\DoxyCodeLine{2960             \textcolor{comment}{! 各水平波数に関して独立の式}}
\DoxyCodeLine{2961             alu(:,:,l) = ut\_lapla\_ut(ut\_work)}
\DoxyCodeLine{2962 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{2963 }
\DoxyCodeLine{2964          \textcolor{comment}{! 運動学的条件. 流線は境界で一定}}
\DoxyCodeLine{2965          \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{2966             ut\_work=0.0d0}
\DoxyCodeLine{2967             ut\_work(:,l) = 1.0d0}
\DoxyCodeLine{2968             uz\_work = uz\_ut(ut\_work)}
\DoxyCodeLine{2969 }
\DoxyCodeLine{2970             alu(:,lm-\/1,l)  = uz\_work(:,0)}
\DoxyCodeLine{2971             alu(:,lm,l)    = uz\_work(:,km)}
\DoxyCodeLine{2972 }
\DoxyCodeLine{2973             \textcolor{comment}{! 力学的条件粘着条件}}
\DoxyCodeLine{2974             \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2975                uz\_work=uz\_ut(ut\_drad\_ut(ut\_work))}
\DoxyCodeLine{2976             \textcolor{keywordflow}{else}}
\DoxyCodeLine{2977                uz\_work=uz\_ut(ut\_drad\_ut(ut\_drad\_ut(ut\_work)))}
\DoxyCodeLine{2978 \textcolor{keywordflow}{            endif}}
\DoxyCodeLine{2979             alu(:,lm-\/2,l) = uz\_work(:,0)}
\DoxyCodeLine{2980 }
\DoxyCodeLine{2981             \textcolor{comment}{! 力学的条件粘着条件}}
\DoxyCodeLine{2982             \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2983                uz\_work=uz\_ut(ut\_drad\_ut(ut\_work))}
\DoxyCodeLine{2984             \textcolor{keywordflow}{else}}
\DoxyCodeLine{2985                uz\_work=uz\_ut(ut\_drad\_ut(ut\_drad\_ut(ut\_work)))}
\DoxyCodeLine{2986 \textcolor{keywordflow}{            endif}}
\DoxyCodeLine{2987             alu(:,lm-\/3,l) = uz\_work(:,km)}
\DoxyCodeLine{2988 \textcolor{keywordflow}{         end do}}
\DoxyCodeLine{2989 }
\DoxyCodeLine{2990          \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{2991 }
\DoxyCodeLine{2992          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_LaplaPol2PolTau\_ut'},\&}
\DoxyCodeLine{2993                            \textcolor{stringliteral}{'Matrix to apply  b.c. newly produced.'})}
\DoxyCodeLine{2994 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2995 }
\DoxyCodeLine{2996       ut\_work         = ut}
\DoxyCodeLine{2997       ut\_work(:,lm)   = 0.0d0               \textcolor{comment}{! 運動学的条件}}
\DoxyCodeLine{2998       ut\_work(:,lm-\/1) = 0.0d0               \textcolor{comment}{! 運動学的条件}}
\DoxyCodeLine{2999       ut\_work(:,lm-\/2) = 0.0d0               \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{3000       ut\_work(:,lm-\/3) = 0.0d0               \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{3001 }
\DoxyCodeLine{3002       ut\_laplapol2poltau\_ut = lusolve(alu,kp,ut\_work)}
\DoxyCodeLine{3003 }

\end{DoxyCode}


References at\+\_\+module\+::km, lm, ut\+\_\+drad\+\_\+ut(), ut\+\_\+lapla\+\_\+ut(), and uz\+\_\+ut().

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



Definition at line 3504 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{3504       \textcolor{comment}{!}}
\DoxyCodeLine{3505       \textcolor{comment}{! モジュールの終了処理(割り付け配列の解放)をおこなう.}}
\DoxyCodeLine{3506       \textcolor{comment}{!}}
\DoxyCodeLine{3507       \textcolor{comment}{! このサブルーチンを単独で用いるのでなく,}}
\DoxyCodeLine{3508       \textcolor{comment}{! 上位サブルーチン wa\_mpi\_Finalize を使用すること.}}
\DoxyCodeLine{3509       \textcolor{comment}{!}}
\DoxyCodeLine{3510       \textcolor{keyword}{deallocate}(h\_rad)}
\DoxyCodeLine{3511       \textcolor{keyword}{deallocate}(h\_rad\_weight)}
\DoxyCodeLine{3512 }
\DoxyCodeLine{3513       \textcolor{keyword}{deallocate}(xvh\_lon)}
\DoxyCodeLine{3514       \textcolor{keyword}{deallocate}(xvh\_lat)}
\DoxyCodeLine{3515       \textcolor{keyword}{deallocate}(xvh\_rad)}
\DoxyCodeLine{3516 }
\DoxyCodeLine{3517       \textcolor{keyword}{deallocate}(wh\_rad)}
\DoxyCodeLine{3518       \textcolor{keyword}{deallocate}(uz\_rad)}
\DoxyCodeLine{3519 }
\DoxyCodeLine{3520       \textcolor{keyword}{call }ua\_mpi\_finalize}
\DoxyCodeLine{3521       \textcolor{keyword}{call }at\_finalize}
\DoxyCodeLine{3522 }
\DoxyCodeLine{3523       \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_mpi\_finalize'},\&}
\DoxyCodeLine{3524            \textcolor{stringliteral}{'ut\_mpi\_module (2019/05/29) is finalized'})}
\DoxyCodeLine{3525 }

\end{DoxyCode}


References at\+\_\+module\+::at\+\_\+finalize(), h\+\_\+rad, h\+\_\+rad\+\_\+weight, ua\+\_\+mpi\+\_\+module\+::ua\+\_\+mpi\+\_\+finalize(), uz\+\_\+rad, wh\+\_\+rad, xvh\+\_\+lat, xvh\+\_\+lon, and xvh\+\_\+rad.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a850ff82982733303587cf87072eaf1bb_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a32191b0ca7f0560c7a537f00874f44c0}\label{namespaceut__mpi__module_a32191b0ca7f0560c7a537f00874f44c0}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_mpi\_initial@{ut\_mpi\_initial}}
\index{ut\_mpi\_initial@{ut\_mpi\_initial}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_mpi\_initial()}{ut\_mpi\_initial()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+mpi\+\_\+initial (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{i,  }\item[{integer, intent(in)}]{j,  }\item[{integer, intent(in)}]{k,  }\item[{integer, intent(in)}]{n,  }\item[{integer, intent(in)}]{l,  }\item[{real(dp), intent(in)}]{r\+\_\+in,  }\item[{real(dp), intent(in)}]{r\+\_\+out,  }\item[{integer, intent(in), optional}]{np,  }\item[{integer, intent(in), optional}]{npv }\end{DoxyParamCaption})}



Definition at line 477 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{477      \textcolor{comment}{!}}
\DoxyCodeLine{478      \textcolor{comment}{! スペクトル変換の格子点数, 波数, 動径座標の範囲を設定する.}}
\DoxyCodeLine{479      \textcolor{comment}{!}}
\DoxyCodeLine{480      \textcolor{comment}{! 他の関数を呼ぶ前に, 最初にこのサブルーチンを呼んで初期設定を}}
\DoxyCodeLine{481      \textcolor{comment}{! しなければならない.}}
\DoxyCodeLine{482      \textcolor{comment}{!}}
\DoxyCodeLine{483      \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: i              \textcolor{comment}{! 格子点数(経度λ)}}
\DoxyCodeLine{484      \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: j              \textcolor{comment}{! 格子点数(緯度φ)}}
\DoxyCodeLine{485      \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: k              \textcolor{comment}{! 格子点数(動径 r)}}
\DoxyCodeLine{486      \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: n              \textcolor{comment}{! 切断波数(水平全波数)}}
\DoxyCodeLine{487      \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)} :: l              \textcolor{comment}{! 切断波数(動径波数)}}
\DoxyCodeLine{488 }
\DoxyCodeLine{489 \textcolor{keywordtype}{     real}(DP),\textcolor{keywordtype}{intent(in)} :: r\_in           \textcolor{comment}{! 球殻内半径}}
\DoxyCodeLine{490 \textcolor{keywordtype}{     real}(DP),\textcolor{keywordtype}{intent(in)} :: r\_out          \textcolor{comment}{! 球殻外半径}}
\DoxyCodeLine{491 }
\DoxyCodeLine{492      \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: np   \textcolor{comment}{! OPENMP での最大スレッド数(dummy)}}
\DoxyCodeLine{493      \textcolor{keywordtype}{integer},\textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: npv  \textcolor{comment}{! 鉛直並列プロセス数}}
\DoxyCodeLine{494 }
\DoxyCodeLine{495      \textcolor{keywordtype}{logical} :: wa\_initialize=.true.   \textcolor{comment}{! wa\_initial スイッチ}}
\DoxyCodeLine{496      \textcolor{keywordtype}{integer} :: npv\_in                 \textcolor{comment}{! 鉛直並列プロセス数}}
\DoxyCodeLine{497 }
\DoxyCodeLine{498      im = i  ; jm = j ; km = k}
\DoxyCodeLine{499      nm = n  ; lm = l}
\DoxyCodeLine{500      ri = r\_in ; ro = r\_out}
\DoxyCodeLine{501 }
\DoxyCodeLine{502      \textcolor{keywordflow}{if} (\textcolor{keyword}{present}(npv)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{503         npv\_in = npv}
\DoxyCodeLine{504      \textcolor{keywordflow}{else}}
\DoxyCodeLine{505         npv\_in = 1}
\DoxyCodeLine{506 \textcolor{keywordflow}{     endif}}
\DoxyCodeLine{507 }
\DoxyCodeLine{508      \textcolor{keywordflow}{if} ( wa\_initialize ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{509         \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(np) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{510            \textcolor{keyword}{call }ua\_mpi\_initial(nm,im,jm,km+1,np=np,npv=npv\_in)}
\DoxyCodeLine{511         \textcolor{keywordflow}{else}}
\DoxyCodeLine{512            \textcolor{keyword}{call }ua\_mpi\_initial(nm,im,jm,km+1,npv=npv\_in)}
\DoxyCodeLine{513 \textcolor{keywordflow}{        endif}}
\DoxyCodeLine{514 \textcolor{keywordflow}{     endif}}
\DoxyCodeLine{515      nc = ncc}
\DoxyCodeLine{516 }
\DoxyCodeLine{517      \textcolor{keyword}{call }at\_initial(km,lm,r\_in,r\_out)}
\DoxyCodeLine{518 }
\DoxyCodeLine{519      \textcolor{keyword}{allocate}(h\_rad(kc))}
\DoxyCodeLine{520      \textcolor{keyword}{allocate}(h\_rad\_weight(kc))}
\DoxyCodeLine{521 }
\DoxyCodeLine{522      \textcolor{keyword}{allocate}(xvh\_lon(0:im-\/1,jc,kc))}
\DoxyCodeLine{523      \textcolor{keyword}{allocate}(xvh\_lat(0:im-\/1,jc,kc))}
\DoxyCodeLine{524      \textcolor{keyword}{allocate}(xvh\_rad(0:im-\/1,jc,kc))}
\DoxyCodeLine{525 }
\DoxyCodeLine{526      \textcolor{keyword}{allocate}(wh\_rad(nc,kc))}
\DoxyCodeLine{527      \textcolor{keyword}{allocate}(uz\_rad(nmc,0:km))}
\DoxyCodeLine{528 }
\DoxyCodeLine{529      z\_rad\_weight = z\_rad\_weight * z\_rad**2     \textcolor{comment}{! r\string^2 dr の積分重み}}
\DoxyCodeLine{530      h\_rad = z\_rad(ks-\/1:ke-\/1)}
\DoxyCodeLine{531      h\_rad\_weight = z\_rad\_weight(ks-\/1:ke-\/1)}
\DoxyCodeLine{532 }
\DoxyCodeLine{533      xvh\_lon = spread(xv\_lon,3,kc)}
\DoxyCodeLine{534      xvh\_lat = spread(xv\_lat,3,kc)}
\DoxyCodeLine{535      xvh\_rad = spread(spread(h\_rad,1,jc),1,im)}
\DoxyCodeLine{536 }
\DoxyCodeLine{537      wh\_rad = spread(h\_rad,1,nc)}
\DoxyCodeLine{538      uz\_rad = spread(z\_rad,1,nmc)}
\DoxyCodeLine{539 }
\DoxyCodeLine{540      \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_mpi\_initial'}, \&}
\DoxyCodeLine{541           \textcolor{stringliteral}{'ut\_mpi\_module (2019/05/28) is initialized'})}
\DoxyCodeLine{542 }

\end{DoxyCode}


References at\+\_\+module\+::at\+\_\+initial(), h\+\_\+rad, h\+\_\+rad\+\_\+weight, at\+\_\+module\+::im, jm, at\+\_\+module\+::km, lm, nm, ri, ro, ua\+\_\+mpi\+\_\+module\+::ua\+\_\+mpi\+\_\+initial(), uz\+\_\+rad, wh\+\_\+rad, xvh\+\_\+lat, xvh\+\_\+lon, and xvh\+\_\+rad.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a32191b0ca7f0560c7a537f00874f44c0_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ae86900d2296f8af82b92d277eccd467e}\label{namespaceut__mpi__module_ae86900d2296f8af82b92d277eccd467e}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_polmagboundariesgrid@{ut\_polmagboundariesgrid}}
\index{ut\_polmagboundariesgrid@{ut\_polmagboundariesgrid}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_polmagboundariesgrid()}{ut\_polmagboundariesgrid()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+polmagboundariesgrid (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(inout)}]{ut\+\_\+\+P\+OL,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Definition at line 3404 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{3404       \textcolor{comment}{!}}
\DoxyCodeLine{3405       \textcolor{comment}{! 磁場ポロイダルポテンシャルに対して境界条件を適用する.}}
\DoxyCodeLine{3406       \textcolor{comment}{! 鉛直実空間での境界条件適用.}}
\DoxyCodeLine{3407       \textcolor{comment}{!}}
\DoxyCodeLine{3408       \textcolor{comment}{! 鉛直実格子点空間において内部領域の値と境界条件を満たすように}}
\DoxyCodeLine{3409       \textcolor{comment}{! 条件を課している(選点法). このルーチンを用いるためには}}
\DoxyCodeLine{3410       \textcolor{comment}{! ut\_Initial にて設定するチェビシェフ切断波数(lm)と鉛直格子点数(km)を}}
\DoxyCodeLine{3411       \textcolor{comment}{! 等しくしておく必要がある.}}
\DoxyCodeLine{3412       \textcolor{comment}{!}}
\DoxyCodeLine{3413       \textcolor{comment}{! 現在のところ境界物質が非電気伝導体の場合のみ対応している.}}
\DoxyCodeLine{3414       \textcolor{comment}{! その場合, 磁場ポロイダルポテンシャルの各水平スペクトル成分 h に}}
\DoxyCodeLine{3415       \textcolor{comment}{! たいして境界条件が与えられ,}}
\DoxyCodeLine{3416       \textcolor{comment}{!}}
\DoxyCodeLine{3417       \textcolor{comment}{!  * 外側境界 : dh/dr + (n+1)h/r = 0}}
\DoxyCodeLine{3418       \textcolor{comment}{!  * 内側境界 : dh/dr -\/ nh/r = 0}}
\DoxyCodeLine{3419       \textcolor{comment}{!}}
\DoxyCodeLine{3420       \textcolor{comment}{! である. ここで n は h の水平全波数である.}}
\DoxyCodeLine{3421       \textcolor{comment}{!}}
\DoxyCodeLine{3422       \textcolor{comment}{! 最初に呼ばれるときはオプショナル引数 new に関係なく行列が設定される.}}
\DoxyCodeLine{3423       \textcolor{comment}{!}}
\DoxyCodeLine{3424 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)},\textcolor{keywordtype}{intent(inout)}   :: ut\_POL}
\DoxyCodeLine{3425               \textcolor{comment}{!(inout) 境界条件を適用するデータ. 修正された値を返す.}}
\DoxyCodeLine{3426 }
\DoxyCodeLine{3427       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{3428               \textcolor{comment}{!(in) true だと境界条件計算用行列を強制的に新たに作る.}}
\DoxyCodeLine{3429               \textcolor{comment}{!     default は false.}}
\DoxyCodeLine{3430 }
\DoxyCodeLine{3431 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{3432       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{3433 }
\DoxyCodeLine{3434 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: ut\_I}
\DoxyCodeLine{3435 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: uz\_PSI}
\DoxyCodeLine{3436 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: uz\_DPSIDR}
\DoxyCodeLine{3437 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{allocatable}      :: u\_n}
\DoxyCodeLine{3438 }
\DoxyCodeLine{3439 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}  :: uz\_POL}
\DoxyCodeLine{3440 }
\DoxyCodeLine{3441       \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{3442       \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{3443       \textcolor{keywordtype}{integer}  :: l, n, nn(2)}
\DoxyCodeLine{3444       \textcolor{keywordtype}{save}     :: alu, kp, first}
\DoxyCodeLine{3445 }
\DoxyCodeLine{3446       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3447          new\_matrix=.false.}
\DoxyCodeLine{3448       \textcolor{keywordflow}{else}}
\DoxyCodeLine{3449          new\_matrix=new}
\DoxyCodeLine{3450 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3451 }
\DoxyCodeLine{3452       \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3453          first = .false.}
\DoxyCodeLine{3454 }
\DoxyCodeLine{3455          \textcolor{keywordflow}{if} ( lm /= km ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3456             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'PolMagBoundariesGrid'}, \&}
\DoxyCodeLine{3457              \textcolor{stringliteral}{'Chebyshev truncation and number of grid points should be same.'})}
\DoxyCodeLine{3458 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{3459 }
\DoxyCodeLine{3460          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) )  \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{3461          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) )   \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{3462          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(ut\_i) ) \textcolor{keyword}{deallocate}(ut\_i)}
\DoxyCodeLine{3463          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(uz\_psi) ) \textcolor{keyword}{deallocate}(uz\_psi)}
\DoxyCodeLine{3464          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(uz\_dpsidr) ) \textcolor{keyword}{deallocate}(uz\_dpsidr)}
\DoxyCodeLine{3465          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(u\_n) ) \textcolor{keyword}{deallocate}(u\_n)}
\DoxyCodeLine{3466 }
\DoxyCodeLine{3467          \textcolor{keyword}{allocate}(alu(nmc,0:lm,0:lm),kp(nmc,0:lm))}
\DoxyCodeLine{3468          \textcolor{keyword}{allocate}(ut\_i(nmc,0:lm),u\_n(nmc))}
\DoxyCodeLine{3469          \textcolor{keyword}{allocate}(uz\_psi(nmc,0:km),uz\_dpsidr(nmc,0:km))}
\DoxyCodeLine{3470 }
\DoxyCodeLine{3471          \textcolor{keywordflow}{do} n=1,nmc}
\DoxyCodeLine{3472             nn=nm\_l(n)}
\DoxyCodeLine{3473             u\_n(n) = nn(1)}
\DoxyCodeLine{3474 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3475 }
\DoxyCodeLine{3476          \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{3477             ut\_i = 0.0d0 ; ut\_i(:,l) = 1.0d0}
\DoxyCodeLine{3478             uz\_psi = uz\_ut(ut\_i)}
\DoxyCodeLine{3479             alu(:,:,l) = uz\_psi}
\DoxyCodeLine{3480 }
\DoxyCodeLine{3481             uz\_dpsidr = uz\_ut(ut\_drad\_ut(ut\_i))}
\DoxyCodeLine{3482             alu(:,0,l)  = uz\_dpsidr(:,0) + (u\_n+1) * uz\_psi(:,0)/z\_rad(0)}
\DoxyCodeLine{3483             alu(:,km,l) = uz\_dpsidr(:,km) -\/ u\_n * uz\_psi(:,km)/z\_rad(km)}
\DoxyCodeLine{3484 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3485 }
\DoxyCodeLine{3486          \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{3487 }
\DoxyCodeLine{3488          \textcolor{keyword}{deallocate}(ut\_i,uz\_psi,uz\_dpsidr,u\_n)}
\DoxyCodeLine{3489 }
\DoxyCodeLine{3490          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'PolmagBoundariesGrid'},\&}
\DoxyCodeLine{3491                            \textcolor{stringliteral}{'Matrix to apply  b.c. newly produced.'})}
\DoxyCodeLine{3492 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3493 }
\DoxyCodeLine{3494       uz\_pol       = uz\_ut(ut\_pol)}
\DoxyCodeLine{3495       uz\_pol(:,0)  = 0.0d0}
\DoxyCodeLine{3496       uz\_pol(:,km) = 0.0d0}
\DoxyCodeLine{3497       ut\_pol = lusolve(alu,kp,uz\_pol)}
\DoxyCodeLine{3498 }

\end{DoxyCode}


References at\+\_\+module\+::km, lm, ut\+\_\+drad\+\_\+ut(), and uz\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ae86900d2296f8af82b92d277eccd467e_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_acd00abc66819e03587fd78d1b5f69c52}\label{namespaceut__mpi__module_acd00abc66819e03587fd78d1b5f69c52}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_polmagboundariestau@{ut\_polmagboundariestau}}
\index{ut\_polmagboundariestau@{ut\_polmagboundariestau}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_polmagboundariestau()}{ut\_polmagboundariestau()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+polmagboundariestau (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(inout)}]{ut\+\_\+\+P\+OL,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Definition at line 3318 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{3318       \textcolor{comment}{!}}
\DoxyCodeLine{3319       \textcolor{comment}{! 磁場ポロイダルポテンシャルに対して境界条件を適用する.}}
\DoxyCodeLine{3320       \textcolor{comment}{! Chebyshev 空間での境界条件適用}}
\DoxyCodeLine{3321       \textcolor{comment}{!}}
\DoxyCodeLine{3322       \textcolor{comment}{! チェビシェフ空間において境界条件を満たすべく高次の係数を定める方法を}}
\DoxyCodeLine{3323       \textcolor{comment}{! とっている(タウ法). 現在のところ境界物質が非電気伝導体の場合のみ}}
\DoxyCodeLine{3324       \textcolor{comment}{! 対応している. その場合, 磁場ポロイダルポテンシャルの各水平スペクトル}}
\DoxyCodeLine{3325       \textcolor{comment}{! 成分 h にたいして境界条件が与えられ,}}
\DoxyCodeLine{3326       \textcolor{comment}{!}}
\DoxyCodeLine{3327       \textcolor{comment}{!  * 外側境界 : dh/dr + (n+1)h/r = 0}}
\DoxyCodeLine{3328       \textcolor{comment}{!  * 内側境界 : dh/dr -\/ nh/r = 0}}
\DoxyCodeLine{3329       \textcolor{comment}{!}}
\DoxyCodeLine{3330       \textcolor{comment}{! である. ここで n は h の水平全波数である.}}
\DoxyCodeLine{3331       \textcolor{comment}{!}}
\DoxyCodeLine{3332       \textcolor{comment}{! 最初に呼ばれるときはオプショナル引数 new に関係なく行列が設定される.}}
\DoxyCodeLine{3333       \textcolor{comment}{!}}
\DoxyCodeLine{3334 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)},\textcolor{keywordtype}{intent(inout)}   :: ut\_POL}
\DoxyCodeLine{3335               \textcolor{comment}{!(inout) 境界条件を適用するデータ. 修正された値を返す.}}
\DoxyCodeLine{3336 }
\DoxyCodeLine{3337       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{3338               \textcolor{comment}{!(in) true だと境界条件計算用行列を強制的に新たに作る.}}
\DoxyCodeLine{3339               \textcolor{comment}{!     default は false.}}
\DoxyCodeLine{3340 }
\DoxyCodeLine{3341 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{3342       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{3343 }
\DoxyCodeLine{3344 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: ut\_I}
\DoxyCodeLine{3345 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: uz\_PSI}
\DoxyCodeLine{3346 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: uz\_DPSIDR}
\DoxyCodeLine{3347 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{allocatable}      :: u\_n}
\DoxyCodeLine{3348 }
\DoxyCodeLine{3349       \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{3350       \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{3351       \textcolor{keywordtype}{integer}  :: l, n, nn(2)}
\DoxyCodeLine{3352       \textcolor{keywordtype}{save}     :: alu, kp, first}
\DoxyCodeLine{3353 }
\DoxyCodeLine{3354       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3355          new\_matrix=.false.}
\DoxyCodeLine{3356       \textcolor{keywordflow}{else}}
\DoxyCodeLine{3357          new\_matrix=new}
\DoxyCodeLine{3358 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3359 }
\DoxyCodeLine{3360       \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3361          first = .false.}
\DoxyCodeLine{3362 }
\DoxyCodeLine{3363          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{3364          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{3365          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(ut\_i) ) \textcolor{keyword}{deallocate}(ut\_i)}
\DoxyCodeLine{3366          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(uz\_psi) ) \textcolor{keyword}{deallocate}(uz\_psi)}
\DoxyCodeLine{3367          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(uz\_dpsidr) ) \textcolor{keyword}{deallocate}(uz\_dpsidr)}
\DoxyCodeLine{3368          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(u\_n) ) \textcolor{keyword}{deallocate}(u\_n)}
\DoxyCodeLine{3369 }
\DoxyCodeLine{3370          \textcolor{keyword}{allocate}(alu(nmc,0:lm,0:lm),kp(nmc,0:lm))}
\DoxyCodeLine{3371          \textcolor{keyword}{allocate}(ut\_i(nmc,0:lm),u\_n(nmc))}
\DoxyCodeLine{3372          \textcolor{keyword}{allocate}(uz\_psi(nmc,0:km),uz\_dpsidr(nmc,0:km))}
\DoxyCodeLine{3373 }
\DoxyCodeLine{3374          \textcolor{keywordflow}{do} n=1,nmc}
\DoxyCodeLine{3375             nn=nm\_l(n)}
\DoxyCodeLine{3376             u\_n(n) = nn(1)}
\DoxyCodeLine{3377 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3378 }
\DoxyCodeLine{3379          \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{3380             ut\_i = 0.0d0 ; ut\_i(:,l) = 1.0d0}
\DoxyCodeLine{3381             alu(:,:,l) = ut\_i}
\DoxyCodeLine{3382 }
\DoxyCodeLine{3383             uz\_psi = uz\_ut(ut\_i)}
\DoxyCodeLine{3384             uz\_dpsidr = uz\_ut(ut\_drad\_ut(ut\_i))}
\DoxyCodeLine{3385             alu(:,lm-\/1,l) = uz\_dpsidr(:,0) + (u\_n+1) * uz\_psi(:,0)/z\_rad(0)}
\DoxyCodeLine{3386             alu(:,lm,l)   = uz\_dpsidr(:,km) -\/ u\_n * uz\_psi(:,km)/z\_rad(km)}
\DoxyCodeLine{3387 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3388 }
\DoxyCodeLine{3389          \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{3390 }
\DoxyCodeLine{3391          \textcolor{keyword}{deallocate}(ut\_i,uz\_psi,uz\_dpsidr,u\_n)}
\DoxyCodeLine{3392 }
\DoxyCodeLine{3393          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'PolmagBoundariesTau'},\&}
\DoxyCodeLine{3394                            \textcolor{stringliteral}{'Matrix to apply  b.c. newly produced.'})}
\DoxyCodeLine{3395 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3396 }
\DoxyCodeLine{3397       ut\_pol(:,lm-\/1) = 0.0d0}
\DoxyCodeLine{3398       ut\_pol(:,lm)   = 0.0d0}
\DoxyCodeLine{3399       ut\_pol = lusolve(alu,kp,ut\_pol)}
\DoxyCodeLine{3400 }

\end{DoxyCode}


References at\+\_\+module\+::km, lm, ut\+\_\+drad\+\_\+ut(), and uz\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_acd00abc66819e03587fd78d1b5f69c52_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_afc3851a9c9fa51c1bb718e6464d8cf3b}\label{namespaceut__mpi__module_afc3851a9c9fa51c1bb718e6464d8cf3b}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_potential2rotationmpi@{ut\_potential2rotationmpi}}
\index{ut\_potential2rotationmpi@{ut\_potential2rotationmpi}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_potential2rotationmpi()}{ut\_potential2rotationmpi()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+potential2rotationmpi (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(out)}]{xvh\+\_\+\+Rot\+V\+L\+ON,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(out)}]{xvh\+\_\+\+Rot\+V\+L\+AT,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(out)}]{xvh\+\_\+\+Rot\+V\+R\+AD,  }\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+T\+O\+R\+P\+OT,  }\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+P\+O\+L\+P\+OT }\end{DoxyParamCaption})}



Definition at line 1432 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1432       \textcolor{comment}{!}}
\DoxyCodeLine{1433       \textcolor{comment}{! トロイダルポロイダルポテンシャルΨ,Φで表される非発散ベクトル場}}
\DoxyCodeLine{1434       \textcolor{comment}{!}}
\DoxyCodeLine{1435       \textcolor{comment}{!     v = ▽x(Ψr) + ▽x▽x(Φr)}}
\DoxyCodeLine{1436       \textcolor{comment}{!}}
\DoxyCodeLine{1437       \textcolor{comment}{! に対して, その回転}}
\DoxyCodeLine{1438       \textcolor{comment}{!}}
\DoxyCodeLine{1439       \textcolor{comment}{!     ▽xv = ▽x▽x(Ψr) + ▽x▽x▽x(Φr) = ▽x▽x(Ψr) -\/ ▽x((▽\string^2Φ)r)}}
\DoxyCodeLine{1440       \textcolor{comment}{!}}
\DoxyCodeLine{1441       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1442 }
\DoxyCodeLine{1443       \textcolor{comment}{! ベクトル場の回転}}
\DoxyCodeLine{1444 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(OUT)} :: xvh\_RotVLON}
\DoxyCodeLine{1445       \textcolor{comment}{!(out) 回転の経度成分}}
\DoxyCodeLine{1446 }
\DoxyCodeLine{1447 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(OUT)} :: xvh\_RotVLAT}
\DoxyCodeLine{1448       \textcolor{comment}{!(out) 回転の緯度成分}}
\DoxyCodeLine{1449 }
\DoxyCodeLine{1450 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(OUT)} :: xvh\_RotVRAD}
\DoxyCodeLine{1451       \textcolor{comment}{!(out) 回転の動径成分}}
\DoxyCodeLine{1452 }
\DoxyCodeLine{1453       \textcolor{comment}{! 入力ベクトル場を表すポテンシャル}}
\DoxyCodeLine{1454 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut\_TORPOT}
\DoxyCodeLine{1455       \textcolor{comment}{!(in) トロイダルポテンシャル}}
\DoxyCodeLine{1456 }
\DoxyCodeLine{1457 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut\_POLPOT}
\DoxyCodeLine{1458       \textcolor{comment}{!(in) ポロイダルポテンシャル}}
\DoxyCodeLine{1459 }
\DoxyCodeLine{1460       \textcolor{keyword}{call }ut\_potential2vectormpi( \&}
\DoxyCodeLine{1461            xvh\_rotvlon,xvh\_rotvlat,xvh\_rotvrad, \&}
\DoxyCodeLine{1462            -\/ut\_lapla\_ut(ut\_polpot), ut\_torpot)}
\DoxyCodeLine{1463 }

\end{DoxyCode}


References ut\+\_\+lapla\+\_\+ut(), and ut\+\_\+potential2vectormpi().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_afc3851a9c9fa51c1bb718e6464d8cf3b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ab033647ba6c157c68f27f66db1ad9827}\label{namespaceut__mpi__module_ab033647ba6c157c68f27f66db1ad9827}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_potential2vectormpi@{ut\_potential2vectormpi}}
\index{ut\_potential2vectormpi@{ut\_potential2vectormpi}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_potential2vectormpi()}{ut\_potential2vectormpi()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+potential2vectormpi (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc)}]{xvh\+\_\+\+V\+L\+ON,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc)}]{xvh\+\_\+\+V\+L\+AT,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc)}]{xvh\+\_\+\+V\+R\+AD,  }\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+T\+O\+R\+P\+OT,  }\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+P\+O\+L\+P\+OT }\end{DoxyParamCaption})}



Definition at line 1395 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1395       \textcolor{comment}{!}}
\DoxyCodeLine{1396       \textcolor{comment}{! トロイダルポロイダルポテンシャルΨ,Φで表される非発散ベクトル場}}
\DoxyCodeLine{1397       \textcolor{comment}{!}}
\DoxyCodeLine{1398       \textcolor{comment}{!     v = ▽x(Ψr) + ▽x▽x(Φr)}}
\DoxyCodeLine{1399       \textcolor{comment}{!}}
\DoxyCodeLine{1400       \textcolor{comment}{! の各成分を計算する}}
\DoxyCodeLine{1401       \textcolor{comment}{!}}
\DoxyCodeLine{1402 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}     :: xvh\_VLON}
\DoxyCodeLine{1403       \textcolor{comment}{!(out) ベクトル場の経度成分}}
\DoxyCodeLine{1404 }
\DoxyCodeLine{1405 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}     :: xvh\_VLAT}
\DoxyCodeLine{1406       \textcolor{comment}{!(out) ベクトル場の緯度成分}}
\DoxyCodeLine{1407 }
\DoxyCodeLine{1408 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}     :: xvh\_VRAD}
\DoxyCodeLine{1409       \textcolor{comment}{!(out) ベクトル場の動径成分}}
\DoxyCodeLine{1410 }
\DoxyCodeLine{1411 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut\_TORPOT}
\DoxyCodeLine{1412       \textcolor{comment}{!(in) トロイダルポテンシャル}}
\DoxyCodeLine{1413 }
\DoxyCodeLine{1414 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut\_POLPOT}
\DoxyCodeLine{1415       \textcolor{comment}{!(in) ポロイダルポテンシャル}}
\DoxyCodeLine{1416 }
\DoxyCodeLine{1417       xvh\_vlon =   xvh\_rad * xvh\_gradlat\_ut(ut\_torpot) \&}
\DoxyCodeLine{1418                  + xvb\_gradlon\_ua(uz\_ut(ut\_rotrad\_ut(ut\_polpot)))}
\DoxyCodeLine{1419       xvh\_vlat = -\/ xvh\_rad * xvh\_gradlon\_ut(ut\_torpot) \&}
\DoxyCodeLine{1420                  + xvb\_gradlat\_ua(uz\_ut(ut\_rotrad\_ut(ut\_polpot)))}
\DoxyCodeLine{1421       xvh\_vrad = xvh\_ut(ut\_l2\_ut(ut\_polpot))/xvh\_rad}
\DoxyCodeLine{1422 \textcolor{comment}{!!\$      xvh\_VLON =   xvh\_RAD * xvh\_GradLat\_ut(ut\_TORPOT) \&}}
\DoxyCodeLine{1423 \textcolor{comment}{!!\$                 + xvb\_GradLon\_wb(wh\_wz(wz\_uz(uz\_ut(ut\_RotRad\_ut(ut\_POLPOT)))))}}
\DoxyCodeLine{1424 \textcolor{comment}{!!\$      xvh\_VLAT = -\/ xvh\_RAD * xvh\_GradLon\_ut(ut\_TORPOT) \&}}
\DoxyCodeLine{1425 \textcolor{comment}{!!\$                 + xvb\_GradLat\_wb(wh\_wz(wz\_uz(uz\_ut(ut\_RotRad\_ut(ut\_POLPOT)))))}}
\DoxyCodeLine{1426 \textcolor{comment}{!!\$      xvh\_VRAD = xvh\_ut(ut\_L2\_ut(ut\_POLPOT))/xvh\_RAD}}
\DoxyCodeLine{1427 }

\end{DoxyCode}


References ut\+\_\+l2\+\_\+ut(), ut\+\_\+rotrad\+\_\+ut(), uz\+\_\+ut(), xvh\+\_\+gradlat\+\_\+ut(), xvh\+\_\+gradlon\+\_\+ut(), xvh\+\_\+rad, and xvh\+\_\+ut().



Referenced by ut\+\_\+potential2rotationmpi().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ab033647ba6c157c68f27f66db1ad9827_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ab033647ba6c157c68f27f66db1ad9827_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_abd1b8c452b90f06c672c117b159b7826}\label{namespaceut__mpi__module_abd1b8c452b90f06c672c117b159b7826}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_radrot\_xvh\_xvh@{ut\_radrot\_xvh\_xvh}}
\index{ut\_radrot\_xvh\_xvh@{ut\_radrot\_xvh\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_radrot\_xvh\_xvh()}{ut\_radrot\_xvh\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+radrot\+\_\+xvh\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+V\+L\+ON,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+V\+L\+AT }\end{DoxyParamCaption})}



Definition at line 1336 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1336       \textcolor{comment}{!}}
\DoxyCodeLine{1337       \textcolor{comment}{! ベクトルの渦度と動径ベクトルの内積 r・(▽×v) を計算する.}}
\DoxyCodeLine{1338       \textcolor{comment}{!}}
\DoxyCodeLine{1339       \textcolor{comment}{! 第 1, 2 引数(v[λ], v[φ])がそれぞれベクトルの経度成分, 緯度成分を表す.}}
\DoxyCodeLine{1340       \textcolor{comment}{!}}
\DoxyCodeLine{1341       \textcolor{comment}{!    r・(▽×v) = 1/cosφ・∂v[φ]/∂λ -\/ 1/cosφ・∂(v[λ] cosφ)/∂φ}}
\DoxyCodeLine{1342       \textcolor{comment}{!}}
\DoxyCodeLine{1343       \textcolor{comment}{! のスペクトル データが返される.}}
\DoxyCodeLine{1344       \textcolor{comment}{!}}
\DoxyCodeLine{1345 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_VLON}
\DoxyCodeLine{1346       \textcolor{comment}{!(in) ベクトルの経度成分}}
\DoxyCodeLine{1347 }
\DoxyCodeLine{1348 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_VLAT}
\DoxyCodeLine{1349       \textcolor{comment}{!(in) ベクトルの緯度成分}}
\DoxyCodeLine{1350 }
\DoxyCodeLine{1351 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}     :: ut\_RadRot\_xvh\_xvh}
\DoxyCodeLine{1352       \textcolor{comment}{!(out) ベクトルの渦度と動径ベクトルの内積}}
\DoxyCodeLine{1353 }
\DoxyCodeLine{1354       ut\_radrot\_xvh\_xvh = ut\_uz(   ua\_divlon\_xvb(xvh\_vlat) \&}
\DoxyCodeLine{1355                                  -\/ ua\_divlat\_xvb(xvh\_vlon) )}
\DoxyCodeLine{1356 \textcolor{comment}{!!\$      ut\_RadRot\_xvh\_xvh = ut\_uz(uz\_wz(wz\_wh(wb\_DivLon\_xvb(xvh\_VLAT) \&}}
\DoxyCodeLine{1357 \textcolor{comment}{!!\$                                -\/ wb\_DivLat\_xvb(xvh\_VLON))))}}
\DoxyCodeLine{1358 }

\end{DoxyCode}


References ut\+\_\+uz().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_abd1b8c452b90f06c672c117b159b7826_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a3c928effe2fca32b2b549dce469e240b}\label{namespaceut__mpi__module_a3c928effe2fca32b2b549dce469e240b}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_radrotrot\_xvh\_xvh\_xvh@{ut\_radrotrot\_xvh\_xvh\_xvh}}
\index{ut\_radrotrot\_xvh\_xvh\_xvh@{ut\_radrotrot\_xvh\_xvh\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_radrotrot\_xvh\_xvh\_xvh()}{ut\_radrotrot\_xvh\_xvh\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+radrotrot\+\_\+xvh\+\_\+xvh\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+V\+L\+ON,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+V\+L\+AT,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+V\+R\+AD }\end{DoxyParamCaption})}



Definition at line 1362 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1362       \textcolor{comment}{!}}
\DoxyCodeLine{1363       \textcolor{comment}{! ベクトル v に対して r・(▽×▽×v) を計算する.}}
\DoxyCodeLine{1364       \textcolor{comment}{!}}
\DoxyCodeLine{1365       \textcolor{comment}{! 第 1, 2, 3 引数(v[λ], v[φ], v[r])がそれぞれベクトルの経度成分,}}
\DoxyCodeLine{1366       \textcolor{comment}{! 緯度成分, 動径成分を表す.}}
\DoxyCodeLine{1367       \textcolor{comment}{!}}
\DoxyCodeLine{1368       \textcolor{comment}{!    r・(▽×▽×v)  = 1/r ∂/∂r (r・( 1/cosφ・∂v[λ]/∂λ}}
\DoxyCodeLine{1369       \textcolor{comment}{!                                  + 1/cosφ・∂(v[φ] cosφ)/∂φ ) )}}
\DoxyCodeLine{1370       \textcolor{comment}{!                     + L\string^2 v[r]/r}}
\DoxyCodeLine{1371       \textcolor{comment}{!}}
\DoxyCodeLine{1372       \textcolor{comment}{! のスペクトルデータが返される.}}
\DoxyCodeLine{1373       \textcolor{comment}{!}}
\DoxyCodeLine{1374 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_VLON}
\DoxyCodeLine{1375       \textcolor{comment}{!(in) ベクトルの経度成分}}
\DoxyCodeLine{1376 }
\DoxyCodeLine{1377 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_VLAT}
\DoxyCodeLine{1378       \textcolor{comment}{!(in) ベクトルの緯度成分}}
\DoxyCodeLine{1379 }
\DoxyCodeLine{1380 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_VRAD}
\DoxyCodeLine{1381       \textcolor{comment}{!(in) ベクトルの動径成分}}
\DoxyCodeLine{1382 }
\DoxyCodeLine{1383 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}     :: ut\_RadRotRot\_xvh\_xvh\_xvh}
\DoxyCodeLine{1384       \textcolor{comment}{!(out) ベクトル v の r・(▽×▽×v)}}
\DoxyCodeLine{1385 }
\DoxyCodeLine{1386       ut\_radrotrot\_xvh\_xvh\_xvh = \&}
\DoxyCodeLine{1387                ut\_rotrad\_ut(ut\_uz( \&}
\DoxyCodeLine{1388                    (ua\_divlon\_xvb(xvh\_vlon)+ ua\_divlat\_xvb(xvh\_vlat)) )) \&}
\DoxyCodeLine{1389              + ut\_l2\_ut(ut\_xvh(xvh\_vrad/xvh\_rad))}
\DoxyCodeLine{1390 }

\end{DoxyCode}


References ut\+\_\+l2\+\_\+ut(), ut\+\_\+rotrad\+\_\+ut(), ut\+\_\+uz(), ut\+\_\+xvh(), and xvh\+\_\+rad.

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a3c928effe2fca32b2b549dce469e240b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_aadbc3e9fb522e1bc419e0c95133ca371}\label{namespaceut__mpi__module_aadbc3e9fb522e1bc419e0c95133ca371}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_rotrad\_ut@{ut\_rotrad\_ut}}
\index{ut\_rotrad\_ut@{ut\_rotrad\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_rotrad\_ut()}{ut\_rotrad\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+rotrad\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 1158 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1158       \textcolor{comment}{!}}
\DoxyCodeLine{1159       \textcolor{comment}{! 入力スペクトルデータに回転型動径微分}}
\DoxyCodeLine{1160       \textcolor{comment}{!}}
\DoxyCodeLine{1161       \textcolor{comment}{!      1/r ∂(r.)/∂r = ∂(.)/∂r + (.)/r}}
\DoxyCodeLine{1162       \textcolor{comment}{!}}
\DoxyCodeLine{1163       \textcolor{comment}{! を作用する.}}
\DoxyCodeLine{1164       \textcolor{comment}{!}}
\DoxyCodeLine{1165       \textcolor{comment}{! スペクトルデータの回転型動径微分とは, 対応する格子点データに}}
\DoxyCodeLine{1166       \textcolor{comment}{! 回転型動径微分を作用させたデータのスペクトル変換のことである.}}
\DoxyCodeLine{1167       \textcolor{comment}{!}}
\DoxyCodeLine{1168 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut}
\DoxyCodeLine{1169       \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{1170 }
\DoxyCodeLine{1171 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}             :: ut\_RotRad\_ut}
\DoxyCodeLine{1172       \textcolor{comment}{!(out) 回転型動径微分を作用された 2 次元スペクトルデータ}}
\DoxyCodeLine{1173 }
\DoxyCodeLine{1174 \textcolor{comment}{!      ut\_RotRad\_ut = ut\_uz(uz\_ut(ut\_Drad\_ut(ut\_uz(uz\_Rad*uz\_ut(ut))))/uz\_Rad)}}
\DoxyCodeLine{1175       ut\_rotrad\_ut = ut\_drad\_ut(ut) + ut\_uz(1/uz\_rad*uz\_ut(ut))}
\DoxyCodeLine{1176 }

\end{DoxyCode}


References ut\+\_\+drad\+\_\+ut(), ut\+\_\+uz(), uz\+\_\+rad, and uz\+\_\+ut().



Referenced by ut\+\_\+potential2vectormpi(), ut\+\_\+radrotrot\+\_\+xvh\+\_\+xvh\+\_\+xvh(), xvh\+\_\+rotlat\+\_\+ut\+\_\+ut(), and xvh\+\_\+rotlon\+\_\+ut\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_aadbc3e9fb522e1bc419e0c95133ca371_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_aadbc3e9fb522e1bc419e0c95133ca371_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_acd04ffa883e63b52dd3c53376ac22296}\label{namespaceut__mpi__module_acd04ffa883e63b52dd3c53376ac22296}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_rotrad\_xvh\_xvh@{ut\_rotrad\_xvh\_xvh}}
\index{ut\_rotrad\_xvh\_xvh@{ut\_rotrad\_xvh\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_rotrad\_xvh\_xvh()}{ut\_rotrad\_xvh\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+rotrad\+\_\+xvh\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+Vlat,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+Vlon }\end{DoxyParamCaption})}



Definition at line 1094 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1094       \textcolor{comment}{!}}
\DoxyCodeLine{1095       \textcolor{comment}{! ベクトルの緯度成分, 経度成分である第 1, 2 引数 Vlat, Vlon に対して}}
\DoxyCodeLine{1096       \textcolor{comment}{! ベクトル場の回転の動径成分}}
\DoxyCodeLine{1097       \textcolor{comment}{!}}
\DoxyCodeLine{1098       \textcolor{comment}{!    1/rcosφ・∂Vlat/∂λ -\/ 1/rcosφ・∂(Vlon cosφ)/∂φ}}
\DoxyCodeLine{1099       \textcolor{comment}{!}}
\DoxyCodeLine{1100       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1101       \textcolor{comment}{!}}
\DoxyCodeLine{1102 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_Vlat}
\DoxyCodeLine{1103       \textcolor{comment}{!(in) ベクトル場の緯度成分}}
\DoxyCodeLine{1104 }
\DoxyCodeLine{1105 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_Vlon}
\DoxyCodeLine{1106       \textcolor{comment}{!(in) ベクトル場の経度成分}}
\DoxyCodeLine{1107 }
\DoxyCodeLine{1108 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}                    :: ut\_RotRad\_xvh\_xvh}
\DoxyCodeLine{1109       \textcolor{comment}{!(out) ベクトル場の回転の動径成分}}
\DoxyCodeLine{1110 }
\DoxyCodeLine{1111         ut\_rotrad\_xvh\_xvh =   ut\_divlon\_xvh(xvh\_vlat) \&}
\DoxyCodeLine{1112                             -\/ ut\_divlat\_xvh(xvh\_vlon)}
\DoxyCodeLine{1113 }

\end{DoxyCode}


References ut\+\_\+divlat\+\_\+xvh(), and ut\+\_\+divlon\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_acd04ffa883e63b52dd3c53376ac22296_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a18c4dba53683ba320726b16750dfb459}\label{namespaceut__mpi__module_a18c4dba53683ba320726b16750dfb459}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_torboundariesgrid@{ut\_torboundariesgrid}}
\index{ut\_torboundariesgrid@{ut\_torboundariesgrid}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_torboundariesgrid()}{ut\_torboundariesgrid()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+torboundariesgrid (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(inout)}]{ut\+\_\+\+T\+O\+R\+P\+OT,  }\item[{real(dp), dimension(nmc,2), intent(in), optional}]{values,  }\item[{character(len=2), intent(in), optional}]{cond,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Definition at line 2596 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2596       \textcolor{comment}{!}}
\DoxyCodeLine{2597       \textcolor{comment}{! 速度トロイダルポテンシャルに対して境界条件を適用する.}}
\DoxyCodeLine{2598       \textcolor{comment}{! 実空間での境界条件適用}}
\DoxyCodeLine{2599       \textcolor{comment}{!}}
\DoxyCodeLine{2600       \textcolor{comment}{! 鉛直実格子点空間において内部領域の値と境界条件を満たすように}}
\DoxyCodeLine{2601       \textcolor{comment}{! 条件を課している(選点法). このルーチンを用いるためには}}
\DoxyCodeLine{2602       \textcolor{comment}{! ut\_Initial にて設定するチェビシェフ切断波数(lm)と鉛直格子点数(km)を}}
\DoxyCodeLine{2603       \textcolor{comment}{! 等しくしておく必要がある.}}
\DoxyCodeLine{2604       \textcolor{comment}{!}}
\DoxyCodeLine{2605       \textcolor{comment}{! 速度トロイダルポテンシャルΨに対して与えられる境界条件は}}
\DoxyCodeLine{2606       \textcolor{comment}{!}}
\DoxyCodeLine{2607       \textcolor{comment}{!   * 粘着条件 : Ψ = Ψb(lon,lat). Ψb は境界球面での速度分布.}}
\DoxyCodeLine{2608       \textcolor{comment}{!                                   default は 0 (静止状態).}}
\DoxyCodeLine{2609       \textcolor{comment}{!}}
\DoxyCodeLine{2610       \textcolor{comment}{!   * 応力なし条件 : ∂(Ψ/r)/∂r = 0.}}
\DoxyCodeLine{2611       \textcolor{comment}{!}}
\DoxyCodeLine{2612       \textcolor{comment}{! 最初に呼ばれるときはオプショナル引数 new に関係なく行列が設定される.}}
\DoxyCodeLine{2613       \textcolor{comment}{!}}
\DoxyCodeLine{2614 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)},\textcolor{keywordtype}{intent(inout)}      :: ut\_TORPOT}
\DoxyCodeLine{2615               \textcolor{comment}{!(inout) 境界条件を適用するデータ. 修正された値を返す.}}
\DoxyCodeLine{2616 }
\DoxyCodeLine{2617 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values}
\DoxyCodeLine{2618               \textcolor{comment}{!(in) 両端境界でのトロイダルポテンシャル}}
\DoxyCodeLine{2619               \textcolor{comment}{!     粘着条件の時のみ有効}}
\DoxyCodeLine{2620 }
\DoxyCodeLine{2621       \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond}
\DoxyCodeLine{2622               \textcolor{comment}{!(in) 境界条件スイッチ. 省略時は 'RR'}}
\DoxyCodeLine{2623               \textcolor{comment}{!     RR    : 両端粘着条件}}
\DoxyCodeLine{2624               \textcolor{comment}{!     RF    : 上端粘着, 下端応力なし条件}}
\DoxyCodeLine{2625               \textcolor{comment}{!     FR    : 上端応力なし, 下端粘着条件}}
\DoxyCodeLine{2626               \textcolor{comment}{!     FF    : 両端応力なし条件}}
\DoxyCodeLine{2627 }
\DoxyCodeLine{2628       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{2629               \textcolor{comment}{!(in) true だと境界条件計算用行列を強制的に新たに作る.}}
\DoxyCodeLine{2630               \textcolor{comment}{!     default は false.}}
\DoxyCodeLine{2631 }
\DoxyCodeLine{2632 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}           :: uz\_TORPOT}
\DoxyCodeLine{2633 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{2634       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{2635 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:lm)}              :: t\_data}
\DoxyCodeLine{2636 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:km)}              :: z\_data}
\DoxyCodeLine{2637       \textcolor{keywordtype}{logical}                               :: rigid1=.true.   \textcolor{comment}{! 境界条件}}
\DoxyCodeLine{2638       \textcolor{keywordtype}{logical}                               :: rigid2=.true.   \textcolor{comment}{! 境界条件}}
\DoxyCodeLine{2639 }
\DoxyCodeLine{2640       \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{2641       \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{2642       \textcolor{keywordtype}{integer} :: l}
\DoxyCodeLine{2643       \textcolor{keywordtype}{save}    :: alu, kp, first}
\DoxyCodeLine{2644 }
\DoxyCodeLine{2645       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(cond)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2646          rigid1=.true. ; rigid2=.true.}
\DoxyCodeLine{2647       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2648          \textcolor{keywordflow}{select case} (cond)}
\DoxyCodeLine{2649          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})}
\DoxyCodeLine{2650             rigid1 = .true.  ; rigid2 = .true.}
\DoxyCodeLine{2651          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})}
\DoxyCodeLine{2652             rigid1 = .true.  ; rigid2 = .false.}
\DoxyCodeLine{2653          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})}
\DoxyCodeLine{2654             rigid1 = .false. ; rigid2 = .true.}
\DoxyCodeLine{2655          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})}
\DoxyCodeLine{2656             rigid1 = .false. ; rigid2 = .false.}
\DoxyCodeLine{2657 \textcolor{keywordflow}{         case default}}
\DoxyCodeLine{2658             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'ut\_TorBoundariesGrid'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{2659 \textcolor{keywordflow}{         end select}}
\DoxyCodeLine{2660 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2661 }
\DoxyCodeLine{2662       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2663          new\_matrix=.false.}
\DoxyCodeLine{2664       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2665          new\_matrix=new}
\DoxyCodeLine{2666 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2667 }
\DoxyCodeLine{2668       \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2669          first = .false.}
\DoxyCodeLine{2670 }
\DoxyCodeLine{2671          \textcolor{keywordflow}{if} ( lm /= km ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2672             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'TorBoundariesGrid'}, \&}
\DoxyCodeLine{2673              \textcolor{stringliteral}{'Chebyshev truncation and number of grid points should be same.'})}
\DoxyCodeLine{2674 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2675 }
\DoxyCodeLine{2676          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{2677          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{2678          \textcolor{keyword}{allocate}(alu(0:km,0:lm),kp(0:lm))}
\DoxyCodeLine{2679 }
\DoxyCodeLine{2680          \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{2681             t\_data = 0.0d0 ; t\_data(l)=1.0d0}
\DoxyCodeLine{2682             alu(:,l) = z\_t(t\_data)}
\DoxyCodeLine{2683 }
\DoxyCodeLine{2684             \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2685                z\_data = z\_t(t\_data)}
\DoxyCodeLine{2686             \textcolor{keywordflow}{else}}
\DoxyCodeLine{2687                z\_data = z\_t(t\_dr\_t(t\_z(z\_t(t\_data)/z\_rad)))}
\DoxyCodeLine{2688 \textcolor{keywordflow}{            endif}}
\DoxyCodeLine{2689             alu(0,l) = z\_data(0)        \textcolor{comment}{! 境界 k=0 での条件式代入}}
\DoxyCodeLine{2690 }
\DoxyCodeLine{2691             \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2692                z\_data = z\_t(t\_data)}
\DoxyCodeLine{2693             \textcolor{keywordflow}{else}}
\DoxyCodeLine{2694                z\_data = z\_t(t\_dr\_t(t\_z(z\_t(t\_data)/z\_rad)))}
\DoxyCodeLine{2695 \textcolor{keywordflow}{            endif}}
\DoxyCodeLine{2696             alu(km,l)   = z\_data(km)    \textcolor{comment}{! 境界 k=km での条件式代入}}
\DoxyCodeLine{2697 \textcolor{keywordflow}{         end do}}
\DoxyCodeLine{2698 }
\DoxyCodeLine{2699          \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{2700 }
\DoxyCodeLine{2701          \textcolor{keywordflow}{if} ( rigid1 .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2702             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_TorBoundariesGrid'},\&}
\DoxyCodeLine{2703                  \textcolor{stringliteral}{'Toroidal potential at k=0 was given by the optional variable.'})}
\DoxyCodeLine{2704          \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( rigid1 .AND. (.NOT.\textcolor{keyword}{present}(values)) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2705             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_TorBoundariesGrid'},\&}
\DoxyCodeLine{2706                  \textcolor{stringliteral}{'Toroidal potential at k=0 was set to zero.'})}
\DoxyCodeLine{2707          \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( (.NOT. rigid1) .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2708             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'W'},\textcolor{stringliteral}{'ut\_TorBoundariesGrid'},\&}
\DoxyCodeLine{2709                  \textcolor{stringliteral}{'Boundary value at k=0 cannot be set under stress-\/free condition.'})}
\DoxyCodeLine{2710 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2711 }
\DoxyCodeLine{2712          \textcolor{keywordflow}{if} ( rigid2 .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2713             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_TorBoundariesGrid'},\&}
\DoxyCodeLine{2714                  \textcolor{stringliteral}{'Toroidal potential at k=km was given by the optional variable.'})}
\DoxyCodeLine{2715          \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( rigid2 .AND. (.NOT.\textcolor{keyword}{present}(values)) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2716             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_TorBoundariesGrid'},\&}
\DoxyCodeLine{2717                  \textcolor{stringliteral}{'Toroidal potential at k=km was set to zero.'})}
\DoxyCodeLine{2718          \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( (.NOT. rigid2) .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2719             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'W'},\textcolor{stringliteral}{'ut\_TorBoundariesGrid'},\&}
\DoxyCodeLine{2720                  \textcolor{stringliteral}{'Boundary value at k=km cannot be set under stress-\/free condition.'})}
\DoxyCodeLine{2721 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2722 }
\DoxyCodeLine{2723          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_TorBoundariesGrid'},\&}
\DoxyCodeLine{2724                            \textcolor{stringliteral}{'Matrix to apply  b.c. newly produced.'})}
\DoxyCodeLine{2725 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2726 }
\DoxyCodeLine{2727       uz\_torpot       = uz\_ut(ut\_torpot)}
\DoxyCodeLine{2728 }
\DoxyCodeLine{2729       \textcolor{keywordflow}{if} ( rigid1 .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2730          uz\_torpot(:,0)  = values(:,1)}
\DoxyCodeLine{2731       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2732          uz\_torpot(:,0)  = 0.0d0}
\DoxyCodeLine{2733 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2734 }
\DoxyCodeLine{2735       \textcolor{keywordflow}{if} ( rigid2 .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2736          uz\_torpot(:,km) = values(:,2)}
\DoxyCodeLine{2737       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2738          uz\_torpot(:,km) = 0.0d0}
\DoxyCodeLine{2739 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2740 }
\DoxyCodeLine{2741       ut\_torpot = lusolve(alu,kp,uz\_torpot)}
\DoxyCodeLine{2742 }

\end{DoxyCode}


References at\+\_\+module\+::km, lm, and uz\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a18c4dba53683ba320726b16750dfb459_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_afff8654c7604a675eec2df64ec12bd2b}\label{namespaceut__mpi__module_afff8654c7604a675eec2df64ec12bd2b}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_torboundariestau@{ut\_torboundariestau}}
\index{ut\_torboundariestau@{ut\_torboundariestau}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_torboundariestau()}{ut\_torboundariestau()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+torboundariestau (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(inout)}]{ut\+\_\+\+T\+O\+R\+P\+OT,  }\item[{real(dp), dimension(nmc,2), intent(in), optional}]{values,  }\item[{character(len=2), intent(in), optional}]{cond,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Definition at line 2459 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2459       \textcolor{comment}{!}}
\DoxyCodeLine{2460       \textcolor{comment}{! 速度トロイダルポテンシャルに対して境界条件を適用する.}}
\DoxyCodeLine{2461       \textcolor{comment}{! Chebyshev 空間での境界条件適用.}}
\DoxyCodeLine{2462       \textcolor{comment}{!}}
\DoxyCodeLine{2463       \textcolor{comment}{! 速度トロイダルポテンシャルΨに対して与えられる境界条件は}}
\DoxyCodeLine{2464       \textcolor{comment}{!}}
\DoxyCodeLine{2465       \textcolor{comment}{!   * 粘着条件 : Ψ = Ψb(lon,lat). Ψb は境界球面での速度分布.}}
\DoxyCodeLine{2466       \textcolor{comment}{!                                   default は 0(静止状態).}}
\DoxyCodeLine{2467       \textcolor{comment}{!}}
\DoxyCodeLine{2468       \textcolor{comment}{!   * 応力なし条件 : ∂(Ψ/r)/∂r = 0.}}
\DoxyCodeLine{2469       \textcolor{comment}{!}}
\DoxyCodeLine{2470       \textcolor{comment}{! 最初に呼ばれるときはオプショナル引数 new に関係なく行列が設定される.}}
\DoxyCodeLine{2471       \textcolor{comment}{!}}
\DoxyCodeLine{2472 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)},\textcolor{keywordtype}{intent(inout)}      :: ut\_TORPOT}
\DoxyCodeLine{2473               \textcolor{comment}{!(inout) 境界条件を適用するデータ. 修正された値を返す.}}
\DoxyCodeLine{2474 }
\DoxyCodeLine{2475 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional} :: values}
\DoxyCodeLine{2476               \textcolor{comment}{!(in) 両端境界でのトロイダルポテンシャル}}
\DoxyCodeLine{2477               \textcolor{comment}{!     粘着条件の時のみ有効}}
\DoxyCodeLine{2478 }
\DoxyCodeLine{2479       \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond}
\DoxyCodeLine{2480               \textcolor{comment}{!(in) 境界条件スイッチ. 省略時は 'RR'}}
\DoxyCodeLine{2481               \textcolor{comment}{!     RR    : 両端粘着条件}}
\DoxyCodeLine{2482               \textcolor{comment}{!     RF    : 上端粘着, 下端応力なし条件}}
\DoxyCodeLine{2483               \textcolor{comment}{!     FR    : 上端応力なし, 下端粘着条件}}
\DoxyCodeLine{2484               \textcolor{comment}{!     FF    : 両端応力なし条件}}
\DoxyCodeLine{2485 }
\DoxyCodeLine{2486       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{2487               \textcolor{comment}{!(in) true だと境界条件計算用行列を強制的に新たに作る.}}
\DoxyCodeLine{2488               \textcolor{comment}{!     default は false.}}
\DoxyCodeLine{2489 }
\DoxyCodeLine{2490 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{2491       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{2492 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:lm)}              :: t\_data}
\DoxyCodeLine{2493 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:km)}              :: z\_data}
\DoxyCodeLine{2494       \textcolor{keywordtype}{logical}                               :: rigid1=.true.   \textcolor{comment}{! 境界条件}}
\DoxyCodeLine{2495       \textcolor{keywordtype}{logical}                               :: rigid2=.true.   \textcolor{comment}{! 境界条件}}
\DoxyCodeLine{2496 }
\DoxyCodeLine{2497       \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{2498       \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{2499       \textcolor{keywordtype}{integer} :: l}
\DoxyCodeLine{2500       \textcolor{keywordtype}{save}    :: alu, kp, first}
\DoxyCodeLine{2501 }
\DoxyCodeLine{2502       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(cond)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2503          rigid1=.true. ; rigid2=.true.}
\DoxyCodeLine{2504       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2505          \textcolor{keywordflow}{select case} (cond)}
\DoxyCodeLine{2506          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})}
\DoxyCodeLine{2507             rigid1 = .true.  ; rigid2 = .true.}
\DoxyCodeLine{2508          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})}
\DoxyCodeLine{2509             rigid1 = .true.  ; rigid2 = .false.}
\DoxyCodeLine{2510          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})}
\DoxyCodeLine{2511             rigid1 = .false. ; rigid2 = .true.}
\DoxyCodeLine{2512          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})}
\DoxyCodeLine{2513             rigid1 = .false. ; rigid2 = .false.}
\DoxyCodeLine{2514 \textcolor{keywordflow}{         case default}}
\DoxyCodeLine{2515             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'ut\_TorBoundariesTau'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{2516 \textcolor{keywordflow}{         end select}}
\DoxyCodeLine{2517 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2518 }
\DoxyCodeLine{2519       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2520          new\_matrix=.false.}
\DoxyCodeLine{2521       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2522          new\_matrix=new}
\DoxyCodeLine{2523 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2524 }
\DoxyCodeLine{2525       \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2526          first = .false.}
\DoxyCodeLine{2527 }
\DoxyCodeLine{2528          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{2529          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{2530          \textcolor{keyword}{allocate}(alu(0:lm,0:lm),kp(0:lm))}
\DoxyCodeLine{2531 }
\DoxyCodeLine{2532          \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{2533             t\_data = 0.0d0 ; t\_data(l) = 1.0d0}
\DoxyCodeLine{2534             alu(:,l) = t\_data}
\DoxyCodeLine{2535 }
\DoxyCodeLine{2536             \textcolor{comment}{! 力学的条件粘着条件}}
\DoxyCodeLine{2537             \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2538                z\_data = z\_t(t\_data)}
\DoxyCodeLine{2539             \textcolor{keywordflow}{else}}
\DoxyCodeLine{2540                z\_data = z\_t(t\_dr\_t(t\_z(z\_t(t\_data)/z\_rad)))}
\DoxyCodeLine{2541 \textcolor{keywordflow}{            endif}}
\DoxyCodeLine{2542             alu(lm-\/1,l) = z\_data(0)       \textcolor{comment}{! 境界 k=0 での条件式代入}}
\DoxyCodeLine{2543 }
\DoxyCodeLine{2544             \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2545                z\_data = z\_t(t\_data)}
\DoxyCodeLine{2546             \textcolor{keywordflow}{else}}
\DoxyCodeLine{2547                z\_data = z\_t(t\_dr\_t(t\_z(z\_t(t\_data)/z\_rad)))}
\DoxyCodeLine{2548 \textcolor{keywordflow}{            endif}}
\DoxyCodeLine{2549             alu(lm,l)   = z\_data(km)      \textcolor{comment}{! 境界 k=km での条件式代入}}
\DoxyCodeLine{2550 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{2551 }
\DoxyCodeLine{2552          \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{2553 }
\DoxyCodeLine{2554          \textcolor{keywordflow}{if} ( rigid1 .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2555             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_TorBoundariesTau'},\&}
\DoxyCodeLine{2556                  \textcolor{stringliteral}{'Toroidal potential at k=0 was given by the optional variable.'})}
\DoxyCodeLine{2557          \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( rigid1 .AND. (.NOT.\textcolor{keyword}{present}(values)) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2558             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_TorBoundariesTau'},\&}
\DoxyCodeLine{2559                  \textcolor{stringliteral}{'Toroidal potential at k=0 was set to zero.'})}
\DoxyCodeLine{2560          \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( (.NOT. rigid1) .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2561             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'W'},\textcolor{stringliteral}{'ut\_TorBoundariesTau'},\&}
\DoxyCodeLine{2562                  \textcolor{stringliteral}{'Boundary value k=0 cannot be set under stress-\/free condition.'})}
\DoxyCodeLine{2563 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2564 }
\DoxyCodeLine{2565          \textcolor{keywordflow}{if} ( rigid2 .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2566             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_TorBoundariesTau'},\&}
\DoxyCodeLine{2567                  \textcolor{stringliteral}{'Toroidal potential at k=0 was given by the optional variable.'})}
\DoxyCodeLine{2568          \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( rigid2 .AND. (.NOT.\textcolor{keyword}{present}(values)) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2569             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_TorBoundariesTau'},\&}
\DoxyCodeLine{2570                  \textcolor{stringliteral}{'Toroidal potential at k=0 was set to zero.'})}
\DoxyCodeLine{2571          \textcolor{keywordflow}{else} \textcolor{keywordflow}{if} ( (.NOT. rigid2) .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2572             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'W'},\textcolor{stringliteral}{'ut\_TorBoundariesTau'},\&}
\DoxyCodeLine{2573                  \textcolor{stringliteral}{'Boundary value k=0 cannot be set under stress-\/free condition.'})}
\DoxyCodeLine{2574 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2575 }
\DoxyCodeLine{2576          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'ut\_TorBoundariesTau'},\&}
\DoxyCodeLine{2577                            \textcolor{stringliteral}{'Matrix to apply  b.c. newly produced.'})}
\DoxyCodeLine{2578 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2579 }
\DoxyCodeLine{2580       \textcolor{keywordflow}{if} ( rigid1 .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2581          ut\_torpot(:,lm-\/1) = values(:,1)}
\DoxyCodeLine{2582       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2583          ut\_torpot(:,lm-\/1) = 0.0d0}
\DoxyCodeLine{2584 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2585       \textcolor{keywordflow}{if} ( rigid2 .AND. \textcolor{keyword}{present}(values) ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2586          ut\_torpot(:,lm)   = values(:,2)}
\DoxyCodeLine{2587       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2588          ut\_torpot(:,lm) = 0.0d0}
\DoxyCodeLine{2589 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2590 }
\DoxyCodeLine{2591       ut\_torpot = lusolve(alu,kp,ut\_torpot)}
\DoxyCodeLine{2592 }

\end{DoxyCode}


References at\+\_\+module\+::km, and lm.

\mbox{\Hypertarget{namespaceut__mpi__module_a5ea3e05e5975fa3ae45bd0105b81a30a}\label{namespaceut__mpi__module_a5ea3e05e5975fa3ae45bd0105b81a30a}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_tormagboundariesgrid@{ut\_tormagboundariesgrid}}
\index{ut\_tormagboundariesgrid@{ut\_tormagboundariesgrid}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_tormagboundariesgrid()}{ut\_tormagboundariesgrid()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+tormagboundariesgrid (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(inout)}]{ut\+\_\+\+T\+OR,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Definition at line 3230 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{3230       \textcolor{comment}{!}}
\DoxyCodeLine{3231       \textcolor{comment}{! 磁場トロイダルポテンシャルに対して境界条件を適用する.}}
\DoxyCodeLine{3232       \textcolor{comment}{! 鉛直実空間での境界条件適用.}}
\DoxyCodeLine{3233       \textcolor{comment}{!}}
\DoxyCodeLine{3234       \textcolor{comment}{! 鉛直実格子点空間において内部領域の値と境界条件を満たすように}}
\DoxyCodeLine{3235       \textcolor{comment}{! 条件を課している(選点法). このルーチンを用いるためには}}
\DoxyCodeLine{3236       \textcolor{comment}{! ut\_Initial にて設定するチェビシェフ切断波数(lm)と鉛直格子点数(km)を}}
\DoxyCodeLine{3237       \textcolor{comment}{! 等しくしておく必要がある.}}
\DoxyCodeLine{3238       \textcolor{comment}{!}}
\DoxyCodeLine{3239       \textcolor{comment}{! 現在のところ境界物質が非電気伝導体の場合のみ対応している.}}
\DoxyCodeLine{3240       \textcolor{comment}{! その場合, 磁場トロイダルポテンシャルの境界条件は}}
\DoxyCodeLine{3241       \textcolor{comment}{!}}
\DoxyCodeLine{3242       \textcolor{comment}{! 外側}}
\DoxyCodeLine{3243       \textcolor{comment}{!    ut\_psi = 0   at the outer boundary}}
\DoxyCodeLine{3244       \textcolor{comment}{! 内側}}
\DoxyCodeLine{3245       \textcolor{comment}{!    ut\_psi = 0       at the inner boundary}}
\DoxyCodeLine{3246       \textcolor{comment}{!}}
\DoxyCodeLine{3247       \textcolor{comment}{! であるので ut\_Boundaries で対応可能だが, 将来のため別途作成しておく}}
\DoxyCodeLine{3248       \textcolor{comment}{!}}
\DoxyCodeLine{3249       \textcolor{comment}{! 最初に呼ばれるときはオプショナル引数 new に関係なく行列が設定される.}}
\DoxyCodeLine{3250       \textcolor{comment}{!}}
\DoxyCodeLine{3251 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)},\textcolor{keywordtype}{intent(inout)}   :: ut\_TOR}
\DoxyCodeLine{3252               \textcolor{comment}{!(inout) 境界条件を適用するデータ. 修正された値を返す.}}
\DoxyCodeLine{3253 }
\DoxyCodeLine{3254       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{3255               \textcolor{comment}{!(in) true だと境界条件計算用行列を強制的に新たに作る.}}
\DoxyCodeLine{3256               \textcolor{comment}{!     default は false.}}
\DoxyCodeLine{3257 }
\DoxyCodeLine{3258 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{3259       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{3260 }
\DoxyCodeLine{3261 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: ut\_I}
\DoxyCodeLine{3262 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: uz\_PSI}
\DoxyCodeLine{3263 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}  :: uz\_TOR}
\DoxyCodeLine{3264 }
\DoxyCodeLine{3265       \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{3266       \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{3267       \textcolor{keywordtype}{integer}  :: l}
\DoxyCodeLine{3268       \textcolor{keywordtype}{save}     :: alu, kp, first}
\DoxyCodeLine{3269 }
\DoxyCodeLine{3270       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3271          new\_matrix=.false.}
\DoxyCodeLine{3272       \textcolor{keywordflow}{else}}
\DoxyCodeLine{3273          new\_matrix=new}
\DoxyCodeLine{3274 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3275 }
\DoxyCodeLine{3276       \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3277          first = .false.}
\DoxyCodeLine{3278 }
\DoxyCodeLine{3279          \textcolor{keywordflow}{if} ( lm /= km ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3280             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'TorMagBoundariesGrid'}, \&}
\DoxyCodeLine{3281              \textcolor{stringliteral}{'Chebyshev truncation and number of grid points should be same.'})}
\DoxyCodeLine{3282 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{3283 }
\DoxyCodeLine{3284          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{3285          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{3286          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(ut\_i) ) \textcolor{keyword}{deallocate}(ut\_i)}
\DoxyCodeLine{3287          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(uz\_psi) ) \textcolor{keyword}{deallocate}(uz\_psi)}
\DoxyCodeLine{3288 }
\DoxyCodeLine{3289          \textcolor{keyword}{allocate}(alu(nmc,0:km,0:lm),kp(nmc,0:lm))}
\DoxyCodeLine{3290          \textcolor{keyword}{allocate}(ut\_i(nmc,0:lm),uz\_psi(nmc,0:km))}
\DoxyCodeLine{3291 }
\DoxyCodeLine{3292          \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{3293             ut\_i = 0.0d0 ; ut\_i(:,l)=1.0d0}
\DoxyCodeLine{3294             uz\_psi = uz\_ut(ut\_i)}
\DoxyCodeLine{3295             alu(:,:,l) = uz\_psi}
\DoxyCodeLine{3296 }
\DoxyCodeLine{3297             \textcolor{comment}{! 非電気伝導体}}
\DoxyCodeLine{3298             alu(:,0,l)  = uz\_psi(:,0)}
\DoxyCodeLine{3299             alu(:,km,l) = uz\_psi(:,km)}
\DoxyCodeLine{3300 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3301 }
\DoxyCodeLine{3302          \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{3303 }
\DoxyCodeLine{3304          \textcolor{keyword}{deallocate}(ut\_i,uz\_psi)}
\DoxyCodeLine{3305 }
\DoxyCodeLine{3306          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'TormagBoundariesGrid'},\&}
\DoxyCodeLine{3307                            \textcolor{stringliteral}{'Matrix to apply  b.c. newly produced.'})}
\DoxyCodeLine{3308 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3309 }
\DoxyCodeLine{3310       uz\_tor       = uz\_ut(ut\_tor)}
\DoxyCodeLine{3311       uz\_tor(:,0)  = 0.0d0}
\DoxyCodeLine{3312       uz\_tor(:,km) = 0.0d0}
\DoxyCodeLine{3313       ut\_tor = lusolve(alu,kp,uz\_tor)}
\DoxyCodeLine{3314 }

\end{DoxyCode}


References at\+\_\+module\+::km, lm, and uz\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a5ea3e05e5975fa3ae45bd0105b81a30a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_aa09728f6be56b839139b514227d2fc75}\label{namespaceut__mpi__module_aa09728f6be56b839139b514227d2fc75}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_tormagboundariestau@{ut\_tormagboundariestau}}
\index{ut\_tormagboundariestau@{ut\_tormagboundariestau}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_tormagboundariestau()}{ut\_tormagboundariestau()}}
{\footnotesize\ttfamily subroutine, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+tormagboundariestau (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(inout)}]{ut\+\_\+\+T\+OR,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Definition at line 3152 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{3152 }
\DoxyCodeLine{3153       \textcolor{comment}{! 磁場トロイダルポテンシャルに対して境界条件を適用する.}}
\DoxyCodeLine{3154       \textcolor{comment}{! Chebyshev 空間での境界条件適用}}
\DoxyCodeLine{3155       \textcolor{comment}{!}}
\DoxyCodeLine{3156       \textcolor{comment}{! チェビシェフ空間において境界条件を満たすべく高次の係数を定める方法を}}
\DoxyCodeLine{3157       \textcolor{comment}{! とっている(タウ法). 現在のところ境界物質が非電気伝導体の場合のみ}}
\DoxyCodeLine{3158       \textcolor{comment}{! 対応している. その場合, 磁場トロイダルポテンシャルの境界条件は}}
\DoxyCodeLine{3159       \textcolor{comment}{!}}
\DoxyCodeLine{3160       \textcolor{comment}{! 外側}}
\DoxyCodeLine{3161       \textcolor{comment}{!    ut\_psi = 0   at the outer boundary}}
\DoxyCodeLine{3162       \textcolor{comment}{! 内側}}
\DoxyCodeLine{3163       \textcolor{comment}{!    ut\_psi = 0       at the inner boundary}}
\DoxyCodeLine{3164       \textcolor{comment}{!}}
\DoxyCodeLine{3165       \textcolor{comment}{! であるから ut\_Boundaries で対応可能だが, 将来のため別途作成しておく.}}
\DoxyCodeLine{3166       \textcolor{comment}{!}}
\DoxyCodeLine{3167       \textcolor{comment}{! 最初に呼ばれるときはオプショナル引数 new に関係なく行列が設定される.}}
\DoxyCodeLine{3168       \textcolor{comment}{!}}
\DoxyCodeLine{3169 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)},\textcolor{keywordtype}{intent(inout)}   :: ut\_TOR}
\DoxyCodeLine{3170               \textcolor{comment}{!(inout) 境界条件を適用するデータ. 修正された値を返す.}}
\DoxyCodeLine{3171 }
\DoxyCodeLine{3172       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{3173               \textcolor{comment}{!(in) true だと境界条件計算用行列を強制的に新たに作る.}}
\DoxyCodeLine{3174               \textcolor{comment}{!     default は false.}}
\DoxyCodeLine{3175 }
\DoxyCodeLine{3176 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{3177       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{3178 }
\DoxyCodeLine{3179 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: ut\_I}
\DoxyCodeLine{3180 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: uz\_PSI}
\DoxyCodeLine{3181 }
\DoxyCodeLine{3182       \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{3183       \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{3184       \textcolor{keywordtype}{integer}  :: l}
\DoxyCodeLine{3185       \textcolor{keywordtype}{save}     :: alu, kp, first}
\DoxyCodeLine{3186 }
\DoxyCodeLine{3187       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3188          new\_matrix=.false.}
\DoxyCodeLine{3189       \textcolor{keywordflow}{else}}
\DoxyCodeLine{3190          new\_matrix=new}
\DoxyCodeLine{3191 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3192 }
\DoxyCodeLine{3193       \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{3194          first = .false.}
\DoxyCodeLine{3195 }
\DoxyCodeLine{3196          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{3197          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{3198          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(ut\_i) ) \textcolor{keyword}{deallocate}(ut\_i)}
\DoxyCodeLine{3199          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(uz\_psi) ) \textcolor{keyword}{deallocate}(uz\_psi)}
\DoxyCodeLine{3200 }
\DoxyCodeLine{3201          \textcolor{keyword}{allocate}(alu(nmc,0:lm,0:lm),kp(nmc,0:lm))}
\DoxyCodeLine{3202          \textcolor{keyword}{allocate}(ut\_i(nmc,0:lm),uz\_psi(nmc,0:km))}
\DoxyCodeLine{3203 }
\DoxyCodeLine{3204          \textcolor{keywordflow}{do} l=0,lm}
\DoxyCodeLine{3205             ut\_i = 0.0d0 ; ut\_i(:,l)=1.0d0}
\DoxyCodeLine{3206             alu(:,:,l) = ut\_i}
\DoxyCodeLine{3207 }
\DoxyCodeLine{3208             \textcolor{comment}{! 非電気伝導体}}
\DoxyCodeLine{3209             uz\_psi = uz\_ut(ut\_i)}
\DoxyCodeLine{3210 }
\DoxyCodeLine{3211             alu(:,lm-\/1,l) = uz\_psi(:,0)}
\DoxyCodeLine{3212             alu(:,lm,l)   = uz\_psi(:,km)}
\DoxyCodeLine{3213 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{3214 }
\DoxyCodeLine{3215          \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{3216 }
\DoxyCodeLine{3217          \textcolor{keyword}{deallocate}(ut\_i,uz\_psi)}
\DoxyCodeLine{3218 }
\DoxyCodeLine{3219          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'TormagBoundariesTau'},\&}
\DoxyCodeLine{3220                            \textcolor{stringliteral}{'Matrix to apply  b.c. newly produced.'})}
\DoxyCodeLine{3221 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{3222 }
\DoxyCodeLine{3223       ut\_tor(:,lm-\/1) = 0.0d0}
\DoxyCodeLine{3224       ut\_tor(:,lm)   = 0.0d0}
\DoxyCodeLine{3225       ut\_tor = lusolve(alu,kp,ut\_tor)}
\DoxyCodeLine{3226 }

\end{DoxyCode}


References at\+\_\+module\+::km, lm, and uz\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_aa09728f6be56b839139b514227d2fc75_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a724e777afeb1dc9b15e3ed20df5fd986}\label{namespaceut__mpi__module_a724e777afeb1dc9b15e3ed20df5fd986}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_uz@{ut\_uz}}
\index{ut\_uz@{ut\_uz}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_uz()}{ut\_uz()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+uz (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), intent(in)}]{uz }\end{DoxyParamCaption})}



Definition at line 805 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{805      \textcolor{comment}{!}}
\DoxyCodeLine{806      \textcolor{comment}{! 水平スペクトル・動径格子点データからスペクトルデータへ(正)変換する.}}
\DoxyCodeLine{807      \textcolor{comment}{!}}
\DoxyCodeLine{808 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}, \textcolor{keywordtype}{intent(in)} :: uz}
\DoxyCodeLine{809      \textcolor{comment}{!(in) 2 次元球面調和函数スペクトル・動径格子点データ}}
\DoxyCodeLine{810 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}             :: ut\_uz}
\DoxyCodeLine{811      \textcolor{comment}{!(out) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{812 }
\DoxyCodeLine{813      ut\_uz = at\_az(uz)}
\DoxyCodeLine{814 }

\end{DoxyCode}


Referenced by ut\+\_\+divlat\+\_\+xvh(), ut\+\_\+divlon\+\_\+xvh(), ut\+\_\+divrad\+\_\+ut(), ut\+\_\+lapla\+\_\+ut(), ut\+\_\+radrot\+\_\+xvh\+\_\+xvh(), ut\+\_\+radrotrot\+\_\+xvh\+\_\+xvh\+\_\+xvh(), ut\+\_\+rotrad\+\_\+ut(), ut\+\_\+wh(), ut\+\_\+xvh(), and uz\+\_\+laplapol2pol\+\_\+uz().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a724e777afeb1dc9b15e3ed20df5fd986_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ad0fa09d6c61e41883e886e2d42cd67c6}\label{namespaceut__mpi__module_ad0fa09d6c61e41883e886e2d42cd67c6}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_wh@{ut\_wh}}
\index{ut\_wh@{ut\_wh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_wh()}{ut\_wh()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+wh (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc,kc), intent(in)}]{wh }\end{DoxyParamCaption})}



Definition at line 661 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{661      \textcolor{comment}{!}}
\DoxyCodeLine{662      \textcolor{comment}{! 水平スペクトル・動径格子点データを集める.}}
\DoxyCodeLine{663      \textcolor{comment}{!}}
\DoxyCodeLine{664 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,kc)}, \textcolor{keywordtype}{intent(in)} :: wh}
\DoxyCodeLine{665      \textcolor{comment}{!(in)  2 次元球面調和函数スペクトル・動径格子点データ(分割)}}
\DoxyCodeLine{666 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}                 :: ut\_wh}
\DoxyCodeLine{667      \textcolor{comment}{!(out) 2 次元球面調和函数スペクトル・動径格子点データ}}
\DoxyCodeLine{668 }
\DoxyCodeLine{669      \textcolor{comment}{!ut\_wh = ut\_uz(uz\_wz(wz\_wh(wh)))}}
\DoxyCodeLine{670      ut\_wh = ut\_uz(uz\_wh(wh))}
\DoxyCodeLine{671 }

\end{DoxyCode}


References ut\+\_\+uz(), and uz\+\_\+wh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{namespaceut__mpi__module_ad0fa09d6c61e41883e886e2d42cd67c6_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a05f2794fcdc6dd89fa374e0b2575a2cb}\label{namespaceut__mpi__module_a05f2794fcdc6dd89fa374e0b2575a2cb}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_wt@{ut\_wt}}
\index{ut\_wt@{ut\_wt}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_wt()}{ut\_wt()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+wt (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{wt }\end{DoxyParamCaption})}



Definition at line 740 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{740      \textcolor{comment}{!}}
\DoxyCodeLine{741      \textcolor{comment}{! スペクトルデータから水平スペクトル・動径格子点データへ(正)変換する.}}
\DoxyCodeLine{742      \textcolor{comment}{!}}
\DoxyCodeLine{743 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: wt}
\DoxyCodeLine{744      \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{745 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}                   :: ut\_wt}
\DoxyCodeLine{746      \textcolor{comment}{!(out) 2 次元球面調和函数チェビシェフスペクトルデータ(水平再分割)}}
\DoxyCodeLine{747 }
\DoxyCodeLine{748      ut\_wt = ua\_wa(wt)}
\DoxyCodeLine{749 }

\end{DoxyCode}
\mbox{\Hypertarget{namespaceut__mpi__module_a08265e5c8bcf526cadf141b451e00ba4}\label{namespaceut__mpi__module_a08265e5c8bcf526cadf141b451e00ba4}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_xvh@{ut\_xvh}}
\index{ut\_xvh@{ut\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_xvh()}{ut\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 548 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{548      \textcolor{comment}{!}}
\DoxyCodeLine{549      \textcolor{comment}{! 3 次元格子点データからスペクトルデータへ(正)変換する.}}
\DoxyCodeLine{550      \textcolor{comment}{!}}
\DoxyCodeLine{551 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}                   :: ut\_xvh}
\DoxyCodeLine{552      \textcolor{comment}{!(out) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{553 }
\DoxyCodeLine{554 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)}  :: xvh}
\DoxyCodeLine{555      \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{556 }
\DoxyCodeLine{557      \textcolor{comment}{!ut\_xvh = ut\_uz(uz\_wz(wz\_wh(wh\_xvh(xvh))))}}
\DoxyCodeLine{558      ut\_xvh = ut\_uz(ua\_xvb(xvh))}
\DoxyCodeLine{559 }

\end{DoxyCode}


References ut\+\_\+uz().



Referenced by ut\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh(), and ut\+\_\+radrotrot\+\_\+xvh\+\_\+xvh\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=347pt]{namespaceut__mpi__module_a08265e5c8bcf526cadf141b451e00ba4_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a08265e5c8bcf526cadf141b451e00ba4_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a7dbe6d500795b0d458b504045a8a2a78}\label{namespaceut__mpi__module_a7dbe6d500795b0d458b504045a8a2a78}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!uz\_laplapol2pol\_uz@{uz\_laplapol2pol\_uz}}
\index{uz\_laplapol2pol\_uz@{uz\_laplapol2pol\_uz}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{uz\_laplapol2pol\_uz()}{uz\_laplapol2pol\_uz()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public ut\+\_\+mpi\+\_\+module\+::uz\+\_\+laplapol2pol\+\_\+uz (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), intent(in)}]{uz,  }\item[{character(len=2), intent(in), optional}]{cond,  }\item[{logical, intent(in), optional}]{new }\end{DoxyParamCaption})}



Definition at line 2746 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{2746       \textcolor{comment}{!}}
\DoxyCodeLine{2747       \textcolor{comment}{! 速度ポロイダルポテンシャルΦを▽\string^2Φから計算する.}}
\DoxyCodeLine{2748       \textcolor{comment}{!}}
\DoxyCodeLine{2749       \textcolor{comment}{! チェビシェフ格子点空間で境界条件を適用している.}}
\DoxyCodeLine{2750       \textcolor{comment}{! この関数を用いるためには wt\_Initial にて設定する}}
\DoxyCodeLine{2751       \textcolor{comment}{! チェビシェフ切断波数(lm)と鉛直格子点数(km)を等しく}}
\DoxyCodeLine{2752       \textcolor{comment}{! しておく必要がある.}}
\DoxyCodeLine{2753       \textcolor{comment}{!}}
\DoxyCodeLine{2754       \textcolor{comment}{! 速度ポロイダルポテンシャルΦを f = ▽\string^2Φから定める式は}}
\DoxyCodeLine{2755       \textcolor{comment}{!}}
\DoxyCodeLine{2756       \textcolor{comment}{!   ▽\string^2Φ = f}}
\DoxyCodeLine{2757       \textcolor{comment}{!     Φ = const. at boundaries.}}
\DoxyCodeLine{2758       \textcolor{comment}{!     ∂Φ/∂r = 0 at boundaries           (粘着条件)}}
\DoxyCodeLine{2759       \textcolor{comment}{!     or ∂\string^2Φ/∂r\string^2 = 0 at boundaries    (応力なし条件)}}
\DoxyCodeLine{2760       \textcolor{comment}{!}}
\DoxyCodeLine{2761       \textcolor{comment}{! 最初に呼ばれるときはオプショナル引数 new に関係なく行列が設定される.}}
\DoxyCodeLine{2762       \textcolor{comment}{!}}
\DoxyCodeLine{2763 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)},\textcolor{keywordtype}{intent(in)}  :: uz}
\DoxyCodeLine{2764       \textcolor{comment}{!(in) 入力▽\string^2φ分布}}
\DoxyCodeLine{2765 }
\DoxyCodeLine{2766 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}             :: uz\_LaplaPol2Pol\_uz}
\DoxyCodeLine{2767       \textcolor{comment}{!(out) 出力ポロイダルポテンシャル分布}}
\DoxyCodeLine{2768 }
\DoxyCodeLine{2769       \textcolor{keywordtype}{character(len=2)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}  :: cond}
\DoxyCodeLine{2770       \textcolor{comment}{!(in) 境界条件スイッチ. 省略時は 'RR'}}
\DoxyCodeLine{2771       \textcolor{comment}{!     RR    : 両端粘着条件}}
\DoxyCodeLine{2772       \textcolor{comment}{!     RF    : 上端粘着, 下端応力なし条件}}
\DoxyCodeLine{2773       \textcolor{comment}{!     FR    : 上端応力なし, 下端粘着条件}}
\DoxyCodeLine{2774       \textcolor{comment}{!     FF    : 両端応力なし条件}}
\DoxyCodeLine{2775 }
\DoxyCodeLine{2776       \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(IN)}, \textcolor{keywordtype}{optional} :: new}
\DoxyCodeLine{2777       \textcolor{comment}{!(in) true だと境界条件計算用行列を強制的に新たに作る.}}
\DoxyCodeLine{2778       \textcolor{comment}{!     default は false.}}
\DoxyCodeLine{2779 }
\DoxyCodeLine{2780 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable}  :: alu}
\DoxyCodeLine{2781       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}    :: kp}
\DoxyCodeLine{2782 }
\DoxyCodeLine{2783 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}            :: uz\_work}
\DoxyCodeLine{2784 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:km,0:km)}           :: gg}
\DoxyCodeLine{2785 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:km,0:km)}           :: gg\_work}
\DoxyCodeLine{2786       \textcolor{keywordtype}{logical}                                 :: rigid1=.true.   \textcolor{comment}{! 境界条件}}
\DoxyCodeLine{2787       \textcolor{keywordtype}{logical}                                 :: rigid2=.true.   \textcolor{comment}{! 境界条件}}
\DoxyCodeLine{2788 }
\DoxyCodeLine{2789       \textcolor{keywordtype}{logical} :: first = .true.}
\DoxyCodeLine{2790       \textcolor{keywordtype}{logical} :: new\_matrix = .false.}
\DoxyCodeLine{2791       \textcolor{keywordtype}{integer} :: k,n}
\DoxyCodeLine{2792       \textcolor{keywordtype}{save}    :: alu, kp, first}
\DoxyCodeLine{2793 }
\DoxyCodeLine{2794       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(cond)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2795          rigid1=.true. ; rigid2=.true.}
\DoxyCodeLine{2796       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2797          \textcolor{keywordflow}{select case} (cond)}
\DoxyCodeLine{2798          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RR'})}
\DoxyCodeLine{2799             rigid1 = .true.  ; rigid2 = .true.}
\DoxyCodeLine{2800          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'RF'})}
\DoxyCodeLine{2801             rigid1 = .true.  ; rigid2 = .false.}
\DoxyCodeLine{2802          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FR'})}
\DoxyCodeLine{2803             rigid1 = .false. ; rigid2 = .true.}
\DoxyCodeLine{2804          \textcolor{keywordflow}{case} (\textcolor{stringliteral}{'FF'})}
\DoxyCodeLine{2805             rigid1 = .false. ; rigid2 = .false.}
\DoxyCodeLine{2806 \textcolor{keywordflow}{         case default}}
\DoxyCodeLine{2807             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'uz\_LaplaPol2Pol\_uz'},\textcolor{stringliteral}{'B.C. not supported'})}
\DoxyCodeLine{2808 \textcolor{keywordflow}{         end select}}
\DoxyCodeLine{2809 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2810 }
\DoxyCodeLine{2811       \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{present}(new)) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2812          new\_matrix=.false.}
\DoxyCodeLine{2813       \textcolor{keywordflow}{else}}
\DoxyCodeLine{2814          new\_matrix=new}
\DoxyCodeLine{2815 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2816 }
\DoxyCodeLine{2817       \textcolor{keywordflow}{if} ( first .OR. new\_matrix ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2818          first = .false.}
\DoxyCodeLine{2819 }
\DoxyCodeLine{2820          \textcolor{keywordflow}{if} ( lm /= km ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2821             \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'E'},\textcolor{stringliteral}{'uz\_LaplaPol2Pol\_uz'}, \&}
\DoxyCodeLine{2822                  \textcolor{stringliteral}{'Chebyshev truncation and number of grid points should be same.'})}
\DoxyCodeLine{2823 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2824 }
\DoxyCodeLine{2825          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(alu) ) \textcolor{keyword}{deallocate}(alu)}
\DoxyCodeLine{2826          \textcolor{keywordflow}{if} ( \textcolor{keyword}{allocated}(kp) ) \textcolor{keyword}{deallocate}(kp)}
\DoxyCodeLine{2827          \textcolor{keyword}{allocate}(alu(nmc,0:km,0:km),kp(nmc,0:km))}
\DoxyCodeLine{2828 }
\DoxyCodeLine{2829          \textcolor{keywordflow}{do} k=0,km}
\DoxyCodeLine{2830             uz\_work = 0.0d0 ; uz\_work(:,k) = 1.0d0}
\DoxyCodeLine{2831 }
\DoxyCodeLine{2832             \textcolor{comment}{! 各水平波数に関して独立の式}}
\DoxyCodeLine{2833             alu(:,:,k) = uz\_ut(ut\_lapla\_ut(ut\_uz(uz\_work)))}
\DoxyCodeLine{2834 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{2835 }
\DoxyCodeLine{2836          \textcolor{comment}{! 運動学的条件. 流線は境界で一定}}
\DoxyCodeLine{2837          gg = 0.0d0}
\DoxyCodeLine{2838          \textcolor{keywordflow}{do} k=0,km}
\DoxyCodeLine{2839             gg(k,k)=1.0d0}
\DoxyCodeLine{2840 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{2841          \textcolor{keywordflow}{do} n=1,nmc}
\DoxyCodeLine{2842             alu(n,0,:)   = gg(:,0)}
\DoxyCodeLine{2843             alu(n,km,:)  = gg(:,km)}
\DoxyCodeLine{2844 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{2845 }
\DoxyCodeLine{2846          \textcolor{comment}{! 力学的条件粘着条件}}
\DoxyCodeLine{2847          \textcolor{keywordflow}{if} ( rigid1 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2848             gg\_work=az\_at(at\_dr\_at(at\_az(gg)))}
\DoxyCodeLine{2849          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2850             gg\_work=az\_at(at\_dr\_at(at\_dr\_at(at\_az(gg))))}
\DoxyCodeLine{2851 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2852          \textcolor{keywordflow}{do} n=1,nmc}
\DoxyCodeLine{2853             alu(n,1,:) = gg\_work(:,0)}
\DoxyCodeLine{2854 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{2855 }
\DoxyCodeLine{2856          \textcolor{comment}{! 力学的条件粘着条件}}
\DoxyCodeLine{2857          \textcolor{keywordflow}{if} ( rigid2 ) \textcolor{keywordflow}{then}}
\DoxyCodeLine{2858             gg\_work=az\_at(at\_dr\_at(at\_az(gg)))}
\DoxyCodeLine{2859          \textcolor{keywordflow}{else}}
\DoxyCodeLine{2860             gg\_work=az\_at(at\_dr\_at(at\_dr\_at(at\_az(gg))))}
\DoxyCodeLine{2861 \textcolor{keywordflow}{         endif}}
\DoxyCodeLine{2862          \textcolor{keywordflow}{do} n=1,nmc}
\DoxyCodeLine{2863             alu(n,km-\/1,:) = gg\_work(:,km)}
\DoxyCodeLine{2864 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{2865 }
\DoxyCodeLine{2866          \textcolor{keyword}{call }ludecomp(alu,kp)}
\DoxyCodeLine{2867 }
\DoxyCodeLine{2868          \textcolor{keyword}{call }messagenotify(\textcolor{stringliteral}{'M'},\textcolor{stringliteral}{'uz\_LaplaPol2Pol\_uz'},\&}
\DoxyCodeLine{2869               \textcolor{stringliteral}{'Matrix to apply  b.c. newly produced.'})}
\DoxyCodeLine{2870 \textcolor{keywordflow}{      endif}}
\DoxyCodeLine{2871 }
\DoxyCodeLine{2872       uz\_work         = uz}
\DoxyCodeLine{2873       uz\_work(:,1)    = 0.0d0               \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{2874       uz\_work(:,km-\/1) = 0.0d0               \textcolor{comment}{! 力学的条件}}
\DoxyCodeLine{2875       uz\_work(:,0)    = 0.0d0               \textcolor{comment}{! 運動学的条件}}
\DoxyCodeLine{2876       uz\_work(:,km)   = 0.0d0               \textcolor{comment}{! 運動学的条件}}
\DoxyCodeLine{2877 }
\DoxyCodeLine{2878       uz\_laplapol2pol\_uz = lusolve(alu,kp,uz\_work)}
\DoxyCodeLine{2879 }

\end{DoxyCode}


References at\+\_\+module\+::km, lm, ut\+\_\+lapla\+\_\+ut(), ut\+\_\+uz(), and uz\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a7dbe6d500795b0d458b504045a8a2a78_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a44207e9f0a95033ef526372154b7dcda}\label{namespaceut__mpi__module_a44207e9f0a95033ef526372154b7dcda}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!uz\_ut@{uz\_ut}}
\index{uz\_ut@{uz\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{uz\_ut()}{uz\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public ut\+\_\+mpi\+\_\+module\+::uz\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 792 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{792      \textcolor{comment}{!}}
\DoxyCodeLine{793      \textcolor{comment}{! スペクトルデータから水平スペクトル・動径格子点データへ(正)変換する.}}
\DoxyCodeLine{794      \textcolor{comment}{!}}
\DoxyCodeLine{795 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut}
\DoxyCodeLine{796      \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{797 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}             :: uz\_ut}
\DoxyCodeLine{798      \textcolor{comment}{!(out) 2 次元球面調和函数スペクトル・動径格子点データ}}
\DoxyCodeLine{799 }
\DoxyCodeLine{800      uz\_ut = az\_at(ut)}
\DoxyCodeLine{801 }

\end{DoxyCode}


Referenced by nmz\+\_\+poloidalenergyspectrum\+\_\+ut(), nz\+\_\+poloidalenergyspectrum\+\_\+ut(), ut\+\_\+divrad\+\_\+ut(), ut\+\_\+lapla\+\_\+ut(), ut\+\_\+laplapol2polgrid\+\_\+ut(), ut\+\_\+laplapol2poltau\+\_\+ut(), ut\+\_\+polmagboundariesgrid(), ut\+\_\+polmagboundariestau(), ut\+\_\+potential2vectormpi(), ut\+\_\+rotrad\+\_\+ut(), ut\+\_\+torboundariesgrid(), ut\+\_\+tormagboundariesgrid(), ut\+\_\+tormagboundariestau(), uz\+\_\+laplapol2pol\+\_\+uz(), wh\+\_\+ut(), xvh\+\_\+gradlat\+\_\+ut(), xvh\+\_\+gradlon\+\_\+ut(), and xvh\+\_\+ut().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a44207e9f0a95033ef526372154b7dcda_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a9f7a70497f663ceb26b8af0efc06bf6d}\label{namespaceut__mpi__module_a9f7a70497f663ceb26b8af0efc06bf6d}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!uz\_wh@{uz\_wh}}
\index{uz\_wh@{uz\_wh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{uz\_wh()}{uz\_wh()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}) ut\+\_\+mpi\+\_\+module\+::uz\+\_\+wh (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc,kc), intent(in)}]{wh }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 899 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{899      \textcolor{comment}{!}}
\DoxyCodeLine{900      \textcolor{comment}{! 水平スペクトル・動径格子点データを集める.}}
\DoxyCodeLine{901      \textcolor{comment}{!}}
\DoxyCodeLine{902 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,kc)}, \textcolor{keywordtype}{intent(in)} :: wh}
\DoxyCodeLine{903      \textcolor{comment}{!(in)  動径格子点データ(分割)}}
\DoxyCodeLine{904 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)} :: uz\_wh}
\DoxyCodeLine{905      \textcolor{comment}{!(out) 動径格子点データ}}
\DoxyCodeLine{906 }
\DoxyCodeLine{907      uz\_wh = ua\_wb(wh)}
\DoxyCodeLine{908 }

\end{DoxyCode}


Referenced by ut\+\_\+wh().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{namespaceut__mpi__module_a9f7a70497f663ceb26b8af0efc06bf6d_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a837d1641a05884eba9e349c194bbd04e}\label{namespaceut__mpi__module_a837d1641a05884eba9e349c194bbd04e}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!uz\_wz@{uz\_wz}}
\index{uz\_wz@{uz\_wz}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{uz\_wz()}{uz\_wz()}}
{\footnotesize\ttfamily real(dp) function, dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public ut\+\_\+mpi\+\_\+module\+::uz\+\_\+wz (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), intent(in)}]{wz }\end{DoxyParamCaption})}



Definition at line 766 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{766      \textcolor{comment}{!}}
\DoxyCodeLine{767      \textcolor{comment}{! スペクトルデータから水平スペクトル・動径格子点データへ(正)変換する.}}
\DoxyCodeLine{768      \textcolor{comment}{!}}
\DoxyCodeLine{769 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)}, \textcolor{keywordtype}{intent(in)} :: wz}
\DoxyCodeLine{770      \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{771 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}                   :: uz\_wz}
\DoxyCodeLine{772      \textcolor{comment}{!(out) 2 次元球面調和函数チェビシェフスペクトルデータ(水平再分割)}}
\DoxyCodeLine{773 }
\DoxyCodeLine{774      uz\_wz = ua\_wa(wz)}
\DoxyCodeLine{775 }

\end{DoxyCode}
\mbox{\Hypertarget{namespaceut__mpi__module_a7456474fd32c19d1b3bc10a061bb8c7f}\label{namespaceut__mpi__module_a7456474fd32c19d1b3bc10a061bb8c7f}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!v\_avrlonrad\_xvh@{v\_avrlonrad\_xvh}}
\index{v\_avrlonrad\_xvh@{v\_avrlonrad\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{v\_avrlonrad\_xvh()}{v\_avrlonrad\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(jc), public ut\+\_\+mpi\+\_\+module\+::v\+\_\+avrlonrad\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1848 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1848       \textcolor{comment}{!}}
\DoxyCodeLine{1849       \textcolor{comment}{! 3 次元格子点データの経度動径(緯度円)平均.}}
\DoxyCodeLine{1850       \textcolor{comment}{!}}
\DoxyCodeLine{1851       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して}}
\DoxyCodeLine{1852       \textcolor{comment}{!}}
\DoxyCodeLine{1853       \textcolor{comment}{!     ∫f(λ,φ,r) r\string^2dλdr /(2π(r[o]\string^3-\/r[i]\string^3)/3)}}
\DoxyCodeLine{1854       \textcolor{comment}{!}}
\DoxyCodeLine{1855       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1856       \textcolor{comment}{!}}
\DoxyCodeLine{1857 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1858       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1859 }
\DoxyCodeLine{1860 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc)}       :: v\_AvrLonRad\_xvh}
\DoxyCodeLine{1861       \textcolor{comment}{!(out) 経度動径(緯度円)平均された 1 次元緯度格子点データ}}
\DoxyCodeLine{1862 }
\DoxyCodeLine{1863       v\_avrlonrad\_xvh = v\_intlonrad\_xvh(xvh) \&}
\DoxyCodeLine{1864                  /(sum(x\_lon\_weight)*sum(z\_rad\_weight))}
\DoxyCodeLine{1865 }

\end{DoxyCode}


References v\+\_\+intlonrad\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a7456474fd32c19d1b3bc10a061bb8c7f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a5b2ceefd9dfaa541115525c9bd3a6e7a}\label{namespaceut__mpi__module_a5b2ceefd9dfaa541115525c9bd3a6e7a}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!v\_avrrad\_vh@{v\_avrrad\_vh}}
\index{v\_avrrad\_vh@{v\_avrrad\_vh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{v\_avrrad\_vh()}{v\_avrrad\_vh()}}
{\footnotesize\ttfamily real(dp) function, dimension(jc), public ut\+\_\+mpi\+\_\+module\+::v\+\_\+avrrad\+\_\+vh (\begin{DoxyParamCaption}\item[{real(dp), dimension(jc,kc), intent(in)}]{vh }\end{DoxyParamCaption})}



Definition at line 1927 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1927       \textcolor{comment}{!}}
\DoxyCodeLine{1928       \textcolor{comment}{! 2 次元(VH)格子点データの動径方向域平均.}}
\DoxyCodeLine{1929       \textcolor{comment}{!}}
\DoxyCodeLine{1930       \textcolor{comment}{! 2 次元データ f(φ,r) に対して ∫f(φ,r) r\string^2dr /((r[o]\string^3-\/r[i]\string^3)/3)}}
\DoxyCodeLine{1931       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1932       \textcolor{comment}{!}}
\DoxyCodeLine{1933 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc,kc)}, \textcolor{keywordtype}{intent(in)} :: vh}
\DoxyCodeLine{1934       \textcolor{comment}{!(in) 2 次元緯度動径(子午面)格子点データ}}
\DoxyCodeLine{1935 }
\DoxyCodeLine{1936 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc)}  :: v\_AvrRad\_vh}
\DoxyCodeLine{1937       \textcolor{comment}{!(out) 動径平均された 1 次元緯度格子点データ}}
\DoxyCodeLine{1938 }
\DoxyCodeLine{1939       v\_avrrad\_vh = v\_intrad\_vh(vh)/sum(z\_rad\_weight)}
\DoxyCodeLine{1940 }

\end{DoxyCode}


References v\+\_\+intrad\+\_\+vh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a5b2ceefd9dfaa541115525c9bd3a6e7a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_af4c15eb60325e5f2fec90ef0a2e57efb}\label{namespaceut__mpi__module_af4c15eb60325e5f2fec90ef0a2e57efb}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!v\_intlonrad\_xvh@{v\_intlonrad\_xvh}}
\index{v\_intlonrad\_xvh@{v\_intlonrad\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{v\_intlonrad\_xvh()}{v\_intlonrad\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(jc), public ut\+\_\+mpi\+\_\+module\+::v\+\_\+intlonrad\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1557 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1557       \textcolor{comment}{!}}
\DoxyCodeLine{1558       \textcolor{comment}{! 3 次元格子点データの経度動径(緯度円)積分.}}
\DoxyCodeLine{1559       \textcolor{comment}{!}}
\DoxyCodeLine{1560       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して∫f(λ,φ,r) r\string^2dλdr を計算する.}}
\DoxyCodeLine{1561       \textcolor{comment}{!}}
\DoxyCodeLine{1562 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1563       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1564 }
\DoxyCodeLine{1565 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc)}       :: v\_IntLonRad\_xvh}
\DoxyCodeLine{1566       \textcolor{comment}{!(out) 経度動径(緯度円)積分された 1 次元緯度格子点データ}}
\DoxyCodeLine{1567 }
\DoxyCodeLine{1568       v\_intlonrad\_xvh = v\_intlon\_xv(xv\_intrad\_xvh(xvh))}
\DoxyCodeLine{1569 }

\end{DoxyCode}


References xv\+\_\+intrad\+\_\+xvh().



Referenced by v\+\_\+avrlonrad\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_af4c15eb60325e5f2fec90ef0a2e57efb_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_af4c15eb60325e5f2fec90ef0a2e57efb_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a17bc6f31acab93462dd1f3d8dc88ad63}\label{namespaceut__mpi__module_a17bc6f31acab93462dd1f3d8dc88ad63}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!v\_intrad\_vh@{v\_intrad\_vh}}
\index{v\_intrad\_vh@{v\_intrad\_vh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{v\_intrad\_vh()}{v\_intrad\_vh()}}
{\footnotesize\ttfamily real(dp) function, dimension(jc), public ut\+\_\+mpi\+\_\+module\+::v\+\_\+intrad\+\_\+vh (\begin{DoxyParamCaption}\item[{real(dp), dimension(jc,kc), intent(in)}]{vh }\end{DoxyParamCaption})}



Definition at line 1630 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1630       \textcolor{comment}{!}}
\DoxyCodeLine{1631       \textcolor{comment}{! 2 次元(VH)格子点データの動径方向域積分.}}
\DoxyCodeLine{1632       \textcolor{comment}{!}}
\DoxyCodeLine{1633       \textcolor{comment}{! 2 次元データ f(φ,r) に対して∫f(φ,r) r\string^2dr を計算する.}}
\DoxyCodeLine{1634       \textcolor{comment}{!}}
\DoxyCodeLine{1635 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc,kc)}, \textcolor{keywordtype}{intent(in)} :: vh}
\DoxyCodeLine{1636       \textcolor{comment}{!(in) 2 次元緯度動径(子午面)格子点データ}}
\DoxyCodeLine{1637 }
\DoxyCodeLine{1638 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc)}  :: v\_IntRad\_vh}
\DoxyCodeLine{1639       \textcolor{comment}{!(out) 動径積分された 1 次元緯度格子点データ}}
\DoxyCodeLine{1640 }
\DoxyCodeLine{1641       \textcolor{keywordtype}{integer} :: j}
\DoxyCodeLine{1642 }
\DoxyCodeLine{1643       \textcolor{keywordflow}{do} j=1,jc}
\DoxyCodeLine{1644          v\_intrad\_vh(j) = intrad\_h(vh(j,:))}
\DoxyCodeLine{1645 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{1646 }

\end{DoxyCode}


References intrad\+\_\+h().



Referenced by intlatrad\+\_\+vh(), and v\+\_\+avrrad\+\_\+vh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a17bc6f31acab93462dd1f3d8dc88ad63_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a17bc6f31acab93462dd1f3d8dc88ad63_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a0edcb15ca67d6d96126c2c2ac7151992}\label{namespaceut__mpi__module_a0edcb15ca67d6d96126c2c2ac7151992}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!vh\_avrlon\_xvh@{vh\_avrlon\_xvh}}
\index{vh\_avrlon\_xvh@{vh\_avrlon\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{vh\_avrlon\_xvh()}{vh\_avrlon\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(jc,kc), public ut\+\_\+mpi\+\_\+module\+::vh\+\_\+avrlon\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1775 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1775       \textcolor{comment}{!}}
\DoxyCodeLine{1776       \textcolor{comment}{! 3 次元格子点データの経度方向(帯状)平均.}}
\DoxyCodeLine{1777       \textcolor{comment}{!}}
\DoxyCodeLine{1778       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して ∫f(λ,φ,r)dλ/2π を計算する.}}
\DoxyCodeLine{1779       \textcolor{comment}{!}}
\DoxyCodeLine{1780 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1781       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1782 }
\DoxyCodeLine{1783 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc,kc)}  :: vh\_AvrLon\_xvh}
\DoxyCodeLine{1784       \textcolor{comment}{!(out) 経度方向(帯状)平均された 2 次元子午面格子点データ}}
\DoxyCodeLine{1785 }
\DoxyCodeLine{1786       vh\_avrlon\_xvh = vh\_intlon\_xvh(xvh)/sum(x\_lon\_weight)}
\DoxyCodeLine{1787 }

\end{DoxyCode}


References vh\+\_\+intlon\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a0edcb15ca67d6d96126c2c2ac7151992_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a4352fb9fdb38863a3b17cc3133c0e3c0}\label{namespaceut__mpi__module_a4352fb9fdb38863a3b17cc3133c0e3c0}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!vh\_intlon\_xvh@{vh\_intlon\_xvh}}
\index{vh\_intlon\_xvh@{vh\_intlon\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{vh\_intlon\_xvh()}{vh\_intlon\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(jc,kc), public ut\+\_\+mpi\+\_\+module\+::vh\+\_\+intlon\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1469 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1469       \textcolor{comment}{!}}
\DoxyCodeLine{1470       \textcolor{comment}{! 3 次元格子点データの経度方向(帯状)積分.}}
\DoxyCodeLine{1471       \textcolor{comment}{!}}
\DoxyCodeLine{1472       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して ∫f(λ,φ,r)dλ を計算する.}}
\DoxyCodeLine{1473       \textcolor{comment}{!}}
\DoxyCodeLine{1474 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1475       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1476 }
\DoxyCodeLine{1477 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(jc,kc)}  :: vh\_IntLon\_xvh}
\DoxyCodeLine{1478       \textcolor{comment}{!(out) 経度方向(帯状)積分された 2 次元子午面格子点データ}}
\DoxyCodeLine{1479 }
\DoxyCodeLine{1480       \textcolor{keywordtype}{integer} :: i}
\DoxyCodeLine{1481 }
\DoxyCodeLine{1482       vh\_intlon\_xvh = 0.0d0}
\DoxyCodeLine{1483       \textcolor{keywordflow}{do} i=0,im-\/1}
\DoxyCodeLine{1484          vh\_intlon\_xvh(:,:) = vh\_intlon\_xvh(:,:) \&}
\DoxyCodeLine{1485               + xvh(i,:,:) * x\_lon\_weight(i)}
\DoxyCodeLine{1486 \textcolor{keywordflow}{      enddo}}

\end{DoxyCode}


References at\+\_\+module\+::im.



Referenced by vh\+\_\+avrlon\+\_\+xvh().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a4352fb9fdb38863a3b17cc3133c0e3c0_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a615a116c205ceb196afc3a0aa830d7da}\label{namespaceut__mpi__module_a615a116c205ceb196afc3a0aa830d7da}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!wh\_ut@{wh\_ut}}
\index{wh\_ut@{wh\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{wh\_ut()}{wh\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nc,kc), public ut\+\_\+mpi\+\_\+module\+::wh\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 675 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{675      \textcolor{comment}{!}}
\DoxyCodeLine{676      \textcolor{comment}{! 水平スペクトル・動径格子点データを分割する.}}
\DoxyCodeLine{677      \textcolor{comment}{!}}
\DoxyCodeLine{678 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)}       :: ut}
\DoxyCodeLine{679      \textcolor{comment}{!(in) 2 次元球面調和函数スペクトル・動径格子点データ}}
\DoxyCodeLine{680 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,kc)}               :: wh\_ut}
\DoxyCodeLine{681      \textcolor{comment}{!(out) 2 次元球面調和函数スペクトル・動径格子点データ(分割)}}
\DoxyCodeLine{682 }
\DoxyCodeLine{683      wh\_ut = wh\_uz(uz\_ut(ut))}
\DoxyCodeLine{684 }

\end{DoxyCode}


References uz\+\_\+ut(), and wh\+\_\+uz().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{namespaceut__mpi__module_a615a116c205ceb196afc3a0aa830d7da_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_af5ed4de2a5c407c3471359f0f94f70a8}\label{namespaceut__mpi__module_af5ed4de2a5c407c3471359f0f94f70a8}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!wh\_uz@{wh\_uz}}
\index{wh\_uz@{wh\_uz}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{wh\_uz()}{wh\_uz()}}
{\footnotesize\ttfamily real(dp) function, dimension(nc,kc) ut\+\_\+mpi\+\_\+module\+::wh\+\_\+uz (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), intent(in)}]{uz }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 912 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{912      \textcolor{comment}{!}}
\DoxyCodeLine{913      \textcolor{comment}{! 水平スペクトル・動径格子点データからスペクトルデータへ(正)変換する.}}
\DoxyCodeLine{914      \textcolor{comment}{!}}
\DoxyCodeLine{915 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}, \textcolor{keywordtype}{intent(in)}       :: uz}
\DoxyCodeLine{916      \textcolor{comment}{!(in) 2 次元球面調和函数(水平再分割) (nc,:)}}
\DoxyCodeLine{917 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,kc)}               :: wh\_uz}
\DoxyCodeLine{918      \textcolor{comment}{!(out) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{919 }
\DoxyCodeLine{920      wh\_uz = wb\_ua(uz)}
\DoxyCodeLine{921 }

\end{DoxyCode}


Referenced by wh\+\_\+ut().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=348pt]{namespaceut__mpi__module_af5ed4de2a5c407c3471359f0f94f70a8_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ae273a1b08f56d4c6df3ee16dcf988937}\label{namespaceut__mpi__module_ae273a1b08f56d4c6df3ee16dcf988937}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!wh\_wz@{wh\_wz}}
\index{wh\_wz@{wh\_wz}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{wh\_wz()}{wh\_wz()}}
{\footnotesize\ttfamily real(dp) function, dimension(nc,kc), public ut\+\_\+mpi\+\_\+module\+::wh\+\_\+wz (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), intent(in)}]{wz }\end{DoxyParamCaption})}



Definition at line 701 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{701      \textcolor{comment}{!}}
\DoxyCodeLine{702      \textcolor{comment}{! 水平スペクトル・動径格子点データを分割する.}}
\DoxyCodeLine{703      \textcolor{comment}{!}}
\DoxyCodeLine{704 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)}, \textcolor{keywordtype}{intent(in)} :: wz}
\DoxyCodeLine{705      \textcolor{comment}{!(in) 2 次元球面調和函数スペクトル・動径格子点データ}}
\DoxyCodeLine{706 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,kc)}               :: wh\_wz}
\DoxyCodeLine{707      \textcolor{comment}{!(out) 2 次元球面調和函数スペクトル・動径格子点データ(分割)}}
\DoxyCodeLine{708 }
\DoxyCodeLine{709      wh\_wz = ab\_aa(wz)}
\DoxyCodeLine{710 }

\end{DoxyCode}
\mbox{\Hypertarget{namespaceut__mpi__module_a1b02bd64052f82f6bfd30620a848f97b}\label{namespaceut__mpi__module_a1b02bd64052f82f6bfd30620a848f97b}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!wt\_ut@{wt\_ut}}
\index{wt\_ut@{wt\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{wt\_ut()}{wt\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(nc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::wt\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 753 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{753      \textcolor{comment}{!}}
\DoxyCodeLine{754      \textcolor{comment}{! 水平スペクトル・動径格子点データからスペクトルデータへ(正)変換する.}}
\DoxyCodeLine{755      \textcolor{comment}{!}}
\DoxyCodeLine{756 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)}       :: ut}
\DoxyCodeLine{757      \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ(水平再分割)}}
\DoxyCodeLine{758 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,0:lm)}             :: wt\_ut}
\DoxyCodeLine{759      \textcolor{comment}{!(out) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{760 }
\DoxyCodeLine{761      wt\_ut = wa\_ua(ut)}
\DoxyCodeLine{762 }

\end{DoxyCode}


Referenced by nmz\+\_\+poloidalenergyspectrum\+\_\+ut(), nmz\+\_\+toroidalenergyspectrum\+\_\+ut(), nz\+\_\+poloidalenergyspectrum\+\_\+ut(), and nz\+\_\+toroidalenergyspectrum\+\_\+ut().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a1b02bd64052f82f6bfd30620a848f97b_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ac5042b60eebc0c40913d3bef605db4bb}\label{namespaceut__mpi__module_ac5042b60eebc0c40913d3bef605db4bb}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!wt\_wz@{wt\_wz}}
\index{wt\_wz@{wt\_wz}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{wt\_wz()}{wt\_wz()}}
{\footnotesize\ttfamily real(dp) function, dimension(nc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), public ut\+\_\+mpi\+\_\+module\+::wt\+\_\+wz (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), intent(in)}]{wz }\end{DoxyParamCaption})}



Definition at line 727 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{727      \textcolor{comment}{!}}
\DoxyCodeLine{728      \textcolor{comment}{! 水平スペクトル・動径格子点データからスペクトルデータへ(正)変換する.}}
\DoxyCodeLine{729      \textcolor{comment}{!}}
\DoxyCodeLine{730 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)}, \textcolor{keywordtype}{intent(in)} :: wz}
\DoxyCodeLine{731      \textcolor{comment}{!(in) 2 次元球面調和函数スペクトル・動径格子点データ}}
\DoxyCodeLine{732 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,0:lm)}             :: wt\_wz}
\DoxyCodeLine{733      \textcolor{comment}{!(out) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{734 }
\DoxyCodeLine{735      wt\_wz = at\_az(wz)}
\DoxyCodeLine{736 }

\end{DoxyCode}
\mbox{\Hypertarget{namespaceut__mpi__module_a5341c7d9086cded4c0715764943288f6}\label{namespaceut__mpi__module_a5341c7d9086cded4c0715764943288f6}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!wz\_uz@{wz\_uz}}
\index{wz\_uz@{wz\_uz}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{wz\_uz()}{wz\_uz()}}
{\footnotesize\ttfamily real(dp) function, dimension(nc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public ut\+\_\+mpi\+\_\+module\+::wz\+\_\+uz (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), intent(in)}]{uz }\end{DoxyParamCaption})}



Definition at line 779 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{779      \textcolor{comment}{!}}
\DoxyCodeLine{780      \textcolor{comment}{! 水平スペクトル・動径格子点データからスペクトルデータへ(正)変換する.}}
\DoxyCodeLine{781      \textcolor{comment}{!}}
\DoxyCodeLine{782 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:km)}, \textcolor{keywordtype}{intent(in)}       :: uz}
\DoxyCodeLine{783      \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ(水平再分割)}}
\DoxyCodeLine{784 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)}             :: wz\_uz}
\DoxyCodeLine{785      \textcolor{comment}{!(out) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{786 }
\DoxyCodeLine{787      wz\_uz = wa\_ua(uz)}
\DoxyCodeLine{788 }

\end{DoxyCode}


Referenced by nmz\+\_\+poloidalenergyspectrum\+\_\+ut(), and nz\+\_\+poloidalenergyspectrum\+\_\+ut().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a5341c7d9086cded4c0715764943288f6_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a21720eb02213ecc3287c6855fe4ca394}\label{namespaceut__mpi__module_a21720eb02213ecc3287c6855fe4ca394}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!wz\_wh@{wz\_wh}}
\index{wz\_wh@{wz\_wh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{wz\_wh()}{wz\_wh()}}
{\footnotesize\ttfamily real(dp) function, dimension(nc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public ut\+\_\+mpi\+\_\+module\+::wz\+\_\+wh (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc,kc), intent(in)}]{wh }\end{DoxyParamCaption})}



Definition at line 688 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{688      \textcolor{comment}{!}}
\DoxyCodeLine{689      \textcolor{comment}{! 水平スペクトル・動径格子点データを集める.}}
\DoxyCodeLine{690      \textcolor{comment}{!}}
\DoxyCodeLine{691 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,kc)}, \textcolor{keywordtype}{intent(in)} :: wh}
\DoxyCodeLine{692      \textcolor{comment}{!(in)  2 次元球面調和函数スペクトル・動径格子点データ(分割)}}
\DoxyCodeLine{693 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)}           :: wz\_wh}
\DoxyCodeLine{694      \textcolor{comment}{!(out) 2 次元球面調和函数スペクトル・動径格子点データ}}
\DoxyCodeLine{695 }
\DoxyCodeLine{696      wz\_wh = aa\_ab(wh)}
\DoxyCodeLine{697 }

\end{DoxyCode}
\mbox{\Hypertarget{namespaceut__mpi__module_a30040985887362f7197a090cf5d62f8b}\label{namespaceut__mpi__module_a30040985887362f7197a090cf5d62f8b}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!wz\_wt@{wz\_wt}}
\index{wz\_wt@{wz\_wt}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{wz\_wt()}{wz\_wt()}}
{\footnotesize\ttfamily real(dp) function, dimension(nc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}{km}}), public ut\+\_\+mpi\+\_\+module\+::wz\+\_\+wt (\begin{DoxyParamCaption}\item[{real(dp), dimension(nc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{wt }\end{DoxyParamCaption})}



Definition at line 714 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{714      \textcolor{comment}{!}}
\DoxyCodeLine{715      \textcolor{comment}{! スペクトルデータから水平スペクトル・動径格子点データへ(正)変換する.}}
\DoxyCodeLine{716      \textcolor{comment}{!}}
\DoxyCodeLine{717 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: wt}
\DoxyCodeLine{718      \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{719 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nc,0:km)}             :: wz\_wt}
\DoxyCodeLine{720      \textcolor{comment}{!(out) 2 次元球面調和函数スペクトル・動径格子点データ}}
\DoxyCodeLine{721 }
\DoxyCodeLine{722      wz\_wt = az\_at(wt)}
\DoxyCodeLine{723 }

\end{DoxyCode}


Referenced by nmz\+\_\+poloidalenergyspectrum\+\_\+ut(), nmz\+\_\+toroidalenergyspectrum\+\_\+ut(), nz\+\_\+poloidalenergyspectrum\+\_\+ut(), and nz\+\_\+toroidalenergyspectrum\+\_\+ut().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a30040985887362f7197a090cf5d62f8b_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a49ee30b758bf36d6f856eaddfd5585b4}\label{namespaceut__mpi__module_a49ee30b758bf36d6f856eaddfd5585b4}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!x\_avrlatrad\_xvh@{x\_avrlatrad\_xvh}}
\index{x\_avrlatrad\_xvh@{x\_avrlatrad\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{x\_avrlatrad\_xvh()}{x\_avrlatrad\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1), public ut\+\_\+mpi\+\_\+module\+::x\+\_\+avrlatrad\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1827 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1827       \textcolor{comment}{!}}
\DoxyCodeLine{1828       \textcolor{comment}{! 3 次元格子点データの緯度動径(子午面)平均}}
\DoxyCodeLine{1829       \textcolor{comment}{!}}
\DoxyCodeLine{1830       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して}}
\DoxyCodeLine{1831       \textcolor{comment}{!}}
\DoxyCodeLine{1832       \textcolor{comment}{!    ∫f(λ,,r) r\string^2cosφ dφdr /(2(r[o]\string^3-\/r[i]\string^3)/3)}}
\DoxyCodeLine{1833       \textcolor{comment}{!}}
\DoxyCodeLine{1834       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1835       \textcolor{comment}{!}}
\DoxyCodeLine{1836 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1837       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1838 }
\DoxyCodeLine{1839 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1)}     :: x\_AvrLatRad\_xvh}
\DoxyCodeLine{1840       \textcolor{comment}{!(out) 緯度動径(子午面)平均された 1 次元経度格子点データ}}
\DoxyCodeLine{1841 }
\DoxyCodeLine{1842       x\_avrlatrad\_xvh = x\_intlatrad\_xvh(xvh) \&}
\DoxyCodeLine{1843                    /( sum(y\_lat\_weight)*sum(z\_rad\_weight) )}
\DoxyCodeLine{1844 }

\end{DoxyCode}


References x\+\_\+intlatrad\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a49ee30b758bf36d6f856eaddfd5585b4_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a9a64b8edac4a400182fcdfe3922ae0c8}\label{namespaceut__mpi__module_a9a64b8edac4a400182fcdfe3922ae0c8}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!x\_avrrad\_xh@{x\_avrrad\_xh}}
\index{x\_avrrad\_xh@{x\_avrrad\_xh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{x\_avrrad\_xh()}{x\_avrrad\_xh()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1), public ut\+\_\+mpi\+\_\+module\+::x\+\_\+avrrad\+\_\+xh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,kc), intent(in)}]{xh }\end{DoxyParamCaption})}



Definition at line 1981 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1981       \textcolor{comment}{!}}
\DoxyCodeLine{1982       \textcolor{comment}{! 2 次元(XH)格子点データの動径方向域平均.}}
\DoxyCodeLine{1983       \textcolor{comment}{!}}
\DoxyCodeLine{1984       \textcolor{comment}{! 2 次元データ f(λ,r) に対して}}
\DoxyCodeLine{1985       \textcolor{comment}{!}}
\DoxyCodeLine{1986       \textcolor{comment}{!   ∫f(λ,r) r\string^2dr /((r[o]\string^3-\/r[i]\string^3)/3)}}
\DoxyCodeLine{1987       \textcolor{comment}{!}}
\DoxyCodeLine{1988       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1989       \textcolor{comment}{!}}
\DoxyCodeLine{1990 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,kc)}, \textcolor{keywordtype}{intent(in)} :: xh}
\DoxyCodeLine{1991       \textcolor{comment}{!(in) 2 次元緯度動径格子点データ}}
\DoxyCodeLine{1992 }
\DoxyCodeLine{1993 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1)}  :: x\_AvrRad\_xh}
\DoxyCodeLine{1994       \textcolor{comment}{!(out) 動径平均された 1 次元経度格子点データ}}
\DoxyCodeLine{1995 }
\DoxyCodeLine{1996       x\_avrrad\_xh = x\_intrad\_xh(xh)/sum(z\_rad\_weight)}
\DoxyCodeLine{1997 }

\end{DoxyCode}


References x\+\_\+intrad\+\_\+xh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a9a64b8edac4a400182fcdfe3922ae0c8_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ae270447c21b862fca04e281e9b8c4729}\label{namespaceut__mpi__module_ae270447c21b862fca04e281e9b8c4729}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!x\_intlatrad\_xvh@{x\_intlatrad\_xvh}}
\index{x\_intlatrad\_xvh@{x\_intlatrad\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{x\_intlatrad\_xvh()}{x\_intlatrad\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1), public ut\+\_\+mpi\+\_\+module\+::x\+\_\+intlatrad\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1537 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1537       \textcolor{comment}{!}}
\DoxyCodeLine{1538       \textcolor{comment}{! 3 次元格子点データの緯度動径(子午面)積分}}
\DoxyCodeLine{1539       \textcolor{comment}{!}}
\DoxyCodeLine{1540       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して}}
\DoxyCodeLine{1541       \textcolor{comment}{!}}
\DoxyCodeLine{1542       \textcolor{comment}{!    ∫f(λ,φ,r) r\string^2cosφ dφdr}}
\DoxyCodeLine{1543       \textcolor{comment}{!}}
\DoxyCodeLine{1544       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1545       \textcolor{comment}{!}}
\DoxyCodeLine{1546 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1547       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1548 }
\DoxyCodeLine{1549 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1)}     :: x\_IntLatRad\_xvh}
\DoxyCodeLine{1550       \textcolor{comment}{!(out) 緯度動径(子午面)積分された 1 次元経度格子点データ}}
\DoxyCodeLine{1551 }
\DoxyCodeLine{1552       x\_intlatrad\_xvh = x\_intrad\_xh(xb\_intlat\_xvb(xvh))}
\DoxyCodeLine{1553 }

\end{DoxyCode}


References x\+\_\+intrad\+\_\+xh().



Referenced by x\+\_\+avrlatrad\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ae270447c21b862fca04e281e9b8c4729_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ae270447c21b862fca04e281e9b8c4729_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a78a894eafe47af26a86eed1415d6ddba}\label{namespaceut__mpi__module_a78a894eafe47af26a86eed1415d6ddba}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!x\_intrad\_xh@{x\_intrad\_xh}}
\index{x\_intrad\_xh@{x\_intrad\_xh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{x\_intrad\_xh()}{x\_intrad\_xh()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1), public ut\+\_\+mpi\+\_\+module\+::x\+\_\+intrad\+\_\+xh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,kc), intent(in)}]{xh }\end{DoxyParamCaption})}



Definition at line 1689 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1689       \textcolor{comment}{!}}
\DoxyCodeLine{1690       \textcolor{comment}{! 2 次元(XH)格子点データの動径方向域積分.}}
\DoxyCodeLine{1691       \textcolor{comment}{!}}
\DoxyCodeLine{1692       \textcolor{comment}{! 2 次元データ f(λ,r) に対して ∫f(λ,r) r\string^2dr を計算する.}}
\DoxyCodeLine{1693       \textcolor{comment}{!}}
\DoxyCodeLine{1694 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,kc)}, \textcolor{keywordtype}{intent(in)} :: xh}
\DoxyCodeLine{1695       \textcolor{comment}{!(in) 2 次元緯度動径格子点データ}}
\DoxyCodeLine{1696 }
\DoxyCodeLine{1697 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1)}  :: x\_IntRad\_xh}
\DoxyCodeLine{1698       \textcolor{comment}{!(out) 動径積分された 1 次元経度格子点データ}}
\DoxyCodeLine{1699 }
\DoxyCodeLine{1700       \textcolor{keywordtype}{integer} :: i}
\DoxyCodeLine{1701 }
\DoxyCodeLine{1702       \textcolor{keywordflow}{do} i=0,im-\/1}
\DoxyCodeLine{1703          x\_intrad\_xh(i) = intrad\_h(xh(i,:))}
\DoxyCodeLine{1704 \textcolor{keywordflow}{      enddo}}
\DoxyCodeLine{1705 }

\end{DoxyCode}


References at\+\_\+module\+::im, and intrad\+\_\+h().



Referenced by intlonrad\+\_\+xh(), x\+\_\+avrrad\+\_\+xh(), and x\+\_\+intlatrad\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a78a894eafe47af26a86eed1415d6ddba_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a78a894eafe47af26a86eed1415d6ddba_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ad6be669f16c9f4f2b155cf5047eca74f}\label{namespaceut__mpi__module_ad6be669f16c9f4f2b155cf5047eca74f}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xh\_avrlat\_xvh@{xh\_avrlat\_xvh}}
\index{xh\_avrlat\_xvh@{xh\_avrlat\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xh\_avrlat\_xvh()}{xh\_avrlat\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}},kc), public ut\+\_\+mpi\+\_\+module\+::xh\+\_\+avrlat\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1791 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1791       \textcolor{comment}{!}}
\DoxyCodeLine{1792       \textcolor{comment}{! 3 次元格子点データの緯度方向域平均.}}
\DoxyCodeLine{1793       \textcolor{comment}{!}}
\DoxyCodeLine{1794       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して ∫f(λ,φ,r)cosφ dφ/2 を計算する.}}
\DoxyCodeLine{1795       \textcolor{comment}{!}}
\DoxyCodeLine{1796 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1797       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1798 }
\DoxyCodeLine{1799 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(im,kc)}  :: xh\_AvrLat\_xvh}
\DoxyCodeLine{1800       \textcolor{comment}{!(out) 緯度平均された 2 次元緯度動径格子点データ}}
\DoxyCodeLine{1801 }
\DoxyCodeLine{1802       xh\_avrlat\_xvh = xh\_intlat\_xvh(xvh)/sum(y\_lat\_weight)}
\DoxyCodeLine{1803 }

\end{DoxyCode}


References xh\+\_\+intlat\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_ad6be669f16c9f4f2b155cf5047eca74f_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a21abf6ec1f5c9ba30c06dddb2eeae323}\label{namespaceut__mpi__module_a21abf6ec1f5c9ba30c06dddb2eeae323}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xh\_intlat\_xvh@{xh\_intlat\_xvh}}
\index{xh\_intlat\_xvh@{xh\_intlat\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xh\_intlat\_xvh()}{xh\_intlat\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,kc), public ut\+\_\+mpi\+\_\+module\+::xh\+\_\+intlat\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1490 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1490       \textcolor{comment}{!}}
\DoxyCodeLine{1491       \textcolor{comment}{! 3 次元格子点データの緯度方向域積分.}}
\DoxyCodeLine{1492       \textcolor{comment}{!}}
\DoxyCodeLine{1493       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して∫f(λ,φ,r) cosφ dφ を計算する.}}
\DoxyCodeLine{1494       \textcolor{comment}{!}}
\DoxyCodeLine{1495 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1496       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1497 }
\DoxyCodeLine{1498 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,kc)} :: xh\_IntLat\_xvh        \textcolor{comment}{! 緯度円格子点データ}}
\DoxyCodeLine{1499       \textcolor{comment}{!(out) 緯度積分された 2 次元緯度動径格子点データ}}
\DoxyCodeLine{1500 }
\DoxyCodeLine{1501       xh\_intlat\_xvh = xb\_intlat\_xvb(xvh)}
\DoxyCodeLine{1502 }

\end{DoxyCode}


Referenced by xh\+\_\+avrlat\+\_\+xvh().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a21abf6ec1f5c9ba30c06dddb2eeae323_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a5d7d0283f7087b09d9f9b29b56dd4b93}\label{namespaceut__mpi__module_a5d7d0283f7087b09d9f9b29b56dd4b93}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xv\_avrrad\_xvh@{xv\_avrrad\_xvh}}
\index{xv\_avrrad\_xvh@{xv\_avrrad\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xv\_avrrad\_xvh()}{xv\_avrrad\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc), public ut\+\_\+mpi\+\_\+module\+::xv\+\_\+avrrad\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1807 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1807       \textcolor{comment}{!}}
\DoxyCodeLine{1808       \textcolor{comment}{! 3 次元格子点データの動径方向域平均.}}
\DoxyCodeLine{1809       \textcolor{comment}{!}}
\DoxyCodeLine{1810       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して}}
\DoxyCodeLine{1811       \textcolor{comment}{!}}
\DoxyCodeLine{1812       \textcolor{comment}{!    ∫f(λ,φ,r) r\string^2dr/((r[o]\string^3-\/r[i]\string^3)/3)}}
\DoxyCodeLine{1813       \textcolor{comment}{!}}
\DoxyCodeLine{1814       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1815       \textcolor{comment}{!}}
\DoxyCodeLine{1816 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1817       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1818 }
\DoxyCodeLine{1819 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc)}  :: xv\_AvrRad\_xvh          \textcolor{comment}{! 水平格子点データ}}
\DoxyCodeLine{1820       \textcolor{comment}{!(out) 動径平均された 2 次元経度緯度(水平, 球面)格子点データ}}
\DoxyCodeLine{1821 }
\DoxyCodeLine{1822       xv\_avrrad\_xvh = xv\_intrad\_xvh(xvh)/sum(z\_rad\_weight)}
\DoxyCodeLine{1823 }

\end{DoxyCode}


References xv\+\_\+intrad\+\_\+xvh().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a5d7d0283f7087b09d9f9b29b56dd4b93_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_aeb92ef2970dc8494d35ab57cab968441}\label{namespaceut__mpi__module_aeb92ef2970dc8494d35ab57cab968441}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xv\_intrad\_xvh@{xv\_intrad\_xvh}}
\index{xv\_intrad\_xvh@{xv\_intrad\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xv\_intrad\_xvh()}{xv\_intrad\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc), public ut\+\_\+mpi\+\_\+module\+::xv\+\_\+intrad\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh }\end{DoxyParamCaption})}



Definition at line 1506 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1506       \textcolor{comment}{!}}
\DoxyCodeLine{1507       \textcolor{comment}{! 3 次元格子点データの動径方向域積分.}}
\DoxyCodeLine{1508       \textcolor{comment}{!}}
\DoxyCodeLine{1509       \textcolor{comment}{! 3 次元データ f(λ,φ,r) に対して∫f(λ,φ,r) r\string^2dr を計算する.}}
\DoxyCodeLine{1510       \textcolor{comment}{!}}
\DoxyCodeLine{1511 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh}
\DoxyCodeLine{1512       \textcolor{comment}{!(in) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{1513 }
\DoxyCodeLine{1514 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc)}  :: xv\_IntRad\_xvh}
\DoxyCodeLine{1515       \textcolor{comment}{!(out) 動径積分された 2 次元経度緯度(水平, 球面)格子点データ}}
\DoxyCodeLine{1516 }
\DoxyCodeLine{1517 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc)}  :: xv\_IntRadTmp}
\DoxyCodeLine{1518 }
\DoxyCodeLine{1519       \textcolor{keywordtype}{integer} :: i,j,k,ierr}
\DoxyCodeLine{1520 }
\DoxyCodeLine{1521       xv\_intradtmp = 0.0d0}
\DoxyCodeLine{1522       \textcolor{keywordflow}{do} k=1,kc}
\DoxyCodeLine{1523          \textcolor{keywordflow}{do} j=1,jc}
\DoxyCodeLine{1524             \textcolor{keywordflow}{do} i=0,im-\/1}
\DoxyCodeLine{1525                xv\_intradtmp(i,j) = xv\_intradtmp(i,j) \&}
\DoxyCodeLine{1526                     + xvh(i,j,k) * h\_rad\_weight(k)}
\DoxyCodeLine{1527 \textcolor{keywordflow}{            enddo}}
\DoxyCodeLine{1528 \textcolor{keywordflow}{         enddo}}
\DoxyCodeLine{1529 \textcolor{keywordflow}{      end do}}
\DoxyCodeLine{1530 }
\DoxyCodeLine{1531       \textcolor{keyword}{CALL }mpi\_allreduce(xv\_intradtmp,xv\_intrad\_xvh,im*jc,mpi\_real8, \&}
\DoxyCodeLine{1532                          mpi\_sum,mpi\_comm\_v,ierr)}
\DoxyCodeLine{1533 }

\end{DoxyCode}


References h\+\_\+rad\+\_\+weight, at\+\_\+module\+::im, and ua\+\_\+mpi\+\_\+module\+\_\+base\+::mpi\+\_\+comm\+\_\+v.



Referenced by intlonlatrad\+\_\+xvh(), v\+\_\+intlonrad\+\_\+xvh(), and xv\+\_\+avrrad\+\_\+xvh().

Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_aeb92ef2970dc8494d35ab57cab968441_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_aca314b51fab6fd51eb6145e0a14d72d2}\label{namespaceut__mpi__module_aca314b51fab6fd51eb6145e0a14d72d2}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xvh\_div\_xvh\_xvh\_xvh@{xvh\_div\_xvh\_xvh\_xvh}}
\index{xvh\_div\_xvh\_xvh\_xvh@{xvh\_div\_xvh\_xvh\_xvh}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xvh\_div\_xvh\_xvh\_xvh()}{xvh\_div\_xvh\_xvh\_xvh()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), public ut\+\_\+mpi\+\_\+module\+::xvh\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh (\begin{DoxyParamCaption}\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+Vlon,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+Vlat,  }\item[{real(dp), dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), intent(in)}]{xvh\+\_\+\+Vrad }\end{DoxyParamCaption})}



Definition at line 1014 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1014       \textcolor{comment}{!}}
\DoxyCodeLine{1015       \textcolor{comment}{! ベクトル成分である 3 つの格子データに発散を作用させる.}}
\DoxyCodeLine{1016       \textcolor{comment}{!}}
\DoxyCodeLine{1017       \textcolor{comment}{! 第 1, 2 ,3 引数(u,v,w)がそれぞれベクトルの経度成分, 緯度成分,}}
\DoxyCodeLine{1018       \textcolor{comment}{! 動径成分を表す.}}
\DoxyCodeLine{1019       \textcolor{comment}{!}}
\DoxyCodeLine{1020       \textcolor{comment}{! 極の特異性を回避するためにベクトル場に cosφ/r の重みをかけて}}
\DoxyCodeLine{1021       \textcolor{comment}{! 計算している.}}
\DoxyCodeLine{1022       \textcolor{comment}{!}}
\DoxyCodeLine{1023       \textcolor{comment}{!      div V = (r/cosφ)・div (Vcosφ/r) + V\_φtanφ/r + V\_r/r}}
\DoxyCodeLine{1024       \textcolor{comment}{!}}
\DoxyCodeLine{1025 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_Vlon}
\DoxyCodeLine{1026       \textcolor{comment}{!(in) ベクトル場の経度成分}}
\DoxyCodeLine{1027 }
\DoxyCodeLine{1028 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_Vlat}
\DoxyCodeLine{1029       \textcolor{comment}{!(in) ベクトル場の緯度成分}}
\DoxyCodeLine{1030 }
\DoxyCodeLine{1031 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}, \textcolor{keywordtype}{intent(in)} :: xvh\_Vrad}
\DoxyCodeLine{1032       \textcolor{comment}{!(in) ベクトル場の動径成分}}
\DoxyCodeLine{1033 }
\DoxyCodeLine{1034 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}             :: xvh\_Div\_xvh\_xvh\_xvh}
\DoxyCodeLine{1035       \textcolor{comment}{!(out) ベクトル場の発散}}
\DoxyCodeLine{1036 }
\DoxyCodeLine{1037       xvh\_div\_xvh\_xvh\_xvh \&}
\DoxyCodeLine{1038            = xvh\_rad/cos(xvh\_lat) \&}
\DoxyCodeLine{1039                 * xvh\_ut(ut\_div\_xvh\_xvh\_xvh(xvh\_vlon*cos(xvh\_lat)/xvh\_rad,  \&}
\DoxyCodeLine{1040                                             xvh\_vlat*cos(xvh\_lat)/xvh\_rad,  \&}
\DoxyCodeLine{1041                                             xvh\_vrad*cos(xvh\_lat)/xvh\_rad ))\&}
\DoxyCodeLine{1042              + xvh\_vlat*tan(xvh\_lat)/xvh\_rad \&}
\DoxyCodeLine{1043              + xvh\_vrad/xvh\_rad}
\DoxyCodeLine{1044 }

\end{DoxyCode}


References ut\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh(), xvh\+\_\+lat, xvh\+\_\+rad, and xvh\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_aca314b51fab6fd51eb6145e0a14d72d2_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a180d647fa22a21b25b5f703bd3b6aa17}\label{namespaceut__mpi__module_a180d647fa22a21b25b5f703bd3b6aa17}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xvh\_gradlat\_ut@{xvh\_gradlat\_ut}}
\index{xvh\_gradlat\_ut@{xvh\_gradlat\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xvh\_gradlat\_ut()}{xvh\_gradlat\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), public ut\+\_\+mpi\+\_\+module\+::xvh\+\_\+gradlat\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 941 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{941       \textcolor{comment}{!}}
\DoxyCodeLine{942       \textcolor{comment}{! スペクトルデータに勾配型経度微分 1/r ∂/∂φ を作用させる.}}
\DoxyCodeLine{943       \textcolor{comment}{!}}
\DoxyCodeLine{944 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut}
\DoxyCodeLine{945       \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{946 }
\DoxyCodeLine{947 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}      :: xvh\_GradLat\_ut}
\DoxyCodeLine{948       \textcolor{comment}{!(out) 勾配型緯度微分を作用された 2 次元スペクトルデータ}}
\DoxyCodeLine{949 }
\DoxyCodeLine{950       xvh\_gradlat\_ut = xvb\_gradlat\_ua(uz\_ut(ut))/xvh\_rad}

\end{DoxyCode}


References uz\+\_\+ut(), and xvh\+\_\+rad.



Referenced by ut\+\_\+potential2vectormpi(), and xvh\+\_\+rotlon\+\_\+ut\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=333pt]{namespaceut__mpi__module_a180d647fa22a21b25b5f703bd3b6aa17_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a180d647fa22a21b25b5f703bd3b6aa17_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a82a28f5ec0bea91780ba924b4d9d275f}\label{namespaceut__mpi__module_a82a28f5ec0bea91780ba924b4d9d275f}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xvh\_gradlon\_ut@{xvh\_gradlon\_ut}}
\index{xvh\_gradlon\_ut@{xvh\_gradlon\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xvh\_gradlon\_ut()}{xvh\_gradlon\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), public ut\+\_\+mpi\+\_\+module\+::xvh\+\_\+gradlon\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 926 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{926       \textcolor{comment}{!}}
\DoxyCodeLine{927       \textcolor{comment}{! スペクトルデータに勾配型経度微分 1/rcosφ・∂/∂λ}}
\DoxyCodeLine{928       \textcolor{comment}{! を作用させる.}}
\DoxyCodeLine{929       \textcolor{comment}{!}}
\DoxyCodeLine{930 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut}
\DoxyCodeLine{931       \textcolor{comment}{!(in) 2 次元球面調和函数チェビシェフスペクトルデータ}}
\DoxyCodeLine{932 }
\DoxyCodeLine{933 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}      :: xvh\_GradLon\_ut}
\DoxyCodeLine{934       \textcolor{comment}{!(out) 勾配型経度微分を作用された 2 次元スペクトルデータ}}
\DoxyCodeLine{935 }
\DoxyCodeLine{936       xvh\_gradlon\_ut = xvb\_gradlon\_ua(uz\_ut(ut))/xvh\_rad}
\DoxyCodeLine{937 }

\end{DoxyCode}


References uz\+\_\+ut(), and xvh\+\_\+rad.



Referenced by ut\+\_\+potential2vectormpi(), and xvh\+\_\+rotlat\+\_\+ut\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=333pt]{namespaceut__mpi__module_a82a28f5ec0bea91780ba924b4d9d275f_cgraph}
\end{center}
\end{figure}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a82a28f5ec0bea91780ba924b4d9d275f_icgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a81f404ff0e5c36c210b56060dd0c9a8a}\label{namespaceut__mpi__module_a81f404ff0e5c36c210b56060dd0c9a8a}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xvh\_rotlat\_ut\_ut@{xvh\_rotlat\_ut\_ut}}
\index{xvh\_rotlat\_ut\_ut@{xvh\_rotlat\_ut\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xvh\_rotlat\_ut\_ut()}{xvh\_rotlat\_ut\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), public ut\+\_\+mpi\+\_\+module\+::xvh\+\_\+rotlat\+\_\+ut\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+Vlon,  }\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+Vrad }\end{DoxyParamCaption})}



Definition at line 1071 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1071       \textcolor{comment}{!}}
\DoxyCodeLine{1072       \textcolor{comment}{! ベクトル場の経度成分, 動径成分である第 1, 2 引数 Vlon, Vrad から}}
\DoxyCodeLine{1073       \textcolor{comment}{! 回転の緯度成分}}
\DoxyCodeLine{1074       \textcolor{comment}{!}}
\DoxyCodeLine{1075       \textcolor{comment}{!    1/r ∂(r Vlon)/∂r -\/ 1/rcosφ・∂Vrad/∂λ}}
\DoxyCodeLine{1076       \textcolor{comment}{!}}
\DoxyCodeLine{1077       \textcolor{comment}{! を計算する.}}
\DoxyCodeLine{1078       \textcolor{comment}{!}}
\DoxyCodeLine{1079 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut\_Vlon}
\DoxyCodeLine{1080       \textcolor{comment}{!(in) ベクトル場の経度成分}}
\DoxyCodeLine{1081 }
\DoxyCodeLine{1082 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut\_Vrad}
\DoxyCodeLine{1083       \textcolor{comment}{!(in) ベクトル場の動径成分}}
\DoxyCodeLine{1084 }
\DoxyCodeLine{1085 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}      :: xvh\_RotLat\_ut\_ut}
\DoxyCodeLine{1086       \textcolor{comment}{!(out) ベクトル場の回転の緯度成分}}
\DoxyCodeLine{1087 }
\DoxyCodeLine{1088         xvh\_rotlat\_ut\_ut =   xvh\_ut(ut\_rotrad\_ut(ut\_vlon)) \&}
\DoxyCodeLine{1089                            -\/ xvh\_gradlon\_ut(ut\_vrad)}
\DoxyCodeLine{1090 }

\end{DoxyCode}


References ut\+\_\+rotrad\+\_\+ut(), xvh\+\_\+gradlon\+\_\+ut(), and xvh\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a81f404ff0e5c36c210b56060dd0c9a8a_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_a78aca0397330153607a8b56cd0522b68}\label{namespaceut__mpi__module_a78aca0397330153607a8b56cd0522b68}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xvh\_rotlon\_ut\_ut@{xvh\_rotlon\_ut\_ut}}
\index{xvh\_rotlon\_ut\_ut@{xvh\_rotlon\_ut\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xvh\_rotlon\_ut\_ut()}{xvh\_rotlon\_ut\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), public ut\+\_\+mpi\+\_\+module\+::xvh\+\_\+rotlon\+\_\+ut\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+Vrad,  }\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut\+\_\+\+Vlat }\end{DoxyParamCaption})}



Definition at line 1048 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{1048       \textcolor{comment}{!}}
\DoxyCodeLine{1049       \textcolor{comment}{! ベクトル場の動径成分, 緯度成分である第 1, 2 引数 Vrad, Vlat から}}
\DoxyCodeLine{1050       \textcolor{comment}{! 回転の経度成分}}
\DoxyCodeLine{1051       \textcolor{comment}{!}}
\DoxyCodeLine{1052       \textcolor{comment}{!    1/r ∂Vrad/∂φ-\/1/r ∂(r Vlat)/∂r を計算する.}}
\DoxyCodeLine{1053       \textcolor{comment}{!}}
\DoxyCodeLine{1054       \textcolor{comment}{! を計算する}}
\DoxyCodeLine{1055       \textcolor{comment}{!}}
\DoxyCodeLine{1056 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut\_Vrad}
\DoxyCodeLine{1057       \textcolor{comment}{!(in) ベクトル場の動径成分}}
\DoxyCodeLine{1058 }
\DoxyCodeLine{1059 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut\_Vlat}
\DoxyCodeLine{1060       \textcolor{comment}{!(in) ベクトル場の緯度成分}}
\DoxyCodeLine{1061 }
\DoxyCodeLine{1062 \textcolor{keywordtype}{      real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}      :: xvh\_RotLon\_ut\_ut}
\DoxyCodeLine{1063       \textcolor{comment}{!(out) ベクトル場の回転の経度成分}}
\DoxyCodeLine{1064 }
\DoxyCodeLine{1065         xvh\_rotlon\_ut\_ut =   xvh\_gradlat\_ut(ut\_vrad) \&}
\DoxyCodeLine{1066                            -\/ xvh\_ut(ut\_rotrad\_ut(ut\_vlat))}
\DoxyCodeLine{1067 }

\end{DoxyCode}


References ut\+\_\+rotrad\+\_\+ut(), xvh\+\_\+gradlat\+\_\+ut(), and xvh\+\_\+ut().

Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{namespaceut__mpi__module_a78aca0397330153607a8b56cd0522b68_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{namespaceut__mpi__module_ae8269ff48efe3f37b1b76dc84ab49f67}\label{namespaceut__mpi__module_ae8269ff48efe3f37b1b76dc84ab49f67}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xvh\_ut@{xvh\_ut}}
\index{xvh\_ut@{xvh\_ut}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xvh\_ut()}{xvh\_ut()}}
{\footnotesize\ttfamily real(dp) function, dimension(0\+:\mbox{\hyperlink{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}{im}}-\/1,jc,kc), public ut\+\_\+mpi\+\_\+module\+::xvh\+\_\+ut (\begin{DoxyParamCaption}\item[{real(dp), dimension(nmc,0\+:\mbox{\hyperlink{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}{lm}}), intent(in)}]{ut }\end{DoxyParamCaption})}



Definition at line 563 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{563      \textcolor{comment}{!}}
\DoxyCodeLine{564      \textcolor{comment}{! 水平スペクトル・動径格子点データから 3 次元格子点データへ(逆)変換する.}}
\DoxyCodeLine{565      \textcolor{comment}{!}}
\DoxyCodeLine{566 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(0:im-\/1,jc,kc)}        :: xvh\_ut}
\DoxyCodeLine{567      \textcolor{comment}{!(out) 3 次元経度緯度動径格子点データ}}
\DoxyCodeLine{568 }
\DoxyCodeLine{569 \textcolor{keywordtype}{     real}(DP), \textcolor{keywordtype}{dimension(nmc,0:lm)}, \textcolor{keywordtype}{intent(in)} :: ut}
\DoxyCodeLine{570      \textcolor{comment}{!(in) 2 次元球面調和函数スペクトル・動径格子点データ}}
\DoxyCodeLine{571 }
\DoxyCodeLine{572      xvh\_ut = xvb\_ua(uz\_ut(ut))}
\DoxyCodeLine{573 }

\end{DoxyCode}


References uz\+\_\+ut().



Referenced by ut\+\_\+potential2vectormpi(), xvh\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh(), xvh\+\_\+rotlat\+\_\+ut\+\_\+ut(), and xvh\+\_\+rotlon\+\_\+ut\+\_\+ut().

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


\doxysubsection{Variable Documentation}
\mbox{\Hypertarget{namespaceut__mpi__module_a19f62f105aab496d228e5d975acfd9e6}\label{namespaceut__mpi__module_a19f62f105aab496d228e5d975acfd9e6}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!h\_rad@{h\_rad}}
\index{h\_rad@{h\_rad}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{h\_rad}{h\_rad}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public ut\+\_\+mpi\+\_\+module\+::h\+\_\+rad}



Definition at line 459 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{459 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{allocatable}     :: h\_rad                     \textcolor{comment}{! 座標}}

\end{DoxyCode}


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

\mbox{\Hypertarget{namespaceut__mpi__module_a120aed41e8a3e9c431f555e983bc778b}\label{namespaceut__mpi__module_a120aed41e8a3e9c431f555e983bc778b}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!h\_rad\_weight@{h\_rad\_weight}}
\index{h\_rad\_weight@{h\_rad\_weight}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{h\_rad\_weight}{h\_rad\_weight}}
{\footnotesize\ttfamily real(dp), dimension(\+:), allocatable, public ut\+\_\+mpi\+\_\+module\+::h\+\_\+rad\+\_\+weight}



Definition at line 460 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{460 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{dimension(:)}, \textcolor{keywordtype}{allocatable}     :: h\_rad\_weight              \textcolor{comment}{! 座標}}

\end{DoxyCode}


Referenced by intrad\+\_\+h(), ut\+\_\+mpi\+\_\+finalize(), ut\+\_\+mpi\+\_\+initial(), and xv\+\_\+intrad\+\_\+xvh().

\mbox{\Hypertarget{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}\label{namespaceut__mpi__module_aea734d7fdbe152453e5fa2302970536a}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!im@{im}}
\index{im@{im}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{im}{im}}
{\footnotesize\ttfamily integer, save ut\+\_\+mpi\+\_\+module\+::im =64\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 451 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{451   \textcolor{keywordtype}{integer}            :: im=64, jm=32, km=16  \textcolor{comment}{! 格子点の設定(経度, 緯度, 動径)}}

\end{DoxyCode}
\mbox{\Hypertarget{namespaceut__mpi__module_aeee889cb8b9fbe10fab89d727892fa20}\label{namespaceut__mpi__module_aeee889cb8b9fbe10fab89d727892fa20}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!jm@{jm}}
\index{jm@{jm}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{jm}{jm}}
{\footnotesize\ttfamily integer, save ut\+\_\+mpi\+\_\+module\+::jm =32\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 451 of file ut\+\_\+mpi\+\_\+module.\+f90.



Referenced by ut\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}\label{namespaceut__mpi__module_a30ed5a050987ee3112c096d240ec6ae5}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!km@{km}}
\index{km@{km}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{km}{km}}
{\footnotesize\ttfamily integer, save ut\+\_\+mpi\+\_\+module\+::km =16\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 451 of file ut\+\_\+mpi\+\_\+module.\+f90.

\mbox{\Hypertarget{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}\label{namespaceut__mpi__module_a24756c76cd950e046fe1188ccbf151d4}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!lm@{lm}}
\index{lm@{lm}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{lm}{lm}}
{\footnotesize\ttfamily integer, save ut\+\_\+mpi\+\_\+module\+::lm =16\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 452 of file ut\+\_\+mpi\+\_\+module.\+f90.



Referenced by ut\+\_\+laplapol2polgrid\+\_\+ut(), ut\+\_\+laplapol2poltau\+\_\+ut(), ut\+\_\+mpi\+\_\+initial(), ut\+\_\+polmagboundariesgrid(), ut\+\_\+polmagboundariestau(), ut\+\_\+torboundariesgrid(), ut\+\_\+torboundariestau(), ut\+\_\+tormagboundariesgrid(), ut\+\_\+tormagboundariestau(), and uz\+\_\+laplapol2pol\+\_\+uz().

\mbox{\Hypertarget{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}\label{namespaceut__mpi__module_a1aeadb5ce20e7a1bc5ac39ff9eb878a0}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!nm@{nm}}
\index{nm@{nm}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{nm}{nm}}
{\footnotesize\ttfamily integer, save ut\+\_\+mpi\+\_\+module\+::nm =21\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 452 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{452   \textcolor{keywordtype}{integer}            :: nm=21, lm=16         \textcolor{comment}{! 切断波数の設定(水平, 動径)}}

\end{DoxyCode}


Referenced by nmz\+\_\+poloidalenergyspectrum\+\_\+ut(), nmz\+\_\+toroidalenergyspectrum\+\_\+ut(), nz\+\_\+poloidalenergyspectrum\+\_\+ut(), nz\+\_\+toroidalenergyspectrum\+\_\+ut(), and ut\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespaceut__mpi__module_a2f945511a9f4273408ecb425375e873f}\label{namespaceut__mpi__module_a2f945511a9f4273408ecb425375e873f}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!pi@{pi}}
\index{pi@{pi}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{pi}{pi}}
{\footnotesize\ttfamily real(dp), parameter ut\+\_\+mpi\+\_\+module\+::pi =3.\+1415926535897932385D0\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 454 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{454 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{parameter} :: pi=3.1415926535897932385d0}

\end{DoxyCode}


Referenced by nmz\+\_\+poloidalenergyspectrum\+\_\+ut(), nmz\+\_\+toroidalenergyspectrum\+\_\+ut(), nz\+\_\+poloidalenergyspectrum\+\_\+ut(), and nz\+\_\+toroidalenergyspectrum\+\_\+ut().

\mbox{\Hypertarget{namespaceut__mpi__module_aba1083b125c9f783302a3b1e13e4a385}\label{namespaceut__mpi__module_aba1083b125c9f783302a3b1e13e4a385}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ri@{ri}}
\index{ri@{ri}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ri}{ri}}
{\footnotesize\ttfamily real(dp), save ut\+\_\+mpi\+\_\+module\+::ri =0.\+0\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 453 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{453 \textcolor{keywordtype}{  real}(DP)            :: ri=0.0, ro=1.0       \textcolor{comment}{! 球殻内外半径}}

\end{DoxyCode}


Referenced by ut\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespaceut__mpi__module_ab2207b4cad3404d007a29227f33c45e7}\label{namespaceut__mpi__module_ab2207b4cad3404d007a29227f33c45e7}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ro@{ro}}
\index{ro@{ro}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ro}{ro}}
{\footnotesize\ttfamily real(dp), save ut\+\_\+mpi\+\_\+module\+::ro =1.\+0\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 453 of file ut\+\_\+mpi\+\_\+module.\+f90.



Referenced by ut\+\_\+mpi\+\_\+initial().

\mbox{\Hypertarget{namespaceut__mpi__module_aa9f687d105a67d8f5931513f96fc70aa}\label{namespaceut__mpi__module_aa9f687d105a67d8f5931513f96fc70aa}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!ut\_vmiss@{ut\_vmiss}}
\index{ut\_vmiss@{ut\_vmiss}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{ut\_vmiss}{ut\_vmiss}}
{\footnotesize\ttfamily real(dp), save, public ut\+\_\+mpi\+\_\+module\+::ut\+\_\+vmiss = -\/999.\+0}



Definition at line 462 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{462 \textcolor{keywordtype}{  real}(DP) :: ut\_VMiss = -\/999.0        \textcolor{comment}{! 欠損値}}

\end{DoxyCode}


Referenced by nmz\+\_\+poloidalenergyspectrum\+\_\+ut(), and nmz\+\_\+toroidalenergyspectrum\+\_\+ut().

\mbox{\Hypertarget{namespaceut__mpi__module_a14acbdd359394865ddbf8860897295cd}\label{namespaceut__mpi__module_a14acbdd359394865ddbf8860897295cd}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!uz\_rad@{uz\_rad}}
\index{uz\_rad@{uz\_rad}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{uz\_rad}{uz\_rad}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), allocatable, public ut\+\_\+mpi\+\_\+module\+::uz\+\_\+rad}



Definition at line 458 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{458 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}   :: uz\_RAD                    \textcolor{comment}{! 座標}}

\end{DoxyCode}


Referenced by nmz\+\_\+poloidalenergyspectrum\+\_\+ut(), nz\+\_\+poloidalenergyspectrum\+\_\+ut(), ut\+\_\+divrad\+\_\+ut(), ut\+\_\+lapla\+\_\+ut(), ut\+\_\+mpi\+\_\+finalize(), ut\+\_\+mpi\+\_\+initial(), and ut\+\_\+rotrad\+\_\+ut().

\mbox{\Hypertarget{namespaceut__mpi__module_a87e821c02649c81d5ceb46a4b00bf256}\label{namespaceut__mpi__module_a87e821c02649c81d5ceb46a4b00bf256}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!wh\_rad@{wh\_rad}}
\index{wh\_rad@{wh\_rad}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{wh\_rad}{wh\_rad}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:), allocatable, public ut\+\_\+mpi\+\_\+module\+::wh\+\_\+rad}



Definition at line 457 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{457 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{dimension(:,:)}, \textcolor{keywordtype}{allocatable}   :: wh\_RAD                    \textcolor{comment}{! 座標}}

\end{DoxyCode}


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

\mbox{\Hypertarget{namespaceut__mpi__module_a2a7dc1c6e45ea5e4867ae67678fc33f9}\label{namespaceut__mpi__module_a2a7dc1c6e45ea5e4867ae67678fc33f9}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xvh\_lat@{xvh\_lat}}
\index{xvh\_lat@{xvh\_lat}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xvh\_lat}{xvh\_lat}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:,\+:), allocatable, public ut\+\_\+mpi\+\_\+module\+::xvh\+\_\+lat}



Definition at line 456 of file ut\+\_\+mpi\+\_\+module.\+f90.



Referenced by ut\+\_\+mpi\+\_\+finalize(), ut\+\_\+mpi\+\_\+initial(), and xvh\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh().

\mbox{\Hypertarget{namespaceut__mpi__module_a06a72aa6fbff842afbdd93532235f05f}\label{namespaceut__mpi__module_a06a72aa6fbff842afbdd93532235f05f}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xvh\_lon@{xvh\_lon}}
\index{xvh\_lon@{xvh\_lon}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xvh\_lon}{xvh\_lon}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:,\+:), allocatable, public ut\+\_\+mpi\+\_\+module\+::xvh\+\_\+lon}



Definition at line 456 of file ut\+\_\+mpi\+\_\+module.\+f90.


\begin{DoxyCode}{0}
\DoxyCodeLine{456 \textcolor{keywordtype}{  real}(DP), \textcolor{keywordtype}{dimension(:,:,:)}, \textcolor{keywordtype}{allocatable} :: xvh\_LON, xvh\_LAT, xvh\_RAD \textcolor{comment}{! 座標}}

\end{DoxyCode}


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

\mbox{\Hypertarget{namespaceut__mpi__module_aeef4370123da90ecf087e79141a479f2}\label{namespaceut__mpi__module_aeef4370123da90ecf087e79141a479f2}} 
\index{ut\_mpi\_module@{ut\_mpi\_module}!xvh\_rad@{xvh\_rad}}
\index{xvh\_rad@{xvh\_rad}!ut\_mpi\_module@{ut\_mpi\_module}}
\doxysubsubsection{\texorpdfstring{xvh\_rad}{xvh\_rad}}
{\footnotesize\ttfamily real(dp), dimension(\+:,\+:,\+:), allocatable, public ut\+\_\+mpi\+\_\+module\+::xvh\+\_\+rad}



Definition at line 456 of file ut\+\_\+mpi\+\_\+module.\+f90.



Referenced by ut\+\_\+divlat\+\_\+xvh(), ut\+\_\+divlon\+\_\+xvh(), ut\+\_\+mpi\+\_\+finalize(), ut\+\_\+mpi\+\_\+initial(), ut\+\_\+potential2vectormpi(), ut\+\_\+radrotrot\+\_\+xvh\+\_\+xvh\+\_\+xvh(), xvh\+\_\+div\+\_\+xvh\+\_\+xvh\+\_\+xvh(), xvh\+\_\+gradlat\+\_\+ut(), and xvh\+\_\+gradlon\+\_\+ut().

