\hypertarget{historyautocreate_8f90}{}\section{gtool/gtool\+\_\+historyauto/historyautocreate.f90 File Reference}
\label{historyautocreate_8f90}\index{gtool/gtool\+\_\+historyauto/historyautocreate.\+f90@{gtool/gtool\+\_\+historyauto/historyautocreate.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyautocreate_8f90_abfbef0021a9817ad8bea0a5f12465622}{historyautocreate3} (title, source, institution, dims, dimsizes, longnames, units, origin, terminus, xtypes, conventions, gt\+\_\+version, all\+\_\+output, file\+\_\+prefix, namelist\+\_\+filename, interval, slice\+\_\+start, slice\+\_\+end, slice\+\_\+stride, space\+\_\+average, time\+\_\+average, newfile\+\_\+interval, rank, origin\+\_\+date, origin\+\_\+date\+\_\+invalid, start\+\_\+date, cal, flag\+\_\+mpi\+\_\+gather, flag\+\_\+mpi\+\_\+split)
\item 
subroutine \hyperlink{historyautocreate_8f90_aa90ed4ef465f3b8e056435dfd97a85cd}{historyautocreate2} (title, source, institution, dims, dimsizes, longnames, units, xtypes, conventions, gt\+\_\+version, all\+\_\+output, file\+\_\+prefix, namelist\+\_\+filename, interval, origin, terminus, slice\+\_\+start, slice\+\_\+end, slice\+\_\+stride, space\+\_\+average, time\+\_\+average, newfile\+\_\+interval, rank, origin\+\_\+date, origin\+\_\+date\+\_\+invalid, start\+\_\+date, cal, flag\+\_\+mpi\+\_\+gather, flag\+\_\+mpi\+\_\+split)
\item 
subroutine \hyperlink{historyautocreate_8f90_ac1cd0af89f2c2b77d36ec59ae611b2fd}{historyautocreate1} (title, source, institution, dims, dimsizes, longnames, units, origin, terminus, xtypes, conventions, gt\+\_\+version, all\+\_\+output, file\+\_\+prefix, namelist\+\_\+filename, interval, slice\+\_\+start, slice\+\_\+end, slice\+\_\+stride, space\+\_\+average, time\+\_\+average, newfile\+\_\+interval, rank, origin\+\_\+date, origin\+\_\+date\+\_\+invalid, start\+\_\+date, cal, flag\+\_\+mpi\+\_\+gather, flag\+\_\+mpi\+\_\+split)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyautocreate_8f90_ac1cd0af89f2c2b77d36ec59ae611b2fd}\label{historyautocreate_8f90_ac1cd0af89f2c2b77d36ec59ae611b2fd}} 
\index{historyautocreate.\+f90@{historyautocreate.\+f90}!historyautocreate1@{historyautocreate1}}
\index{historyautocreate1@{historyautocreate1}!historyautocreate.\+f90@{historyautocreate.\+f90}}
\subsubsection{\texorpdfstring{historyautocreate1()}{historyautocreate1()}}
{\footnotesize\ttfamily subroutine historyautocreate1 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{title,  }\item[{character($\ast$), intent(in)}]{source,  }\item[{character($\ast$), intent(in)}]{institution,  }\item[{character($\ast$), dimension(\+:), intent(in)}]{dims,  }\item[{integer, dimension (\+:), intent(in)}]{dimsizes,  }\item[{character($\ast$), dimension (\+:), intent(in)}]{longnames,  }\item[{character($\ast$), dimension(\+:), intent(in)}]{units,  }\item[{real(dp), intent(in)}]{origin,  }\item[{real(dp), intent(in)}]{terminus,  }\item[{character($\ast$), dimension(\+:), intent(in), optional}]{xtypes,  }\item[{character($\ast$), intent(in), optional}]{conventions,  }\item[{character($\ast$), intent(in), optional}]{gt\+\_\+version,  }\item[{logical, intent(in), optional}]{all\+\_\+output,  }\item[{character($\ast$), intent(in), optional}]{file\+\_\+prefix,  }\item[{character($\ast$), intent(in), optional}]{namelist\+\_\+filename,  }\item[{real(dp), intent(in), optional}]{interval,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+start,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+end,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+stride,  }\item[{logical, dimension(\+:), intent(in), optional}]{space\+\_\+average,  }\item[{logical, intent(in), optional}]{time\+\_\+average,  }\item[{integer, intent(in), optional}]{newfile\+\_\+interval,  }\item[{character($\ast$), intent(in), optional}]{rank,  }\item[{type(dc\+\_\+datetime), intent(in), optional}]{origin\+\_\+date,  }\item[{logical, intent(in), optional}]{origin\+\_\+date\+\_\+invalid,  }\item[{type(dc\+\_\+cal\+\_\+date), intent(in), optional}]{start\+\_\+date,  }\item[{type(dc\+\_\+cal), intent(in), optional}]{cal,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+gather,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split }\end{DoxyParamCaption})}



Definition at line 1704 of file historyautocreate.\+f90.



References gtool\+\_\+historyauto\+\_\+internal\+::all\+\_\+output\+\_\+save, dc\+\_\+trace\+::beginsub(), gtool\+\_\+historyauto\+\_\+internal\+::cal\+\_\+save, gtool\+\_\+historyauto\+\_\+internal\+::conventions\+\_\+save, gtool\+\_\+historyauto\+\_\+internal\+::data\+\_\+axes, dc\+\_\+error\+::dc\+\_\+ealreadyinit, dc\+\_\+error\+::dc\+\_\+enegative, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+eargsizemismatch, gtool\+\_\+historyauto\+\_\+internal\+::gt\+\_\+version\+\_\+save, gtool\+\_\+historyauto\+\_\+internal\+::gthst\+\_\+axes, gtool\+\_\+historyauto\+\_\+internal\+::gthstnml, dc\+\_\+error\+::hst\+\_\+enotimedim, gtool\+\_\+historyauto\+\_\+internal\+::initialized, gtool\+\_\+historyauto\+\_\+internal\+::institution\+\_\+save, dc\+\_\+string\+::joinchar(), gtool\+\_\+historyauto\+\_\+internal\+::numdims, dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), gtool\+\_\+historyauto\+\_\+internal\+::rank\+\_\+save, gtool\+\_\+historyauto\+\_\+internal\+::save\+\_\+mpi\+\_\+gather, gtool\+\_\+historyauto\+\_\+internal\+::save\+\_\+mpi\+\_\+split, gtool\+\_\+historyauto\+\_\+internal\+::source\+\_\+save, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, gtool\+\_\+historyauto\+\_\+internal\+::sub\+\_\+sname, gtool\+\_\+historyauto\+\_\+internal\+::time\+\_\+unit\+\_\+bycreate, gtool\+\_\+historyauto\+\_\+internal\+::time\+\_\+unit\+\_\+suffix, gtool\+\_\+historyauto\+\_\+internal\+::title\+\_\+save, dc\+\_\+types\+::token, gtool\+\_\+historyauto\+\_\+internal\+::version, and gtool\+\_\+historyauto\+\_\+internal\+::zero\+\_\+time.


\begin{DoxyCode}
1704     \textcolor{comment}{!}
1705     \textcolor{comment}{! 複数のデータ出力を行うための初期化を行います.}
1706     \textcolor{comment}{!}
1707     \textcolor{comment}{! この HistoryAutoCreate には, モデル内で出力する}
1708     \textcolor{comment}{! 変数が依存する座標や座標重みなどを全てを設定してください.}
1709     \textcolor{comment}{!}
1710     \textcolor{comment}{! all\_output に .true. を与えた場合や,}
1711     \textcolor{comment}{! namelist\_filename を与えない (空文字を与える) 場合には,}
1712     \textcolor{comment}{! HistoryAutoAddVariable で登録される全ての変数が出力されます.}
1713     \textcolor{comment}{! 一方で namelist\_filename に NAMELIST ファイル名を与える場合には,}
1714     \textcolor{comment}{! その NAMELIST ファイルから出力のオンオフや,}
1715     \textcolor{comment}{! 出力ファイル名, 出力間隔などを変更可能です.}
1716     \textcolor{comment}{! 変更可能な項目に関しては NAMELIST#gtool\_historyauto\_nml}
1717     \textcolor{comment}{! を参照して下さい.}
1718     \textcolor{comment}{!}
1719     \textcolor{comment}{! interval, origin, terminus, slice\_start, slice\_end, slice\_stride,}
1720     \textcolor{comment}{! space\_average, time\_average, newfile\_interval}
1721     \textcolor{comment}{! などの設定はデフォルト値として使用されます.}
1722     \textcolor{comment}{! これらの設定値は HistoryAutoAddVariable および}
1723     \textcolor{comment}{! NAMELIST#gtool\_historyauto\_nml で上書きされます.}
1724     \textcolor{comment}{! (優先度が高いのは NAMELIST#gtool\_historyauto\_nml ,}
1725     \textcolor{comment}{! HistoryAutoAddVariable の引数,}
1726     \textcolor{comment}{! HistoryAutoCreate の引数 の順です).}
1727     \textcolor{comment}{!}
1728     \textcolor{comment}{!}
1729     \textcolor{comment}{! Initialization for multiple history data output}
1730     \textcolor{comment}{!}
1731     \textcolor{comment}{! Set all axes and their weights depended by variables}
1732     \textcolor{comment}{! output from numerical models to this "HistoryAutoCreate".}
1733     \textcolor{comment}{!}
1734     \textcolor{comment}{! All variables registered by "HistoryAutoAddVariable"}
1735     \textcolor{comment}{! are output if .true. is given to "all\_output" or}
1736     \textcolor{comment}{! "namelist\_filename" is not given (or blanks are given)}
1737     \textcolor{comment}{! On the other hand, if a filename of NAMELIST file is}
1738     \textcolor{comment}{! given to "namelist\_filename", on/off of output,}
1739     \textcolor{comment}{! output filename and output interval, etc. can be changed}
1740     \textcolor{comment}{! from the NAMELIST file.}
1741     \textcolor{comment}{! For available items, see "NAMELIST#gtool\_historyauto\_nml".}
1742     \textcolor{comment}{!}
1743     \textcolor{comment}{! Settings about}
1744     \textcolor{comment}{! "interval", "origin", "terminus", "slice\_start", "slice\_end", "slice\_stride",}
1745     \textcolor{comment}{! "space\_average", "time\_average", "newfile\_interval"}
1746     \textcolor{comment}{! etc. are used as default values.}
1747     \textcolor{comment}{! Their set values are overwritten by}
1748     \textcolor{comment}{! "HistoryAutoAddVariable" or}
1749     \textcolor{comment}{! "NAMELIST#gtool\_historyauto\_nml".}
1750     \textcolor{comment}{! ("NAMELIST#gtool\_historyauto\_nml" is high priority,}
1751     \textcolor{comment}{! arguments of "HistoryAutoAddVariable" are medium,}
1752     \textcolor{comment}{! arguments of "HistoryAutoCreate" are low).}
1753     \textcolor{comment}{!}
1754     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_ad719685d8938bd2a1e7aa36f0f57210d}{version}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, &
1755       & \hyperlink{namespacegtool__historyauto__internal_a9399975605af7bbc7c94d27c565a9838}{zero\_time}, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, &
1756       & \hyperlink{namespacegtool__historyauto__internal_ae68f71867832f25eacda9f4a4db52e3c}{title\_save}, \hyperlink{namespacegtool__historyauto__internal_ad4d076d628b34e22932c269e1cbe25ce}{source\_save}, \hyperlink{namespacegtool__historyauto__internal_aee003bb35878182aa2b849b804902324}{institution\_save}, 
      \hyperlink{namespacegtool__historyauto__internal_a171ea84f88543027686d2d68202d7274}{conventions\_save}, &
1757       & \hyperlink{namespacegtool__historyauto__internal_a046cc4e220d7dd7d44cf0287a10abdf5}{gt\_version\_save}, \hyperlink{namespacegtool__historyauto__internal_ab995e0150e4e838e8b9848bd566c5299}{rank\_save}, \hyperlink{namespacegtool__historyauto__internal_aa087ebecb90b20901204f5497d24661a}{save\_mpi\_split}, 
      \hyperlink{namespacegtool__historyauto__internal_a6aa46993d72f521af70cf3977df24bf1}{save\_mpi\_gather}, &
1758       & \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}, \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}, 
      \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}, &
1759       & \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save}, \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, \hyperlink{namespacegtool__historyauto__internal_abb3028b474fbd886d4ab3d82d25fbe2f}{cal\_save}
1760     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxiscreate}{historyaxiscreate}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}
1761     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__generic}{gtool\_history\_nmlinfo\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfocreate}{hstnmlinfocreate}, \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoadd}{hstnmlinfoadd}, &
1762       & \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoenddefine}{hstnmlinfoenddefine}, \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoputline}{hstnmlinfoputline}, 
      \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoallnamevalid}{hstnmlinfoallnamevalid}, &
1763       & \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}
1764     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
1765     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a3302263a8c976235052a305d54572070}{dc\_ealreadyinit}, &
1766       & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}, \hyperlink{namespacedc__error_af5bc8dc43d49e0c8bb06ac5e16be11dc}{hst\_enotimedim}, 
      \hyperlink{namespacedc__error_a64f090fc161836514c614059f74c23e6}{dc\_enegative}
1767     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_emaxdims, nf90\_max\_dims
1768     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1putline}{putline}, \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1split}{split}, 
      \hyperlink{interfacedc__string_1_1strinclude}{strinclude}, \hyperlink{interfacedc__string_1_1stoa}{stoa}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
1769     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, 
      \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}, &
1770       & \hyperlink{interfacedc__present_1_1present__select}{present\_select}
1771     \textcolor{keywordtype}{use }\hyperlink{namespacedc__calendar}{dc\_calendar}\textcolor{keywordtype}{, only}: \hyperlink{structdc__calendar__types_1_1dc__cal}{dc\_cal}, \hyperlink{structdc__calendar__types_1_1dc__cal__date}{dc\_cal\_date}, &
1772       & \hyperlink{interfacedc__calendar__generic_1_1dccaldateinquire}{dccaldateinquire}, \hyperlink{interfacedc__calendar__generic_1_1dccalinquire}{dccalinquire}, \hyperlink{interfacedc__calendar__generic_1_1dccaldefault}{dccaldefault}, 
      \hyperlink{interfacedc__calendar__generic_1_1dccalconvertbyunit}{dccalconvertbyunit}
1773     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}, \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}, 
      \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__date__generic_1_1tocharcal}{tocharcal}, \hyperlink{interfacedc__date__generic_1_1eval}{eval}
