\hypertarget{gtdata__netcdf__internal_8f90}{}\section{gtdata/gtdata\+\_\+netcdf/gtdata\+\_\+netcdf\+\_\+internal.f90 File Reference}
\label{gtdata__netcdf__internal_8f90}\index{gtdata/gtdata\+\_\+netcdf/gtdata\+\_\+netcdf\+\_\+internal.\+f90@{gtdata/gtdata\+\_\+netcdf/gtdata\+\_\+netcdf\+\_\+internal.\+f90}}
\subsection*{Modules}
\begin{DoxyCompactItemize}
\item 
module \hyperlink{namespacegtdata__netcdf__internal}{gtdata\+\_\+netcdf\+\_\+internal}
\end{DoxyCompactItemize}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
integer function, public \hyperlink{namespacegtdata__netcdf__internal_ae0fc3a443b08733d689ce0aad981eb71}{gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+add} (var, entry)
\item 
subroutine \hyperlink{gtdata__netcdf__internal_8f90_a1b8c5a6f8d134f831f45fc164b7d2931}{internal\+\_\+build\+\_\+dimids} (ent, stat)
\item 
integer function, public \hyperlink{namespacegtdata__netcdf__internal_a193eca614c0c9e2c4ef1e3ae6bb16f38}{gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+delete} (var)
\item 
integer function, public \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+lookup} (var, entry)
\item 
integer function, public \hyperlink{namespacegtdata__netcdf__internal_ad13e0de15b03a99e92efa41868e52549}{gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+set\+\_\+attrid} (var, attrid)
\end{DoxyCompactItemize}
\subsection*{Variables}
\begin{DoxyCompactItemize}
\item 
type(gd\+\_\+nc\+\_\+variable\+\_\+entry), dimension(\+:), allocatable, target, save \hyperlink{namespacegtdata__netcdf__internal_a9607cde6f45d8485bf7efeebd404f415}{gtdata\+\_\+netcdf\+\_\+internal\+::gdnctab}
\item 
integer, parameter \hyperlink{namespacegtdata__netcdf__internal_a4e5df4c961fad5d89860e5269f6b371f}{gtdata\+\_\+netcdf\+\_\+internal\+::gdnctab\+\_\+init\+\_\+size} = 16
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gtdata__netcdf__internal_8f90_a1b8c5a6f8d134f831f45fc164b7d2931}\label{gtdata__netcdf__internal_8f90_a1b8c5a6f8d134f831f45fc164b7d2931}} 
\index{gtdata\+\_\+netcdf\+\_\+internal.\+f90@{gtdata\+\_\+netcdf\+\_\+internal.\+f90}!internal\+\_\+build\+\_\+dimids@{internal\+\_\+build\+\_\+dimids}}
\index{internal\+\_\+build\+\_\+dimids@{internal\+\_\+build\+\_\+dimids}!gtdata\+\_\+netcdf\+\_\+internal.\+f90@{gtdata\+\_\+netcdf\+\_\+internal.\+f90}}
\subsubsection{\texorpdfstring{internal\+\_\+build\+\_\+dimids()}{internal\_build\_dimids()}}
{\footnotesize\ttfamily subroutine vtable\+\_\+add\+::internal\+\_\+build\+\_\+dimids (\begin{DoxyParamCaption}\item[{type(gd\+\_\+nc\+\_\+variable\+\_\+entry), intent(inout)}]{ent,  }\item[{integer, intent(out)}]{stat }\end{DoxyParamCaption})\hspace{0.3cm}{\ttfamily [private]}}



Definition at line 114 of file gtdata\+\_\+netcdf\+\_\+internal.\+f90.



Referenced by gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+add().


\begin{DoxyCode}
114 \textcolor{comment}{!!      use netcdf, only: &}
115 \textcolor{comment}{!!        & NF90\_NOERR, NF90\_ENOMEM, NF90\_INQUIRE\_VARIABLE}
116       \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}), \textcolor{keywordtype}{intent(inout)}:: ent
117       \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: stat
118       \textcolor{keywordtype}{integer}:: ndims
119       \textcolor{keywordflow}{if} (ent%varid > 0) \textcolor{keywordflow}{then}
120         stat = nf90\_inquire\_variable(ent%fileid, ent%varid, ndims = ndims)
121         \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{return}
122         \textcolor{keywordflow}{if} ((ent%dimid > 0) .and. (ndims /= 1)) \textcolor{keywordflow}{goto} 100
123         \textcolor{keywordflow}{if} (ndims == 0) \textcolor{keywordflow}{then}
124           \textcolor{keyword}{nullify}(ent%dimids)
125           stat = nf90\_noerr
126           \textcolor{keywordflow}{return}
127 \textcolor{keywordflow}{        endif}
128         \textcolor{keyword}{allocate}(ent%dimids(ndims), stat=stat)
129         \textcolor{keywordflow}{if} (stat /= 0) \textcolor{keywordflow}{then}
130           stat = nf90\_enomem
131           \textcolor{keywordflow}{return}
132 \textcolor{keywordflow}{        endif}
133         stat = nf90\_inquire\_variable(ent%fileid, ent%varid, dimids = ent%dimids)
134         \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{return}
135         \textcolor{keywordflow}{if} ((ent%dimid > 0) .and. (ent%dimids(1) /= ent%dimid)) \textcolor{keywordflow}{then}
136           \textcolor{keyword}{deallocate}(ent%dimids)
137           \textcolor{keywordflow}{goto} 100
138 \textcolor{keywordflow}{        endif}
139       \textcolor{keywordflow}{else}
140         \textcolor{keyword}{allocate}(ent%dimids(1), stat=stat)
141         \textcolor{keywordflow}{if} (stat /= 0) \textcolor{keywordflow}{then}
142           stat = nf90\_enomem
143           \textcolor{keywordflow}{return}
144 \textcolor{keywordflow}{        endif}
145         ent%dimids(1) = ent%dimid
146 \textcolor{keywordflow}{      endif}
147       stat = nf90\_noerr
148       \textcolor{keywordflow}{return}
149 
150 100   \textcolor{keywordflow}{continue}
151       ent%varid = 0
152       \textcolor{keyword}{allocate}(ent%dimids(1))
153       ent%dimids(1) = ent%dimid
\end{DoxyCode}
Here is the caller graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gtdata__netcdf__internal_8f90_a1b8c5a6f8d134f831f45fc164b7d2931_icgraph}
\end{center}
\end{figure}
