\hypertarget{historyautoclose_8f90}{}\section{gtool/gtool\+\_\+historyauto/historyautoclose.f90 File Reference}
\label{historyautoclose_8f90}\index{gtool/gtool\+\_\+historyauto/historyautoclose.\+f90@{gtool/gtool\+\_\+historyauto/historyautoclose.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{historyautoclose_8f90_afb078b456cf8bf528f70aa7343a5730f}{historyautoclose1}
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{historyautoclose_8f90_afb078b456cf8bf528f70aa7343a5730f}\label{historyautoclose_8f90_afb078b456cf8bf528f70aa7343a5730f}} 
\index{historyautoclose.\+f90@{historyautoclose.\+f90}!historyautoclose1@{historyautoclose1}}
\index{historyautoclose1@{historyautoclose1}!historyautoclose.\+f90@{historyautoclose.\+f90}}
\subsubsection{\texorpdfstring{historyautoclose1()}{historyautoclose1()}}
{\footnotesize\ttfamily subroutine historyautoclose1 (\begin{DoxyParamCaption}{ }\end{DoxyParamCaption})}



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



References gtool\+\_\+historyauto\+\_\+internal\+::all\+\_\+output\+\_\+save, dc\+\_\+trace\+::beginsub(), gtool\+\_\+historyauto\+\_\+internal\+::checked\+\_\+tstep\+\_\+varnum, gtool\+\_\+historyauto\+\_\+internal\+::checked\+\_\+tstepnum, gtool\+\_\+historyauto\+\_\+internal\+::close\+\_\+timing\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::create\+\_\+timing\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::data\+\_\+axes, gtool\+\_\+historyauto\+\_\+internal\+::data\+\_\+weights, dc\+\_\+error\+::dc\+\_\+enotinit, dc\+\_\+error\+::dc\+\_\+noerr, dc\+\_\+types\+::dp, dc\+\_\+trace\+::endsub(), gtool\+\_\+historyauto\+\_\+internal\+::flag\+\_\+allvarfixed, gtool\+\_\+historyauto\+\_\+internal\+::gthst\+\_\+axes, gtool\+\_\+historyauto\+\_\+internal\+::gthst\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::gthst\+\_\+weights, gtool\+\_\+historyauto\+\_\+internal\+::gthstnml, gtool\+\_\+historyauto\+\_\+internal\+::histaddvar\+\_\+vars, historyaxisclear(), historyclose(), gtool\+\_\+historyauto\+\_\+internal\+::initialized, gtool\+\_\+historyauto\+\_\+internal\+::interval\+\_\+time\+\_\+vars, dc\+\_\+string\+::joinchar(), gtool\+\_\+historyauto\+\_\+internal\+::newfile\+\_\+createtime\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::newfile\+\_\+inttime\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::numdims, gtool\+\_\+historyauto\+\_\+internal\+::numvars, gtool\+\_\+historyauto\+\_\+internal\+::numwgts, gtool\+\_\+historyauto\+\_\+internal\+::origin\+\_\+time\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::output\+\_\+timing\+\_\+avr\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::output\+\_\+timing\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::output\+\_\+valid\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::prev\+\_\+outtime\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::renew\+\_\+timing\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::save\+\_\+mpi\+\_\+gather, gtool\+\_\+historyauto\+\_\+internal\+::save\+\_\+mpi\+\_\+split, gtool\+\_\+historyauto\+\_\+internal\+::saved\+\_\+tstep, gtool\+\_\+historyauto\+\_\+internal\+::slice\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::space\+\_\+avr\+\_\+vars, dc\+\_\+error\+::storeerror(), dc\+\_\+types\+::string, gtool\+\_\+historyauto\+\_\+internal\+::tavr\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::terminus\+\_\+time\+\_\+vars, gtool\+\_\+historyauto\+\_\+internal\+::time\+\_\+unit\+\_\+bycreate, gtool\+\_\+historyauto\+\_\+internal\+::time\+\_\+unit\+\_\+suffix, dc\+\_\+types\+::token, gtool\+\_\+historyauto\+\_\+internal\+::varname\+\_\+vars, and gtool\+\_\+historyauto\+\_\+internal\+::weight\+\_\+vars.


\begin{DoxyCode}
28     \textcolor{comment}{!}
29     \textcolor{comment}{! HistoryAutoCreate で始まったデータ出力の終了処理を行います. }
30     \textcolor{comment}{! プログラムを終了する前に必ずこのサブルーチンを呼んでください. }
31     \textcolor{comment}{! }
32     \textcolor{comment}{! Terminates data output with "HistoryAutoCreate". }
33     \textcolor{comment}{! Call this subroutine certainly before a progrem is finished. }
34     \textcolor{comment}{! }
35     \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}, &
36       & \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}, \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}, \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}, 
      \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}, \hyperlink{namespacegtool__historyauto__internal_ab4a4d914908bc4d226c6e00f22ab681a}{data\_weights}, &