1774     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}
1775     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1776     \textcolor{keywordtype}{use }\hyperlink{namespacedc__iounit}{dc\_iounit}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__iounit_1_1fileopen}{fileopen}
1777     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
1778     \textcolor{keywordtype}{implicit none}
1779     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: title
1780                               \textcolor{comment}{! データ全体の表題.}
1781                               \textcolor{comment}{! Title of entire data}
1782     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: source
1783                               \textcolor{comment}{! データを作成する際の手段.}
1784                               \textcolor{comment}{! Source of data file}
1785     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: institution
1786                               \textcolor{comment}{! ファイルを最終的に変更した組織/個人.}
1787                               \textcolor{comment}{! Institution or person that changes files for the last time}
1788     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: dims(:)
1789                               \textcolor{comment}{! 次元の名前.}
1790                               \textcolor{comment}{!}
1791                               \textcolor{comment}{! 配列の大きさに制限はありません.}
1792                               \textcolor{comment}{! 個々の次元の文字数は dc\_types#TOKEN まで.}
1793                               \textcolor{comment}{! 配列内の文字数は}
1794                               \textcolor{comment}{! 全て同じでなければなりません.}
1795                               \textcolor{comment}{! 足りない文字分は空白で}
1796                               \textcolor{comment}{! 補ってください.}
1797                               \textcolor{comment}{!}
1798                               \textcolor{comment}{! Names of dimensions.}
1799                               \textcolor{comment}{!}
1800                               \textcolor{comment}{! Length of array is unlimited.}
1801                               \textcolor{comment}{! Limits of numbers of characters of each}
1802                               \textcolor{comment}{! dimensions are "dc\_types#TOKEN".}
1803                               \textcolor{comment}{! Numbers of characters in this array}
1804                               \textcolor{comment}{! must be same.}
1805                               \textcolor{comment}{! Make up a deficit with blanks.}
1806                               \textcolor{comment}{!}
1807     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: dimsizes (:)
1808                               \textcolor{comment}{! dims で指定したそれぞれの次元大きさ.}
1809                               \textcolor{comment}{!}
1810                               \textcolor{comment}{! 配列の大きさは dims の大きさと等しい}
1811                               \textcolor{comment}{! 必要があります.  '0' (数字のゼロ) を指定}
1812                               \textcolor{comment}{! するとその次元は 無制限次元 (unlimited}
1813                               \textcolor{comment}{! dimension) となります. (gtool\_history}
1814                               \textcolor{comment}{! では時間の次元に対して無制限次元を}
1815                               \textcolor{comment}{! 用いることを想定しています). ただし,}
1816                               \textcolor{comment}{! 1 つの NetCDF ファイル (バージョン 3)}
1817                               \textcolor{comment}{! は最大で 1 つの無制限次元しか持てないので,}
1818                               \textcolor{comment}{! 2 ヶ所以上に '0' を指定しないでください.}
1819                               \textcolor{comment}{! その場合, 正しく gtool4 データが出力されません.}
1820                               \textcolor{comment}{!}
1821                               \textcolor{comment}{! Lengths of dimensions specified with "dims".}
1822                               \textcolor{comment}{!}
1823                               \textcolor{comment}{! Length of this array must be same as}
1824                               \textcolor{comment}{! length of "dim".  If '0' (zero) is}
1825                               \textcolor{comment}{! specified, the dimension is treated as}
1826                               \textcolor{comment}{! unlimited dimension.}
1827                               \textcolor{comment}{! (In "gtool\_history", unlimited dimension is}
1828                               \textcolor{comment}{! expected to be used as time).}
1829                               \textcolor{comment}{! Note that one NetCDF file (version 3)}
1830                               \textcolor{comment}{! can not have two or more unlimited}
1831                               \textcolor{comment}{! dimensions, so that do not specify '0'}
1832                               \textcolor{comment}{! to two or more places. In that case,}
1833                               \textcolor{comment}{! gtoo4 data is not output currently}
1834                               \textcolor{comment}{!}
1835     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: longnames (:)
1836                               \textcolor{comment}{! dims で指定したそれぞれの次元の名前.}
1837                               \textcolor{comment}{!}
1838                               \textcolor{comment}{! 配列の大きさは dims の大きさ}
1839                               \textcolor{comment}{! と等しい必要があります. 文字数}
1840                               \textcolor{comment}{! は dc\_types#STRING まで.}
1841                               \textcolor{comment}{! 配列内の文字数は}
1842                               \textcolor{comment}{! 全て同じでなければなりません.}
1843                               \textcolor{comment}{! 足りない文字分は空白で補います.}
1844                               \textcolor{comment}{!}
1845                               \textcolor{comment}{! Names of dimensions specified with "dims".}
1846                               \textcolor{comment}{!}
1847                               \textcolor{comment}{! Length of this array must be same as}
1848                               \textcolor{comment}{! length of "dim".}
1849                               \textcolor{comment}{! Limits of numbers of characters are}
1850                               \textcolor{comment}{! "dc\_types#STRING".}
1851                               \textcolor{comment}{! Numbers of characters in this array}
1852                               \textcolor{comment}{! must be same.}
1853                               \textcolor{comment}{! Make up a deficit with blanks.}
1854                               \textcolor{comment}{!}
1855     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: \hyperlink{structdc__units_1_1units}{units}(:)
1856                               \textcolor{comment}{! dims で指定したそれぞれの次元の単位.}
1857                               \textcolor{comment}{!}
1858                               \textcolor{comment}{! 配列の大きさは dims の大きさ}
1859                               \textcolor{comment}{! と等しい必要があります. 文字数}
1860                               \textcolor{comment}{! は dc\_types#STRING まで.}
1861                               \textcolor{comment}{! 配列内の文字数は}
1862                               \textcolor{comment}{! 全て同じでなければなりません.}
1863                               \textcolor{comment}{! 足りない文字分は空白で補います.}
1864                               \textcolor{comment}{!}
1865                               \textcolor{comment}{! Units of dimensions specified with "dims".}
1866                               \textcolor{comment}{!}
1867                               \textcolor{comment}{! Length of this array must be same as}
1868                               \textcolor{comment}{! length of "dim".}
1869                               \textcolor{comment}{! Limits of numbers of characters are}
1870                               \textcolor{comment}{! "dc\_types#STRING".}
1871                               \textcolor{comment}{! Numbers of characters in this array}
1872                               \textcolor{comment}{! must be same.}
1873                               \textcolor{comment}{! Make up a deficit with blanks.}
1874                               \textcolor{comment}{!}
1875     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: origin
1876                               \textcolor{comment}{! 出力開始時刻.}
1877                               \textcolor{comment}{!}
1878                               \textcolor{comment}{! Start time of output.}
1879                               \textcolor{comment}{!}
1880     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}:: terminus
1881                               \textcolor{comment}{! 出力終了時刻.}
1882                               \textcolor{comment}{!}
1883                               \textcolor{comment}{! End time of output.}
1884                               \textcolor{comment}{!}
1885     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: xtypes(:)
1886                               \textcolor{comment}{! dims で指定したそれぞれの}
1887                               \textcolor{comment}{! 次元のデータ型.}
1888                               \textcolor{comment}{!}
1889                               \textcolor{comment}{! デフォルトは float (単精度実数型)}
1890                               \textcolor{comment}{! です. 有効なのは,}
1891                               \textcolor{comment}{! double (倍精度実数型),}
1892                               \textcolor{comment}{! int (整数型) です. 指定しない}
1893                               \textcolor{comment}{! 場合や, 無効な型を指定した場合には,}
1894                               \textcolor{comment}{! float となります. なお, 配列の大きさ}
1895                               \textcolor{comment}{! は *dims* の大きさと等しい必要が}
1896                               \textcolor{comment}{! あります. 配列内の文字数は全て}
1897                               \textcolor{comment}{! 同じでなければなりません.}
1898                               \textcolor{comment}{! 足りない文字分は空白で補います.}
1899                               \textcolor{comment}{!}
1900                               \textcolor{comment}{! Data types of dimensions specified}
1901                               \textcolor{comment}{! with "dims".}
1902                               \textcolor{comment}{!}
1903                               \textcolor{comment}{! Default value is "float" (single precision).}
1904                               \textcolor{comment}{! Other valid values are}
1905                               \textcolor{comment}{! "double" (double precision),}
1906                               \textcolor{comment}{! "int" (integer).}
1907                               \textcolor{comment}{! If no value or invalid value is specified,}
1908                               \textcolor{comment}{! "float" is applied.}
1909                               \textcolor{comment}{! Length of this array must be same as}
1910                               \textcolor{comment}{! length of "dim".}
1911                               \textcolor{comment}{! Numbers of characters in this array}
1912                               \textcolor{comment}{! must be same.}
1913                               \textcolor{comment}{! Make up a deficit with blanks.}
1914                               \textcolor{comment}{!}
1915     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: conventions
1916                               \textcolor{comment}{! 出力するファイルの netCDF}
1917                               \textcolor{comment}{! 規約}
1918                               \textcolor{comment}{!}
1919                               \textcolor{comment}{! 省略した場合,}
1920                               \textcolor{comment}{! もしくは空文字を与えた場合,}
1921                               \textcolor{comment}{! 出力する netCDF 規約の}
1922                               \textcolor{comment}{! Conventions 属性に値}
1923                               \textcolor{comment}{! gtool4\_netCDF\_Conventions}
1924                               \textcolor{comment}{! が自動的に与えられます.}
1925                               \textcolor{comment}{!}
1926                               \textcolor{comment}{! NetCDF conventions of output file.}
1927                               \textcolor{comment}{!}
1928                               \textcolor{comment}{! If this argument is omitted or,}
1929                               \textcolor{comment}{! blanks are given,}
1930                               \textcolor{comment}{! gtool4\_netCDF\_Conventions is given to}
1931                               \textcolor{comment}{! attribute "Conventions" of an output file}
1932                               \textcolor{comment}{! automatically.}
1933                               \textcolor{comment}{!}
1934     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: gt\_version
1935                               \textcolor{comment}{! gtool4 netCDF 規約のバージョン}
1936                               \textcolor{comment}{!}
1937                               \textcolor{comment}{! 省略した場合, gt\_version 属性に}
1938                               \textcolor{comment}{! 規約の最新版のバージョンナンバー}
1939                               \textcolor{comment}{! gtool4\_netCDF\_version}
1940                               \textcolor{comment}{! が与えられます.}
1941                               \textcolor{comment}{! (ただし, 引数 conventions に}
1942                               \textcolor{comment}{! gtool4\_netCDF\_Conventions}
1943                               \textcolor{comment}{! 以外が与えられる場合は}
1944                               \textcolor{comment}{! gt\_version 属性を作成しません).}
1945                               \textcolor{comment}{!}
1946                               \textcolor{comment}{! Version of gtool4 netCDF Conventions.}
1947                               \textcolor{comment}{!}
1948                               \textcolor{comment}{! If this argument is omitted,}
1949                               \textcolor{comment}{! latest version number of gtool4 netCDF}
1950                               \textcolor{comment}{! Conventions is given to attribute}
1951                               \textcolor{comment}{! "gt\_version" of an output file}
1952                               \textcolor{comment}{! (However, gtool4\_netCDF\_Conventions is}
1953                               \textcolor{comment}{! not given to an argument "conventions",}
1954                               \textcolor{comment}{! attribute "gt\_version" is not created).}
1955                               \textcolor{comment}{!}
1956     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: all\_output
1957                               \textcolor{comment}{! 登録変数を全て出力するためのフラグ.}
1958                               \textcolor{comment}{!}
1959                               \textcolor{comment}{! .true. を指定すると,}
1960                               \textcolor{comment}{! HistoryAutoAddVariable で登録された}
1961                               \textcolor{comment}{! 変数が全て出力されるようになります.}
1962                               \textcolor{comment}{!}
1963                               \textcolor{comment}{! *namelist\_filename* が指定される場合}
1964                               \textcolor{comment}{! には, デフォルトは .false. となります.}
1965                               \textcolor{comment}{! この場合には,}
1966                               \textcolor{comment}{! *namelist\_filename* に指定された}
1967                               \textcolor{comment}{! NAMELIST ファイルから読み込まれる}
1968                               \textcolor{comment}{! NAMELIST#gtool\_historyauto\_nml}
1969                               \textcolor{comment}{! で指定された変数のみ出力されます.}
1970                               \textcolor{comment}{!}
1971                               \textcolor{comment}{! *namelist\_filename* が指定されない場合}
1972                               \textcolor{comment}{! には, .true. となります.}
1973                               \textcolor{comment}{!}
1974                               \textcolor{comment}{!}
1975                               \textcolor{comment}{! Flag for output all registered variables.}
1976                               \textcolor{comment}{!}
1977                               \textcolor{comment}{! When .true. is specified,}
1978                               \textcolor{comment}{! all variables registered by}
1979                               \textcolor{comment}{! "HistoryAutoAddVariable" are output.}
1980                               \textcolor{comment}{!}
1981                               \textcolor{comment}{! If *namelist\_filename* is specified,}
1982                               \textcolor{comment}{! default value becomes .false. .}
1983                               \textcolor{comment}{! In this case,}
1984                               \textcolor{comment}{! only variables specified in}
1985                               \textcolor{comment}{! "NAMELIST#gtool\_historyauto\_nml"}
1986                               \textcolor{comment}{! loaded from a NAMELIST file}
1987                               \textcolor{comment}{! *namelist\_filename*.}
1988                               \textcolor{comment}{!}
1989                               \textcolor{comment}{! If *namelist\_filename* is not specified,}
1990                               \textcolor{comment}{! this value becomes .true. .}
1991                               \textcolor{comment}{!}
1992     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: file\_prefix
1993                               \textcolor{comment}{! データのファイル名の接頭詞.}
1994                               \textcolor{comment}{! Prefixes of history data filenames}
1995     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: namelist\_filename
1996                               \textcolor{comment}{! NAMELIST ファイルの名称.}
1997                               \textcolor{comment}{!}
1998                               \textcolor{comment}{! 省略した場合, もしくは空白文字を与えた場合,}
1999                               \textcolor{comment}{! NAMELIST ファイルは読み込みません.}
2000                               \textcolor{comment}{!}
2001                               \textcolor{comment}{! Name of NAMELIST file.}
2002                               \textcolor{comment}{!}
2003                               \textcolor{comment}{! If this argument is omitted,}
2004                               \textcolor{comment}{! or blanks are specified,}
2005                               \textcolor{comment}{! no NAMELIST file is loaded.}
2006                               \textcolor{comment}{!}
2007     \textcolor{keywordtype}{real(DP)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: interval
2008                               \textcolor{comment}{! 出力時間間隔.}
2009                               \textcolor{comment}{!}
2010                               \textcolor{comment}{! 省略した場合,}
2011                               \textcolor{comment}{! 自動的に 1.0 [sec] が設定されます.}
2012                               \textcolor{comment}{!}
2013                               \textcolor{comment}{! Interval of output time.}
2014                               \textcolor{comment}{!}
2015                               \textcolor{comment}{! If this argument is omitted,}
2016                               \textcolor{comment}{! 1.0 [sec] is specified}
2017                               \textcolor{comment}{! automatically.}
2018                               \textcolor{comment}{!}
2019     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_start(:)
2020                               \textcolor{comment}{! 空間方向の開始点.}
2021                               \textcolor{comment}{!}
2022                               \textcolor{comment}{! 省略した場合, 座標データの開始点が設定されます.}
2023                               \textcolor{comment}{!}
2024                               \textcolor{comment}{! Start points of spaces.}
2025                               \textcolor{comment}{!}
2026                               \textcolor{comment}{! If this argument is omitted,}
2027                               \textcolor{comment}{! start points of dimensions are set.}
2028                               \textcolor{comment}{!}
2029     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_end(:)
2030                               \textcolor{comment}{! 空間方向の終了点.}
2031                               \textcolor{comment}{!}
2032                               \textcolor{comment}{! 省略した場合, もしくは負の値が与えら得た場合,}
2033                               \textcolor{comment}{! 座標データの終了点が設定されます.}
2034                               \textcolor{comment}{!}
2035                               \textcolor{comment}{! End points of spaces.}
2036                               \textcolor{comment}{!}
2037                               \textcolor{comment}{! If this argument is omitted or}
2038                               \textcolor{comment}{! negative value is specified,}
2039                               \textcolor{comment}{! end points of dimensions are set.}
2040                               \textcolor{comment}{!}
2041     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_stride(:)
2042                               \textcolor{comment}{! 空間方向の刻み幅.}
2043                               \textcolor{comment}{!}
2044                               \textcolor{comment}{! 省略した場合, 1 が設定されます.}
2045                               \textcolor{comment}{!}
2046                               \textcolor{comment}{! Strides of spaces}
2047                               \textcolor{comment}{!}
2048                               \textcolor{comment}{! If this argument is omitted,}
2049                               \textcolor{comment}{! 1 is set.}
2050                               \textcolor{comment}{!}
2051     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: space\_average(:)
2052                               \textcolor{comment}{! 平均化のフラグ.}
2053                               \textcolor{comment}{!}
2054                               \textcolor{comment}{! .true. が指定される座標に対して平均化を}
2055                               \textcolor{comment}{! 行います.}
2056                               \textcolor{comment}{! 省略した場合, .false. が設定されます.}
2057                               \textcolor{comment}{!}
2058                               \textcolor{comment}{! Flag of average.}
2059                               \textcolor{comment}{!}
2060                               \textcolor{comment}{! Axes specified .true. are averaged.}
2061                               \textcolor{comment}{! If this argument is omitted,}
2062                               \textcolor{comment}{! .false. is set.}
2063                               \textcolor{comment}{!}
2064     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average
2065                               \textcolor{comment}{! 出力データの時間平均フラグ.}
2066                               \textcolor{comment}{! デフォルトは .false.}
2067                               \textcolor{comment}{! Flag for time average of output data}
2068                               \textcolor{comment}{! Default value is .false.}
2069     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: newfile\_interval
2070                               \textcolor{comment}{! ファイル分割時間間隔.}
2071                               \textcolor{comment}{!}
2072                               \textcolor{comment}{! 省略した場合,}
2073                               \textcolor{comment}{! 時間方向へのファイル分割を行いません.}
2074                               \textcolor{comment}{!}
2075                               \textcolor{comment}{! Interval of time of separation of a file.}
2076                               \textcolor{comment}{!}
2077                               \textcolor{comment}{! If this argument is omitted,}
2078                               \textcolor{comment}{! a files is not separated in time direction.}
2079                               \textcolor{comment}{!}
2080     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: rank
2081                               \textcolor{comment}{! ランクの名称.}
2082                               \textcolor{comment}{!}
2083                               \textcolor{comment}{! Name of a rank.}
2084                               \textcolor{comment}{!}
2085     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: origin\_date
2086                               \textcolor{comment}{! 出力開始日時.}
2087                               \textcolor{comment}{! この引数は廃止予定のため, start\_date を使用して下さい.}
2088                               \textcolor{comment}{!}
2089                               \textcolor{comment}{! Start date of output.}
2090                               \textcolor{comment}{! Use "start\_date" because this argument is obsolete.}
2091                               \textcolor{comment}{!}
2092     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: origin\_date\_invalid
2093                               \textcolor{comment}{! .true. を与えると, origin\_date を無効にします.}
2094                               \textcolor{comment}{!}
2095                               \textcolor{comment}{! If ".true." is given, "origin\_date" is ignored.}
2096     \textcolor{keywordtype}{type}(\hyperlink{structdc__calendar__types_1_1dc__cal__date}{dc\_cal\_date}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: start\_date
2097                               \textcolor{comment}{! 出力開始日時.}
2098                               \textcolor{comment}{!}
2099                               \textcolor{comment}{! Start date of output.}
2100                               \textcolor{comment}{!}
2101     \textcolor{keywordtype}{type}(\hyperlink{structdc__calendar__types_1_1dc__cal}{dc\_cal}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: cal
2102                               \textcolor{comment}{! 暦情報.}
2103                               \textcolor{comment}{! これを指定しない場合, dc\_calendar モジュールの}
2104                               \textcolor{comment}{! デフォルトの暦が使用されます.}
2105                               \textcolor{comment}{!}
2106                               \textcolor{comment}{! Calendar.}
2107                               \textcolor{comment}{! If this argument is specified, default calendar in}
2108                               \textcolor{comment}{! "dc\_calendar" module is used.}
2109                               \textcolor{comment}{!}
2110     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_gather
2111                               \textcolor{comment}{! MPI 使用時に, 各ノードで HistoryPut}
2112                               \textcolor{comment}{! に与えたデータを一つのファイルに統合して出力}
2113                               \textcolor{comment}{! する場合には .true. を与えてください.}
2114                               \textcolor{comment}{! デフォルトは .false. です.}
2115                               \textcolor{comment}{!}
2116                               \textcolor{comment}{! .true. を与えた場合, HistoryPutAxisMPI}
2117                               \textcolor{comment}{! に全体の軸データを与えてください.}
2118                               \textcolor{comment}{!}
2119                               \textcolor{comment}{! When MPI is used, if ".true." is given,}
2120                               \textcolor{comment}{! data given to "HistoryPut" on each node}
2121                               \textcolor{comment}{! is integrated and output to one file.}
2122                               \textcolor{comment}{! Default value is ".false.".}
2123                               \textcolor{comment}{!}
2124                               \textcolor{comment}{! If .true. is given, give data of axes in}
2125                               \textcolor{comment}{! whole area to "HistoryPutAxisMPI"}
2126                               \textcolor{comment}{!}
2127     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
2128                               \textcolor{comment}{! MPI 使用時に, 各ノードで HistoryPut}
2129                               \textcolor{comment}{! に与えたデータをそれぞれ別名のファイルに}
2130                               \textcolor{comment}{! 出力する場合には .true. を与えてください.}
2131                               \textcolor{comment}{! デフォルトは .false. です.}
2132                               \textcolor{comment}{!}
2133                               \textcolor{comment}{! When MPI is used, if ".true." is given,}
2134                               \textcolor{comment}{! data given to "HistoryPut" on each node}
2135                               \textcolor{comment}{! is split into discrete files.}
2136                               \textcolor{comment}{! Default value is ".false.".}
2137                               \textcolor{comment}{!}
2138 
2139 
2140     \textcolor{comment}{! NAMELIST 変数群 ; NAMELIST group of variables}
2141     \textcolor{keywordtype}{character(STRING)}:: name
2142                               \textcolor{comment}{! 変数名.}
2143                               \textcolor{comment}{! 空白の場合には, この他の設定値は}
2144                               \textcolor{comment}{! gtool\_historyauto モジュールにおいて}
2145                               \textcolor{comment}{! 出力されるデータ全ての}
2146                               \textcolor{comment}{! デフォルト値となります.}
2147                               \textcolor{comment}{!}
2148                               \textcolor{comment}{! "Data1,Data2" のようにカンマで区切って複数}
2149                               \textcolor{comment}{! の変数を指定することも可能です.}
2150                               \textcolor{comment}{!}
2151                               \textcolor{comment}{! Variable identifier.}
2152                               \textcolor{comment}{! If blank is given, other values are}
2153                               \textcolor{comment}{! used as default values of output data}
2154                               \textcolor{comment}{! in "gtool\_historyauto".}
2155                               \textcolor{comment}{!}
2156                               \textcolor{comment}{! Multiple variables can be specified}
2157                               \textcolor{comment}{! as "Data1,Data2" too. Delimiter is comma.}
2158     \textcolor{keywordtype}{character(STRING)}:: file
2159                               \textcolor{comment}{! 出力ファイル名.}
2160                               \textcolor{comment}{! これはデフォルト値としては使用されません.}
2161                               \textcolor{comment}{! *Name* に値が設定されている時のみ有効です.}
2162                               \textcolor{comment}{!}
2163                               \textcolor{comment}{! Output file name.}
2164                               \textcolor{comment}{! This is not used as default value.}
2165                               \textcolor{comment}{! This value is valid only when *Name* is}
2166                               \textcolor{comment}{! specified.}
2167 
2168     \textcolor{keywordtype}{real(DP)}:: intvalue
2169                               \textcolor{comment}{! データの出力間隔の数値.}
2170                               \textcolor{comment}{! 負の値を与えると, 出力を抑止します.}
2171                               \textcolor{comment}{! Numerical value for interval of history data output}
2172                               \textcolor{comment}{! Negative values suppresses output.}
2173     \textcolor{keywordtype}{character(TOKEN)}:: intunit
2174                               \textcolor{comment}{! データの出力間隔の単位.}
2175                               \textcolor{comment}{! Unit for interval of history data output}
2176     \textcolor{keywordtype}{character(TOKEN)}:: precision
2177                               \textcolor{comment}{! データの精度.}
2178                               \textcolor{comment}{! デフォルトは float (単精度実数型)}
2179                               \textcolor{comment}{! です. 有効なのは,}
2180                               \textcolor{comment}{! double (倍精度実数型),}
2181                               \textcolor{comment}{! int (整数型) です. 指定しない}
2182                               \textcolor{comment}{! 場合や, 無効な型を指定した場合には,}
2183                               \textcolor{comment}{! float となります.}
2184                               \textcolor{comment}{!}
2185                               \textcolor{comment}{! Precision of history data}
2186                               \textcolor{comment}{! Default value is "float" (single precision).}
2187                               \textcolor{comment}{! Other valid values are}
2188                               \textcolor{comment}{! "double" (double precision),}
2189                               \textcolor{comment}{! "int" (integer).}
2190                               \textcolor{comment}{! If no value or invalid value is specified,}
2191                               \textcolor{comment}{! "float" is applied.}
2192     \textcolor{keywordtype}{character(STRING)}:: fileprefix
2193                               \textcolor{comment}{! データのファイル名の接頭詞.}
2194                               \textcolor{comment}{! Prefixes of history data filenames}
2195     \textcolor{keywordtype}{logical}:: timeaverage
2196                               \textcolor{comment}{! 出力データの時間平均フラグ.}
2197                               \textcolor{comment}{!}
2198                               \textcolor{comment}{! ".true." を与えると, 時間平均値が出力されます.}
2199                               \textcolor{comment}{!}
2200                               \textcolor{comment}{! Flag for time average of output data}
2201                               \textcolor{comment}{!}
2202                               \textcolor{comment}{! If ".ture." is specified,}
2203                               \textcolor{comment}{! time average values are output.}
2204                               \textcolor{comment}{!}
2205     \textcolor{keywordtype}{logical}:: alloutput
2206                               \textcolor{comment}{! 登録変数を全て出力するためのフラグ.}
2207                               \textcolor{comment}{! Flag for output all registered variables.}
2208     \textcolor{keywordtype}{real(DP)}:: originvalue
2209                               \textcolor{comment}{! 出力開始時刻.}
2210                               \textcolor{comment}{! Start time of output.}
2211     \textcolor{keywordtype}{character(TOKEN)}:: originunit
2212                               \textcolor{comment}{! 出力開始時刻の単位.}
2213                               \textcolor{comment}{! Unit of start time of output.}
2214     \textcolor{keywordtype}{real(DP)}:: terminusvalue
2215                               \textcolor{comment}{! 出力終了時刻.}
2216                               \textcolor{comment}{! End time of output.}
2217     \textcolor{keywordtype}{character(TOKEN)}:: terminusunit
2218                               \textcolor{comment}{! 出力終了時刻の単位.}
2219                               \textcolor{comment}{! Unit of end time of output.}
2220     \textcolor{keywordtype}{integer}:: slicestart(1:nf90\_max\_dims)
2221                               \textcolor{comment}{! 空間方向の開始点.}
2222                               \textcolor{comment}{! Start points of spaces.}
2223     \textcolor{keywordtype}{integer}:: sliceend(1:nf90\_max\_dims)
2224                               \textcolor{comment}{! 空間方向の終了点.}
2225                               \textcolor{comment}{!}
2226                               \textcolor{comment}{! 省略した場合, もしくは負の値が与えら得た場合,}
2227                               \textcolor{comment}{! 座標データの終了点が設定されます.}
2228                               \textcolor{comment}{!}
2229                               \textcolor{comment}{! End points of spaces.}
2230                               \textcolor{comment}{!}
2231                               \textcolor{comment}{! If this argument is omitted or}
2232                               \textcolor{comment}{! negative value is specified,}
2233                               \textcolor{comment}{! end points of dimensions are set.}
2234                               \textcolor{comment}{!}
2235     \textcolor{keywordtype}{integer}:: slicestride(1:nf90\_max\_dims)
2236                               \textcolor{comment}{! 空間方向の刻み幅.}
2237                               \textcolor{comment}{! Strides of spaces.}
2238     \textcolor{keywordtype}{logical}:: spaceaverage(1:nf90\_max\_dims)
2239                               \textcolor{comment}{! 空間平均のフラグ.}
2240                               \textcolor{comment}{! Flag of spatial average.}
2241     \textcolor{keywordtype}{integer}:: newfileintvalue
2242                               \textcolor{comment}{! ファイル分割時間間隔の数値.}
2243                               \textcolor{comment}{! Numerical value for interval of time of separation of a file.}
2244     \textcolor{keywordtype}{character(TOKEN)}:: newfileintunit
2245                               \textcolor{comment}{! ファイル分割時間間隔の単位.}
2246                               \textcolor{comment}{! Unit of interval of time of separation of a file.}
2247 
2248     namelist /gtool\_historyauto\_nml/ &
2249       & name, file, &
2250       & intvalue, intunit, &
2251       & precision, &
2252       & fileprefix, &
2253       & timeaverage, alloutput, &
2254       & originvalue, originunit, &
2255       & terminusvalue, terminusunit, &
2256       & slicestart, sliceend, slicestride, spaceaverage, &
2257       & newfileintvalue, newfileintunit
2258                               \textcolor{comment}{! gtool\_historyauto モジュールのデータ用}
2259                               \textcolor{comment}{! NAMELIST 変数群名.}
2260                               \textcolor{comment}{!}
2261                               \textcolor{comment}{! gtool\_historyauto\_generic#HistoryAutoCreate}
2262                               \textcolor{comment}{! を使用する際に, オプショナル引数 *namelist\_filename*}
2263                               \textcolor{comment}{! へ NAMELIST ファイル名を指定することで,}
2264                               \textcolor{comment}{! そのファイルからこの NAMELIST 変数群を}
2265                               \textcolor{comment}{! 読み込みます.}
2266                               \textcolor{comment}{!}
2267                               \textcolor{comment}{! NAMELIST group name for}
2268                               \textcolor{comment}{! history data of "gtool\_historyauto" module.}
2269                               \textcolor{comment}{!}
2270                               \textcolor{comment}{! If a NAMELIST filename is specified to}
2271                               \textcolor{comment}{! an optional argument *namelist\_filename* when}
2272                               \textcolor{comment}{! "gtool\_historyauto\_generic#HistoryAutoCreate"}
2273                               \textcolor{comment}{! is used, this NAMELIST group is}
2274                               \textcolor{comment}{! loaded from the file.}
2275 
2276 
2277     \textcolor{comment}{! 作業変数 ; Work variables}
2278     \textcolor{keywordtype}{integer}:: blank\_index
2279     \textcolor{keywordtype}{integer}:: stat
2280     \textcolor{keywordtype}{character(STRING)}:: cause\_c
2281     \textcolor{keywordtype}{integer}:: unit\_nml        \textcolor{comment}{! NAMELIST ファイルオープン用装置番号.}
2282                               \textcolor{comment}{! Unit number for NAMELIST file open}
2283     \textcolor{keywordtype}{integer}:: iostat\_nml      \textcolor{comment}{! NAMELIST 読み込み時の IOSTAT.}
2284                               \textcolor{comment}{! IOSTAT of NAMELIST read}
2285     \textcolor{keywordtype}{character(TOKEN)}:: pos\_nml
2286                               \textcolor{comment}{! NAMELIST 読み込み時のファイル位置.}
2287                               \textcolor{comment}{! File position of NAMELIST read}
2288     \textcolor{keywordtype}{integer}:: i, j
2289     \textcolor{keywordtype}{character(TOKEN)}:: my\_xtype
2290 
2291     \textcolor{keywordtype}{real(DP)}:: interval\_work, origin\_work, terminus\_work
2292     \textcolor{keywordtype}{integer}:: date\_day
2293     \textcolor{keywordtype}{real(DP)}:: date\_sec
2294     \textcolor{keywordtype}{integer}:: msnot\_rank
2295     \textcolor{keywordtype}{character(STRING)}:: date\_str
2296     \textcolor{keywordtype}{character(TOKEN)}:: cal\_str, cal\_type
2297     \textcolor{keywordtype}{integer}:: origin\_year, origin\_month, origin\_day, origin\_hour, origin\_min
2298     \textcolor{keywordtype}{real(DP)}:: origin\_sec
2299     \textcolor{keywordtype}{integer}:: month\_in\_year, hour\_in\_day, min\_in\_hour
2300     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}:: day\_in\_month(:) =>null()
2301     \textcolor{keywordtype}{real(DP)}:: sec\_in\_min
2302     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoCreate1"}
2303   \textcolor{keywordflow}{continue}
2304     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \hyperlink{namespacegtool__historyauto__internal_ad719685d8938bd2a1e7aa36f0f57210d}{version} = \hyperlink{namespacegtool__historyauto__internal_ad719685d8938bd2a1e7aa36f0f57210d}{version})
2305     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
2306     cause\_c = \textcolor{stringliteral}{""}
2307 
2308     \textcolor{comment}{! このサブルーチンが 2 度呼ばれたらエラー}
2309     \textcolor{comment}{! Error is occurred when this subroutine is called twice}
2310     \textcolor{comment}{!}
2311     \textcolor{keywordflow}{if} ( \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
2312       stat = \hyperlink{namespacedc__error_a3302263a8c976235052a305d54572070}{dc\_ealreadyinit}
2313       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
2314       \textcolor{keywordflow}{goto} 999
2315 \textcolor{keywordflow}{    end if}
2316 
2317     \textcolor{comment}{! ゼロ秒の作成.}
2318     \textcolor{comment}{! Create zero seconds}
2319     \textcolor{comment}{!}
2320     \hyperlink{namespacegtool__historyauto__internal_a9399975605af7bbc7c94d27c565a9838}{zero\_time} = 0.0\_dp
2321 \textcolor{comment}{!!$    call DCDiffTimeCreate( &}
2322 \textcolor{comment}{!!$      & zero\_time, &        ! (out)}
2323 \textcolor{comment}{!!$      & sec = 0.0\_DP  )     ! (in)}
2324 
2325     \textcolor{comment}{! 次元の数に関するエラー処理}
2326     \textcolor{comment}{! Error handling for number of dimensions}
2327     \textcolor{comment}{!}
2328     \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} = \textcolor{keyword}{size}(dims)
2329 
2330     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(dimsizes) /= \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} ) \textcolor{keywordflow}{then}
2331       cause\_c = \textcolor{stringliteral}{'dimsizes, dims'}
2332     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{size}(longnames) /= \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} ) \textcolor{keywordflow}{then}
2333       cause\_c = \textcolor{stringliteral}{'longnames, dims'}
2334     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{size}(\hyperlink{structdc__units_1_1units}{units}) /= \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} ) \textcolor{keywordflow}{then}
2335       cause\_c = \textcolor{stringliteral}{'units, dims'}
2336 \textcolor{keywordflow}{    endif}
2337     \textcolor{keywordflow}{if} ( trim(cause\_c) /= \textcolor{stringliteral}{""} ) \textcolor{keywordflow}{then}
2338       stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
2339       \textcolor{keywordflow}{goto} 999
2340 \textcolor{keywordflow}{    end if}
2341 
2342     \textcolor{keywordflow}{if} ( \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} > nf90\_max\_dims ) \textcolor{keywordflow}{then}
2343       stat = nf90\_emaxdims
2344       \textcolor{keywordflow}{goto} 999
2345 \textcolor{keywordflow}{    end if}
2346 
2347     \textcolor{comment}{! 時刻次元に関するエラー処理}
2348     \textcolor{comment}{! Error handling for time dimension}
2349     \textcolor{comment}{!}
2350     \textcolor{keywordflow}{if} ( dimsizes(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}) /= 0 ) \textcolor{keywordflow}{then}
2351       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
2352         & \textcolor{stringliteral}{'time dimension must be specified to the last of "dims"'} )
2353       stat = \hyperlink{namespacedc__error_af5bc8dc43d49e0c8bb06ac5e16be11dc}{hst\_enotimedim}
2354       \textcolor{keywordflow}{goto} 999
2355 \textcolor{keywordflow}{    end if}
2356 
2357     \textcolor{comment}{! 出力ファイルの基本メタデータの保管}
2358     \textcolor{comment}{! Save basic meta data for output file}
2359     \textcolor{comment}{!}
2360     \hyperlink{namespacegtool__historyauto__internal_ae68f71867832f25eacda9f4a4db52e3c}{title\_save}       = title
2361     \hyperlink{namespacegtool__historyauto__internal_ad4d076d628b34e22932c269e1cbe25ce}{source\_save}      = source
2362     \hyperlink{namespacegtool__historyauto__internal_aee003bb35878182aa2b849b804902324}{institution\_save} = institution
2363 
2364     \hyperlink{namespacegtool__historyauto__internal_a171ea84f88543027686d2d68202d7274}{conventions\_save} = \textcolor{stringliteral}{''}
2365     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(conventions) ) \hyperlink{namespacegtool__historyauto__internal_a171ea84f88543027686d2d68202d7274}{conventions\_save} = conventions
2366 
2367     \hyperlink{namespacegtool__historyauto__internal_a046cc4e220d7dd7d44cf0287a10abdf5}{gt\_version\_save} = \textcolor{stringliteral}{''}
2368     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(gt\_version) ) \hyperlink{namespacegtool__historyauto__internal_a046cc4e220d7dd7d44cf0287a10abdf5}{gt\_version\_save} = gt\_version
2369 
2370     \hyperlink{namespacegtool__historyauto__internal_ab995e0150e4e838e8b9848bd566c5299}{rank\_save} = \textcolor{stringliteral}{''}
2371     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(rank) ) \hyperlink{namespacegtool__historyauto__internal_ab995e0150e4e838e8b9848bd566c5299}{rank\_save} = rank
2372 
2373     \textcolor{comment}{! MPI に関する情報の保管}
2374     \textcolor{comment}{! Save information about MPI}
2375     \textcolor{comment}{!}
2376     \hyperlink{namespacegtool__historyauto__internal_aa087ebecb90b20901204f5497d24661a}{save\_mpi\_split}  = \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split )
2377     \hyperlink{namespacegtool__historyauto__internal_a6aa46993d72f521af70cf3977df24bf1}{save\_mpi\_gather} = \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_gather )
2378 
2379     msnot\_rank = -1
2380     \textcolor{keywordflow}{if} ( \hyperlink{namespacegtool__historyauto__internal_a6aa46993d72f521af70cf3977df24bf1}{save\_mpi\_gather} ) msnot\_rank = 0
2381 
2382     \textcolor{comment}{! 時刻の単位のチェック}
2383     \textcolor{comment}{! Check units of time}
2384     \textcolor{comment}{!}
2385     \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} = \hyperlink{structdc__units_1_1units}{units}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims})
2386     \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = \textcolor{stringliteral}{''}
2387     blank\_index = index( trim( adjustl(\hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}) ), \textcolor{stringliteral}{' '} )
2388     \textcolor{keywordflow}{if} ( blank\_index > 1  ) \textcolor{keywordflow}{then}
2389       \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}(blank\_index+1:)
2390       \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}(1:blank\_index-1)
2391 \textcolor{keywordflow}{    end if}
2392 
2393     \textcolor{comment}{! 座標軸データの保管}
2394     \textcolor{comment}{! Save axes data}
2395     \textcolor{comment}{!}
2396     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
2397       my\_xtype = \textcolor{stringliteral}{''}
2398       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(xtypes) ) \textcolor{keywordflow}{then}
2399         \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(xtypes) >= i ) \textcolor{keywordflow}{then}
2400           my\_xtype = xtypes(i)
2401 \textcolor{keywordflow}{        end if}
2402 \textcolor{keywordflow}{      end if}
2403 
2404       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxiscreate}{historyaxiscreate}( &
2405         &     axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &                     \textcolor{comment}{! (out)}
2406         &     name = dims(i),       \textcolor{keyword}{size} = dimsizes(i), & \textcolor{comment}{! (in)}
2407         & longname = longnames(i), \hyperlink{structdc__units_1_1units}{units} = \hyperlink{structdc__units_1_1units}{units}(i), &    \textcolor{comment}{! (in)}
2408         &    xtype = my\_xtype )                           \textcolor{comment}{! (in)}
2409 
2410       \textcolor{keyword}{allocate}( \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}(i) % a\_axis( dimsizes(i) ) )
2411       \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}(i) % a\_axis = (/ ( \textcolor{keywordtype}{real( j, DP )}, j = 1, dimsizes(i) ) /)
2412 
2413 \textcolor{keywordflow}{    end do}
2414 
2415     \textcolor{comment}{! 暦の登録}
2416     \textcolor{comment}{! Register calendar}
2417     \textcolor{comment}{!}
2418     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(cal) ) \textcolor{keywordflow}{then}
2419       \hyperlink{namespacegtool__historyauto__internal_abb3028b474fbd886d4ab3d82d25fbe2f}{cal\_save} = cal
2420     \textcolor{keywordflow}{else}
2421       \textcolor{keyword}{call }\hyperlink{interfacedc__calendar__generic_1_1dccaldefault}{dccaldefault}( \hyperlink{namespacegtool__historyauto__internal_abb3028b474fbd886d4ab3d82d25fbe2f}{cal\_save} )
2422 \textcolor{keywordflow}{    end if}
2423 
2424     \textcolor{comment}{! 日時の指定}
2425     \textcolor{comment}{! Specify date}
2426     \textcolor{comment}{!}
2427     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(start\_date) ) \textcolor{keywordflow}{then}
2428 
2429       \textcolor{keyword}{call }\hyperlink{interfacedc__calendar__generic_1_1dccaldateinquire}{dccaldateinquire}( &
2430         & date\_str = date\_str, &   \textcolor{comment}{! (out)}
2431         & date     = start\_date, & \textcolor{comment}{! (in) optional}
2432         & cal      = cal &         \textcolor{comment}{! (in) optional}
2433         \textcolor{comment}{!    & , zone = "+09:00" &}
2434         & )
2435 
2436       \textcolor{keyword}{call }\hyperlink{interfacedc__calendar__generic_1_1dccaldateinquire}{dccaldateinquire}( &
2437         & origin\_year, origin\_month, origin\_day, & \textcolor{comment}{! (out) optional}
2438         & origin\_hour, origin\_min,   origin\_sec, & \textcolor{comment}{! (out) optional}
2439         & date     = start\_date, & \textcolor{comment}{! (in) optional}
2440         & cal      = cal &         \textcolor{comment}{! (in) optional}
2441         & )
2442 
2443       \textcolor{keyword}{call }\hyperlink{interfacedc__calendar__generic_1_1dccalinquire}{dccalinquire}( &
2444         & cal\_str, &                          \textcolor{comment}{! (out) optional}
2445         & month\_in\_year    = month\_in\_year, & \textcolor{comment}{! (out) optional}
2446         & day\_in\_month\_ptr = day\_in\_month , & \textcolor{comment}{! (out) optional}
2447         & hour\_in\_day      = hour\_in\_day  , & \textcolor{comment}{! (out) optional}
2448         & min\_in\_hour      = min\_in\_hour  , & \textcolor{comment}{! (out) optional}
2449         & sec\_in\_min       = sec\_in\_min   , & \textcolor{comment}{! (out) optional}
2450         & cal = \hyperlink{namespacegtool__historyauto__internal_abb3028b474fbd886d4ab3d82d25fbe2f}{cal\_save} )                    \textcolor{comment}{! (in) optional}
2451 
2452       \textcolor{comment}{! 地球暦の場合のみ units 属性に "since ..." を付加}
2453       \textcolor{comment}{!}
2454       \textcolor{keywordflow}{select case} ( trim(cal\_str) )
2455       \textcolor{keywordflow}{case} ( \textcolor{stringliteral}{'gregorian'} )
2456         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
2457           & \textcolor{stringliteral}{' since '} // trim(date\_str)
2458       \textcolor{keywordflow}{case} ( \textcolor{stringliteral}{'julian'} )
2459         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
2460           & \textcolor{stringliteral}{' since '} // trim(date\_str)
2461       \textcolor{keywordflow}{case} ( \textcolor{stringliteral}{'noleap'} )
2462         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
2463           & \textcolor{stringliteral}{' since '} // trim(date\_str)
2464       \textcolor{keywordflow}{case} ( \textcolor{stringliteral}{'360day'} )
2465         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
2466           & \textcolor{stringliteral}{' since '} // trim(date\_str)
2467       \textcolor{keywordflow}{case} ( \textcolor{stringliteral}{'cyclic'} )
2468         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
2469           & \textcolor{stringliteral}{' since '} // trim(date\_str)
2470 \textcolor{keywordflow}{      end select}
2471 
2472       \textcolor{comment}{! 開始日時情報の付与}
2473       \textcolor{comment}{!}
2474       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
2475         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), &    \textcolor{comment}{! (inout)}
2476         & attrname = \textcolor{stringliteral}{'origin'}, &           \textcolor{comment}{! (in)}
2477         & \textcolor{keywordtype}{value} = \textcolor{stringliteral}{'origin\_year origin\_month origin\_day '} // &
2478         &         \textcolor{stringliteral}{'origin\_hour origin\_min origin\_sec'} )    \textcolor{comment}{! (in)}
2479 
2480       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'origin\_year'},  
      origin\_year )
