\hypertarget{gdncvarclose_8f90}{}\section{gtdata/gtdata\+\_\+netcdf/gdncvarclose.f90 File Reference}
\label{gdncvarclose_8f90}\index{gtdata/gtdata\+\_\+netcdf/gdncvarclose.\+f90@{gtdata/gtdata\+\_\+netcdf/gdncvarclose.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gdncvarclose_8f90_a4796af9243aa9613839c70a85fdeb509}{gdncvarclose} (var, err)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdncvarclose_8f90_a4796af9243aa9613839c70a85fdeb509}\label{gdncvarclose_8f90_a4796af9243aa9613839c70a85fdeb509}} 
\index{gdncvarclose.\+f90@{gdncvarclose.\+f90}!gdncvarclose@{gdncvarclose}}
\index{gdncvarclose@{gdncvarclose}!gdncvarclose.\+f90@{gdncvarclose.\+f90}}
\subsubsection{\texorpdfstring{gdncvarclose()}{gdncvarclose()}}
{\footnotesize\ttfamily subroutine gdncvarclose (\begin{DoxyParamCaption}\item[{type(gd\+\_\+nc\+\_\+variable), intent(in)}]{var,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 4 of file gdncvarclose.\+f90.



References gdncfileclose(), gdncfilesync(), dc\+\_\+error\+::storeerror(), and gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+delete().


\begin{DoxyCode}
4   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}
5   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__file__generic}{gtdata\_netcdf\_file\_generic}\textcolor{keywordtype}{, only}: \hyperlink{gdncfileclose_8f90_a66baca675a6538aeb500f29c3e36f905}{gdncfileclose}, 
      \hyperlink{gdncfilesync_8f90_af8d39b1bad7faf9dc6812a17f4270d36}{gdncfilesync}
6   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__internal}{gtdata\_netcdf\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__netcdf__internal_a193eca614c0c9e2c4ef1e3ae6bb16f38}{vtable\_delete}
7   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}
8   \textcolor{keywordtype}{implicit none}
9   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: var
10   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
11   \textcolor{keywordtype}{integer}:: fileid
12 \textcolor{keywordflow}{continue}
13   fileid = \hyperlink{namespacegtdata__netcdf__internal_a193eca614c0c9e2c4ef1e3ae6bb16f38}{vtable\_delete}(var)
14   \textcolor{keywordflow}{if} (fileid < 0) \textcolor{keywordflow}{then}
15     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(fileid, \textcolor{stringliteral}{'GDNcVarClose'}, err)
16     \textcolor{keywordflow}{return}
17 \textcolor{keywordflow}{  endif}
18   \textcolor{keyword}{call }\hyperlink{gdncfilesync_8f90_af8d39b1bad7faf9dc6812a17f4270d36}{gdncfilesync}(fileid)
19   \textcolor{keyword}{call }\hyperlink{gdncfileclose_8f90_a66baca675a6538aeb500f29c3e36f905}{gdncfileclose}(fileid, err)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdncvarclose_8f90_a4796af9243aa9613839c70a85fdeb509_cgraph}
\end{center}
\end{figure}
