\hypertarget{gdncvarputattrreal_8f90}{}\section{gtdata/gtdata\+\_\+netcdf/gdncvarputattrreal.f90 File Reference}
\label{gdncvarputattrreal_8f90}\index{gtdata/gtdata\+\_\+netcdf/gdncvarputattrreal.\+f90@{gtdata/gtdata\+\_\+netcdf/gdncvarputattrreal.\+f90}}
\subsection*{Functions/\+Subroutines}
\begin{DoxyCompactItemize}
\item 
subroutine \hyperlink{gdncvarputattrreal_8f90_a594c116cf28f44458c58fa08eaf4d788}{gdncvarputattrreal} (var, name, value, err)
\item 
subroutine \hyperlink{gdncvarputattrreal_8f90_ac0de616e7e12abfce35327c7ae4c587b}{gdncvarputattrdouble} (var, name, value, err)
\end{DoxyCompactItemize}


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



Definition at line 44 of file gdncvarputattrreal.\+f90.



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


\begin{DoxyCode}
44   \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}
45   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__internal}{gtdata\_netcdf\_internal}\textcolor{keywordtype}{, only}: \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}
46   \textcolor{keywordtype}{use }\hyperlink{namespacegtdata__netcdf__file__generic}{gtdata\_netcdf\_file\_generic}\textcolor{keywordtype}{, only}: 
      \hyperlink{gdncfiledefinemode_8f90_afbd7b3565fcb4698e5f7eadf62fb4b35}{gdncfiledefinemode}
47   \textcolor{keywordtype}{use }netcdf\textcolor{keywordtype}{, only}: &
48     & nf90\_global, &
49     & nf90\_noerr, &
50     & nf90\_put\_att, &
51     & nf90\_del\_att
52   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
53   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}
54   \textcolor{keywordtype}{implicit none}
55   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: var
56   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
57   \textcolor{keywordtype}{double precision}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
58   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
59   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}):: ent
60   \textcolor{keywordtype}{integer}:: stat
61   \textcolor{keywordflow}{continue}
62   stat = \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(var, ent)
63   \textcolor{keywordflow}{if} (stat /= 0) \textcolor{keywordflow}{goto} 999
64   \textcolor{keywordflow}{if} (\textcolor{keyword}{size}(\textcolor{keywordtype}{value}) == 0) \textcolor{keywordflow}{then}
65     \textcolor{keywordflow}{if} (name(1:1) == \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}) \textcolor{keywordflow}{then}
66       stat = nf90\_del\_att(ent%fileid, nf90\_global, name(2:))
67     \textcolor{keywordflow}{else}
68       stat = nf90\_del\_att(ent%fileid, ent%varid, name)
69 \textcolor{keywordflow}{    endif}
70     \textcolor{keywordflow}{goto} 999
71 \textcolor{keywordflow}{  endif}
72   stat = \hyperlink{gdncfiledefinemode_8f90_afbd7b3565fcb4698e5f7eadf62fb4b35}{gdncfiledefinemode}(ent%fileid)
73   \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
74   \textcolor{keywordflow}{if} (name(1:1) == \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}) \textcolor{keywordflow}{then}
75     stat = nf90\_put\_att(ent%fileid, nf90\_global, name(2:), \textcolor{keywordtype}{value})
76   \textcolor{keywordflow}{else}
77     stat = nf90\_put\_att(ent%fileid, ent%varid, name, \textcolor{keywordtype}{value})
78 \textcolor{keywordflow}{  endif}
79 999 \textcolor{keywordflow}{continue}
80   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, \textcolor{stringliteral}{'GDNcVarPutAttrDouble'}, err)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdncvarputattrreal_8f90_ac0de616e7e12abfce35327c7ae4c587b_cgraph}
\end{center}
\end{figure}
\mbox{\Hypertarget{gdncvarputattrreal_8f90_a594c116cf28f44458c58fa08eaf4d788}\label{gdncvarputattrreal_8f90_a594c116cf28f44458c58fa08eaf4d788}} 
\index{gdncvarputattrreal.\+f90@{gdncvarputattrreal.\+f90}!gdncvarputattrreal@{gdncvarputattrreal}}
\index{gdncvarputattrreal@{gdncvarputattrreal}!gdncvarputattrreal.\+f90@{gdncvarputattrreal.\+f90}}
\subsubsection{\texorpdfstring{gdncvarputattrreal()}{gdncvarputattrreal()}}
{\footnotesize\ttfamily subroutine gdncvarputattrreal (\begin{DoxyParamCaption}\item[{type(gd\+\_\+nc\+\_\+variable), intent(in)}]{var,  }\item[{character(len = $\ast$), intent(in)}]{name,  }\item[{real, dimension(\+:), intent(in)}]{value,  }\item[{logical, intent(out), optional}]{err }\end{DoxyParamCaption})}