2481       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'origin\_month'}, 
      origin\_month )
2482       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'origin\_day'},   
      origin\_day )
2483       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'origin\_hour'},  
      origin\_hour )
2484       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'origin\_min'},   
      origin\_min )
2485 
2486       \textcolor{comment}{! 暦情報の付与}
2487       \textcolor{comment}{!}
2488       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
2489         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), &    \textcolor{comment}{! (inout)}
2490         & attrname = \textcolor{stringliteral}{'calendar'}, &         \textcolor{comment}{! (in)}
2491         & \textcolor{keywordtype}{value} = cal\_str )                \textcolor{comment}{! (in)}
2492 
2493       \textcolor{keywordflow}{if} ( trim(cal\_str) == \textcolor{stringliteral}{'user\_defined'} ) \textcolor{keywordflow}{then}
2494         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'month\_in\_year'}, 
      month\_in\_year )
2495         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'day\_in\_month'},  
      day\_in\_month )
2496         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'hour\_in\_day'},   
      hour\_in\_day )
2497         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'min\_in\_hour'},   
      min\_in\_hour )
2498         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'sec\_in\_min'},    
      sec\_in\_min )
2499 \textcolor{keywordflow}{      end if}
2500 
2501       \textcolor{keyword}{deallocate}( day\_in\_month )
2502 
2503     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(origin\_date) &
2504       &  .and. .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(origin\_date\_invalid) ) \textcolor{keywordflow}{then}
2505       \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}( origin\_date, &            \textcolor{comment}{! (in)}
2506         & day = date\_day, sec = date\_sec ) \textcolor{comment}{! (out)}
2507       \textcolor{keywordflow}{if} ( date\_day /= 0 .or. date\_sec /= 0.0 ) \textcolor{keywordflow}{then}
2508         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
2509           & \textcolor{stringliteral}{' since '} // \hyperlink{interfacedc__string_1_1tochar}{tochar}(origin\_date)
2510 
2511         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
2512           & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), &    \textcolor{comment}{! (inout)}
2513           & attrname = \textcolor{stringliteral}{'calendar'}, &         \textcolor{comment}{! (in)}
2514           & \textcolor{keywordtype}{value} = \hyperlink{interfacedc__date__generic_1_1tocharcal}{tocharcal}(origin\_date) ) \textcolor{comment}{! (in)}
2515 
2516 \textcolor{keywordflow}{      end if}
2517 \textcolor{keywordflow}{    end if}
2518 
2519     \textcolor{comment}{! 登録変数を全て出力するためのフラグの保管}
2520     \textcolor{comment}{! Save flag for output all registered variables}
2521     \textcolor{comment}{!}
2522     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(all\_output) ) \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save} = all\_output
2523     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(namelist\_filename) ) 
      \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save} = .true.
2524     alloutput = \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save}
2525 
2526     \textcolor{comment}{! 出力時間間隔のデフォルト値設定}
2527     \textcolor{comment}{! Configure default interval of output time}
2528     \textcolor{comment}{!}
2529     \textcolor{keywordflow}{if} ( \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save} ) \textcolor{keywordflow}{then}
2530       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(interval) ) \textcolor{keywordflow}{then}
2531         interval\_work = interval
2532 \textcolor{comment}{!        interval\_work = EvalbyUnit( interval, time\_unit\_bycreate )}
2533       \textcolor{keywordflow}{else}
2534         interval\_work = 1.0
2535 \textcolor{keywordflow}{      end if}
2536     \textcolor{keywordflow}{else}
2537       interval\_work = - 1.0
2538 \textcolor{keywordflow}{    end if}
2539 
2540     \textcolor{comment}{! 出力開始・終了時刻のデフォルト値設定}
2541     \textcolor{comment}{! Configure default origin/terminus time of output}
2542     \textcolor{comment}{!}
2543     origin\_work = &
2544       & \hyperlink{interfacedc__calendar__generic_1_1dccalconvertbyunit}{dccalconvertbyunit}( origin, \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}, \textcolor{stringliteral}{'sec'}, 
      \hyperlink{namespacegtool__historyauto__internal_abb3028b474fbd886d4ab3d82d25fbe2f}{cal\_save} )
2545     terminus\_work = terminus
2546 
2547 \textcolor{comment}{!    origin\_work = EvalbyUnit( origin, 'sec' )}
2548 \textcolor{comment}{!    terminus\_work = EvalbyUnit( terminus, time\_unit\_bycreate )}
2549 
2550     \textcolor{comment}{! gtool\_historyauto\_nml へデフォルト値の設定}
2551     \textcolor{comment}{! Configure default values for "gtool\_historyauto\_nml"}
2552     \textcolor{comment}{!}
2553     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfocreate}{hstnmlinfocreate}( \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} ) \textcolor{comment}{! (out)}
2554 
2555     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoadd}{hstnmlinfoadd}( &
2556       & \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} = \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, &                  \textcolor{comment}{! (inout)}
2557       & name = \textcolor{stringliteral}{''}, &                            \textcolor{comment}{! (in) optional}
2558       & precision = \textcolor{stringliteral}{'float'}, &                  \textcolor{comment}{! (in) optional}
2559       & fileprefix = file\_prefix, &             \textcolor{comment}{! (in) optional}
2560       & interval\_value = interval\_work, &       \textcolor{comment}{! (in) optional}
2561       & interval\_unit  = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}, &  \textcolor{comment}{! (in) optional}
2562       & origin\_value   = origin\_work, &         \textcolor{comment}{! (in) optional}
2563       & origin\_unit    = \textcolor{stringliteral}{'sec'}, &               \textcolor{comment}{! (in) optional}
2564 \textcolor{comment}{!!$      & origin\_unit    = time\_unit\_bycreate, &  ! (in) optional}
2565       & terminus\_value = terminus\_work, &       \textcolor{comment}{! (in) optional}
2566       & terminus\_unit  = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}, &  \textcolor{comment}{! (in) optional}
2567       & time\_average = time\_average, &          \textcolor{comment}{! (in) optional}
2568       & slice\_start  = slice\_start, &           \textcolor{comment}{! (in) optional}
2569       & slice\_end    = slice\_end, &             \textcolor{comment}{! (in) optional}
2570       & slice\_stride = slice\_stride, &          \textcolor{comment}{! (in) optional}
2571       & space\_average = space\_average, &        \textcolor{comment}{! (in) optional}
2572       & newfile\_intvalue = newfile\_interval, &  \textcolor{comment}{! (in) optional}
2573       & newfile\_intunit = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} )  \textcolor{comment}{! (in) optional}
2574 
2575     \textcolor{comment}{! NAMELIST ファイルの読み込み}
2576     \textcolor{comment}{! Load NAMELIST file}
2577     \textcolor{comment}{!}
2578     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(namelist\_filename) ) \textcolor{keywordflow}{then}
2579       \textcolor{keyword}{call }\hyperlink{interfacedc__iounit_1_1fileopen}{fileopen}( unit\_nml, &          \textcolor{comment}{! (out)}
2580         & namelist\_filename, mode = \textcolor{stringliteral}{'r'} ) \textcolor{comment}{! (in)}
2581 
2582       iostat\_nml = 0
2583       pos\_nml = \textcolor{stringliteral}{''}
2584 
2585       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'----- "gtool\_historyauto\_nml" is loaded
       from "%c" -----'}, &
2586         & c1 = trim(namelist\_filename), rank\_mpi = msnot\_rank )
2587 
2588       \textcolor{keywordflow}{do} \textcolor{keywordflow}{while} ( trim(pos\_nml) /= \textcolor{stringliteral}{'APPEND'} .and. iostat\_nml == 0 )
2589 
2590         name = \textcolor{stringliteral}{''}
2591         file = \textcolor{stringliteral}{''}
2592         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}( &
2593           & \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} = \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, &             \textcolor{comment}{! (in)}
2594           & interval\_value = intvalue, &       \textcolor{comment}{! (out) optional}
2595           & interval\_unit = intunit, &         \textcolor{comment}{! (out) optional}
2596           & precision = precision, &           \textcolor{comment}{! (out) optional}
2597           & time\_average = timeaverage, &      \textcolor{comment}{! (out) optional}
2598           & origin\_value   = originvalue, &    \textcolor{comment}{! (out) optional}
2599           & origin\_unit    = originunit, &     \textcolor{comment}{! (out) optional}
2600           & terminus\_value = terminusvalue, &  \textcolor{comment}{! (out) optional}
2601           & terminus\_unit  = terminusunit, &   \textcolor{comment}{! (out) optional}
2602           & slice\_start  = slicestart, &       \textcolor{comment}{! (out) optional}
2603           & slice\_end    = sliceend, &         \textcolor{comment}{! (out) optional}
2604           & slice\_stride = slicestride, &      \textcolor{comment}{! (out) optional}
2605           & space\_average = spaceaverage, &    \textcolor{comment}{! (out) optional}
2606           & newfile\_intvalue = newfileintvalue, & \textcolor{comment}{! (out) optional}
2607           & newfile\_intunit  = newfileintunit, &  \textcolor{comment}{! (out) optional}
2608           & fileprefix = fileprefix )          \textcolor{comment}{! (out) optional}
2609 
2610         \textcolor{keyword}{read}( unit = unit\_nml, &            \textcolor{comment}{! (in)}
2611           &    nml = gtool\_historyauto\_nml, & \textcolor{comment}{! (out)}
2612           & iostat = iostat\_nml )           \textcolor{comment}{! (out)}
2613         \textcolor{keyword}{inquire}( unit = unit\_nml, & \textcolor{comment}{! (in)}
2614           &  position = pos\_nml )   \textcolor{comment}{! (out)}
2615 
2616         \textcolor{keywordflow}{if} ( iostat\_nml == 0 ) \textcolor{keywordflow}{then}
2617 
2618           \textcolor{comment}{! NAMELIST から与えられた値が無効な場合, デフォルト値を使用}
2619           \textcolor{comment}{! Default values are used when values from NAMELIST are invalid}
2620           \textcolor{comment}{!}
2621           \textcolor{keywordflow}{if} ( .not. intvalue > 0.0 ) \textcolor{keywordflow}{then}
2622             intvalue = interval\_work
2623             intunit  = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}
2624 \textcolor{keywordflow}{          end if}
2625           \textcolor{keywordflow}{if} ( .not. originvalue > 0.0 ) \textcolor{keywordflow}{then}
2626             originvalue = origin\_work
2627             originunit  = \textcolor{stringliteral}{'sec'}
2628 \textcolor{keywordflow}{          end if}
2629           \textcolor{keywordflow}{if} ( .not. terminusvalue > 0.0 ) \textcolor{keywordflow}{then}
2630             terminusvalue = terminus\_work
2631             terminusunit  = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}
2632 \textcolor{keywordflow}{          end if}
2633 
2634           \textcolor{comment}{! 情報の登録}
2635           \textcolor{comment}{! Register information}
2636           \textcolor{comment}{!}
2637           \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoadd}{hstnmlinfoadd}( &
2638             & \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} = \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, &             \textcolor{comment}{! (inout)}
2639             & name = name, &                     \textcolor{comment}{! (in) optional}
2640             & file = file, &                     \textcolor{comment}{! (in) optional}
2641             & interval\_value = intvalue, &       \textcolor{comment}{! (in) optional}
2642             & interval\_unit = intunit, &         \textcolor{comment}{! (in) optional}
2643             & precision = precision, &           \textcolor{comment}{! (in) optional}
2644             & time\_average = timeaverage, &      \textcolor{comment}{! (in) optional}
2645             & origin\_value   = originvalue, &    \textcolor{comment}{! (in) optional}
2646             & origin\_unit    = originunit, &     \textcolor{comment}{! (in) optional}
2647             & terminus\_value = terminusvalue, &  \textcolor{comment}{! (in) optional}
2648             & terminus\_unit  = terminusunit, &   \textcolor{comment}{! (in) optional}
2649             & slice\_start  = slicestart, &       \textcolor{comment}{! (in) optional}
2650             & slice\_end    = sliceend, &         \textcolor{comment}{! (in) optional}
2651             & slice\_stride = slicestride, &      \textcolor{comment}{! (in) optional}
2652             & space\_average = spaceaverage, &    \textcolor{comment}{! (in) optional}
2653             & newfile\_intvalue = newfileintvalue, & \textcolor{comment}{! (in) optional}
2654             & newfile\_intunit  = newfileintunit, &  \textcolor{comment}{! (in) optional}
2655             & fileprefix = fileprefix )          \textcolor{comment}{! (in) optional}
2656 
2657           \textcolor{comment}{! 登録変数を全て出力するためのフラグの保管}
2658           \textcolor{comment}{! Save flag for output all registered variables}
2659           \textcolor{comment}{!}
2660           \textcolor{keywordflow}{if} ( trim(name) == \textcolor{stringliteral}{''} ) \textcolor{keywordflow}{then}
2661             \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save} = alloutput
2662 \textcolor{keywordflow}{          end if}
2663 
2664           \textcolor{comment}{! 印字 ; Print}
2665           \textcolor{comment}{!}
2666           \textcolor{keywordflow}{if} ( trim(file) == \textcolor{stringliteral}{''} ) file = trim(fileprefix) // \textcolor{stringliteral}{'<Name>.nc'}
2667 
2668           \textcolor{keywordflow}{if} ( trim(name) == \textcolor{stringliteral}{''} ) \textcolor{keywordflow}{then}
2669             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'Global Settings:'}, rank\_mpi = 
      msnot\_rank )
2670             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  AllOutput       = %b'}, l  = (/ 
      alloutput   /), rank\_mpi = msnot\_rank )
2671             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  FilePrefix      = %c'}, c1 = trim(
      fileprefix   ), rank\_mpi = msnot\_rank )
2672           \textcolor{keywordflow}{else}
2673             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'Individual Settings:'}, rank\_mpi = 
      msnot\_rank )
2674             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Name            = %c'}, c1 = trim(
      name           ), rank\_mpi = msnot\_rank )
2675             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  File            = %c'}, c1 = trim(
      file           ), rank\_mpi = msnot\_rank )
2676 \textcolor{keywordflow}{          end if}
2677           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Interval        = %f [%c]'}, &
2678             & d = (/ intvalue /), c1 = trim( intunit ), rank\_mpi = msnot\_rank )
2679           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Precision       = %c'}, c1 = trim(
      precision    ), rank\_mpi = msnot\_rank )