37       & \hyperlink{namespacegtool__historyauto__internal_af2a97d3aefbba8947148f51c961f147c}{numvars}, \hyperlink{namespacegtool__historyauto__internal_a6f4962bc3ba6447d7cc53c1b88c9bd4e}{gthst\_vars}, \hyperlink{namespacegtool__historyauto__internal_a4aa17640fe852d239cd4650e39dd4e1e}{slice\_vars}, \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}, 
      \hyperlink{namespacegtool__historyauto__internal_a310d8344095b79e8492908ddcebde8fd}{varname\_vars}, &
38       & \hyperlink{namespacegtool__historyauto__internal_a4aa17640fe852d239cd4650e39dd4e1e}{slice\_vars}, \hyperlink{namespacegtool__historyauto__internal_a34b79875d0a188614f436e0660288b56}{space\_avr\_vars}, &
39       & \hyperlink{namespacegtool__historyauto__internal_af39402e77409e39aa414ee50daa50e12}{output\_valid\_vars}, \hyperlink{namespacegtool__historyauto__internal_a09c7f8df28f4a08ff4ccc13ef1dc09d5}{create\_timing\_vars}, &
40       & \hyperlink{namespacegtool__historyauto__internal_a07930b5a02bd90f8cfacd7eb854d16ed}{close\_timing\_vars}, \hyperlink{namespacegtool__historyauto__internal_a63dcfda2a12d908ea7c299e41b4ae889}{renew\_timing\_vars}, &
41       & \hyperlink{namespacegtool__historyauto__internal_a949c34899075f1b5f8125cc2b72f81eb}{output\_timing\_vars}, \hyperlink{namespacegtool__historyauto__internal_aa6b7a1ee5a20f19ed0613b71073fdf6d}{output\_timing\_avr\_vars}, 
      \hyperlink{namespacegtool__historyauto__internal_aa25f721e1d915ff874fdc0262862594c}{tavr\_vars}, &
42       & \hyperlink{namespacegtool__historyauto__internal_a632ce982118e69400ac90698adace1e6}{interval\_time\_vars}, \hyperlink{namespacegtool__historyauto__internal_aa9911354c37b527aa9926ea2095df0f0}{prev\_outtime\_vars}, &
43       & \hyperlink{namespacegtool__historyauto__internal_abf3e748f6c50b54af3d75deb049c4b3e}{origin\_time\_vars}, \hyperlink{namespacegtool__historyauto__internal_a9fe6d83d81115f85455814c9b04c93fa}{terminus\_time\_vars}, &
44       & \hyperlink{namespacegtool__historyauto__internal_af82718f8d0b65531180dfa0c91b15b0f}{histaddvar\_vars}, \hyperlink{namespacegtool__historyauto__internal_a3387552625cfe65b04a0e419f94a79d7}{newfile\_inttime\_vars}, 
      \hyperlink{namespacegtool__historyauto__internal_a97a247a94cc02cdd16d8616c2c0b54ab}{newfile\_createtime\_vars}, &
45       & \hyperlink{namespacegtool__historyauto__internal_a9c4a16b5306bfac5769f0b3bf55e920e}{checked\_tstepnum}, \hyperlink{namespacegtool__historyauto__internal_a3abd20dc34035acb6a63f0a0bb52dd15}{checked\_tstep\_varnum}, 
      \hyperlink{namespacegtool__historyauto__internal_a3e396aa489523555a54c8e0c75440ae0}{saved\_tstep}, &
46       & \hyperlink{namespacegtool__historyauto__internal_aa087ebecb90b20901204f5497d24661a}{save\_mpi\_split}, \hyperlink{namespacegtool__historyauto__internal_a6aa46993d72f521af70cf3977df24bf1}{save\_mpi\_gather}, 
      \hyperlink{namespacegtool__historyauto__internal_ae891f791f06836fb1d42b7185e6d3afa}{flag\_allvarfixed}, \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save}, &
