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


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



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



References gdncfiledefinemode(), dc\+\_\+url\+::gt\+\_\+plus, dc\+\_\+error\+::storeerror(), and gtdata\+\_\+netcdf\+\_\+internal\+::vtable\+\_\+lookup().


\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}, 
      \hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}
5     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__file__generic}{gtdata\_netcdf\_file\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{gdncfiledefinemode_8f90_afbd7b3565fcb4698e5f7eadf62fb4b35}{gdncfiledefinemode}
6     \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__internal}{gtdata\_netcdf\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}
7     \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_noerr, nf90\_del\_att, nf90\_global, nf90\_enotindefine
8     \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
9     \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}
10     \textcolor{keywordtype}{implicit none}
11     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: var
12     \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
13     \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
14     \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}):: ent
15     \textcolor{keywordtype}{integer}:: stat
16 \textcolor{keywordflow}{continue}
17     stat = \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(var, ent)
18     \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
19     stat = nf90\_del\_att(ent%fileid, ent%varid, name=name)
20     \textcolor{keywordflow}{if} (stat == 0) \textcolor{keywordflow}{goto} 999
21     \textcolor{keywordflow}{if} (stat /= nf90\_enotindefine) \textcolor{keywordflow}{goto} 999
22     stat = \hyperlink{gdncfiledefinemode_8f90_afbd7b3565fcb4698e5f7eadf62fb4b35}{gdncfiledefinemode}(ent%fileid)
23     \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
24     \textcolor{keywordflow}{if} (name(1:1) == \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}) \textcolor{keywordflow}{then}
25         stat = nf90\_del\_att(ent%fileid, nf90\_global, name=name(2:))
26     \textcolor{keywordflow}{else}
27         stat = nf90\_del\_att(ent%fileid, ent%varid, name=name)
28 \textcolor{keywordflow}{    endif}
29 
30 999 \textcolor{keywordflow}{continue}
31     \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, \textcolor{stringliteral}{'GDNcVarPutAttrChar'}, err)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdncvardelattr_8f90_a20e6089079fada624116cffb4780fae6_cgraph}
\end{center}
\end{figure}