2680           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  TimeAverage     = %b'}, l  = (/ 
      timeaverage   /), rank\_mpi = msnot\_rank )
2681           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Origin          = %f [%c]'}, &
2682             & d = (/ originvalue /), c1 = trim( originunit ), rank\_mpi = msnot\_rank )
2683           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Terminus        = %f [%c]'}, &
2684             & d = (/ terminusvalue /), c1 = trim( terminusunit ), rank\_mpi = msnot\_rank )
2685           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceStart      = (/ %*d /)'}, &
2686             &                                i = slicestart(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
2687           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceEnd        = (/ %*d /)'}, &
2688             &                                i = sliceend(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
2689           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceStride     = (/ %*d /)'}, &
2690             &                                i = slicestride(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
2691           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SpaceAverage    = (/ %*b /)'}, &
2692             &                                l = spaceaverage(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
2693           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  NewFileInterval = %d [%c]'}, &
2694             & i = (/ newfileintvalue /), c1 = trim( newfileintunit ), rank\_mpi = msnot\_rank )
2695           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{''}, rank\_mpi = msnot\_rank )
2696 
2697         \textcolor{keywordflow}{else}
2698           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'----- loading is finished (iostat=%d)
       -----'}, &
2699             & i = (/iostat\_nml/), rank\_mpi = msnot\_rank )
2700 \textcolor{keywordflow}{        end if}
2701 \textcolor{keywordflow}{      end do}
2702 
2703       \textcolor{keyword}{close}( unit\_nml )
2704 
2705 
2706     \textcolor{comment}{! NAMELIST ファイルを読み込まない場合}
2707     \textcolor{comment}{! NAMELIST file is not loaded}
2708     \textcolor{comment}{!}
2709     \textcolor{keywordflow}{else}
2710       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'----- "gtool\_historyauto\_nml" is not
       loaded" -----'}, rank\_mpi = msnot\_rank )
2711       name = \textcolor{stringliteral}{''}
2712       file = \textcolor{stringliteral}{''}
2713       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}( &
2714         & \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} = \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, &             \textcolor{comment}{! (in)}
2715         & interval\_value = intvalue, &       \textcolor{comment}{! (out) optional}
2716         & interval\_unit = intunit, &         \textcolor{comment}{! (out) optional}
2717         & precision = precision, &           \textcolor{comment}{! (out) optional}
2718         & time\_average = timeaverage, &      \textcolor{comment}{! (out) optional}
2719         & origin\_value   = originvalue, &    \textcolor{comment}{! (out) optional}
2720         & origin\_unit    = originunit, &     \textcolor{comment}{! (out) optional}
2721         & terminus\_value = terminusvalue, &  \textcolor{comment}{! (out) optional}
2722         & terminus\_unit  = terminusunit, &   \textcolor{comment}{! (out) optional}
2723         & slice\_start  = slicestart, &       \textcolor{comment}{! (out) optional}
2724         & slice\_end    = sliceend, &         \textcolor{comment}{! (out) optional}
2725         & slice\_stride = slicestride, &      \textcolor{comment}{! (out) optional}
2726         & space\_average = spaceaverage, &    \textcolor{comment}{! (out) optional}
2727         & newfile\_intvalue = newfileintvalue, & \textcolor{comment}{! (out) optional}
2728         & newfile\_intunit  = newfileintunit, &  \textcolor{comment}{! (out) optional}
2729         & fileprefix = fileprefix )          \textcolor{comment}{! (out) optional}
2730 
2731       \textcolor{comment}{! 印字 ; Print}
2732       \textcolor{comment}{!}
2733       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'Global Settings:'}, rank\_mpi = msnot\_rank )
2734       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  AllOutput       = %b'}, l  = (/ alloutput
         /), rank\_mpi = msnot\_rank )
2735       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  FilePrefix      = %c'}, c1 = trim(
      fileprefix   ), rank\_mpi = msnot\_rank )
2736       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Interval        = %f [%c]'}, &
2737         & d = (/ intvalue /), c1 = trim( intunit ), rank\_mpi = msnot\_rank )
2738       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Precision       = %c'}, c1 = trim(
      precision    ), rank\_mpi = msnot\_rank )
2739       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  TimeAverage     = %b'}, l  = (/ 
      timeaverage   /), rank\_mpi = msnot\_rank )
2740       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Origin          = %f [%c]'}, &
2741         & d = (/ originvalue /), c1 = trim( originunit ), rank\_mpi = msnot\_rank )
2742       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Terminus        = %f [%c]'}, &
2743         & d = (/ terminusvalue /), c1 = trim( terminusunit ), rank\_mpi = msnot\_rank )
2744       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceStart      = (/ %*d /)'}, &
2745         &                                i = slicestart(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
2746       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceEnd        = (/ %*d /)'}, &
2747         &                                i = sliceend(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
2748       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceStride     = (/ %*d /)'}, &
2749             &                                i = slicestride(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
2750       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SpaceAverage    = (/ %*b /)'}, &
2751         &                                l = spaceaverage(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
2752       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  NewFileInterval = %d [%c]'}, &
2753         & i = (/ newfileintvalue /), c1 = trim( newfileintunit ), rank\_mpi = msnot\_rank )
2754       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{''} , rank\_mpi = msnot\_rank)
2755 
2756 \textcolor{keywordflow}{    end if}
2757 
2758     \textcolor{comment}{! 終了処理, 例外処理}
2759     \textcolor{comment}{! Termination and Exception handling}
2760     \textcolor{comment}{!}
2761     \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} = .true.
2762 
2763 999 \textcolor{keywordflow}{continue}
2764     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
2765     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname, \textcolor{stringliteral}{'stat=%d'}, i = (/stat/) )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyautocreate_8f90_ac1cd0af89f2c2b77d36ec59ae611b2fd_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautocreate_8f90_aa90ed4ef465f3b8e056435dfd97a85cd}\label{historyautocreate_8f90_aa90ed4ef465f3b8e056435dfd97a85cd}} 
\index{historyautocreate.\+f90@{historyautocreate.\+f90}!historyautocreate2@{historyautocreate2}}
\index{historyautocreate2@{historyautocreate2}!historyautocreate.\+f90@{historyautocreate.\+f90}}
\subsubsection{\texorpdfstring{historyautocreate2()}{historyautocreate2()}}
{\footnotesize\ttfamily subroutine historyautocreate2 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{title,  }\item[{character($\ast$), intent(in)}]{source,  }\item[{character($\ast$), intent(in)}]{institution,  }\item[{character($\ast$), dimension(\+:), intent(in)}]{dims,  }\item[{integer, dimension (\+:), intent(in)}]{dimsizes,  }\item[{character($\ast$), dimension (\+:), intent(in)}]{longnames,  }\item[{character($\ast$), dimension(\+:), intent(in)}]{units,  }\item[{character($\ast$), dimension(\+:), intent(in), optional}]{xtypes,  }\item[{character($\ast$), intent(in), optional}]{conventions,  }\item[{character($\ast$), intent(in), optional}]{gt\+\_\+version,  }\item[{logical, intent(in), optional}]{all\+\_\+output,  }\item[{character($\ast$), intent(in), optional}]{file\+\_\+prefix,  }\item[{character($\ast$), intent(in), optional}]{namelist\+\_\+filename,  }\item[{real, intent(in), optional}]{interval,  }\item[{real, intent(in), optional}]{origin,  }\item[{real, intent(in), optional}]{terminus,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+start,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+end,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+stride,  }\item[{logical, dimension(\+:), intent(in), optional}]{space\+\_\+average,  }\item[{logical, intent(in), optional}]{time\+\_\+average,  }\item[{integer, intent(in), optional}]{newfile\+\_\+interval,  }\item[{character($\ast$), intent(in), optional}]{rank,  }\item[{type(dc\+\_\+datetime), intent(in), optional}]{origin\+\_\+date,  }\item[{logical, intent(in), optional}]{origin\+\_\+date\+\_\+invalid,  }\item[{type(dc\+\_\+cal\+\_\+date), intent(in), optional}]{start\+\_\+date,  }\item[{type(dc\+\_\+cal), intent(in), optional}]{cal,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+gather,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split }\end{DoxyParamCaption})}



Definition at line 1106 of file historyautocreate.\+f90.



References dc\+\_\+trace\+::beginsub(), dc\+\_\+error\+::dc\+\_\+ealreadyinit, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+eargsizemismatch, dc\+\_\+error\+::hst\+\_\+enotimedim, gtool\+\_\+historyauto\+\_\+internal\+::initialized, dc\+\_\+string\+::joinchar(), gtool\+\_\+historyauto\+\_\+internal\+::numdims, dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, gtool\+\_\+historyauto\+\_\+internal\+::time\+\_\+unit\+\_\+bycreate, gtool\+\_\+historyauto\+\_\+internal\+::time\+\_\+unit\+\_\+suffix, and dc\+\_\+types\+::token.


\begin{DoxyCode}
1106     \textcolor{comment}{!}
1107     \textcolor{comment}{! 複数のヒストリデータ出力を行うための初期化を行います.}
1108     \textcolor{comment}{!}
1109     \textcolor{comment}{! この HistoryAutoCreate には, モデル内で出力する}
1110     \textcolor{comment}{! 変数が依存する座標や座標重みなどを全てを設定してください.}
1111     \textcolor{comment}{!}
1112     \textcolor{comment}{! all\_output に .true. を与えた場合や,}
1113     \textcolor{comment}{! namelist\_filename を与えない (空文字を与える) 場合には,}
1114     \textcolor{comment}{! HistoryAutoAddVariable で登録される全ての変数が出力されます.}
1115     \textcolor{comment}{! 一方で namelist\_filename に NAMELIST ファイル名を与える場合には,}
1116     \textcolor{comment}{! その NAMELIST ファイルから出力のオンオフや,}
1117     \textcolor{comment}{! 出力ファイル名, 出力間隔などを変更可能です.}
1118     \textcolor{comment}{! 変更可能な項目に関しては NAMELIST#gtool\_historyauto\_nml}
1119     \textcolor{comment}{! を参照して下さい.}
1120     \textcolor{comment}{!}
1121     \textcolor{comment}{! interval, origin, terminus, slice\_start, slice\_end, slice\_stride,}
1122     \textcolor{comment}{! space\_average, time\_average, newfile\_interval}
1123     \textcolor{comment}{! などの設定はデフォルト値として使用されます.}
1124     \textcolor{comment}{! これらの設定値は HistoryAutoAddVariable および}
1125     \textcolor{comment}{! NAMELIST#gtool\_historyauto\_nml で上書きされます.}
1126     \textcolor{comment}{! (優先度が高いのは NAMELIST#gtool\_historyauto\_nml ,}
1127     \textcolor{comment}{! HistoryAutoAddVariable の引数,}
1128     \textcolor{comment}{! HistoryAutoCreate の引数 の順です).}
1129     \textcolor{comment}{!}
1130     \textcolor{comment}{!}
1131     \textcolor{comment}{! Initialization for multiple history data output}
1132     \textcolor{comment}{!}
1133     \textcolor{comment}{! Set all axes and their weights depended by variables}
1134     \textcolor{comment}{! output from numerical models to this "HistoryAutoCreate".}
1135     \textcolor{comment}{!}
1136     \textcolor{comment}{! All variables registered by "HistoryAutoAddVariable"}
1137     \textcolor{comment}{! are output if .true. is given to "all\_output" or}
1138     \textcolor{comment}{! "namelist\_filename" is not given (or blanks are given)}
1139     \textcolor{comment}{! On the other hand, if a filename of NAMELIST file is}
1140     \textcolor{comment}{! given to "namelist\_filename", on/off of output,}
1141     \textcolor{comment}{! output filename and output interval, etc. can be changed}
1142     \textcolor{comment}{! from the NAMELIST file.}
1143     \textcolor{comment}{! For available items, see "NAMELIST#gtool\_historyauto\_nml".}
1144     \textcolor{comment}{!}
1145     \textcolor{comment}{! Settings about}
1146     \textcolor{comment}{! "interval", "origin", "terminus", "slice\_start", "slice\_end", "slice\_stride",}
1147     \textcolor{comment}{! "space\_average", "time\_average", "newfile\_interval"}
1148     \textcolor{comment}{! etc. are used as default values.}
1149     \textcolor{comment}{! Their set values are overwritten by}
1150     \textcolor{comment}{! "HistoryAutoAddVariable" or}
1151     \textcolor{comment}{! "NAMELIST#gtool\_historyauto\_nml".}
1152     \textcolor{comment}{! ("NAMELIST#gtool\_historyauto\_nml" is high priority,}
1153     \textcolor{comment}{! arguments of "HistoryAutoAddVariable" are medium,}
1154     \textcolor{comment}{! arguments of "HistoryAutoCreate" are low).}
1155     \textcolor{comment}{!}
1156     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__generic}{gtool\_historyauto\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{interfacegtool__historyauto__generic_1_1historyautocreate}{historyautocreate}
1157     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}, \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}
1158     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxiscreate}{historyaxiscreate}
1159     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__generic}{gtool\_history\_nmlinfo\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfocreate}{hstnmlinfocreate}, \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoadd}{hstnmlinfoadd}, &
1160       & \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoenddefine}{hstnmlinfoenddefine}, \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoputline}{hstnmlinfoputline}, 
      \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoallnamevalid}{hstnmlinfoallnamevalid}, &
1161       & \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}
1162     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
1163     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a3302263a8c976235052a305d54572070}{dc\_ealreadyinit}, &
1164       & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}, \hyperlink{namespacedc__error_af5bc8dc43d49e0c8bb06ac5e16be11dc}{hst\_enotimedim}
1165     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_emaxdims, nf90\_max\_dims
1166     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1putline}{putline}, \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1split}{split}, 
      \hyperlink{interfacedc__string_1_1strinclude}{strinclude}, \hyperlink{interfacedc__string_1_1stoa}{stoa}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
1167     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, 
      \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}, &