47       & \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate}, \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix}
48     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history__nmlinfo__generic}{gtool\_history\_nmlinfo\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoclose}{hstnmlinfoclose}, \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfogetnames}{hstnmlinfogetnames}, &
49       & \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoassocgthist}{hstnmlinfoassocgthist}, \hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoputline}{hstnmlinfoputline}
50     \textcolor{keywordtype}{use }\hyperlink{namespacegtool__history}{gtool\_history}\textcolor{keywordtype}{, only}: \hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}, \hyperlink{historyclose_8f90_a05bd27232ee951cef8bb19bd8a6f1a05}{historyclose}, 
      \hyperlink{interfacegtool__history__generic_1_1historyinitialized}{historyinitialized}, &
51       & \hyperlink{historyaxisclear_8f90_a55e33714180a8d559f973c49cddb9f4a}{historyaxisclear}, \hyperlink{interfacegtool__history__generic_1_1historyvarinfoclear}{historyvarinfoclear}
52     \textcolor{keywordtype}{use }\hyperlink{namespacedc__trace}{dc\_trace}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}, \hyperlink{namespacedc__trace_ae44de97565a3bdd685789c7748b37e37}{endsub}
53     \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}
54     \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_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
55     \textcolor{keywordtype}{use }\hyperlink{namespacedc__date}{dc\_date}\textcolor{keywordtype}{, only}: \hyperlink{interfacedc__date__generic_1_1dcdifftimecreate}{dcdifftimecreate}
56     \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}
57     \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}
58     \textcolor{keywordtype}{implicit none}
59 
60     \textcolor{comment}{! ヒストリファイルへのデータ出力設定}
61     \textcolor{comment}{! Configure the settings for history data output}
62     \textcolor{comment}{!}
63     \textcolor{keywordtype}{character(STRING)}:: name = \textcolor{stringliteral}{''}
64                               \textcolor{comment}{! 変数名. Variable identifier}
65     \textcolor{keywordtype}{character(TOKEN)}, \textcolor{keywordtype}{pointer}:: varnames\_array(:) =>null()
66                               \textcolor{comment}{! 変数名リスト配列. }
67                               \textcolor{comment}{! List of variables (array) }
68     \textcolor{keywordtype}{integer}:: i, vnmax
69     \textcolor{keywordtype}{type}(\hyperlink{structgtool__history__types_1_1gt__history}{gt\_history}), \textcolor{keywordtype}{pointer}:: gthist =>null()
70                               \textcolor{comment}{! gtool\_history モジュール用構造体. }
71                               \textcolor{comment}{! Derived type for "gtool\_history" module}
72 
73     \textcolor{comment}{! 作業変数}
74     \textcolor{comment}{! Work variables}
75     \textcolor{comment}{!}
76     \textcolor{keywordtype}{integer}:: stat
77     \textcolor{keywordtype}{character(STRING)}:: cause\_c
78     \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{'HistoryAutoClose1'}
79   \textcolor{keywordflow}{continue}
80     \textcolor{keyword}{call }\hyperlink{namespacedc__trace_aca1efe8bae50b85f74980a8c4d704dd8}{beginsub}( subname )
81     stat = \hyperlink{namespacedc__error_a64841a3c9e3ef7d5ddb175e5770f7dfe}{dc\_noerr}
82     cause\_c = \textcolor{stringliteral}{''}
83 
84     \textcolor{comment}{! 初期設定チェック}
85     \textcolor{comment}{! Check initialization}
86     \textcolor{comment}{!}
87     \textcolor{keywordflow}{if} ( .not. \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} ) \textcolor{keywordflow}{then}
88       stat = \hyperlink{namespacedc__error_a31f1081213c338a4f6a6e5acdfe4a8a8}{dc\_enotinit}
89       cause\_c = \textcolor{stringliteral}{'gtool\_historyauto'}
90       \textcolor{keywordflow}{goto} 999
91 \textcolor{keywordflow}{    end if}
92 
93     \textcolor{comment}{! ヒストリファイルへのデータ出力の終了処理}
94     \textcolor{comment}{! Terminate the settings for history data output}
95     \textcolor{comment}{!}
96     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfogetnames}{hstnmlinfogetnames}( \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, & \textcolor{comment}{! (in)}
97       & varnames\_array )                 \textcolor{comment}{! (out)}
98     vnmax = \textcolor{keyword}{size}( varnames\_array )
99 
100     \textcolor{keywordflow}{do} i = 1, vnmax
101       name = varnames\_array(i)
102       \textcolor{keywordflow}{if} ( trim( name ) == \textcolor{stringliteral}{''} ) \textcolor{keywordflow}{exit}
103       \textcolor{keyword}{nullify}( gthist )
104       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoassocgthist}{hstnmlinfoassocgthist}( & 
105         & \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} = \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml}, & \textcolor{comment}{! (in)}
106         & name = name, &         \textcolor{comment}{! (in)}
107         & history = gthist )     \textcolor{comment}{! (out)}
108       \textcolor{keywordflow}{if} ( \hyperlink{interfacegtool__history__generic_1_1historyinitialized}{historyinitialized}( gthist ) ) \textcolor{keywordflow}{then}
109         \textcolor{keyword}{call }\hyperlink{historyclose_8f90_a05bd27232ee951cef8bb19bd8a6f1a05}{historyclose}( history = gthist ) \textcolor{comment}{! (inout)}
110 \textcolor{keywordflow}{      end if}
111 \textcolor{keywordflow}{    end do}
112 
113     \textcolor{comment}{! ヒストリファイルへのデータ出力設定の割付解除}
114     \textcolor{comment}{! Deallocate the settings for history data output}
115     \textcolor{comment}{!}
116     \textcolor{keyword}{call }\hyperlink{interfacegtool__history__nmlinfo__generic_1_1hstnmlinfoclose}{hstnmlinfoclose}( \hyperlink{namespacegtool__historyauto__internal_a08a505d0576b7a6390e6f7a715ccc2b4}{gthstnml} ) \textcolor{comment}{! (inout)}
117 
118     \textcolor{comment}{! 座標軸情報のクリア}
119     \textcolor{comment}{! Create axes information}
120     \textcolor{comment}{!}
121     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims}
122       \textcolor{keyword}{call }\hyperlink{historyaxisclear_8f90_a55e33714180a8d559f973c49cddb9f4a}{historyaxisclear}( \hyperlink{namespacegtool__historyauto__internal_ada7a49a17970ad9d96e320bb53420325}{gthst\_axes}(i) )
123       \textcolor{keyword}{deallocate}( \hyperlink{namespacegtool__historyauto__internal_ae2e0770f75603274b70be4ef623fb6b5}{data\_axes}(i) % a\_axis )
124 \textcolor{keywordflow}{    end do}
125     \hyperlink{namespacegtool__historyauto__internal_a01aef0b641b5a9d9a74b18908aa47edb}{numdims} = 0
126 
127     \textcolor{comment}{! 座標重み情報のクリア}
128     \textcolor{comment}{! Create axes weights information}
129     \textcolor{comment}{!}
130     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts}
131       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoclear}{historyvarinfoclear}( \hyperlink{namespacegtool__historyauto__internal_ab912d1857aa08f0ed0328bd6cd19270a}{gthst\_weights}(i) )
132       \textcolor{keyword}{deallocate}( \hyperlink{namespacegtool__historyauto__internal_ab4a4d914908bc4d226c6e00f22ab681a}{data\_weights}(i) % a\_axis )
133 \textcolor{keywordflow}{    end do}
134     \hyperlink{namespacegtool__historyauto__internal_ac0846e320d7181ab21f8ef8d482a6a26}{numwgts} = 0
135 
136     \textcolor{comment}{! 変数情報のクリア}
137     \textcolor{comment}{! Create variables information}
138     \textcolor{comment}{!}
139     \textcolor{keywordflow}{do} i = 1, \hyperlink{namespacegtool__historyauto__internal_af2a97d3aefbba8947148f51c961f147c}{numvars}
140       \textcolor{keyword}{call }\hyperlink{interfacegtool__history__generic_1_1historyvarinfoclear}{historyvarinfoclear}( \hyperlink{namespacegtool__historyauto__internal_a6f4962bc3ba6447d7cc53c1b88c9bd4e}{gthst\_vars}(i) )
141 
142       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a4aa17640fe852d239cd4650e39dd4e1e}{slice\_vars}(i) % st ) ) \textcolor{keyword}{deallocate}( \hyperlink{namespacegtool__historyauto__internal_a4aa17640fe852d239cd4650e39dd4e1e}{slice\_vars}(i) % st )
143       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a4aa17640fe852d239cd4650e39dd4e1e}{slice\_vars}(i) % ed ) ) \textcolor{keyword}{deallocate}( \hyperlink{namespacegtool__historyauto__internal_a4aa17640fe852d239cd4650e39dd4e1e}{slice\_vars}(i) % ed )
144       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a4aa17640fe852d239cd4650e39dd4e1e}{slice\_vars}(i) % sd ) ) \textcolor{keyword}{deallocate}( \hyperlink{namespacegtool__historyauto__internal_a4aa17640fe852d239cd4650e39dd4e1e}{slice\_vars}(i) % sd )
145 
146                           \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt1 ) ) \textcolor{keyword}{deallocate}( 
      \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt1 )
