\hypertarget{gdncvarattrcopy_8f90}{}\section{gtdata/gtdata\+\_\+netcdf/gdncvarattrcopy.f90 File Reference}
\label{gdncvarattrcopy_8f90}\index{gtdata/gtdata\+\_\+netcdf/gdncvarattrcopy.\+f90@{gtdata/gtdata\+\_\+netcdf/gdncvarattrcopy.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gdncvarattrcopy_8f90_a1b0fd9d5bb394815700c9728dc260b44}{gdncvarattrcopy} (to, attrname, from, stat)
\end{DoxyCompactItemize}


\subsection{Function/\+Subroutine Documentation}
\mbox{\Hypertarget{gdncvarattrcopy_8f90_a1b0fd9d5bb394815700c9728dc260b44}\label{gdncvarattrcopy_8f90_a1b0fd9d5bb394815700c9728dc260b44}} 
\index{gdncvarattrcopy.\+f90@{gdncvarattrcopy.\+f90}!gdncvarattrcopy@{gdncvarattrcopy}}
\index{gdncvarattrcopy@{gdncvarattrcopy}!gdncvarattrcopy.\+f90@{gdncvarattrcopy.\+f90}}
\subsubsection{\texorpdfstring{gdncvarattrcopy()}{gdncvarattrcopy()}}
{\footnotesize\ttfamily subroutine gdncvarattrcopy (\begin{DoxyParamCaption}\item[{type(gd\+\_\+nc\+\_\+variable), intent(in)}]{to,  }\item[{character(len = $\ast$), intent(in)}]{attrname,  }\item[{type(gd\+\_\+nc\+\_\+variable), intent(in)}]{from,  }\item[{integer, intent(out)}]{stat }\end{DoxyParamCaption})}



Definition at line 4 of file gdncvarattrcopy.\+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__generic}{gtdata\_netcdf\_generic}\textcolor{keywordtype}{, only}: \hyperlink{interfacegtdata__netcdf__generic_1_1inquireplus}{inquireplus}
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\_max\_name, nf90\_copy\_att
9   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
10   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}
11   \textcolor{keywordtype}{implicit none}
12   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: to
13   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: attrname
14   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: from
15   \textcolor{keywordtype}{integer}, \textcolor{keywordtype}{intent(out)}:: stat
16   \textcolor{keywordtype}{character(NF90\_MAX\_NAME)}:: nc\_aname
17   \textcolor{keywordtype}{integer}:: id\_var\_from, id\_var\_to
18   \textcolor{keywordtype}{logical}:: myerr
19   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}):: to\_ent, from\_ent
20   stat = \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(to, to\_ent)
21   \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
22   stat = \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(from, from\_ent)
23   \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
24   stat = \hyperlink{gdncfiledefinemode_8f90_afbd7b3565fcb4698e5f7eadf62fb4b35}{gdncfiledefinemode}(to\_ent%fileid)
25   \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
26   \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1inquireplus}{inquireplus}(from, attrname, id\_var\_from, nc\_aname)
27   \textcolor{keyword}{call }\hyperlink{interfacegtdata__netcdf__generic_1_1inquireplus}{inquireplus}(to, attrname, id\_var\_to, nc\_aname)
28   stat = nf90\_copy\_att(from\_ent%fileid, id\_var\_from, nc\_aname, to\_ent%fileid, id\_var\_to)
29 999 \textcolor{keywordflow}{continue}
30   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, \textcolor{stringliteral}{"GDNcVarAttrCopy"}, myerr)
31   \textcolor{keywordflow}{return}
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdncvarattrcopy_8f90_a1b0fd9d5bb394815700c9728dc260b44_cgraph}
\end{center}
\end{figure}