1168       & \hyperlink{interfacedc__present_1_1present__select}{present\_select}
1169     \textcolor{keywordtype}{use }\hyperlink{namespacedc__calendar}{dc\_calendar}\textcolor{keywordtype}{, only}: \hyperlink{structdc__calendar__types_1_1dc__cal}{dc\_cal}, \hyperlink{structdc__calendar__types_1_1dc__cal__date}{dc\_cal\_date}
1170     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}, \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}
1171     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}
1172     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
1173     \textcolor{keywordtype}{use }\hyperlink{namespacedc__iounit}{dc\_iounit}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__iounit_1_1fileopen}{fileopen}
1174     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
1175     \textcolor{keywordtype}{implicit none}
1176     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: title
1177                               \textcolor{comment}{! データ全体の表題.}
1178                               \textcolor{comment}{! Title of entire data}
1179     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: source
1180                               \textcolor{comment}{! データを作成する際の手段.}
1181                               \textcolor{comment}{! Source of data file}
1182     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: institution
1183                               \textcolor{comment}{! ファイルを最終的に変更した組織/個人.}
1184                               \textcolor{comment}{! Institution or person that changes files for the last time}
1185     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: dims(:)
1186                               \textcolor{comment}{! 次元の名前.}
1187                               \textcolor{comment}{!}
1188                               \textcolor{comment}{! 配列の大きさに制限はありません.}
1189                               \textcolor{comment}{! 個々の次元の文字数は dc\_types#TOKEN まで.}
1190                               \textcolor{comment}{! 配列内の文字数は}
1191                               \textcolor{comment}{! 全て同じでなければなりません.}
1192                               \textcolor{comment}{! 足りない文字分は空白で}
1193                               \textcolor{comment}{! 補ってください.}
1194                               \textcolor{comment}{!}
1195                               \textcolor{comment}{! Names of dimensions.}
1196                               \textcolor{comment}{!}
1197                               \textcolor{comment}{! Length of array is unlimited.}
1198                               \textcolor{comment}{! Limits of numbers of characters of each}
1199                               \textcolor{comment}{! dimensions are "dc\_types#TOKEN".}
1200                               \textcolor{comment}{! Numbers of characters in this array}
1201                               \textcolor{comment}{! must be same.}
1202                               \textcolor{comment}{! Make up a deficit with blanks.}
1203                               \textcolor{comment}{!}
1204     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: dimsizes (:)
1205                               \textcolor{comment}{! dims で指定したそれぞれの次元大きさ.}
1206                               \textcolor{comment}{!}
1207                               \textcolor{comment}{! 配列の大きさは dims の大きさと等しい}
1208                               \textcolor{comment}{! 必要があります.  '0' (数字のゼロ) を指定}
1209                               \textcolor{comment}{! するとその次元は 無制限次元 (unlimited}
1210                               \textcolor{comment}{! dimension) となります. (gtool\_history}
1211                               \textcolor{comment}{! では時間の次元に対して無制限次元を}
1212                               \textcolor{comment}{! 用いることを想定しています). ただし,}
1213                               \textcolor{comment}{! 1 つの NetCDF ファイル (バージョン 3)}
1214                               \textcolor{comment}{! は最大で 1 つの無制限次元しか持てないので,}
1215                               \textcolor{comment}{! 2 ヶ所以上に '0' を指定しないでください.}
1216                               \textcolor{comment}{! その場合, 正しく gtool4 データが出力されません.}
1217                               \textcolor{comment}{!}
1218                               \textcolor{comment}{! Lengths of dimensions specified with "dims".}
1219                               \textcolor{comment}{!}
1220                               \textcolor{comment}{! Length of this array must be same as}
1221                               \textcolor{comment}{! length of "dim".  If '0' (zero) is}
1222                               \textcolor{comment}{! specified, the dimension is treated as}
1223                               \textcolor{comment}{! unlimited dimension.}
1224                               \textcolor{comment}{! (In "gtool\_history", unlimited dimension is}
1225                               \textcolor{comment}{! expected to be used as time).}
1226                               \textcolor{comment}{! Note that one NetCDF file (version 3)}
1227                               \textcolor{comment}{! can not have two or more unlimited}
1228                               \textcolor{comment}{! dimensions, so that do not specify '0'}
1229                               \textcolor{comment}{! to two or more places. In that case,}
1230                               \textcolor{comment}{! gtoo4 data is not output currently}
1231                               \textcolor{comment}{!}
1232     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: longnames (:)
1233                               \textcolor{comment}{! dims で指定したそれぞれの次元の名前.}
1234                               \textcolor{comment}{!}
1235                               \textcolor{comment}{! 配列の大きさは dims の大きさ}
1236                               \textcolor{comment}{! と等しい必要があります. 文字数}
1237                               \textcolor{comment}{! は dc\_types#STRING まで.}
1238                               \textcolor{comment}{! 配列内の文字数は}
1239                               \textcolor{comment}{! 全て同じでなければなりません.}
1240                               \textcolor{comment}{! 足りない文字分は空白で補います.}
1241                               \textcolor{comment}{!}
1242                               \textcolor{comment}{! Names of dimensions specified with "dims".}
1243                               \textcolor{comment}{!}
1244                               \textcolor{comment}{! Length of this array must be same as}
1245                               \textcolor{comment}{! length of "dim".}
1246                               \textcolor{comment}{! Limits of numbers of characters are}
1247                               \textcolor{comment}{! "dc\_types#STRING".}
1248                               \textcolor{comment}{! Numbers of characters in this array}
1249                               \textcolor{comment}{! must be same.}
1250                               \textcolor{comment}{! Make up a deficit with blanks.}
1251                               \textcolor{comment}{!}
1252     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: \hyperlink{structdc__units_1_1units}{units}(:)
1253                               \textcolor{comment}{! dims で指定したそれぞれの次元の単位.}
1254                               \textcolor{comment}{!}
1255                               \textcolor{comment}{! 配列の大きさは dims の大きさ}
1256                               \textcolor{comment}{! と等しい必要があります. 文字数}
1257                               \textcolor{comment}{! は dc\_types#STRING まで.}
1258                               \textcolor{comment}{! 配列内の文字数は}
1259                               \textcolor{comment}{! 全て同じでなければなりません.}
1260                               \textcolor{comment}{! 足りない文字分は空白で補います.}
1261                               \textcolor{comment}{!}
1262                               \textcolor{comment}{! Units of dimensions specified with "dims".}
1263                               \textcolor{comment}{!}
1264                               \textcolor{comment}{! Length of this array must be same as}
1265                               \textcolor{comment}{! length of "dim".}
1266                               \textcolor{comment}{! Limits of numbers of characters are}
1267                               \textcolor{comment}{! "dc\_types#STRING".}
1268                               \textcolor{comment}{! Numbers of characters in this array}
1269                               \textcolor{comment}{! must be same.}
1270                               \textcolor{comment}{! Make up a deficit with blanks.}
1271                               \textcolor{comment}{!}
1272     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: xtypes(:)
1273                               \textcolor{comment}{! dims で指定したそれぞれの}
1274                               \textcolor{comment}{! 次元のデータ型.}
1275                               \textcolor{comment}{!}
1276                               \textcolor{comment}{! デフォルトは float (単精度実数型)}
1277                               \textcolor{comment}{! です. 有効なのは,}
1278                               \textcolor{comment}{! double (倍精度実数型),}
1279                               \textcolor{comment}{! int (整数型) です. 指定しない}
1280                               \textcolor{comment}{! 場合や, 無効な型を指定した場合には,}
1281                               \textcolor{comment}{! float となります. なお, 配列の大きさ}
1282                               \textcolor{comment}{! は *dims* の大きさと等しい必要が}
1283                               \textcolor{comment}{! あります. 配列内の文字数は全て}
1284                               \textcolor{comment}{! 同じでなければなりません.}
1285                               \textcolor{comment}{! 足りない文字分は空白で補います.}
1286                               \textcolor{comment}{!}
1287                               \textcolor{comment}{! Data types of dimensions specified}
1288                               \textcolor{comment}{! with "dims".}
1289                               \textcolor{comment}{!}
1290                               \textcolor{comment}{! Default value is "float" (single precision).}
1291                               \textcolor{comment}{! Other valid values are}
1292                               \textcolor{comment}{! "double" (double precision),}
1293                               \textcolor{comment}{! "int" (integer).}
1294                               \textcolor{comment}{! If no value or invalid value is specified,}
1295                               \textcolor{comment}{! "float" is applied.}
1296                               \textcolor{comment}{! Length of this array must be same as}
1297                               \textcolor{comment}{! length of "dim".}
1298                               \textcolor{comment}{! Numbers of characters in this array}
1299                               \textcolor{comment}{! must be same.}
1300                               \textcolor{comment}{! Make up a deficit with blanks.}
1301                               \textcolor{comment}{!}
1302     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: conventions
1303                               \textcolor{comment}{! 出力するファイルの netCDF}
1304                               \textcolor{comment}{! 規約}
1305                               \textcolor{comment}{!}
1306                               \textcolor{comment}{! 省略した場合,}
1307                               \textcolor{comment}{! もしくは空文字を与えた場合,}
1308                               \textcolor{comment}{! 出力する netCDF 規約の}
1309                               \textcolor{comment}{! Conventions 属性に値}
1310                               \textcolor{comment}{! gtool4\_netCDF\_Conventions}
1311                               \textcolor{comment}{! が自動的に与えられます.}
1312                               \textcolor{comment}{!}
1313                               \textcolor{comment}{! NetCDF conventions of output file.}
1314                               \textcolor{comment}{!}
1315                               \textcolor{comment}{! If this argument is omitted or,}
1316                               \textcolor{comment}{! blanks are given,}
1317                               \textcolor{comment}{! gtool4\_netCDF\_Conventions is given to}
1318                               \textcolor{comment}{! attribute "Conventions" of an output file}
1319                               \textcolor{comment}{! automatically.}
1320                               \textcolor{comment}{!}
1321     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: gt\_version
1322                               \textcolor{comment}{! gtool4 netCDF 規約のバージョン}
1323                               \textcolor{comment}{!}
1324                               \textcolor{comment}{! 省略した場合, gt\_version 属性に}
1325                               \textcolor{comment}{! 規約の最新版のバージョンナンバー}
1326                               \textcolor{comment}{! gtool4\_netCDF\_version}
1327                               \textcolor{comment}{! が与えられます.}
1328                               \textcolor{comment}{! (ただし, 引数 conventions に}
1329                               \textcolor{comment}{! gtool4\_netCDF\_Conventions}
1330                               \textcolor{comment}{! 以外が与えられる場合は}
1331                               \textcolor{comment}{! gt\_version 属性を作成しません).}
1332                               \textcolor{comment}{!}
1333                               \textcolor{comment}{! Version of gtool4 netCDF Conventions.}
1334                               \textcolor{comment}{!}
1335                               \textcolor{comment}{! If this argument is omitted,}
1336                               \textcolor{comment}{! latest version number of gtool4 netCDF}
1337                               \textcolor{comment}{! Conventions is given to attribute}
1338                               \textcolor{comment}{! "gt\_version" of an output file}
1339                               \textcolor{comment}{! (However, gtool4\_netCDF\_Conventions is}
1340                               \textcolor{comment}{! not given to an argument "conventions",}
1341                               \textcolor{comment}{! attribute "gt\_version" is not created).}
1342                               \textcolor{comment}{!}
1343     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: all\_output
1344                               \textcolor{comment}{! 登録変数を全て出力するためのフラグ.}
1345                               \textcolor{comment}{!}
1346                               \textcolor{comment}{! .true. を指定すると,}
1347                               \textcolor{comment}{! HistoryAutoAddVariable で登録された}
1348                               \textcolor{comment}{! 変数が全て出力されるようになります.}
1349                               \textcolor{comment}{!}
1350                               \textcolor{comment}{! *namelist\_filename* が指定される場合}
1351                               \textcolor{comment}{! には, デフォルトは .false. となります.}
1352                               \textcolor{comment}{! この場合には,}
1353                               \textcolor{comment}{! *namelist\_filename* に指定された}
1354                               \textcolor{comment}{! NAMELIST ファイルから読み込まれる}
1355                               \textcolor{comment}{! NAMELIST#gtool\_historyauto\_nml}
1356                               \textcolor{comment}{! で指定された変数のみ出力されます.}
1357                               \textcolor{comment}{!}
1358                               \textcolor{comment}{! *namelist\_filename* が指定されない場合}
1359                               \textcolor{comment}{! には, .true. となります.}
1360                               \textcolor{comment}{!}
1361                               \textcolor{comment}{!}
1362                               \textcolor{comment}{! Flag for output all registered variables.}
1363                               \textcolor{comment}{!}
1364                               \textcolor{comment}{! When .true. is specified,}
1365                               \textcolor{comment}{! all variables registered by}
1366                               \textcolor{comment}{! "HistoryAutoAddVariable" are output.}
1367                               \textcolor{comment}{!}
1368                               \textcolor{comment}{! If *namelist\_filename* is specified,}
1369                               \textcolor{comment}{! default value becomes .false. .}
1370                               \textcolor{comment}{! In this case,}
1371                               \textcolor{comment}{! only variables specified in}
1372                               \textcolor{comment}{! "NAMELIST#gtool\_historyauto\_nml"}
1373                               \textcolor{comment}{! loaded from a NAMELIST file}
1374                               \textcolor{comment}{! *namelist\_filename*.}
1375                               \textcolor{comment}{!}
1376                               \textcolor{comment}{! If *namelist\_filename* is not specified,}
1377                               \textcolor{comment}{! this value becomes .true. .}
1378                               \textcolor{comment}{!}
1379     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: file\_prefix
1380                               \textcolor{comment}{! ヒストリデータのファイル名の接頭詞.}
1381                               \textcolor{comment}{! Prefixes of history data filenames}
1382     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: namelist\_filename
1383                               \textcolor{comment}{! NAMELIST ファイルの名称.}
1384                               \textcolor{comment}{!}
1385                               \textcolor{comment}{! 省略した場合, もしくは空白文字を与えた場合,}
1386                               \textcolor{comment}{! NAMELIST ファイルは読み込みません.}
1387                               \textcolor{comment}{!}
1388                               \textcolor{comment}{! Name of NAMELIST file.}
1389                               \textcolor{comment}{!}
1390                               \textcolor{comment}{! If this argument is omitted,}
1391                               \textcolor{comment}{! or blanks are specified,}
1392                               \textcolor{comment}{! no NAMELIST file is loaded.}
1393                               \textcolor{comment}{!}
1394     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: interval
1395                               \textcolor{comment}{! 出力時間間隔.}
1396                               \textcolor{comment}{!}
1397                               \textcolor{comment}{! 省略した場合,}
1398                               \textcolor{comment}{! 自動的に 1.0 [sec] が設定されます.}
1399                               \textcolor{comment}{!}
1400                               \textcolor{comment}{! Interval of output time.}
1401                               \textcolor{comment}{!}
1402                               \textcolor{comment}{! If this argument is omitted,}
1403                               \textcolor{comment}{! 1.0 [sec] is specified}
1404                               \textcolor{comment}{! automatically.}
1405                               \textcolor{comment}{!}
1406     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: origin
1407                               \textcolor{comment}{! 出力開始時刻.}
1408                               \textcolor{comment}{!}
1409                               \textcolor{comment}{! 省略した場合, 自動的に 0.0 [sec] が}
1410                               \textcolor{comment}{! 設定されます.}
1411                               \textcolor{comment}{!}
1412                               \textcolor{comment}{! Start time of output.}
1413                               \textcolor{comment}{!}
1414                               \textcolor{comment}{! If this argument is omitted,}
1415                               \textcolor{comment}{! 0.0 [sec] is specified}
1416                               \textcolor{comment}{! automatically.}
1417                               \textcolor{comment}{!}
1418     \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: terminus
1419                               \textcolor{comment}{! 出力終了時刻.}
1420                               \textcolor{comment}{!}
1421                               \textcolor{comment}{! 省略した場合, 数値モデルの実行が終了するまで}
1422                               \textcolor{comment}{! 出力を行います.}
1423                               \textcolor{comment}{!}
1424                               \textcolor{comment}{! End time of output.}
1425                               \textcolor{comment}{!}
1426                               \textcolor{comment}{! If this argument is omitted,}
1427                               \textcolor{comment}{! output is continued until a numerical model}
1428                               \textcolor{comment}{! is finished.}
1429                               \textcolor{comment}{!}
1430     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_start(:)
1431                               \textcolor{comment}{! 空間方向の開始点.}
1432                               \textcolor{comment}{!}
1433                               \textcolor{comment}{! 省略した場合, 座標データの開始点が設定されます.}
1434                               \textcolor{comment}{!}
1435                               \textcolor{comment}{! Start points of spaces.}
1436                               \textcolor{comment}{!}
1437                               \textcolor{comment}{! If this argument is omitted,}
1438                               \textcolor{comment}{! start points of dimensions are set.}
1439                               \textcolor{comment}{!}
1440     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_end(:)
1441                               \textcolor{comment}{! 空間方向の終了点.}
1442                               \textcolor{comment}{!}
1443                               \textcolor{comment}{! 省略した場合, 座標データの終了点が設定されます.}
1444                               \textcolor{comment}{!}
1445                               \textcolor{comment}{! End points of spaces.}
1446                               \textcolor{comment}{!}
1447                               \textcolor{comment}{! If this argument is omitted,}
1448                               \textcolor{comment}{! End points of dimensions are set.}
1449                               \textcolor{comment}{!}
1450     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_stride(:)
1451                               \textcolor{comment}{! 空間方向の刻み幅.}
1452                               \textcolor{comment}{!}
1453                               \textcolor{comment}{! 省略した場合, 1 が設定されます.}
1454                               \textcolor{comment}{!}
1455                               \textcolor{comment}{! Strides of spaces}
1456                               \textcolor{comment}{!}
1457                               \textcolor{comment}{! If this argument is omitted,}
1458                               \textcolor{comment}{! 1 is set.}
1459                               \textcolor{comment}{!}
1460     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: space\_average(:)
1461                               \textcolor{comment}{! 平均化のフラグ.}
1462                               \textcolor{comment}{!}
1463                               \textcolor{comment}{! .true. が指定される座標に対して平均化を}
1464                               \textcolor{comment}{! 行います.}
1465                               \textcolor{comment}{! 省略した場合, .false. が設定されます.}
1466                               \textcolor{comment}{!}
1467                               \textcolor{comment}{! Flag of average.}
1468                               \textcolor{comment}{!}
1469                               \textcolor{comment}{! Axes specified .true. are averaged.}
1470                               \textcolor{comment}{! If this argument is omitted,}
1471                               \textcolor{comment}{! .false. is set.}
1472                               \textcolor{comment}{!}
1473     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average
1474                               \textcolor{comment}{! 出力データの時間平均フラグ.}
1475                               \textcolor{comment}{! デフォルトは .false.}
1476                               \textcolor{comment}{! Flag for time average of output data}
1477                               \textcolor{comment}{! Default value is .false.}
1478     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: newfile\_interval
1479                               \textcolor{comment}{! ファイル分割時間間隔.}
1480                               \textcolor{comment}{!}
1481                               \textcolor{comment}{! 省略した場合,}
1482                               \textcolor{comment}{! 時間方向へのファイル分割を行いません.}
1483                               \textcolor{comment}{!}
1484                               \textcolor{comment}{! Interval of time of separation of a file.}
1485                               \textcolor{comment}{!}
1486                               \textcolor{comment}{! If this argument is omitted,}
1487                               \textcolor{comment}{! a files is not separated in time direction.}
1488                               \textcolor{comment}{!}
1489     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: rank
1490                               \textcolor{comment}{! ランクの名称.}
1491                               \textcolor{comment}{! 空文字を与えた場合には無視されます.}
1492                               \textcolor{comment}{!}
1493                               \textcolor{comment}{! Name of a rank.}
1494                               \textcolor{comment}{! If blank is given, this argument is ignored.}
1495                               \textcolor{comment}{!}
1496     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: origin\_date
1497                               \textcolor{comment}{! 出力開始日時.}
1498                               \textcolor{comment}{! この引数は廃止予定のため, start\_date を使用して下さい.}
1499                               \textcolor{comment}{!}
1500                               \textcolor{comment}{! Start date of output.}
1501                               \textcolor{comment}{! Use "start\_date" because this argument is obsolete.}
1502                               \textcolor{comment}{!}
1503     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: origin\_date\_invalid
1504                               \textcolor{comment}{! .true. を与えると, origin\_date を無効にします.}
1505                               \textcolor{comment}{!}
1506                               \textcolor{comment}{! If ".true." is given, "origin\_date" is ignored.}
1507                               \textcolor{comment}{!}
1508     \textcolor{keywordtype}{type}(\hyperlink{structdc__calendar__types_1_1dc__cal__date}{dc\_cal\_date}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: start\_date
1509                               \textcolor{comment}{! 出力開始日時.}
1510                               \textcolor{comment}{!}
1511                               \textcolor{comment}{! Start date of output.}
1512                               \textcolor{comment}{!}
1513     \textcolor{keywordtype}{type}(\hyperlink{structdc__calendar__types_1_1dc__cal}{dc\_cal}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: cal
1514                               \textcolor{comment}{! 暦情報.}
1515                               \textcolor{comment}{! これを指定しない場合, dc\_calendar モジュールの}
1516                               \textcolor{comment}{! デフォルトの暦が使用されます.}
1517                               \textcolor{comment}{!}
1518                               \textcolor{comment}{! Calendar.}
1519                               \textcolor{comment}{! If this argument is specified, default calendar in}
1520                               \textcolor{comment}{! "dc\_calendar" module is used.}
1521                               \textcolor{comment}{!}
1522     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_gather
1523                               \textcolor{comment}{! MPI 使用時に, 各ノードで HistoryPut}
1524                               \textcolor{comment}{! に与えたデータを一つのファイルに統合して出力}
1525                               \textcolor{comment}{! する場合には .true. を与えてください.}
1526                               \textcolor{comment}{! デフォルトは .false. です.}
1527                               \textcolor{comment}{!}
1528                               \textcolor{comment}{! .true. を与えた場合, HistoryPutAxisMPI}
1529                               \textcolor{comment}{! に全体の軸データを与えてください.}
1530                               \textcolor{comment}{!}
1531                               \textcolor{comment}{! When MPI is used, if ".true." is given,}
1532                               \textcolor{comment}{! data given to "HistoryPut" on each node}
1533                               \textcolor{comment}{! is integrated and output to one file.}
1534                               \textcolor{comment}{! Default value is ".false.".}
1535                               \textcolor{comment}{!}
1536                               \textcolor{comment}{! If .true. is given, give data of axes in}
1537                               \textcolor{comment}{! whole area to "HistoryPutAxisMPI"}
1538                               \textcolor{comment}{!}
1539     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
1540                               \textcolor{comment}{! MPI 使用時に, 各ノードで HistoryPut}
1541                               \textcolor{comment}{! に与えたデータをそれぞれ別名のファイルに}
1542                               \textcolor{comment}{! 出力する場合には .true. を与えてください.}
1543                               \textcolor{comment}{! デフォルトは .false. です.}
1544                               \textcolor{comment}{!}
1545                               \textcolor{comment}{! When MPI is used, if ".true." is given,}
1546                               \textcolor{comment}{! data given to "HistoryPut" on each node}
1547                               \textcolor{comment}{! is split into discrete files.}
1548                               \textcolor{comment}{! Default value is ".false.".}
1549                               \textcolor{comment}{!}
1550     \textcolor{keywordtype}{integer}:: blank\_index
1551     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}):: interval\_difftime, origin\_difftime, terminus\_difftime
1552     \textcolor{keywordtype}{integer}:: stat
1553     \textcolor{keywordtype}{character(STRING)}:: cause\_c
1554     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoCreate2"}
1555   \textcolor{keywordflow}{continue}
1556     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname)
1557     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
1558     cause\_c = \textcolor{stringliteral}{""}
1559 
1560     \textcolor{comment}{! このサブルーチンが 2 度呼ばれたらエラー}
1561     \textcolor{comment}{! Error is occurred when this subroutine is called twice}
1562     \textcolor{comment}{!}
1563     \textcolor{keywordflow}{if} ( \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
1564       stat = \hyperlink{namespacedc__error_a3302263a8c976235052a305d54572070}{dc\_ealreadyinit}
1565       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
1566       \textcolor{keywordflow}{goto} 999
1567 \textcolor{keywordflow}{    end if}
1568 
1569     \textcolor{comment}{! 次元の数に関するエラー処理}
1570     \textcolor{comment}{! Error handling for number of dimensions}
1571     \textcolor{comment}{!}
1572     \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} = \textcolor{keyword}{size}(dims)
1573 
1574     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(dimsizes) /= \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} ) \textcolor{keywordflow}{then}
1575       cause\_c = \textcolor{stringliteral}{'dimsizes, dims'}
1576     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{size}(longnames) /= \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} ) \textcolor{keywordflow}{then}
1577       cause\_c = \textcolor{stringliteral}{'longnames, dims'}
1578     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{size}(\hyperlink{structdc__units_1_1units}{units}) /= \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} ) \textcolor{keywordflow}{then}
1579       cause\_c = \textcolor{stringliteral}{'units, dims'}
1580 \textcolor{keywordflow}{    endif}
1581     \textcolor{keywordflow}{if} ( trim(cause\_c) /= \textcolor{stringliteral}{""} ) \textcolor{keywordflow}{then}
1582       stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
1583       \textcolor{keywordflow}{goto} 999
1584 \textcolor{keywordflow}{    end if}
1585 
1586     \textcolor{keywordflow}{if} ( \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} > nf90\_max\_dims ) \textcolor{keywordflow}{then}
1587       stat = nf90\_emaxdims
1588       \textcolor{keywordflow}{goto} 999
1589 \textcolor{keywordflow}{    end if}
1590 
1591     \textcolor{comment}{! 時刻次元に関するエラー処理}
1592     \textcolor{comment}{! Error handling for time dimension}
1593     \textcolor{comment}{!}
1594     \textcolor{keywordflow}{if} ( dimsizes(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}) /= 0 ) \textcolor{keywordflow}{then}
1595       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
1596         & \textcolor{stringliteral}{'time dimension must be specified to the last of "dims"'} )
1597       stat = \hyperlink{namespacedc__error_af5bc8dc43d49e0c8bb06ac5e16be11dc}{hst\_enotimedim}
1598       \textcolor{keywordflow}{goto} 999
1599 \textcolor{keywordflow}{    end if}
1600 
1601     \textcolor{comment}{! 時刻の単位のチェック}
1602     \textcolor{comment}{! Check units of time}
1603     \textcolor{comment}{!}
1604     \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} = \hyperlink{structdc__units_1_1units}{units}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims})
1605     \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = \textcolor{stringliteral}{''}
1606     blank\_index = index( trim( adjustl(\hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}) ), \textcolor{stringliteral}{' '} )
1607     \textcolor{keywordflow}{if} ( blank\_index > 1  ) \textcolor{keywordflow}{then}
1608       \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}(blank\_index+1:)
1609       \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}(1:blank\_index-1)
1610 \textcolor{keywordflow}{    end if}
1611 
1612     \textcolor{comment}{! 出力時間間隔のデフォルト値設定}
1613     \textcolor{comment}{! Configure default interval of output time}
1614     \textcolor{comment}{!}
1615     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(interval) ) \textcolor{keywordflow}{then}
1616       \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}( &
1617         & interval\_difftime, &           \textcolor{comment}{! (out)}
1618         & interval, \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} ) \textcolor{comment}{! (in)}
1619     \textcolor{keywordflow}{else}
1620       \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}( &
1621         & interval\_difftime, &      \textcolor{comment}{! (out)}
1622         & 1.0, \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} ) \textcolor{comment}{! (in)}
1623 \textcolor{keywordflow}{    end if}
1624 
1625     \textcolor{comment}{! 出力開始・終了時刻のデフォルト値設定}
1626     \textcolor{comment}{! Configure default origin/terminus time of output}
1627     \textcolor{comment}{!}
1628     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(origin) ) \textcolor{keywordflow}{then}
1629       \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}( &
1630         & origin\_difftime, &           \textcolor{comment}{! (out)}
1631         & origin, \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} ) \textcolor{comment}{! (in)}
1632     \textcolor{keywordflow}{else}
1633       \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}( &
1634         & origin\_difftime, &           \textcolor{comment}{! (out)}
1635         & 0.0, \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} )    \textcolor{comment}{! (in)}
1636 \textcolor{keywordflow}{    end if}
1637 
1638     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(terminus) ) \textcolor{keywordflow}{then}
1639       \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}( &
1640         & terminus\_difftime, &           \textcolor{comment}{! (out)}
1641         & terminus, \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} ) \textcolor{comment}{! (in)}
1642     \textcolor{keywordflow}{else}
1643       \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}( &
1644         & terminus\_difftime, &       \textcolor{comment}{! (out)}
1645         & -1.0, \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} )  \textcolor{comment}{! (in)}
1646 \textcolor{keywordflow}{    end if}
1647 
1648     \textcolor{comment}{! HistoryAutoCreate1 の呼び出し}
1649     \textcolor{comment}{! Call "HistoryAutoCreate1"}
1650     \textcolor{comment}{!}
1651     \textcolor{keyword}{call }\hyperlink{interfacegtool__historyauto__generic_1_1historyautocreate}{historyautocreate}( &
1652       & title = title, source = source, &        \textcolor{comment}{! (in)}
1653       & institution = institution, &             \textcolor{comment}{! (in)}
1654       & dims = dims, dimsizes = dimsizes, &      \textcolor{comment}{! (in)}
1655       & longnames = longnames, \hyperlink{structdc__units_1_1units}{units} = \hyperlink{structdc__units_1_1units}{units}, &  \textcolor{comment}{! (in)}
1656       &      origin = origin\_difftime, &         \textcolor{comment}{! (in)}
1657       &    terminus = terminus\_difftime, &       \textcolor{comment}{! (in)}
1658       &      xtypes = xtypes, &                  \textcolor{comment}{! (in) optional}
1659       & conventions = conventions, &             \textcolor{comment}{! (in) optional}
1660       &  gt\_version = gt\_version, &              \textcolor{comment}{! (in) optional}
1661       &  all\_output = all\_output, &              \textcolor{comment}{! (in) optional}
1662       & file\_prefix = file\_prefix, &             \textcolor{comment}{! (in) optional}
1663       & namelist\_filename = namelist\_filename, & \textcolor{comment}{! (in) optional}
1664       &      interval = interval\_difftime, &     \textcolor{comment}{! (in) optional}
1665       &   slice\_start = slice\_start, &           \textcolor{comment}{! (in) optional}
1666       &     slice\_end = slice\_end, &             \textcolor{comment}{! (in) optional}
1667       &  slice\_stride = slice\_stride, &          \textcolor{comment}{! (in) optional}
1668       & space\_average = space\_average, &         \textcolor{comment}{! (in) optional}
1669       &  time\_average = time\_average, &          \textcolor{comment}{! (in) optional}
1670       & newfile\_interval = newfile\_interval, &   \textcolor{comment}{! (in) optional}
1671       & rank = rank, &                           \textcolor{comment}{! (in) optional}
1672       & origin\_date = origin\_date, &                 \textcolor{comment}{! (in) optional}
1673       & origin\_date\_invalid = origin\_date\_invalid, & \textcolor{comment}{! (in) optional}
1674       & start\_date = start\_date, &                   \textcolor{comment}{! (in) optional}
1675       & cal = cal, &                                 \textcolor{comment}{! (in) optional}
1676       & flag\_mpi\_gather = flag\_mpi\_gather, &         \textcolor{comment}{! (in) optional}
1677       & flag\_mpi\_split = flag\_mpi\_split )            \textcolor{comment}{! (in) optional}
1678 
1679 999 \textcolor{keywordflow}{continue}
1680     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
1681     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyautocreate_8f90_aa90ed4ef465f3b8e056435dfd97a85cd_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{historyautocreate_8f90_abfbef0021a9817ad8bea0a5f12465622}\label{historyautocreate_8f90_abfbef0021a9817ad8bea0a5f12465622}} 
\index{historyautocreate.\+f90@{historyautocreate.\+f90}!historyautocreate3@{historyautocreate3}}
\index{historyautocreate3@{historyautocreate3}!historyautocreate.\+f90@{historyautocreate.\+f90}}
\subsubsection{\texorpdfstring{historyautocreate3()}{historyautocreate3()}}
{\footnotesize\ttfamily subroutine historyautocreate3 (\begin{DoxyParamCaption}\item[{character($\ast$), intent(in)}]{title,  }\item[{character($\ast$), intent(in)}]{source,  }\item[{character($\ast$), intent(in)}]{institution,  }\item[{character($\ast$), dimension(\+:), intent(in)}]{dims,  }\item[{integer, dimension (\+:), intent(in)}]{dimsizes,  }\item[{character($\ast$), dimension (\+:), intent(in)}]{longnames,  }\item[{character($\ast$), dimension(\+:), intent(in)}]{units,  }\item[{type(dc\+\_\+difftime), intent(in)}]{origin,  }\item[{type(dc\+\_\+difftime), intent(in)}]{terminus,  }\item[{character($\ast$), dimension(\+:), intent(in), optional}]{xtypes,  }\item[{character($\ast$), intent(in), optional}]{conventions,  }\item[{character($\ast$), intent(in), optional}]{gt\+\_\+version,  }\item[{logical, intent(in), optional}]{all\+\_\+output,  }\item[{character($\ast$), intent(in), optional}]{file\+\_\+prefix,  }\item[{character($\ast$), intent(in), optional}]{namelist\+\_\+filename,  }\item[{type(dc\+\_\+difftime), intent(in), optional}]{interval,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+start,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+end,  }\item[{integer, dimension(\+:), intent(in), optional}]{slice\+\_\+stride,  }\item[{logical, dimension(\+:), intent(in), optional}]{space\+\_\+average,  }\item[{logical, intent(in), optional}]{time\+\_\+average,  }\item[{integer, intent(in), optional}]{newfile\+\_\+interval,  }\item[{character($\ast$), intent(in), optional}]{rank,  }\item[{type(dc\+\_\+datetime), intent(in), optional}]{origin\+\_\+date,  }\item[{logical, intent(in), optional}]{origin\+\_\+date\+\_\+invalid,  }\item[{type(dc\+\_\+cal\+\_\+date), intent(in), optional}]{start\+\_\+date,  }\item[{type(dc\+\_\+cal), intent(in), optional}]{cal,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+gather,  }\item[{logical, intent(in), optional}]{flag\+\_\+mpi\+\_\+split }\end{DoxyParamCaption})}



Definition at line 28 of file historyautocreate.\+f90.