147                     
148       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt2 ) ) \textcolor{keyword}{deallocate}( 
      \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt2 )
149                     
150       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt3 ) ) \textcolor{keyword}{deallocate}( 
      \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt3 )
151                     
152       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt4 ) ) \textcolor{keyword}{deallocate}( 
      \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt4 )
153                     
154       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt5 ) ) \textcolor{keyword}{deallocate}( 
      \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt5 )
155                     
156       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt6 ) ) \textcolor{keyword}{deallocate}( 
      \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt6 )
157                     
158       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt7 ) ) \textcolor{keyword}{deallocate}( 
      \hyperlink{namespacegtool__historyauto__internal_a06ec540d19db7efce796bc6938f81896}{weight\_vars}(i) % wgt7 )
159                     
160 
161       \textcolor{keywordflow}{if} ( \textcolor{keyword}{associated}( \hyperlink{namespacegtool__historyauto__internal_a34b79875d0a188614f436e0660288b56}{space\_avr\_vars}(i) % avr ) ) \textcolor{keyword}{deallocate}( 
      \hyperlink{namespacegtool__historyauto__internal_a34b79875d0a188614f436e0660288b56}{space\_avr\_vars}(i) % avr )
162 
163       \hyperlink{namespacegtool__historyauto__internal_a310d8344095b79e8492908ddcebde8fd}{varname\_vars}(i)             = \textcolor{stringliteral}{''}
164       \hyperlink{namespacegtool__historyauto__internal_af39402e77409e39aa414ee50daa50e12}{output\_valid\_vars}(i)        = .false.
165       \hyperlink{namespacegtool__historyauto__internal_a09c7f8df28f4a08ff4ccc13ef1dc09d5}{create\_timing\_vars}(i,:)     = .false.
166       \hyperlink{namespacegtool__historyauto__internal_a07930b5a02bd90f8cfacd7eb854d16ed}{close\_timing\_vars}(i,:)      = .false.
167       \hyperlink{namespacegtool__historyauto__internal_a63dcfda2a12d908ea7c299e41b4ae889}{renew\_timing\_vars}(i,:)      = .false.
168       \hyperlink{namespacegtool__historyauto__internal_a949c34899075f1b5f8125cc2b72f81eb}{output\_timing\_vars}(i,:)     = .false.
169       \hyperlink{namespacegtool__historyauto__internal_aa6b7a1ee5a20f19ed0613b71073fdf6d}{output\_timing\_avr\_vars}(i,:) = .false.
170       \hyperlink{namespacegtool__historyauto__internal_aa25f721e1d915ff874fdc0262862594c}{tavr\_vars}(i)                = .false.
171       \hyperlink{namespacegtool__historyauto__internal_a632ce982118e69400ac90698adace1e6}{interval\_time\_vars}(i)       = 0.0\_dp
172       \hyperlink{namespacegtool__historyauto__internal_aa9911354c37b527aa9926ea2095df0f0}{prev\_outtime\_vars}(i)        = 0.0\_dp
173       \hyperlink{namespacegtool__historyauto__internal_abf3e748f6c50b54af3d75deb049c4b3e}{origin\_time\_vars}(i)         = 0.0\_dp
174       \hyperlink{namespacegtool__historyauto__internal_a9fe6d83d81115f85455814c9b04c93fa}{terminus\_time\_vars}(i)       = -1.0\_dp
175       \hyperlink{namespacegtool__historyauto__internal_af82718f8d0b65531180dfa0c91b15b0f}{histaddvar\_vars}(i)          = .false.
176       \hyperlink{namespacegtool__historyauto__internal_a3387552625cfe65b04a0e419f94a79d7}{newfile\_inttime\_vars}(i)     = -1.0\_dp
177       \hyperlink{namespacegtool__historyauto__internal_a97a247a94cc02cdd16d8616c2c0b54ab}{newfile\_createtime\_vars}(i)  = 0.0\_dp
178 
179 \textcolor{comment}{!!$      ! dc\_date 使用版}
180 \textcolor{comment}{!!$}
181 \textcolor{comment}{!!$      call DCDiffTimeCreate( interval\_time\_vars(i), &   ! (out)}
182 \textcolor{comment}{!!$        & sec = 0.0\_DP )                                ! (in)}
183 \textcolor{comment}{!!$      call DCDiffTimeCreate( prev\_outtime\_vars(i), &    ! (out)}
184 \textcolor{comment}{!!$        & sec = 0.0\_DP )                                ! (in)}
185 \textcolor{comment}{!!$      call DCDiffTimeCreate( origin\_time\_vars(i), &   ! (out)}
186 \textcolor{comment}{!!$        & sec = 0.0\_DP )                              ! (in)}
187 \textcolor{comment}{!!$      call DCDiffTimeCreate( terminus\_time\_vars(i), & ! (out)}
188 \textcolor{comment}{!!$        & sec = -1.0\_DP )                             ! (in)}
189 \textcolor{comment}{!!$      histaddvar\_vars(i)      = .false.}
190 \textcolor{comment}{!!$      call DCDiffTimeCreate( newfile\_inttime\_vars(i), &    ! (out)}
191 \textcolor{comment}{!!$        & sec = -1.0\_DP )                                  ! (in)}
192 \textcolor{comment}{!!$      call DCDiffTimeCreate( newfile\_createtime\_vars(i), & ! (out)}
193 \textcolor{comment}{!!$        & sec = 0.0\_DP )                                   ! (in)}
194 
195 \textcolor{keywordflow}{    end do}
196     \hyperlink{namespacegtool__historyauto__internal_af2a97d3aefbba8947148f51c961f147c}{numvars} = 0
197 
198     \textcolor{comment}{! 時間ステップに関する情報のクリア}
199     \textcolor{comment}{! Clear information about time steps}
200     \textcolor{comment}{!}
201     \hyperlink{namespacegtool__historyauto__internal_a9c4a16b5306bfac5769f0b3bf55e920e}{checked\_tstepnum} = 0
202     \hyperlink{namespacegtool__historyauto__internal_a3abd20dc34035acb6a63f0a0bb52dd15}{checked\_tstep\_varnum} = 0
203     \hyperlink{namespacegtool__historyauto__internal_a3e396aa489523555a54c8e0c75440ae0}{saved\_tstep} = 1
204 
205     \textcolor{comment}{! MPI に関する情報のクリア}
206     \textcolor{comment}{! Clear information about MPI}
207     \textcolor{comment}{!}
208     \hyperlink{namespacegtool__historyauto__internal_aa087ebecb90b20901204f5497d24661a}{save\_mpi\_split}  = .false.
209     \hyperlink{namespacegtool__historyauto__internal_a6aa46993d72f521af70cf3977df24bf1}{save\_mpi\_gather} = .false.
210 
211     \textcolor{comment}{! 終了処理, 例外処理 }
212     \textcolor{comment}{! Termination and Exception handling}
213     \textcolor{comment}{!}
214     \hyperlink{interfacegtool__history__generic_1_1initialized}{initialized} = .false.
215     \hyperlink{namespacegtool__historyauto__internal_ae891f791f06836fb1d42b7185e6d3afa}{flag\_allvarfixed} = .false.
216     \hyperlink{namespacegtool__historyauto__internal_af834195df8f6f700789260981e4609cd}{all\_output\_save} = .false.
217     \hyperlink{namespacegtool__historyauto__internal_a6d2a47bd91b9ef5d9e721d386de12629}{time\_unit\_bycreate} = \textcolor{stringliteral}{''}
218     \hyperlink{namespacegtool__historyauto__internal_ad2512828e2c1794ae7cf143781d8c9ed}{time\_unit\_suffix} = \textcolor{stringliteral}{''}
219 
220 999 \textcolor{keywordflow}{continue}
221     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}( stat, subname, cause\_c = cause\_c )
222     \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]{historyautoclose_8f90_afb078b456cf8bf528f70aa7343a5730f_cgraph}
\end{center}
\end{figure}
