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


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



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



References dc\+\_\+error\+::storeerror().


\begin{DoxyCode}
2   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__memory__types}{gtdata\_memory\_types}\textcolor{keywordtype}{, only}: \hyperlink{structgtdata__memory__types_1_1gd__mem__variable}{gd\_mem\_variable}, 
      \hyperlink{structgtdata__memory__types_1_1gd__mem__variable__entry}{gd\_mem\_variable\_entry}, \hyperlink{structgtdata__memory__types_1_1gd__mem__attr__chain}{gd\_mem\_attr\_chain}
3   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__memory__internal}{gtdata\_memory\_internal}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__memory__internal_1_1memtab__lookup}{memtab\_lookup}
4   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}
5   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: nf90\_enotatt, nf90\_noerr
6   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__memory__types_1_1gd__mem__variable}{gd\_mem\_variable}), \textcolor{keywordtype}{intent(in)}:: var
7   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
8   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
9   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__memory__types_1_1gd__mem__variable__entry}{gd\_mem\_variable\_entry}), \textcolor{keywordtype}{pointer}:: ent
10   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__memory__types_1_1gd__mem__attr__chain}{gd\_mem\_attr\_chain}), \textcolor{keywordtype}{pointer}:: p, prev
11   \textcolor{keywordtype}{integer}:: stat
12   stat = \hyperlink{interfacegtdata__memory__internal_1_1memtab__lookup}{memtab\_lookup}(var, ent)
13   \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
14   \textcolor{keyword}{nullify}(prev)
15   p => ent%attr
16   \textcolor{keywordflow}{do}
17     \textcolor{keywordflow}{if} (.not. \textcolor{keyword}{associated}(p)) \textcolor{keywordflow}{exit}
18     \textcolor{keywordflow}{if} (p%name == name) \textcolor{keywordflow}{then}
19       \textcolor{keywordflow}{if} (\textcolor{keyword}{associated}(p%cbuf)) \textcolor{keyword}{deallocate}(p%cbuf)
20       prev%next => p%next
21       \textcolor{keyword}{deallocate}(p)
22       \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(nf90\_noerr, \textcolor{stringliteral}{"GDMemVarAttrDel"}, err)
23       \textcolor{keywordflow}{return}
24 \textcolor{keywordflow}{    endif}
25     prev => p
26     p => p%next
27 \textcolor{keywordflow}{  enddo}
28   stat = nf90\_enotatt
29 999 \textcolor{keywordflow}{continue}
30   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, \textcolor{stringliteral}{"GDMemVarAttrDel"}, err, cause\_c=name)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdmemvarattrdel_8f90_a6059192de2e060895bbadceaab6b112c_cgraph}
\end{center}
\end{figure}