References gtool\+\_\+historyauto\+\_\+internal\+::all\+\_\+output\+\_\+save, dc\+\_\+trace\+::beginsub(), gtool\+\_\+historyauto\+\_\+internal\+::cal\+\_\+save, gtool\+\_\+historyauto\+\_\+internal\+::conventions\+\_\+save, gtool\+\_\+historyauto\+\_\+internal\+::data\+\_\+axes, dc\+\_\+error\+::dc\+\_\+ealreadyinit, dc\+\_\+error\+::dc\+\_\+enegative, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), dc\+\_\+error\+::gt\+\_\+eargsizemismatch, gtool\+\_\+historyauto\+\_\+internal\+::gt\+\_\+version\+\_\+save, gtool\+\_\+historyauto\+\_\+internal\+::gthst\+\_\+axes, gtool\+\_\+historyauto\+\_\+internal\+::gthstnml, dc\+\_\+error\+::hst\+\_\+enotimedim, gtool\+\_\+historyauto\+\_\+internal\+::initialized, gtool\+\_\+historyauto\+\_\+internal\+::institution\+\_\+save, dc\+\_\+string\+::joinchar(), gtool\+\_\+historyauto\+\_\+internal\+::numdims, dc\+\_\+present\+::present\+\_\+and\+\_\+not\+\_\+empty(), dc\+\_\+present\+::present\+\_\+and\+\_\+true(), gtool\+\_\+historyauto\+\_\+internal\+::rank\+\_\+save, gtool\+\_\+historyauto\+\_\+internal\+::save\+\_\+mpi\+\_\+gather, gtool\+\_\+historyauto\+\_\+internal\+::save\+\_\+mpi\+\_\+split, gtool\+\_\+historyauto\+\_\+internal\+::source\+\_\+save, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, gtool\+\_\+historyauto\+\_\+internal\+::sub\+\_\+sname, gtool\+\_\+historyauto\+\_\+internal\+::time\+\_\+unit\+\_\+bycreate, gtool\+\_\+historyauto\+\_\+internal\+::time\+\_\+unit\+\_\+suffix, gtool\+\_\+historyauto\+\_\+internal\+::title\+\_\+save, dc\+\_\+types\+::token, gtool\+\_\+historyauto\+\_\+internal\+::version, and gtool\+\_\+historyauto\+\_\+internal\+::zero\+\_\+time.


\begin{DoxyCode}
28     \textcolor{comment}{!}
29     \textcolor{comment}{! 複数のデータ出力を行うための初期化を行います.}
30     \textcolor{comment}{!}
31     \textcolor{comment}{! この HistoryAutoCreate には, モデル内で出力する}
32     \textcolor{comment}{! 変数が依存する座標や座標重みなどを全てを設定してください.}
33     \textcolor{comment}{!}
34     \textcolor{comment}{! all\_output に .true. を与えた場合や,}
35     \textcolor{comment}{! namelist\_filename を与えない (空文字を与える) 場合には,}
36     \textcolor{comment}{! HistoryAutoAddVariable で登録される全ての変数が出力されます.}
37     \textcolor{comment}{! 一方で namelist\_filename に NAMELIST ファイル名を与える場合には,}
38     \textcolor{comment}{! その NAMELIST ファイルから出力のオンオフや,}
39     \textcolor{comment}{! 出力ファイル名, 出力間隔などを変更可能です.}
40     \textcolor{comment}{! 変更可能な項目に関しては NAMELIST#gtool\_historyauto\_nml}
41     \textcolor{comment}{! を参照して下さい.}
42     \textcolor{comment}{!}
43     \textcolor{comment}{! interval, origin, terminus, slice\_start, slice\_end, slice\_stride,}
44     \textcolor{comment}{! space\_average, time\_average, newfile\_interval}
45     \textcolor{comment}{! などの設定はデフォルト値として使用されます.}
46     \textcolor{comment}{! これらの設定値は HistoryAutoAddVariable および}
47     \textcolor{comment}{! NAMELIST#gtool\_historyauto\_nml で上書きされます.}
48     \textcolor{comment}{! (優先度が高いのは NAMELIST#gtool\_historyauto\_nml ,}
49     \textcolor{comment}{! HistoryAutoAddVariable の引数,}
50     \textcolor{comment}{! HistoryAutoCreate の引数 の順です).}
51     \textcolor{comment}{!}
52     \textcolor{comment}{!}
53     \textcolor{comment}{! Initialization for multiple history data output}
54     \textcolor{comment}{!}
55     \textcolor{comment}{! Set all axes and their weights depended by variables}
56     \textcolor{comment}{! output from numerical models to this "HistoryAutoCreate".}
57     \textcolor{comment}{!}
58     \textcolor{comment}{! All variables registered by "HistoryAutoAddVariable"}
59     \textcolor{comment}{! are output if .true. is given to "all\_output" or}
60     \textcolor{comment}{! "namelist\_filename" is not given (or blanks are given)}
61     \textcolor{comment}{! On the other hand, if a filename of NAMELIST file is}
62     \textcolor{comment}{! given to "namelist\_filename", on/off of output,}
63     \textcolor{comment}{! output filename and output interval, etc. can be changed}
64     \textcolor{comment}{! from the NAMELIST file.}
65     \textcolor{comment}{! For available items, see "NAMELIST#gtool\_historyauto\_nml".}
66     \textcolor{comment}{!}
67     \textcolor{comment}{! Settings about}
68     \textcolor{comment}{! "interval", "origin", "terminus", "slice\_start", "slice\_end", "slice\_stride",}
69     \textcolor{comment}{! "space\_average", "time\_average", "newfile\_interval"}
70     \textcolor{comment}{! etc. are used as default values.}
71     \textcolor{comment}{! Their set values are overwritten by}
72     \textcolor{comment}{! "HistoryAutoAddVariable" or}
73     \textcolor{comment}{! "NAMELIST#gtool\_historyauto\_nml".}
74     \textcolor{comment}{! ("NAMELIST#gtool\_historyauto\_nml" is high priority,}
75     \textcolor{comment}{! arguments of "HistoryAutoAddVariable" are medium,}
76     \textcolor{comment}{! arguments of "HistoryAutoCreate" are low).}
77     \textcolor{comment}{!}
78     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__historyauto__internal}{gtool\_historyauto\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized}, 
      \hyperlink{namespacegtool__historyauto__internal_ad719685d8938bd2a1e7aa36f0f57210d}{version}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, &
79       & \hyperlink{namespacegtool__historyauto__internal_a9399975605af7bbc7c94d27c565a9838}{zero\_time}, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}, &
80       & \hyperlink{namespacegtool__historyauto__internal_ae68f71867832f25eacda9f4a4db52e3c}{title\_save}, \hyperlink{namespacegtool__historyauto__internal_ad4d076d628b34e22932c269e1cbe25ce}{source\_save}, \hyperlink{namespacegtool__historyauto__internal_aee003bb35878182aa2b849b804902324}{institution\_save}, 
      \hyperlink{namespacegtool__historyauto__internal_a171ea84f88543027686d2d68202d7274}{conventions\_save}, &
81       & \hyperlink{namespacegtool__historyauto__internal_a046cc4e220d7dd7d44cf0287a10abdf5}{gt\_version\_save}, \hyperlink{namespacegtool__historyauto__internal_ab995e0150e4e838e8b9848bd566c5299}{rank\_save}, \hyperlink{namespacegtool__historyauto__internal_aa087ebecb90b20901204f5497d24661a}{save\_mpi\_split}, 
      \hyperlink{namespacegtool__historyauto__internal_a6aa46993d72f521af70cf3977df24bf1}{save\_mpi\_gather}, &
82       & \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}, \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}, 
      \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}, &
83       & \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save}, \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, \hyperlink{namespacegtool__historyauto__internal_abb3028b474fbd886d4ab3d82d25fbe2f}{cal\_save}
84     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtool__history__generic_1_1historyaxiscreate}{historyaxiscreate}, 
      \hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}
85     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__generic}{gtool\_history\_nmlinfo\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfocreate}{hstnmlinfocreate}, \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoadd}{hstnmlinfoadd}, &
86       & \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoenddefine}{hstnmlinfoenddefine}, \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoputline}{hstnmlinfoputline}, 
      \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoallnamevalid}{hstnmlinfoallnamevalid}, &
87       & \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}
88     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
89     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}, \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}, 
      \hyperlink{namespacedc__error_a3302263a8c976235052a305d54572070}{dc\_ealreadyinit}, &
90       & \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}, \hyperlink{namespacedc__error_af5bc8dc43d49e0c8bb06ac5e16be11dc}{hst\_enotimedim}, 
      \hyperlink{namespacedc__error_a64f090fc161836514c614059f74c23e6}{dc\_enegative}
91     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_emaxdims, nf90\_max\_dims
92     \textcolor{keywordtype}{use }\hyperlink{namespacedc__string}{dc\_string}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__generic_1_1putline}{putline}, \hyperlink{interfacedc__string_1_1printf}{printf}, \hyperlink{interfacedc__string_1_1split}{split}, 
      \hyperlink{interfacedc__string_1_1strinclude}{strinclude}, \hyperlink{interfacedc__string_1_1stoa}{stoa}, \hyperlink{namespacedc__string_a20412554f8f648165d202319119cf628}{joinchar}
93     \textcolor{keywordtype}{use }\hyperlink{namespacedc__present}{dc\_present}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}, 
      \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}, &
94       & \hyperlink{interfacedc__present_1_1present__select}{present\_select}
95     \textcolor{keywordtype}{use }\hyperlink{namespacedc__calendar}{dc\_calendar}\textcolor{keywordtype}{, only}: \hyperlink{structdc__calendar__types_1_1dc__cal}{dc\_cal}, \hyperlink{structdc__calendar__types_1_1dc__cal__date}{dc\_cal\_date}, &
96       & \hyperlink{interfacedc__calendar__generic_1_1dccaldateinquire}{dccaldateinquire}, \hyperlink{interfacedc__calendar__generic_1_1dccalinquire}{dccalinquire}, \hyperlink{interfacedc__calendar__generic_1_1dccaldefault}{dccaldefault}
97     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}, \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}, 
      \hyperlink{interfacedc__string_1_1tochar}{tochar}, \hyperlink{interfacedc__date__generic_1_1tocharcal}{tocharcal}, \hyperlink{interfacedc__date__generic_1_1eval}{eval}
