\hypertarget{gdncvarinquireia_8f90}{}\section{gtdata/gtdata\+\_\+netcdf/gdncvarinquireia.f90 File Reference}
\label{gdncvarinquireia_8f90}\index{gtdata/gtdata\+\_\+netcdf/gdncvarinquireia.\+f90@{gtdata/gtdata\+\_\+netcdf/gdncvarinquireia.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gdncvarinquireia_8f90_aa7172be8c2e5cb4405baac2331566c75}{gdncvarinquireia} (var, dimlen)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdncvarinquireia_8f90_aa7172be8c2e5cb4405baac2331566c75}\label{gdncvarinquireia_8f90_aa7172be8c2e5cb4405baac2331566c75}} 
\index{gdncvarinquireia.\+f90@{gdncvarinquireia.\+f90}!gdncvarinquireia@{gdncvarinquireia}}
\index{gdncvarinquireia@{gdncvarinquireia}!gdncvarinquireia.\+f90@{gdncvarinquireia.\+f90}}
\subsubsection{\texorpdfstring{gdncvarinquireia()}{gdncvarinquireia()}}
{\footnotesize\ttfamily subroutine gdncvarinquireia (\begin{DoxyParamCaption}\item[{type(gd\+\_\+nc\+\_\+variable), intent(in)}]{var,  }\item[{integer, dimension(\+:), intent(out)}]{dimlen }\end{DoxyParamCaption})}



Definition at line 5 of file gdncvarinquireia.\+f90.



References gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+lookup().


\begin{DoxyCode}
5   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__types}{gtdata\_netcdf\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}, 
      \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}
6   \textcolor{comment}{!    use gtdata\_netcdf\_internal, only: GD\_NC\_VARIABLE\_ENTRY}
7   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__internal}{gtdata\_netcdf\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}
8   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_noerr, nf90\_inquire\_dimension
9   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: var
10   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: dimlen(:)
11   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}):: ent
12   \textcolor{keywordtype}{integer}:: stat, i
13 
14   dimlen(:) = -1
15 
16   stat = \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(var, ent)
17   \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{return}
18 
19   \textcolor{keywordflow}{if} (ent%varid > 0) \textcolor{keywordflow}{then}
20     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{associated}(ent%dimids)) \textcolor{keywordflow}{return}
21     \textcolor{keywordflow}{do}, i = 1, \hyperlink{interfacedc__date__generic_1_1min}{min}(\textcolor{keyword}{size}(dimlen), \textcolor{keyword}{size}(ent%dimids))
22       stat = nf90\_inquire\_dimension(ent%fileid, ent%dimids(i), len = dimlen(i))
23       \textcolor{keywordflow}{if} (stat /= nf90\_noerr ) \textcolor{keywordflow}{exit}
24 \textcolor{keywordflow}{    enddo}
25   \textcolor{keywordflow}{else}
26     stat = nf90\_inquire\_dimension(ent%fileid, ent%dimid, len = dimlen(1))
27     \textcolor{keywordflow}{if} (stat /= nf90\_noerr ) dimlen(1) = -1
28 \textcolor{keywordflow}{  endif}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=316pt]{gdncvarinquireia_8f90_aa7172be8c2e5cb4405baac2331566c75_cgraph}
\end{center}
\end{figure}