Definition at line 4 of file gdncvarputattrreal.\+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}: &
8     & nf90\_global, &
9     & nf90\_noerr, &
10     & nf90\_put\_att, &
11     & nf90\_del\_att
12   \textcolor{keywordtype}{use }\hyperlink{namespacedc__url}{dc\_url}\textcolor{keywordtype}{, only}: \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}
13   \textcolor{keywordtype}{use }\hyperlink{namespacedc__error}{dc\_error}
14   \textcolor{keywordtype}{implicit none}
15   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable}{gd\_nc\_variable}), \textcolor{keywordtype}{intent(in)}:: var
16   \textcolor{keywordtype}{character(len = *)}, \textcolor{keywordtype}{intent(in)}:: name
17   \textcolor{keywordtype}{real}, \textcolor{keywordtype}{intent(in)}:: \textcolor{keywordtype}{value}(:)
18   \textcolor{keywordtype}{logical}, \textcolor{keywordtype}{intent(out)}, \textcolor{keywordtype}{optional}:: err
19   \textcolor{keywordtype}{type}(\hyperlink{structgtdata__netcdf__types_1_1gd__nc__variable__entry}{gd\_nc\_variable\_entry}):: ent
20   \textcolor{keywordtype}{integer}:: stat
21   \textcolor{keywordflow}{continue}
22   stat = \hyperlink{namespacegtdata__netcdf__internal_afe013c8012ec100bf1e94e5147c340de}{vtable\_lookup}(var, ent)
23   \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
24   \textcolor{keywordflow}{if} (\textcolor{keyword}{size}(\textcolor{keywordtype}{value}) == 0) \textcolor{keywordflow}{then}
25     \textcolor{keywordflow}{if} (name(1:1) == \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}) \textcolor{keywordflow}{then}
26       stat = nf90\_del\_att(ent%fileid, nf90\_global, name(2:))
27     \textcolor{keywordflow}{else}
28       stat = nf90\_del\_att(ent%fileid, ent%varid, name)
29 \textcolor{keywordflow}{    endif}
30     \textcolor{keywordflow}{goto} 999
31 \textcolor{keywordflow}{  endif}
32   stat = \hyperlink{gdncfiledefinemode_8f90_afbd7b3565fcb4698e5f7eadf62fb4b35}{gdncfiledefinemode}(ent%fileid)
33   \textcolor{keywordflow}{if} (stat /= nf90\_noerr) \textcolor{keywordflow}{goto} 999
34   \textcolor{keywordflow}{if} (name(1:1) == \hyperlink{namespacedc__url_a373b7d2195c21ebf1458e79ad72dce0d}{gt\_plus}) \textcolor{keywordflow}{then}
35     stat = nf90\_put\_att(ent%fileid, nf90\_global, name(2:), \textcolor{keywordtype}{value})
36   \textcolor{keywordflow}{else}
37     stat = nf90\_put\_att(ent%fileid, ent%varid, name, \textcolor{keywordtype}{value})
38 \textcolor{keywordflow}{  endif}
39 999 \textcolor{keywordflow}{continue}
40   \textcolor{keyword}{call }\hyperlink{namespacedc__error_a0104aee83ee5752b1a9f6152b11864a8}{storeerror}(stat, \textcolor{stringliteral}{'GDNcVarPutAttrReal'}, err)
\end{DoxyCode}
Here is the call graph for this function\+:
\nopagebreak
\begin{figure}[H]
\begin{center}
\leavevmode
\includegraphics[width=350pt]{gdncvarputattrreal_8f90_a594c116cf28f44458c58fa08eaf4d788_cgraph}
\end{center}
\end{figure}