98     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date__types}{dc\_date\_types}\textcolor{keywordtype}{, only}: \hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}, \hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}
99     \textcolor{keywordtype}{use }\hyperlink{namespacedc__message}{dc\_message}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}
100     \textcolor{keywordtype}{use }\hyperlink{namespacedc__iounit}{dc\_iounit}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__iounit_1_1fileopen}{fileopen}
101     \textcolor{keywordtype}{use }\hyperlink{namespacedc__types}{dc\_types}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__types_ac74a34430fcd3d0eb2344f19d536c086}{dp}, \hyperlink{namespacedc__types_adb76910ff05e3b9fe3436567f8f8dac6}{string}, \hyperlink{namespacedc__types_a6d28eb015ba84292a06f4ff25165b376}{token}
102     \textcolor{keywordtype}{implicit none}
103     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: title
104                               \textcolor{comment}{! データ全体の表題.}
105                               \textcolor{comment}{! Title of entire data}
106     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: source
107                               \textcolor{comment}{! データを作成する際の手段.}
108                               \textcolor{comment}{! Source of data file}
109     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: institution
110                               \textcolor{comment}{! ファイルを最終的に変更した組織/個人.}
111                               \textcolor{comment}{! Institution or person that changes files for the last time}
112     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: dims(:)
113                               \textcolor{comment}{! 次元の名前.}
114                               \textcolor{comment}{!}
115                               \textcolor{comment}{! 配列の大きさに制限はありません.}
116                               \textcolor{comment}{! 個々の次元の文字数は dc\_types#TOKEN まで.}
117                               \textcolor{comment}{! 配列内の文字数は}
118                               \textcolor{comment}{! 全て同じでなければなりません.}
119                               \textcolor{comment}{! 足りない文字分は空白で}
120                               \textcolor{comment}{! 補ってください.}
121                               \textcolor{comment}{!}
122                               \textcolor{comment}{! Names of dimensions.}
123                               \textcolor{comment}{!}
124                               \textcolor{comment}{! Length of array is unlimited.}
125                               \textcolor{comment}{! Limits of numbers of characters of each}
126                               \textcolor{comment}{! dimensions are "dc\_types#TOKEN".}
127                               \textcolor{comment}{! Numbers of characters in this array}
128                               \textcolor{comment}{! must be same.}
129                               \textcolor{comment}{! Make up a deficit with blanks.}
130                               \textcolor{comment}{!}
131     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: dimsizes (:)
132                               \textcolor{comment}{! dims で指定したそれぞれの次元大きさ.}
133                               \textcolor{comment}{!}
134                               \textcolor{comment}{! 配列の大きさは dims の大きさと等しい}
135                               \textcolor{comment}{! 必要があります.  '0' (数字のゼロ) を指定}
136                               \textcolor{comment}{! するとその次元は 無制限次元 (unlimited}
137                               \textcolor{comment}{! dimension) となります. (gtool\_history}
138                               \textcolor{comment}{! では時間の次元に対して無制限次元を}
139                               \textcolor{comment}{! 用いることを想定しています). ただし,}
140                               \textcolor{comment}{! 1 つの NetCDF ファイル (バージョン 3)}
141                               \textcolor{comment}{! は最大で 1 つの無制限次元しか持てないので,}
142                               \textcolor{comment}{! 2 ヶ所以上に '0' を指定しないでください.}
143                               \textcolor{comment}{! その場合, 正しく gtool4 データが出力されません.}
144                               \textcolor{comment}{!}
145                               \textcolor{comment}{! Lengths of dimensions specified with "dims".}
146                               \textcolor{comment}{!}
147                               \textcolor{comment}{! Length of this array must be same as}
148                               \textcolor{comment}{! length of "dim".  If '0' (zero) is}
149                               \textcolor{comment}{! specified, the dimension is treated as}
150                               \textcolor{comment}{! unlimited dimension.}
151                               \textcolor{comment}{! (In "gtool\_history", unlimited dimension is}
152                               \textcolor{comment}{! expected to be used as time).}
153                               \textcolor{comment}{! Note that one NetCDF file (version 3)}
154                               \textcolor{comment}{! can not have two or more unlimited}
155                               \textcolor{comment}{! dimensions, so that do not specify '0'}
156                               \textcolor{comment}{! to two or more places. In that case,}
157                               \textcolor{comment}{! gtoo4 data is not output currently}
158                               \textcolor{comment}{!}
159     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: longnames (:)
160                               \textcolor{comment}{! dims で指定したそれぞれの次元の名前.}
161                               \textcolor{comment}{!}
162                               \textcolor{comment}{! 配列の大きさは dims の大きさ}
163                               \textcolor{comment}{! と等しい必要があります. 文字数}
164                               \textcolor{comment}{! は dc\_types#STRING まで.}
165                               \textcolor{comment}{! 配列内の文字数は}
166                               \textcolor{comment}{! 全て同じでなければなりません.}
167                               \textcolor{comment}{! 足りない文字分は空白で補います.}
168                               \textcolor{comment}{!}
169                               \textcolor{comment}{! Names of dimensions specified with "dims".}
170                               \textcolor{comment}{!}
171                               \textcolor{comment}{! Length of this array must be same as}
172                               \textcolor{comment}{! length of "dim".}
173                               \textcolor{comment}{! Limits of numbers of characters are}
174                               \textcolor{comment}{! "dc\_types#STRING".}
175                               \textcolor{comment}{! Numbers of characters in this array}
176                               \textcolor{comment}{! must be same.}
177                               \textcolor{comment}{! Make up a deficit with blanks.}
178                               \textcolor{comment}{!}
179     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}:: \hyperlink{structdc__units_1_1units}{units}(:)
180                               \textcolor{comment}{! dims で指定したそれぞれの次元の単位.}
181                               \textcolor{comment}{!}
182                               \textcolor{comment}{! 配列の大きさは dims の大きさ}
183                               \textcolor{comment}{! と等しい必要があります. 文字数}
184                               \textcolor{comment}{! は dc\_types#STRING まで.}
185                               \textcolor{comment}{! 配列内の文字数は}
186                               \textcolor{comment}{! 全て同じでなければなりません.}
187                               \textcolor{comment}{! 足りない文字分は空白で補います.}
188                               \textcolor{comment}{!}
189                               \textcolor{comment}{! Units of dimensions specified with "dims".}
190                               \textcolor{comment}{!}
191                               \textcolor{comment}{! Length of this array must be same as}
192                               \textcolor{comment}{! length of "dim".}
193                               \textcolor{comment}{! Limits of numbers of characters are}
194                               \textcolor{comment}{! "dc\_types#STRING".}
195                               \textcolor{comment}{! Numbers of characters in this array}
196                               \textcolor{comment}{! must be same.}
197                               \textcolor{comment}{! Make up a deficit with blanks.}
198                               \textcolor{comment}{!}
199     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: origin
200                               \textcolor{comment}{! 出力開始時刻.}
201                               \textcolor{comment}{!}
202                               \textcolor{comment}{! Start time of output.}
203                               \textcolor{comment}{!}
204     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}:: terminus
205                               \textcolor{comment}{! 出力終了時刻.}
206                               \textcolor{comment}{!}
207                               \textcolor{comment}{! End time of output.}
208                               \textcolor{comment}{!}
209     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)},  \textcolor{keywordtype}{optional}:: xtypes(:)
210                               \textcolor{comment}{! dims で指定したそれぞれの}
211                               \textcolor{comment}{! 次元のデータ型.}
212                               \textcolor{comment}{!}
213                               \textcolor{comment}{! デフォルトは float (単精度実数型)}
214                               \textcolor{comment}{! です. 有効なのは,}
215                               \textcolor{comment}{! double (倍精度実数型),}
216                               \textcolor{comment}{! int (整数型) です. 指定しない}
217                               \textcolor{comment}{! 場合や, 無効な型を指定した場合には,}
218                               \textcolor{comment}{! float となります. なお, 配列の大きさ}
219                               \textcolor{comment}{! は *dims* の大きさと等しい必要が}
220                               \textcolor{comment}{! あります. 配列内の文字数は全て}
221                               \textcolor{comment}{! 同じでなければなりません.}
222                               \textcolor{comment}{! 足りない文字分は空白で補います.}
223                               \textcolor{comment}{!}
224                               \textcolor{comment}{! Data types of dimensions specified}
225                               \textcolor{comment}{! with "dims".}
226                               \textcolor{comment}{!}
227                               \textcolor{comment}{! Default value is "float" (single precision).}
228                               \textcolor{comment}{! Other valid values are}
229                               \textcolor{comment}{! "double" (double precision),}
230                               \textcolor{comment}{! "int" (integer).}
231                               \textcolor{comment}{! If no value or invalid value is specified,}
232                               \textcolor{comment}{! "float" is applied.}
233                               \textcolor{comment}{! Length of this array must be same as}
234                               \textcolor{comment}{! length of "dim".}
235                               \textcolor{comment}{! Numbers of characters in this array}
236                               \textcolor{comment}{! must be same.}
237                               \textcolor{comment}{! Make up a deficit with blanks.}
238                               \textcolor{comment}{!}
239     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: conventions
240                               \textcolor{comment}{! 出力するファイルの netCDF}
241                               \textcolor{comment}{! 規約}
242                               \textcolor{comment}{!}
243                               \textcolor{comment}{! 省略した場合,}
244                               \textcolor{comment}{! もしくは空文字を与えた場合,}
245                               \textcolor{comment}{! 出力する netCDF 規約の}
246                               \textcolor{comment}{! Conventions 属性に値}
247                               \textcolor{comment}{! gtool4\_netCDF\_Conventions}
248                               \textcolor{comment}{! が自動的に与えられます.}
249                               \textcolor{comment}{!}
250                               \textcolor{comment}{! NetCDF conventions of output file.}
251                               \textcolor{comment}{!}
252                               \textcolor{comment}{! If this argument is omitted or,}
253                               \textcolor{comment}{! blanks are given,}
254                               \textcolor{comment}{! gtool4\_netCDF\_Conventions is given to}
255                               \textcolor{comment}{! attribute "Conventions" of an output file}
256                               \textcolor{comment}{! automatically.}
257                               \textcolor{comment}{!}
258     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: gt\_version
259                               \textcolor{comment}{! gtool4 netCDF 規約のバージョン}
260                               \textcolor{comment}{!}
261                               \textcolor{comment}{! 省略した場合, gt\_version 属性に}
262                               \textcolor{comment}{! 規約の最新版のバージョンナンバー}
263                               \textcolor{comment}{! gtool4\_netCDF\_version}
264                               \textcolor{comment}{! が与えられます.}
265                               \textcolor{comment}{! (ただし, 引数 conventions に}
266                               \textcolor{comment}{! gtool4\_netCDF\_Conventions}
267                               \textcolor{comment}{! 以外が与えられる場合は}
268                               \textcolor{comment}{! gt\_version 属性を作成しません).}
269                               \textcolor{comment}{!}
270                               \textcolor{comment}{! Version of gtool4 netCDF Conventions.}
271                               \textcolor{comment}{!}
272                               \textcolor{comment}{! If this argument is omitted,}
273                               \textcolor{comment}{! latest version number of gtool4 netCDF}
274                               \textcolor{comment}{! Conventions is given to attribute}
275                               \textcolor{comment}{! "gt\_version" of an output file}
276                               \textcolor{comment}{! (However, gtool4\_netCDF\_Conventions is}
277                               \textcolor{comment}{! not given to an argument "conventions",}
278                               \textcolor{comment}{! attribute "gt\_version" is not created).}
279                               \textcolor{comment}{!}
280     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: all\_output
281                               \textcolor{comment}{! 登録変数を全て出力するためのフラグ.}
282                               \textcolor{comment}{!}
283                               \textcolor{comment}{! .true. を指定すると,}
284                               \textcolor{comment}{! HistoryAutoAddVariable で登録された}
285                               \textcolor{comment}{! 変数が全て出力されるようになります.}
286                               \textcolor{comment}{!}
287                               \textcolor{comment}{! *namelist\_filename* が指定される場合}
288                               \textcolor{comment}{! には, デフォルトは .false. となります.}
289                               \textcolor{comment}{! この場合には,}
290                               \textcolor{comment}{! *namelist\_filename* に指定された}
291                               \textcolor{comment}{! NAMELIST ファイルから読み込まれる}
292                               \textcolor{comment}{! NAMELIST#gtool\_historyauto\_nml}
293                               \textcolor{comment}{! で指定された変数のみ出力されます.}
294                               \textcolor{comment}{!}
295                               \textcolor{comment}{! *namelist\_filename* が指定されない場合}
296                               \textcolor{comment}{! には, .true. となります.}
297                               \textcolor{comment}{!}
298                               \textcolor{comment}{!}
299                               \textcolor{comment}{! Flag for output all registered variables.}
300                               \textcolor{comment}{!}
301                               \textcolor{comment}{! When .true. is specified,}
302                               \textcolor{comment}{! all variables registered by}
303                               \textcolor{comment}{! "HistoryAutoAddVariable" are output.}
304                               \textcolor{comment}{!}
305                               \textcolor{comment}{! If *namelist\_filename* is specified,}
306                               \textcolor{comment}{! default value becomes .false. .}
307                               \textcolor{comment}{! In this case,}
308                               \textcolor{comment}{! only variables specified in}
309                               \textcolor{comment}{! "NAMELIST#gtool\_historyauto\_nml"}
310                               \textcolor{comment}{! loaded from a NAMELIST file}
311                               \textcolor{comment}{! *namelist\_filename*.}
312                               \textcolor{comment}{!}
313                               \textcolor{comment}{! If *namelist\_filename* is not specified,}
314                               \textcolor{comment}{! this value becomes .true. .}
315                               \textcolor{comment}{!}
316     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: file\_prefix
317                               \textcolor{comment}{! データのファイル名の接頭詞.}
318                               \textcolor{comment}{! Prefixes of history data filenames}
319     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: namelist\_filename
320                               \textcolor{comment}{! NAMELIST ファイルの名称.}
321                               \textcolor{comment}{!}
322                               \textcolor{comment}{! 省略した場合, もしくは空白文字を与えた場合,}
323                               \textcolor{comment}{! NAMELIST ファイルは読み込みません.}
324                               \textcolor{comment}{!}
325                               \textcolor{comment}{! Name of NAMELIST file.}
326                               \textcolor{comment}{!}
327                               \textcolor{comment}{! If this argument is omitted,}
328                               \textcolor{comment}{! or blanks are specified,}
329                               \textcolor{comment}{! no NAMELIST file is loaded.}
330                               \textcolor{comment}{!}
331     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__difftime}{dc\_difftime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: interval
332                               \textcolor{comment}{! 出力時間間隔.}
333                               \textcolor{comment}{!}
334                               \textcolor{comment}{! 省略した場合,}
335                               \textcolor{comment}{! 自動的に 1.0 [sec] が設定されます.}
336                               \textcolor{comment}{!}
337                               \textcolor{comment}{! Interval of output time.}
338                               \textcolor{comment}{!}
339                               \textcolor{comment}{! If this argument is omitted,}
340                               \textcolor{comment}{! 1.0 [sec] is specified}
341                               \textcolor{comment}{! automatically.}
342                               \textcolor{comment}{!}
343     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_start(:)
344                               \textcolor{comment}{! 空間方向の開始点.}
345                               \textcolor{comment}{!}
346                               \textcolor{comment}{! 省略した場合, 座標データの開始点が設定されます.}
347                               \textcolor{comment}{!}
348                               \textcolor{comment}{! Start points of spaces.}
349                               \textcolor{comment}{!}
350                               \textcolor{comment}{! If this argument is omitted,}
351                               \textcolor{comment}{! start points of dimensions are set.}
352                               \textcolor{comment}{!}
353     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_end(:)
354                               \textcolor{comment}{! 空間方向の終了点.}
355                               \textcolor{comment}{!}
356                               \textcolor{comment}{! 省略した場合, もしくは負の値が与えら得た場合,}
357                               \textcolor{comment}{! 座標データの終了点が設定されます.}
358                               \textcolor{comment}{!}
359                               \textcolor{comment}{! End points of spaces.}
360                               \textcolor{comment}{!}
361                               \textcolor{comment}{! If this argument is omitted or}
362                               \textcolor{comment}{! negative value is specified,}
363                               \textcolor{comment}{! end points of dimensions are set.}
364                               \textcolor{comment}{!}
365     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: slice\_stride(:)
366                               \textcolor{comment}{! 空間方向の刻み幅.}
367                               \textcolor{comment}{!}
368                               \textcolor{comment}{! 省略した場合, 1 が設定されます.}
369                               \textcolor{comment}{!}
370                               \textcolor{comment}{! Strides of spaces}
371                               \textcolor{comment}{!}
372                               \textcolor{comment}{! If this argument is omitted,}
373                               \textcolor{comment}{! 1 is set.}
374                               \textcolor{comment}{!}
375     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: space\_average(:)
376                               \textcolor{comment}{! 平均化のフラグ.}
377                               \textcolor{comment}{!}
378                               \textcolor{comment}{! .true. が指定される座標に対して平均化を}
379                               \textcolor{comment}{! 行います.}
380                               \textcolor{comment}{! 省略した場合, .false. が設定されます.}
381                               \textcolor{comment}{!}
382                               \textcolor{comment}{! Flag of average.}
383                               \textcolor{comment}{!}
384                               \textcolor{comment}{! Axes specified .true. are averaged.}
385                               \textcolor{comment}{! If this argument is omitted,}
386                               \textcolor{comment}{! .false. is set.}
387                               \textcolor{comment}{!}
388     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: time\_average
389                               \textcolor{comment}{! 出力データの時間平均フラグ.}
390                               \textcolor{comment}{! デフォルトは .false.}
391                               \textcolor{comment}{! Flag for time average of output data}
392                               \textcolor{comment}{! Default value is .false.}
393     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: newfile\_interval
394                               \textcolor{comment}{! ファイル分割時間間隔.}
395                               \textcolor{comment}{!}
396                               \textcolor{comment}{! 省略した場合,}
397                               \textcolor{comment}{! 時間方向へのファイル分割を行いません.}
398                               \textcolor{comment}{!}
399                               \textcolor{comment}{! Interval of time of separation of a file.}
400                               \textcolor{comment}{!}
401                               \textcolor{comment}{! If this argument is omitted,}
402                               \textcolor{comment}{! a files is not separated in time direction.}
403                               \textcolor{comment}{!}
404     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: rank
405                               \textcolor{comment}{! ランクの名称.}
406                               \textcolor{comment}{!}
407                               \textcolor{comment}{! Name of a rank.}
408                               \textcolor{comment}{!}
409     \textcolor{keywordtype}{type}(\hyperlink{structdc__date__types_1_1dc__datetime}{dc\_datetime}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: origin\_date
410                               \textcolor{comment}{! 出力開始日時.}
411                               \textcolor{comment}{! この引数は廃止予定のため, start\_date を使用して下さい.}
412                               \textcolor{comment}{!}
413                               \textcolor{comment}{! Start date of output.}
414                               \textcolor{comment}{! Use "start\_date" because this argument is obsolete.}
415                               \textcolor{comment}{!}
416     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: origin\_date\_invalid
417                               \textcolor{comment}{! .true. を与えると, origin\_date を無効にします.}
418                               \textcolor{comment}{!}
419                               \textcolor{comment}{! If ".true." is given, "origin\_date" is ignored.}
420     \textcolor{keywordtype}{type}(\hyperlink{structdc__calendar__types_1_1dc__cal__date}{dc\_cal\_date}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: start\_date
421                               \textcolor{comment}{! 出力開始日時.}
422                               \textcolor{comment}{!}
423                               \textcolor{comment}{! Start date of output.}
424                               \textcolor{comment}{!}
425     \textcolor{keywordtype}{type}(\hyperlink{structdc__calendar__types_1_1dc__cal}{dc\_cal}), \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: cal
426                               \textcolor{comment}{! 暦情報.}
427                               \textcolor{comment}{! これを指定しない場合, dc\_calendar モジュールの}
428                               \textcolor{comment}{! デフォルトの暦が使用されます.}
429                               \textcolor{comment}{!}
430                               \textcolor{comment}{! Calendar.}
431                               \textcolor{comment}{! If this argument is specified, default calendar in}
432                               \textcolor{comment}{! "dc\_calendar" module is used.}
433                               \textcolor{comment}{!}
434     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_gather
435                               \textcolor{comment}{! MPI 使用時に, 各ノードで HistoryPut}
436                               \textcolor{comment}{! に与えたデータを一つのファイルに統合して出力}
437                               \textcolor{comment}{! する場合には .true. を与えてください.}
438                               \textcolor{comment}{! デフォルトは .false. です.}
439                               \textcolor{comment}{!}
440                               \textcolor{comment}{! .true. を与えた場合, HistoryPutAxisMPI}
441                               \textcolor{comment}{! に全体の軸データを与えてください.}
442                               \textcolor{comment}{!}
443                               \textcolor{comment}{! When MPI is used, if ".true." is given,}
444                               \textcolor{comment}{! data given to "HistoryPut" on each node}
445                               \textcolor{comment}{! is integrated and output to one file.}
446                               \textcolor{comment}{! Default value is ".false.".}
447                               \textcolor{comment}{!}
448                               \textcolor{comment}{! If .true. is given, give data of axes in}
449                               \textcolor{comment}{! whole area to "HistoryPutAxisMPI"}
450                               \textcolor{comment}{!}
451     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(in)}, \textcolor{keywordtype}{optional}:: flag\_mpi\_split
452                               \textcolor{comment}{! MPI 使用時に, 各ノードで HistoryPut}
453                               \textcolor{comment}{! に与えたデータをそれぞれ別名のファイルに}
454                               \textcolor{comment}{! 出力する場合には .true. を与えてください.}
455                               \textcolor{comment}{! デフォルトは .false. です.}
456                               \textcolor{comment}{!}
457                               \textcolor{comment}{! When MPI is used, if ".true." is given,}
458                               \textcolor{comment}{! data given to "HistoryPut" on each node}
459                               \textcolor{comment}{! is split into discrete files.}
460                               \textcolor{comment}{! Default value is ".false.".}
461                               \textcolor{comment}{!}
462 
463 
464     \textcolor{comment}{! NAMELIST 変数群 ; NAMELIST group of variables}
465     \textcolor{keywordtype}{character(STRING)}:: name
466                               \textcolor{comment}{! 変数名.}
467                               \textcolor{comment}{! 空白の場合には, この他の設定値は}
468                               \textcolor{comment}{! gtool\_historyauto モジュールにおいて}
469                               \textcolor{comment}{! 出力されるデータ全ての}
470                               \textcolor{comment}{! デフォルト値となります.}
471                               \textcolor{comment}{!}
472                               \textcolor{comment}{! "Data1,Data2" のようにカンマで区切って複数}
473                               \textcolor{comment}{! の変数を指定することも可能です.}
474                               \textcolor{comment}{!}
475                               \textcolor{comment}{! Variable identifier.}
476                               \textcolor{comment}{! If blank is given, other values are}
477                               \textcolor{comment}{! used as default values of output data}
478                               \textcolor{comment}{! in "gtool\_historyauto".}
479                               \textcolor{comment}{!}
480                               \textcolor{comment}{! Multiple variables can be specified}
481                               \textcolor{comment}{! as "Data1,Data2" too. Delimiter is comma.}
482     \textcolor{keywordtype}{character(STRING)}:: file
483                               \textcolor{comment}{! 出力ファイル名.}
484                               \textcolor{comment}{! これはデフォルト値としては使用されません.}
485                               \textcolor{comment}{! *Name* に値が設定されている時のみ有効です.}
486                               \textcolor{comment}{!}
487                               \textcolor{comment}{! Output file name.}
488                               \textcolor{comment}{! This is not used as default value.}
489                               \textcolor{comment}{! This value is valid only when *Name* is}
490                               \textcolor{comment}{! specified.}
491 
492     \textcolor{keywordtype}{real(DP)}:: intvalue
493                               \textcolor{comment}{! データの出力間隔の数値.}
494                               \textcolor{comment}{! 負の値を与えると, 出力を抑止します.}
495                               \textcolor{comment}{! Numerical value for interval of history data output}
496                               \textcolor{comment}{! Negative values suppresses output.}
497     \textcolor{keywordtype}{character(TOKEN)}:: intunit
498                               \textcolor{comment}{! データの出力間隔の単位.}
499                               \textcolor{comment}{! Unit for interval of history data output}
500     \textcolor{keywordtype}{character(TOKEN)}:: precision
501                               \textcolor{comment}{! データの精度.}
502                               \textcolor{comment}{! デフォルトは float (単精度実数型)}
503                               \textcolor{comment}{! です. 有効なのは,}
504                               \textcolor{comment}{! double (倍精度実数型),}
505                               \textcolor{comment}{! int (整数型) です. 指定しない}
506                               \textcolor{comment}{! 場合や, 無効な型を指定した場合には,}
507                               \textcolor{comment}{! float となります.}
508                               \textcolor{comment}{!}
509                               \textcolor{comment}{! Precision of history data}
510                               \textcolor{comment}{! Default value is "float" (single precision).}
511                               \textcolor{comment}{! Other valid values are}
512                               \textcolor{comment}{! "double" (double precision),}
513                               \textcolor{comment}{! "int" (integer).}
514                               \textcolor{comment}{! If no value or invalid value is specified,}
515                               \textcolor{comment}{! "float" is applied.}
516     \textcolor{keywordtype}{character(STRING)}:: fileprefix
517                               \textcolor{comment}{! データのファイル名の接頭詞.}
518                               \textcolor{comment}{! Prefixes of history data filenames}
519     \textcolor{keywordtype}{logical}:: timeaverage
520                               \textcolor{comment}{! 出力データの時間平均フラグ.}
521                               \textcolor{comment}{!}
522                               \textcolor{comment}{! ".true." を与えると, 時間平均値が出力されます.}
523                               \textcolor{comment}{!}
524                               \textcolor{comment}{! Flag for time average of output data}
525                               \textcolor{comment}{!}
526                               \textcolor{comment}{! If ".ture." is specified,}
527                               \textcolor{comment}{! time average values are output.}
528                               \textcolor{comment}{!}
529     \textcolor{keywordtype}{logical}:: alloutput
530                               \textcolor{comment}{! 登録変数を全て出力するためのフラグ.}
531                               \textcolor{comment}{! Flag for output all registered variables.}
532     \textcolor{keywordtype}{real(DP)}:: originvalue
533                               \textcolor{comment}{! 出力開始時刻.}
534                               \textcolor{comment}{! Start time of output.}
535     \textcolor{keywordtype}{character(TOKEN)}:: originunit
536                               \textcolor{comment}{! 出力開始時刻の単位.}
537                               \textcolor{comment}{! Unit of start time of output.}
538     \textcolor{keywordtype}{real(DP)}:: terminusvalue
539                               \textcolor{comment}{! 出力終了時刻.}
540                               \textcolor{comment}{! End time of output.}
541     \textcolor{keywordtype}{character(TOKEN)}:: terminusunit
542                               \textcolor{comment}{! 出力終了時刻の単位.}
543                               \textcolor{comment}{! Unit of end time of output.}
544     \textcolor{keywordtype}{integer}:: slicestart(1:nf90\_max\_dims)
545                               \textcolor{comment}{! 空間方向の開始点.}
546                               \textcolor{comment}{! Start points of spaces.}
547     \textcolor{keywordtype}{integer}:: sliceend(1:nf90\_max\_dims)
548                               \textcolor{comment}{! 空間方向の終了点.}
549                               \textcolor{comment}{!}
550                               \textcolor{comment}{! 省略した場合, もしくは負の値が与えら得た場合,}
551                               \textcolor{comment}{! 座標データの終了点が設定されます.}
552                               \textcolor{comment}{!}
553                               \textcolor{comment}{! End points of spaces.}
554                               \textcolor{comment}{!}
555                               \textcolor{comment}{! If this argument is omitted or}
556                               \textcolor{comment}{! negative value is specified,}
557                               \textcolor{comment}{! end points of dimensions are set.}
558                               \textcolor{comment}{!}
559     \textcolor{keywordtype}{integer}:: slicestride(1:nf90\_max\_dims)
560                               \textcolor{comment}{! 空間方向の刻み幅.}
561                               \textcolor{comment}{! Strides of spaces.}
562     \textcolor{keywordtype}{logical}:: spaceaverage(1:nf90\_max\_dims)
563                               \textcolor{comment}{! 空間平均のフラグ.}
564                               \textcolor{comment}{! Flag of spatial average.}
565     \textcolor{keywordtype}{integer}:: newfileintvalue
566                               \textcolor{comment}{! ファイル分割時間間隔の数値.}
567                               \textcolor{comment}{! Numerical value for interval of time of separation of a file.}
568     \textcolor{keywordtype}{character(TOKEN)}:: newfileintunit
569                               \textcolor{comment}{! ファイル分割時間間隔の単位.}
570                               \textcolor{comment}{! Unit of interval of time of separation of a file.}
571 
572     namelist /gtool\_historyauto\_nml/ &
573       & name, file, &
574       & intvalue, intunit, &
575       & precision, &
576       & fileprefix, &
577       & timeaverage, alloutput, &
578       & originvalue, originunit, &
579       & terminusvalue, terminusunit, &
580       & slicestart, sliceend, slicestride, spaceaverage, &
581       & newfileintvalue, newfileintunit
582                               \textcolor{comment}{! gtool\_historyauto モジュールのデータ用}
583                               \textcolor{comment}{! NAMELIST 変数群名.}
584                               \textcolor{comment}{!}
585                               \textcolor{comment}{! gtool\_historyauto\_generic#HistoryAutoCreate}
586                               \textcolor{comment}{! を使用する際に, オプショナル引数 *namelist\_filename*}
587                               \textcolor{comment}{! へ NAMELIST ファイル名を指定することで,}
588                               \textcolor{comment}{! そのファイルからこの NAMELIST 変数群を}
589                               \textcolor{comment}{! 読み込みます.}
590                               \textcolor{comment}{!}
591                               \textcolor{comment}{! NAMELIST group name for}
592                               \textcolor{comment}{! history data of "gtool\_historyauto" module.}
593                               \textcolor{comment}{!}
594                               \textcolor{comment}{! If a NAMELIST filename is specified to}
595                               \textcolor{comment}{! an optional argument *namelist\_filename* when}
596                               \textcolor{comment}{! "gtool\_historyauto\_generic#HistoryAutoCreate"}
597                               \textcolor{comment}{! is used, this NAMELIST group is}
598                               \textcolor{comment}{! loaded from the file.}
599 
600 
601     \textcolor{comment}{! 作業変数 ; Work variables}
602     \textcolor{keywordtype}{integer}:: blank\_index
603     \textcolor{keywordtype}{integer}:: stat
604     \textcolor{keywordtype}{character(STRING)}:: cause\_c
605     \textcolor{keywordtype}{integer}:: unit\_nml        \textcolor{comment}{! NAMELIST ファイルオープン用装置番号.}
606                               \textcolor{comment}{! Unit number for NAMELIST file open}
607     \textcolor{keywordtype}{integer}:: iostat\_nml      \textcolor{comment}{! NAMELIST 読み込み時の IOSTAT.}
608                               \textcolor{comment}{! IOSTAT of NAMELIST read}
609     \textcolor{keywordtype}{character(TOKEN)}:: pos\_nml
610                               \textcolor{comment}{! NAMELIST 読み込み時のファイル位置.}
611                               \textcolor{comment}{! File position of NAMELIST read}
612     \textcolor{keywordtype}{integer}:: i, j
613     \textcolor{keywordtype}{character(TOKEN)}:: my\_xtype
614 
615     \textcolor{keywordtype}{real(DP)}:: interval\_work, origin\_work, terminus\_work
616     \textcolor{keywordtype}{integer}:: date\_day
617     \textcolor{keywordtype}{real(DP)}:: date\_sec
618     \textcolor{keywordtype}{integer}:: msnot\_rank
619     \textcolor{keywordtype}{character(STRING)}:: date\_str
620     \textcolor{keywordtype}{character(TOKEN)}:: cal\_str, cal\_type
621     \textcolor{keywordtype}{integer}:: origin\_year, origin\_month, origin\_day, origin\_hour, origin\_min
622     \textcolor{keywordtype}{real(DP)}:: origin\_sec
623     \textcolor{keywordtype}{integer}:: month\_in\_year, hour\_in\_day, min\_in\_hour
624     \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{pointer}:: day\_in\_month(:) =>null()
625     \textcolor{keywordtype}{real(DP)}:: sec\_in\_min
626     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"HistoryAutoCreate3"}
627   \textcolor{keywordflow}{continue}
628     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}(subname, \hyperlink{namespacegtool__historyauto__internal_ad719685d8938bd2a1e7aa36f0f57210d}{version} = \hyperlink{namespacegtool__historyauto__internal_ad719685d8938bd2a1e7aa36f0f57210d}{version})
629     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
630     cause\_c = \textcolor{stringliteral}{""}
631 
632     \textcolor{comment}{! このサブルーチンが 2 度呼ばれたらエラー}
633     \textcolor{comment}{! Error is occurred when this subroutine is called twice}
634     \textcolor{comment}{!}
635     \textcolor{keywordflow}{if} ( \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
636       stat = \hyperlink{namespacedc__error_a3302263a8c976235052a305d54572070}{dc\_ealreadyinit}
637       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
638       \textcolor{keywordflow}{goto} 999
639 \textcolor{keywordflow}{    end if}
640 
641     \textcolor{comment}{! ゼロ秒の作成.}
642     \textcolor{comment}{! Create zero seconds}
643     \textcolor{comment}{!}
644     \hyperlink{namespacegtool__historyauto__internal_a9399975605af7bbc7c94d27c565a9838}{zero\_time} = 0.0\_dp
645 \textcolor{comment}{!!$    call DCDiffTimeCreate( &}
646 \textcolor{comment}{!!$      & zero\_time, &        ! (out)}
647 \textcolor{comment}{!!$      & sec = 0.0\_DP  )     ! (in)}
648 
649     \textcolor{comment}{! 次元の数に関するエラー処理}
650     \textcolor{comment}{! Error handling for number of dimensions}
651     \textcolor{comment}{!}
652     \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} = \textcolor{keyword}{size}(dims)
653 
654     \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(dimsizes) /= \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} ) \textcolor{keywordflow}{then}
655       cause\_c = \textcolor{stringliteral}{'dimsizes, dims'}
656     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{size}(longnames) /= \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} ) \textcolor{keywordflow}{then}
657       cause\_c = \textcolor{stringliteral}{'longnames, dims'}
658     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{size}(\hyperlink{structdc__units_1_1units}{units}) /= \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} ) \textcolor{keywordflow}{then}
659       cause\_c = \textcolor{stringliteral}{'units, dims'}
660 \textcolor{keywordflow}{    endif}
661     \textcolor{keywordflow}{if} ( trim(cause\_c) /= \textcolor{stringliteral}{""} ) \textcolor{keywordflow}{then}
662       stat = \hyperlink{namespacedc__error_aa11b8065198295505e35eb5a1e1436a4}{gt\_eargsizemismatch}
663       \textcolor{keywordflow}{goto} 999
664 \textcolor{keywordflow}{    end if}
665 
666     \textcolor{keywordflow}{if} ( \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} > nf90\_max\_dims ) \textcolor{keywordflow}{then}
667       stat = nf90\_emaxdims
668       \textcolor{keywordflow}{goto} 999
669 \textcolor{keywordflow}{    end if}
670 
671     \textcolor{comment}{! 時刻次元に関するエラー処理}
672     \textcolor{comment}{! Error handling for time dimension}
673     \textcolor{comment}{!}
674     \textcolor{keywordflow}{if} ( dimsizes(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}) /= 0 ) \textcolor{keywordflow}{then}
675       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'W'}, subname, &
676         & \textcolor{stringliteral}{'time dimension must be specified to the last of "dims"'} )
677       stat = \hyperlink{namespacedc__error_af5bc8dc43d49e0c8bb06ac5e16be11dc}{hst\_enotimedim}
678       \textcolor{keywordflow}{goto} 999
679 \textcolor{keywordflow}{    end if}
680 
681     \textcolor{comment}{! 出力ファイルの基本メタデータの保管}
682     \textcolor{comment}{! Save basic meta data for output file}
683     \textcolor{comment}{!}
684     \hyperlink{namespacegtool__historyauto__internal_ae68f71867832f25eacda9f4a4db52e3c}{title\_save}       = title
685     \hyperlink{namespacegtool__historyauto__internal_ad4d076d628b34e22932c269e1cbe25ce}{source\_save}      = source
686     \hyperlink{namespacegtool__historyauto__internal_aee003bb35878182aa2b849b804902324}{institution\_save} = institution
687 
688     \hyperlink{namespacegtool__historyauto__internal_a171ea84f88543027686d2d68202d7274}{conventions\_save} = \textcolor{stringliteral}{''}
689     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(conventions) ) \hyperlink{namespacegtool__historyauto__internal_a171ea84f88543027686d2d68202d7274}{conventions\_save} = conventions
690 
691     \hyperlink{namespacegtool__historyauto__internal_a046cc4e220d7dd7d44cf0287a10abdf5}{gt\_version\_save} = \textcolor{stringliteral}{''}
692     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(gt\_version) ) \hyperlink{namespacegtool__historyauto__internal_a046cc4e220d7dd7d44cf0287a10abdf5}{gt\_version\_save} = gt\_version
693 
694     \hyperlink{namespacegtool__historyauto__internal_ab995e0150e4e838e8b9848bd566c5299}{rank\_save} = \textcolor{stringliteral}{''}
695     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(rank) ) \hyperlink{namespacegtool__historyauto__internal_ab995e0150e4e838e8b9848bd566c5299}{rank\_save} = rank
696 
697     \textcolor{comment}{! MPI に関する情報の保管}
698     \textcolor{comment}{! Save information about MPI}
699     \textcolor{comment}{!}
700     \hyperlink{namespacegtool__historyauto__internal_aa087ebecb90b20901204f5497d24661a}{save\_mpi\_split}  = \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_split )
701     \hyperlink{namespacegtool__historyauto__internal_a6aa46993d72f521af70cf3977df24bf1}{save\_mpi\_gather} = \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}( flag\_mpi\_gather )
702 
703     msnot\_rank = -1
704     \textcolor{keywordflow}{if} ( \hyperlink{namespacegtool__historyauto__internal_a6aa46993d72f521af70cf3977df24bf1}{save\_mpi\_gather} ) msnot\_rank = 0
705 
706     \textcolor{comment}{! 時刻の単位のチェック}
707     \textcolor{comment}{! Check units of time}
708     \textcolor{comment}{!}
709     \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} = \hyperlink{structdc__units_1_1units}{units}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims})
710     \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = \textcolor{stringliteral}{''}
711     blank\_index = index( trim( adjustl(\hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}) ), \textcolor{stringliteral}{' '} )
712     \textcolor{keywordflow}{if} ( blank\_index > 1  ) \textcolor{keywordflow}{then}
713       \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}(blank\_index+1:)
714       \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}(1:blank\_index-1)
715 \textcolor{keywordflow}{    end if}
716 
717     \textcolor{comment}{! 座標軸データの保管}
718     \textcolor{comment}{! Save axes data}
719     \textcolor{comment}{!}
720     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
721       my\_xtype = \textcolor{stringliteral}{''}
722       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(xtypes) ) \textcolor{keywordflow}{then}
723         \textcolor{keywordflow}{if} ( \textcolor{keyword}{size}(xtypes) >= i ) \textcolor{keywordflow}{then}
724           my\_xtype = xtypes(i)
725 \textcolor{keywordflow}{        end if}
726 \textcolor{keywordflow}{      end if}
727 
728       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxiscreate}{historyaxiscreate}( &
729         &     axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i), &                     \textcolor{comment}{! (out)}
730         &     name = dims(i),       \textcolor{keyword}{size} = dimsizes(i), & \textcolor{comment}{! (in)}
731         & longname = longnames(i), \hyperlink{structdc__units_1_1units}{units} = \hyperlink{structdc__units_1_1units}{units}(i), &    \textcolor{comment}{! (in)}
732         &    xtype = my\_xtype )                           \textcolor{comment}{! (in)}
733 
734       \textcolor{keyword}{allocate}( \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}(i) % a\_axis( dimsizes(i) ) )
735       \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}(i) % a\_axis = (/ ( \textcolor{keywordtype}{real( j, DP )}, j = 1, dimsizes(i) ) /)
736 
737 \textcolor{keywordflow}{    end do}
738 
739     \textcolor{comment}{! 暦の登録}
740     \textcolor{comment}{! Register calendar}
741     \textcolor{comment}{!}
742     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(cal) ) \textcolor{keywordflow}{then}
743       \hyperlink{namespacegtool__historyauto__internal_abb3028b474fbd886d4ab3d82d25fbe2f}{cal\_save} = cal
744     \textcolor{keywordflow}{else}
745       \textcolor{keyword}{call }\hyperlink{interfacedc__calendar__generic_1_1dccaldefault}{dccaldefault}( \hyperlink{namespacegtool__historyauto__internal_abb3028b474fbd886d4ab3d82d25fbe2f}{cal\_save} )
746 \textcolor{keywordflow}{    end if}
747 
748     \textcolor{comment}{! 日時の指定}
749     \textcolor{comment}{! Specify date}
750     \textcolor{comment}{!}
751     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(start\_date) ) \textcolor{keywordflow}{then}
752 
753       \textcolor{keyword}{call }\hyperlink{interfacedc__calendar__generic_1_1dccaldateinquire}{dccaldateinquire}( &
754         & date\_str = date\_str, &   \textcolor{comment}{! (out)}
755         & date     = start\_date, & \textcolor{comment}{! (in) optional}
756         & cal      = cal &         \textcolor{comment}{! (in) optional}
757         \textcolor{comment}{!    & , zone = "+09:00" &}
758         & )        \textcolor{comment}{! (in) optional}
759 
760       \textcolor{keyword}{call }\hyperlink{interfacedc__calendar__generic_1_1dccaldateinquire}{dccaldateinquire}( &
761         & origin\_year, origin\_month, origin\_day, & \textcolor{comment}{! (out) optional}
762         & origin\_hour, origin\_min,   origin\_sec, & \textcolor{comment}{! (out) optional}
763         & date     = start\_date, & \textcolor{comment}{! (in) optional}
764         & cal      = cal &         \textcolor{comment}{! (in) optional}
765         & )
766 
767       \textcolor{keyword}{call }\hyperlink{interfacedc__calendar__generic_1_1dccalinquire}{dccalinquire}( &
768         & cal\_str, &                          \textcolor{comment}{! (out) optional}
769         & month\_in\_year    = month\_in\_year, & \textcolor{comment}{! (out) optional}
770         & day\_in\_month\_ptr = day\_in\_month , & \textcolor{comment}{! (out) optional}
771         & hour\_in\_day      = hour\_in\_day  , & \textcolor{comment}{! (out) optional}
772         & min\_in\_hour      = min\_in\_hour  , & \textcolor{comment}{! (out) optional}
773         & sec\_in\_min       = sec\_in\_min   , & \textcolor{comment}{! (out) optional}
774         & cal = \hyperlink{namespacegtool__historyauto__internal_abb3028b474fbd886d4ab3d82d25fbe2f}{cal\_save} )                    \textcolor{comment}{! (in) optional}
775 
776       \textcolor{comment}{! 地球暦の場合のみ units 属性に "since ..." を付加}
777       \textcolor{comment}{!}
778       \textcolor{keywordflow}{select case} ( trim(cal\_str) )
779       \textcolor{keywordflow}{case} ( \textcolor{stringliteral}{'gregorian'} )
780         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
781           & \textcolor{stringliteral}{' since '} // trim(date\_str)
782       \textcolor{keywordflow}{case} ( \textcolor{stringliteral}{'julian'} )
783         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
784           & \textcolor{stringliteral}{' since '} // trim(date\_str)
785       \textcolor{keywordflow}{case} ( \textcolor{stringliteral}{'noleap'} )
786         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
787           & \textcolor{stringliteral}{' since '} // trim(date\_str)
788       \textcolor{keywordflow}{case} ( \textcolor{stringliteral}{'360day'} )
789         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
790           & \textcolor{stringliteral}{' since '} // trim(date\_str)
791       \textcolor{keywordflow}{case} ( \textcolor{stringliteral}{'cyclic'} )
792         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
793           & \textcolor{stringliteral}{' since '} // trim(date\_str)
794 \textcolor{keywordflow}{      end select}
795 
796       \textcolor{comment}{! 開始日時情報の付与}
797       \textcolor{comment}{!}
798       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
799         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), &    \textcolor{comment}{! (inout)}
800         & attrname = \textcolor{stringliteral}{'origin'}, &           \textcolor{comment}{! (in)}
801         & \textcolor{keywordtype}{value} = \textcolor{stringliteral}{'origin\_year origin\_month origin\_day '} // &
802         &         \textcolor{stringliteral}{'origin\_hour origin\_min origin\_sec'} )    \textcolor{comment}{! (in)}
803 
804       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'origin\_year'},  
      origin\_year )
