\hypertarget{gdncfiledefinemode_8f90}{}\section{gtdata/gtdata\+\_\+netcdf/gtdata\+\_\+netcdf\+\_\+file/gdncfiledefinemode.f90 File Reference}
\label{gdncfiledefinemode_8f90}\index{gtdata/gtdata\+\_\+netcdf/gtdata\+\_\+netcdf\+\_\+file/gdncfiledefinemode.\+f90@{gtdata/gtdata\+\_\+netcdf/gtdata\+\_\+netcdf\+\_\+file/gdncfiledefinemode.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
integer function \hyperlink{gdncfiledefinemode_8f90_afbd7b3565fcb4698e5f7eadf62fb4b35}{gdncfiledefinemode} (fileid)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdncfiledefinemode_8f90_afbd7b3565fcb4698e5f7eadf62fb4b35}\label{gdncfiledefinemode_8f90_afbd7b3565fcb4698e5f7eadf62fb4b35}} 
\index{gdncfiledefinemode.\+f90@{gdncfiledefinemode.\+f90}!gdncfiledefinemode@{gdncfiledefinemode}}
\index{gdncfiledefinemode@{gdncfiledefinemode}!gdncfiledefinemode.\+f90@{gdncfiledefinemode.\+f90}}
\subsubsection{\texorpdfstring{gdncfiledefinemode()}{gdncfiledefinemode()}}
{\footnotesize\ttfamily integer function gdncfiledefinemode (\begin{DoxyParamCaption}\item[{integer, intent(in)}]{fileid }\end{DoxyParamCaption})}



Definition at line 2 of file gdncfiledefinemode.\+f90.


\begin{DoxyCode}
2   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_redef, nf90\_eindefine, nf90\_noerr
3   \textcolor{keywordtype}{use }dc\_trace\textcolor{keywordtype}{, only}: beginsub, endsub, dbgmessage
4   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(in)}:: fileid
5   \textcolor{keywordtype}{character(*)}, \textcolor{keywordtype}{parameter}:: subname = \textcolor{stringliteral}{"GDNcFileDefineMode"}
6 \textcolor{keywordflow}{continue}
7   \textcolor{keyword}{call }dbgmessage(subname // \textcolor{stringliteral}{' %d'}, i=(/fileid/))
8   result = nf90\_redef(fileid)
9   \textcolor{keywordflow}{if} (result == nf90\_eindefine) result = nf90\_noerr
\end{DoxyCode}