805       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'origin\_month'}, 
      origin\_month )
806       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'origin\_day'},   
      origin\_day )
807       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'origin\_hour'},  
      origin\_hour )
808       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'origin\_min'},   
      origin\_min )
809 
810       \textcolor{comment}{! 暦情報の付与}
811       \textcolor{comment}{!}
812       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
813         & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), &    \textcolor{comment}{! (inout)}
814         & attrname = \textcolor{stringliteral}{'calendar'}, &         \textcolor{comment}{! (in)}
815         & \textcolor{keywordtype}{value} = cal\_str )                \textcolor{comment}{! (in)}
816 
817       \textcolor{keywordflow}{if} ( trim(cal\_str) == \textcolor{stringliteral}{'user\_defined'} ) \textcolor{keywordflow}{then}
818         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'month\_in\_year'}, 
      month\_in\_year )
819         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'day\_in\_month'},  
      day\_in\_month )
820         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'hour\_in\_day'},   
      hour\_in\_day )
821         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'min\_in\_hour'},   
      min\_in\_hour )
822         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), \textcolor{stringliteral}{'sec\_in\_min'},    
      sec\_in\_min )
823 \textcolor{keywordflow}{      end if}
824 
825       \textcolor{keyword}{deallocate}( day\_in\_month )
826 
827     \textcolor{keywordflow}{elseif} ( \textcolor{keyword}{present}(origin\_date) &
828       &  .and. .not. \hyperlink{namespacedc__present_ab280582985ee69fda00e2a0bf09194af}{present\_and\_true}(origin\_date\_invalid) ) \textcolor{keywordflow}{then}
829       \textcolor{keyword}{call }\hyperlink{interfacedc__date__generic_1_1eval}{eval}( origin\_date, &            \textcolor{comment}{! (in)}
830         & day = date\_day, sec = date\_sec ) \textcolor{comment}{! (out)}
831       \textcolor{keywordflow}{if} ( date\_day /= 0 .or. date\_sec /= 0.0 ) \textcolor{keywordflow}{then}
832         \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = trim(\hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}) // &
833           & \textcolor{stringliteral}{' since '} // \hyperlink{interfacedc__string_1_1tochar}{tochar}(origin\_date)
834 
835         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyaxisaddattr}{historyaxisaddattr}( &
836           & axis = \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}), &    \textcolor{comment}{! (inout)}
837           & attrname = \textcolor{stringliteral}{'calendar'}, &         \textcolor{comment}{! (in)}
838           & \textcolor{keywordtype}{value} = \hyperlink{interfacedc__date__generic_1_1tocharcal}{tocharcal}(origin\_date) ) \textcolor{comment}{! (in)}
839 
840 \textcolor{keywordflow}{      end if}
841 \textcolor{keywordflow}{    end if}
842 
843     \textcolor{comment}{! 登録変数を全て出力するためのフラグの保管}
844     \textcolor{comment}{! Save flag for output all registered variables}
845     \textcolor{comment}{!}
846     \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(all\_output) ) \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save} = all\_output
847     \textcolor{keywordflow}{if} ( .not. \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(namelist\_filename) ) 
      \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save} = .true.
848     alloutput = \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save}
849 
850     \textcolor{comment}{! 出力時間間隔のデフォルト値設定}
851     \textcolor{comment}{! Configure default interval of output time}
852     \textcolor{comment}{!}
853     \textcolor{keywordflow}{if} ( \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save} ) \textcolor{keywordflow}{then}
854       \textcolor{keywordflow}{if} ( \textcolor{keyword}{present}(interval) ) \textcolor{keywordflow}{then}
855         interval\_work = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( interval, \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} )
856       \textcolor{keywordflow}{else}
857         interval\_work = 1.0
858 \textcolor{keywordflow}{      end if}
859     \textcolor{keywordflow}{else}
860       interval\_work = - 1.0
861 \textcolor{keywordflow}{    end if}
862 
863     \textcolor{comment}{! 出力開始・終了時刻のデフォルト値設定}
864     \textcolor{comment}{! Configure default origin/terminus time of output}
865     \textcolor{comment}{!}
866     origin\_work = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( origin, \textcolor{stringliteral}{'sec'} )
867     terminus\_work = \hyperlink{interfacedc__date__generic_1_1evalbyunit}{evalbyunit}( terminus, \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} )
868 
869     \textcolor{comment}{! gtool\_historyauto\_nml へデフォルト値の設定}
870     \textcolor{comment}{! Configure default values for "gtool\_historyauto\_nml"}
871     \textcolor{comment}{!}
872     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfocreate}{hstnmlinfocreate}( \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} ) \textcolor{comment}{! (out)}
873 
874     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoadd}{hstnmlinfoadd}( &
875       & \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} = \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, &                  \textcolor{comment}{! (inout)}
876       & name = \textcolor{stringliteral}{''}, &                            \textcolor{comment}{! (in) optional}
877       & precision = \textcolor{stringliteral}{'float'}, &                  \textcolor{comment}{! (in) optional}
878       & fileprefix = file\_prefix, &             \textcolor{comment}{! (in) optional}
879       & interval\_value = interval\_work, &       \textcolor{comment}{! (in) optional}
880       & interval\_unit  = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}, &  \textcolor{comment}{! (in) optional}
881       & origin\_value   = origin\_work, &         \textcolor{comment}{! (in) optional}
882       & origin\_unit    = \textcolor{stringliteral}{'sec'}, &               \textcolor{comment}{! (in) optional}
883 \textcolor{comment}{!!$      & origin\_unit    = time\_unit\_bycreate, &  ! (in) optional}
884       & terminus\_value = terminus\_work, &       \textcolor{comment}{! (in) optional}
885       & terminus\_unit  = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}, &  \textcolor{comment}{! (in) optional}
886       & time\_average = time\_average, &          \textcolor{comment}{! (in) optional}
887       & slice\_start  = slice\_start, &           \textcolor{comment}{! (in) optional}
888       & slice\_end    = slice\_end, &             \textcolor{comment}{! (in) optional}
889       & slice\_stride = slice\_stride, &          \textcolor{comment}{! (in) optional}
890       & space\_average = space\_average, &        \textcolor{comment}{! (in) optional}
891       & newfile\_intvalue = newfile\_interval, &  \textcolor{comment}{! (in) optional}
892       & newfile\_intunit = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} )  \textcolor{comment}{! (in) optional}
893 
894     \textcolor{comment}{! NAMELIST ファイルの読み込み}
895     \textcolor{comment}{! Load NAMELIST file}
896     \textcolor{comment}{!}
897     \textcolor{keywordflow}{if} ( \hyperlink{namespacedc__present_aae281a56bc41e9546908a72aeb042430}{present\_and\_not\_empty}(namelist\_filename) ) \textcolor{keywordflow}{then}
898       \textcolor{keyword}{call }\hyperlink{interfacedc__iounit_1_1fileopen}{fileopen}( unit\_nml, &          \textcolor{comment}{! (out)}
899         & namelist\_filename, mode = \textcolor{stringliteral}{'r'} ) \textcolor{comment}{! (in)}
900 
901       iostat\_nml = 0
902       pos\_nml = \textcolor{stringliteral}{''}
903 
904       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'----- "gtool\_historyauto\_nml" is loaded
       from "%c" -----'}, &
905         & c1 = trim(namelist\_filename), rank\_mpi = msnot\_rank )
906 
907       \textcolor{keywordflow}{do} \textcolor{keywordflow}{while} ( trim(pos\_nml) /= \textcolor{stringliteral}{'APPEND'} .and. iostat\_nml == 0 )
908 
909         name = \textcolor{stringliteral}{''}
910         file = \textcolor{stringliteral}{''}
911         \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}( &
912           & \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} = \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, &             \textcolor{comment}{! (in)}
913           & interval\_value = intvalue, &       \textcolor{comment}{! (out) optional}
914           & interval\_unit = intunit, &         \textcolor{comment}{! (out) optional}
915           & precision = precision, &           \textcolor{comment}{! (out) optional}
916           & time\_average = timeaverage, &      \textcolor{comment}{! (out) optional}
917           & origin\_value   = originvalue, &    \textcolor{comment}{! (out) optional}
918           & origin\_unit    = originunit, &     \textcolor{comment}{! (out) optional}
919           & terminus\_value = terminusvalue, &  \textcolor{comment}{! (out) optional}
920           & terminus\_unit  = terminusunit, &   \textcolor{comment}{! (out) optional}
921           & slice\_start  = slicestart, &       \textcolor{comment}{! (out) optional}
922           & slice\_end    = sliceend, &         \textcolor{comment}{! (out) optional}
923           & slice\_stride = slicestride, &      \textcolor{comment}{! (out) optional}
924           & space\_average = spaceaverage, &    \textcolor{comment}{! (out) optional}
925           & newfile\_intvalue = newfileintvalue, & \textcolor{comment}{! (out) optional}
926           & newfile\_intunit  = newfileintunit, &  \textcolor{comment}{! (out) optional}
927           & fileprefix = fileprefix )          \textcolor{comment}{! (out) optional}
928 
929         \textcolor{keyword}{read}( unit = unit\_nml, &            \textcolor{comment}{! (in)}
930           &    nml = gtool\_historyauto\_nml, & \textcolor{comment}{! (out)}
931           & iostat = iostat\_nml )           \textcolor{comment}{! (out)}
932         \textcolor{keyword}{inquire}( unit = unit\_nml, & \textcolor{comment}{! (in)}
933           &  position = pos\_nml )   \textcolor{comment}{! (out)}
934 
935         \textcolor{keywordflow}{if} ( iostat\_nml == 0 ) \textcolor{keywordflow}{then}
936 
937           \textcolor{comment}{! NAMELIST から与えられた値が無効な場合, デフォルト値を使用}
938           \textcolor{comment}{! Default values are used when values from NAMELIST are invalid}
939           \textcolor{comment}{!}
940           \textcolor{keywordflow}{if} ( .not. intvalue > 0.0 ) \textcolor{keywordflow}{then}
941             intvalue = interval\_work
942             intunit  = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}
943 \textcolor{keywordflow}{          end if}
944           \textcolor{keywordflow}{if} ( .not. originvalue > 0.0 ) \textcolor{keywordflow}{then}
945             originvalue = origin\_work
946             originunit  = \textcolor{stringliteral}{'sec'}
947 \textcolor{keywordflow}{          end if}
948           \textcolor{keywordflow}{if} ( .not. terminusvalue > 0.0 ) \textcolor{keywordflow}{then}
949             terminusvalue = terminus\_work
950             terminusunit  = \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}
951 \textcolor{keywordflow}{          end if}
952 
953           \textcolor{comment}{! 情報の登録}
954           \textcolor{comment}{! Register information}
955           \textcolor{comment}{!}
956           \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoadd}{hstnmlinfoadd}( &
957             & \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} = \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, &             \textcolor{comment}{! (inout)}
958             & name = name, &                     \textcolor{comment}{! (in) optional}
959             & file = file, &                     \textcolor{comment}{! (in) optional}
960             & interval\_value = intvalue, &       \textcolor{comment}{! (in) optional}
961             & interval\_unit = intunit, &         \textcolor{comment}{! (in) optional}
962             & precision = precision, &           \textcolor{comment}{! (in) optional}
963             & time\_average = timeaverage, &      \textcolor{comment}{! (in) optional}
964             & origin\_value   = originvalue, &    \textcolor{comment}{! (in) optional}
965             & origin\_unit    = originunit, &     \textcolor{comment}{! (in) optional}
966             & terminus\_value = terminusvalue, &  \textcolor{comment}{! (in) optional}
967             & terminus\_unit  = terminusunit, &   \textcolor{comment}{! (in) optional}
968             & slice\_start  = slicestart, &       \textcolor{comment}{! (in) optional}
969             & slice\_end    = sliceend, &         \textcolor{comment}{! (in) optional}
970             & slice\_stride = slicestride, &      \textcolor{comment}{! (in) optional}
971             & space\_average = spaceaverage, &    \textcolor{comment}{! (in) optional}
972             & newfile\_intvalue = newfileintvalue, & \textcolor{comment}{! (in) optional}
973             & newfile\_intunit  = newfileintunit, &  \textcolor{comment}{! (in) optional}
974             & fileprefix = fileprefix )          \textcolor{comment}{! (in) optional}
975 
976           \textcolor{comment}{! 登録変数を全て出力するためのフラグの保管}
977           \textcolor{comment}{! Save flag for output all registered variables}
978           \textcolor{comment}{!}
979           \textcolor{keywordflow}{if} ( trim(name) == \textcolor{stringliteral}{''} ) \textcolor{keywordflow}{then}
980             \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save} = alloutput
981 \textcolor{keywordflow}{          end if}
982 
983           \textcolor{comment}{! 印字 ; Print}
984           \textcolor{comment}{!}
985           \textcolor{keywordflow}{if} ( trim(file) == \textcolor{stringliteral}{''} ) file = trim(fileprefix) // \textcolor{stringliteral}{'<Name>.nc'}
986 
987           \textcolor{keywordflow}{if} ( trim(name) == \textcolor{stringliteral}{''} ) \textcolor{keywordflow}{then}
988             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'Global Settings:'}, rank\_mpi = 
      msnot\_rank )
989             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  AllOutput       = %b'}, l  = (/ 
      alloutput   /), rank\_mpi = msnot\_rank )
990             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  FilePrefix      = %c'}, c1 = trim(
      fileprefix   ), rank\_mpi = msnot\_rank )
991           \textcolor{keywordflow}{else}
992             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'Individual Settings:'}, rank\_mpi = 
      msnot\_rank )
993             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Name            = %c'}, c1 = trim(
      name           ), rank\_mpi = msnot\_rank )
994             \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  File            = %c'}, c1 = trim(
      file           ), rank\_mpi = msnot\_rank )
995 \textcolor{keywordflow}{          end if}
996           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Interval        = %f [%c]'}, &
997             & d = (/ intvalue /), c1 = trim( intunit ), rank\_mpi = msnot\_rank )
998           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Precision       = %c'}, c1 = trim(
      precision    ), rank\_mpi = msnot\_rank )
999           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  TimeAverage     = %b'}, l  = (/ 
      timeaverage   /), rank\_mpi = msnot\_rank )
1000           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Origin          = %f [%c]'}, &
1001             & d = (/ originvalue /), c1 = trim( originunit ), rank\_mpi = msnot\_rank )
1002           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Terminus        = %f [%c]'}, &
1003             & d = (/ terminusvalue /), c1 = trim( terminusunit ), rank\_mpi = msnot\_rank )
1004           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceStart      = (/ %*d /)'}, &
1005             &                                i = slicestart(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
1006           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceEnd        = (/ %*d /)'}, &
1007             &                                i = sliceend(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
1008           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceStride     = (/ %*d /)'}, &
1009             &                                i = slicestride(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
1010           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SpaceAverage    = (/ %*b /)'}, &
1011             &                                l = spaceaverage(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
1012           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  NewFileInterval = %d [%c]'}, &
1013             & i = (/ newfileintvalue /), c1 = trim( newfileintunit ), rank\_mpi = msnot\_rank )
1014           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{''}, rank\_mpi = msnot\_rank )
1015 
1016         \textcolor{keywordflow}{else}
1017           \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'----- loading is finished (iostat=%d)
       -----'}, &
1018             & i = (/iostat\_nml/), rank\_mpi = msnot\_rank )
1019 \textcolor{keywordflow}{        end if}
1020 \textcolor{keywordflow}{      end do}
1021 
1022       \textcolor{keyword}{close}( unit\_nml )
1023 
1024 
1025     \textcolor{comment}{! NAMELIST ファイルを読み込まない場合}
1026     \textcolor{comment}{! NAMELIST file is not loaded}
1027     \textcolor{comment}{!}
1028     \textcolor{keywordflow}{else}
1029       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'----- "gtool\_historyauto\_nml" is not
       loaded" -----'}, rank\_mpi = msnot\_rank )
1030       name = \textcolor{stringliteral}{''}
1031       file = \textcolor{stringliteral}{''}
1032       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoinquire}{hstnmlinfoinquire}( &
1033         & \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} = \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, &             \textcolor{comment}{! (in)}
1034         & interval\_value = intvalue, &       \textcolor{comment}{! (out) optional}
1035         & interval\_unit = intunit, &         \textcolor{comment}{! (out) optional}
1036         & precision = precision, &           \textcolor{comment}{! (out) optional}
1037         & time\_average = timeaverage, &      \textcolor{comment}{! (out) optional}
1038         & origin\_value   = originvalue, &    \textcolor{comment}{! (out) optional}
1039         & origin\_unit    = originunit, &     \textcolor{comment}{! (out) optional}
1040         & terminus\_value = terminusvalue, &  \textcolor{comment}{! (out) optional}
1041         & terminus\_unit  = terminusunit, &   \textcolor{comment}{! (out) optional}
1042         & slice\_start  = slicestart, &       \textcolor{comment}{! (out) optional}
1043         & slice\_end    = sliceend, &         \textcolor{comment}{! (out) optional}
1044         & slice\_stride = slicestride, &      \textcolor{comment}{! (out) optional}
1045         & space\_average = spaceaverage, &    \textcolor{comment}{! (out) optional}
1046         & newfile\_intvalue = newfileintvalue, & \textcolor{comment}{! (out) optional}
1047         & newfile\_intunit  = newfileintunit, &  \textcolor{comment}{! (out) optional}
1048         & fileprefix = fileprefix )          \textcolor{comment}{! (out) optional}
1049 
1050       \textcolor{comment}{! 印字 ; Print}
1051       \textcolor{comment}{!}
1052       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'Global Settings:'}, rank\_mpi = msnot\_rank )
1053       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  AllOutput       = %b'}, l  = (/ alloutput
         /), rank\_mpi = msnot\_rank )
1054       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  FilePrefix      = %c'}, c1 = trim(
      fileprefix   ), rank\_mpi = msnot\_rank )
1055       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Interval        = %f [%c]'}, &
1056         & d = (/ intvalue /), c1 = trim( intunit ), rank\_mpi = msnot\_rank )
1057       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Precision       = %c'}, c1 = trim(
      precision    ), rank\_mpi = msnot\_rank )
1058       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  TimeAverage     = %b'}, l  = (/ 
      timeaverage   /), rank\_mpi = msnot\_rank )
1059       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Origin          = %f [%c]'}, &
1060         & d = (/ originvalue /), c1 = trim( originunit ), rank\_mpi = msnot\_rank )
1061       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  Terminus        = %f [%c]'}, &
1062         & d = (/ terminusvalue /), c1 = trim( terminusunit ), rank\_mpi = msnot\_rank )
1063       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceStart      = (/ %*d /)'}, &
1064         &                                i = slicestart(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
1065       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceEnd        = (/ %*d /)'}, &
1066         &                                i = sliceend(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
1067       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SliceStride     = (/ %*d /)'}, &
1068             &                                i = slicestride(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
1069       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  SpaceAverage    = (/ %*b /)'}, &
1070         &                                l = spaceaverage(1:\hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1), n = (/ 
      \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}-1 /), rank\_mpi = msnot\_rank )
1071       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{'  NewFileInterval = %d [%c]'}, &
1072         & i = (/ newfileintvalue /), c1 = trim( newfileintunit ), rank\_mpi = msnot\_rank )
1073       \textcolor{keyword}{call }\hyperlink{interfacedc__message_1_1messagenotify}{messagenotify}( \textcolor{stringliteral}{'M'}, \hyperlink{namespacegtool__historyauto__internal_a85ef80f0683224181c1f0741bb07308a}{sub\_sname}, \textcolor{stringliteral}{''} , rank\_mpi = msnot\_rank)
1074 
1075 \textcolor{keywordflow}{    end if}
1076 
1077     \textcolor{comment}{! 終了処理, 例外処理}
1078     \textcolor{comment}{! Termination and Exception handling}
1079     \textcolor{comment}{!}
1080     \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} = .true.
1081 
1082 999 \textcolor{keywordflow}{continue}
1083     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, subname, cause\_c = cause\_c)
1084     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}(subname, \textcolor{stringliteral}{'stat=%d'}, i = (/stat/) )
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{historyautocreate_8f90_abfbef0021a9817ad8bea0a5f12465622_cgraph}
\end{center}
\end{figure}
