Loading...
Searching...
No Matches
Functions/Subroutines
gtvarputnum.f90 File Reference

Go to the source code of this file.

Functions/Subroutines

subroutine gtvarputdouble (var, value, nvalue, err)
subroutine gtvarputreal (var, value, nvalue, err)
subroutine gtvarputint (var, value, nvalue, err)
subroutine gtvarputchar (var, value, nvalue, err)
subroutine gtvarputdouble1 (var, value, err)
subroutine gtvarputdouble2 (var, value, err)
subroutine gtvarputdouble3 (var, value, err)
subroutine gtvarputdouble4 (var, value, err)
subroutine gtvarputdouble5 (var, value, err)
subroutine gtvarputdouble6 (var, value, err)
subroutine gtvarputdouble7 (var, value, err)
subroutine gtvarputreal1 (var, value, err)
subroutine gtvarputreal2 (var, value, err)
subroutine gtvarputreal3 (var, value, err)
subroutine gtvarputreal4 (var, value, err)
subroutine gtvarputreal5 (var, value, err)
subroutine gtvarputreal6 (var, value, err)
subroutine gtvarputreal7 (var, value, err)
subroutine gtvarputint1 (var, value, err)
subroutine gtvarputint2 (var, value, err)
subroutine gtvarputint3 (var, value, err)
subroutine gtvarputint4 (var, value, err)
subroutine gtvarputint5 (var, value, err)
subroutine gtvarputint6 (var, value, err)
subroutine gtvarputint7 (var, value, err)

Function/Subroutine Documentation

◆ gtvarputchar()

subroutine gtvarputchar ( type(gt_variable), intent(in) var,
character(*), dimension(nvalue), intent(in) value,
integer, intent(in) nvalue,
logical, intent(out), optional err )

Definition at line 130 of file gtvarputnum.f90.

131 use gtdata_types, only: gt_variable
132 use gtdata_internal_map, only: &
133 & var_class, &
134 & vtb_class_netcdf, &
135 & map_to_internal_specs
136 use gtdata_netcdf_generic, only: put
137 use gtdata_netcdf_types, only: gd_nc_variable
138 use dc_error, only: storeerror, gt_efake
139 ! use dc_trace, only: BeginSub, EndSub
140 implicit none
141 type(GT_VARIABLE), intent(in) :: var
142 integer, intent(in) :: nvalue
143 character(*), intent(in) :: value(nvalue)
144 logical, intent(out), optional :: err
145 ! Variables for Intenal work
146 integer:: class, cid, stat, ndims
147 integer, pointer:: specs(:, :)
148 character(len = *), parameter:: subname = "GTVarPutChar"
149 continue
150 call var_class(var, class, cid)
151 call map_to_internal_specs(var, specs, ndims)
152 if (class == vtb_class_netcdf) then
153 call put(gd_nc_variable(cid), start=specs(:, 1), count=specs(:, 2), &
154 & stride=specs(:, 3), imap=specs(:, 4), value=value, &
155 & siz=nvalue, iostat=stat)
156 else
157 stat = gt_efake
158 endif
159 call storeerror(stat, subname, err=err)
160 deallocate(specs)
gtdata_netcdf_generic::put
Definition gtdata_netcdf_generic.f90:409
dc_error
Definition dc_error.f90:11
dc_error::storeerror
subroutine, public storeerror(number, where, err, cause_c, cause_i)
Definition dc_error.f90:830
dc_error::gt_efake
integer, parameter, public gt_efake
Definition dc_error.f90:523
gtdata_internal_map
Definition gtdata_internal_map.f90:10
gtdata_internal_map::map_to_internal_specs
subroutine, public map_to_internal_specs(var, specs, ndims)
Definition gtdata_internal_map.f90:367
gtdata_internal_map::var_class
subroutine, public var_class(var, class, cid)
Definition gtdata_internal_map.f90:296
gtdata_netcdf_generic
Definition gtdata_netcdf_generic.f90:11
gtdata_netcdf_types
Definition gtdata_netcdf_types.f90:10
gtdata_types
Definition gtdata_types.f90:11
gtdata_netcdf_types::gd_nc_variable
Definition gtdata_netcdf_types.f90:14
gtdata_types::gt_variable
Definition gtdata_types.f90:18

References dc_error::gt_efake, gtdata_internal_map::map_to_internal_specs(), dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

◆ gtvarputdouble()

subroutine gtvarputdouble ( type(gt_variable), intent(in) var,
real(dp), dimension(nvalue), intent(in) value,
integer, intent(in) nvalue,
logical, intent(out), optional err )

Definition at line 29 of file gtvarputnum.f90.

30 use gtdata_types, only: gt_variable
31 use gtdata_internal_map, only: &
32 & var_class, &
33 & vtb_class_netcdf, &
34 & map_to_internal_specs
35 use gtdata_netcdf_generic, only: put
36 use gtdata_netcdf_types, only: gd_nc_variable
37 use dc_error, only: storeerror, gt_efake
38 ! use dc_trace, only: BeginSub, EndSub
39 use dc_types, only: dp
40 implicit none
41 type(GT_VARIABLE), intent(in) :: var
42 integer, intent(in) :: nvalue
43 real(DP), intent(in) :: value(nvalue)
44 logical, intent(out), optional :: err
45 ! Variables for Intenal work
46 integer:: class, cid, stat, ndims
47 integer, pointer:: specs(:, :)
48 character(len = *), parameter:: subname = "GTVarPutDouble"
49 continue
50 call var_class(var, class, cid)
51 call map_to_internal_specs(var, specs, ndims)
52 if (class == vtb_class_netcdf) then
53 call put(gd_nc_variable(cid), start=specs(:, 1), count=specs(:, 2), &
54 & stride=specs(:, 3), imap=specs(:, 4), value=value, &
55 & siz=nvalue, iostat=stat)
56 else
57 stat = gt_efake
58 endif
59 call storeerror(stat, subname, err=err)
60 deallocate(specs)
dc_types
Provides kind type parameter values.
Definition dc_types.f90:49
dc_types::dp
integer, parameter, public dp
Double Precision Real number
Definition dc_types.f90:83

References dc_types::dp, dc_error::gt_efake, gtdata_internal_map::map_to_internal_specs(), dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

◆ gtvarputdouble1()

subroutine gtvarputdouble1 ( type(gt_variable), intent(inout) var,
real(dp), dimension(:), intent(in) value,
logical, intent(out), optional err )

Definition at line 164 of file gtvarputnum.f90.

165 use gtdata_types, only: gt_variable
166 use gtdata_generic, only: put, gtvarputdouble
167 use dc_types, only: dp
168 real(DP), intent(in) :: value(:)
169 type(GT_VARIABLE), intent(inout):: var
170 logical ,intent(out), optional:: err
171 continue
172 call gtvarputdouble(var, value, size(value), err)
gtvarputdouble
subroutine gtvarputdouble(var, value, nvalue, err)
Definition gtvarputnum.f90:30

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

◆ gtvarputdouble2()

subroutine gtvarputdouble2 ( type(gt_variable), intent(inout) var,
real(dp), dimension(:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 175 of file gtvarputnum.f90.

176 use gtdata_types, only: gt_variable
177 use gtdata_generic, only: put, gtvarputdouble
178 use dc_types, only: dp
179 real(DP), intent(in) :: value(:,:)
180 type(GT_VARIABLE), intent(inout):: var
181 logical ,intent(out), optional:: err
182 continue
183 call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

◆ gtvarputdouble3()

subroutine gtvarputdouble3 ( type(gt_variable), intent(inout) var,
real(dp), dimension(:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 186 of file gtvarputnum.f90.

187 use gtdata_types, only: gt_variable
188 use gtdata_generic, only: put, gtvarputdouble
189 use dc_types, only: dp
190 real(DP), intent(in) :: value(:,:,:)
191 type(GT_VARIABLE), intent(inout):: var
192 logical ,intent(out), optional:: err
193 continue
194 call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

◆ gtvarputdouble4()

subroutine gtvarputdouble4 ( type(gt_variable), intent(inout) var,
real(dp), dimension(:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 197 of file gtvarputnum.f90.

198 use gtdata_types, only: gt_variable
199 use gtdata_generic, only: put, gtvarputdouble
200 use dc_types, only: dp
201 real(DP), intent(in) :: value(:,:,:,:)
202 type(GT_VARIABLE), intent(inout):: var
203 logical ,intent(out), optional:: err
204 continue
205 call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

◆ gtvarputdouble5()

subroutine gtvarputdouble5 ( type(gt_variable), intent(inout) var,
real(dp), dimension(:,:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 208 of file gtvarputnum.f90.

209 use gtdata_types, only: gt_variable
210 use gtdata_generic, only: put, gtvarputdouble
211 use dc_types, only: dp
212 real(DP), intent(in) :: value(:,:,:,:,:)
213 type(GT_VARIABLE), intent(inout):: var
214 logical ,intent(out), optional:: err
215 continue
216 call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

◆ gtvarputdouble6()

subroutine gtvarputdouble6 ( type(gt_variable), intent(inout) var,
real(dp), dimension(:,:,:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 219 of file gtvarputnum.f90.

220 use gtdata_types, only: gt_variable
221 use gtdata_generic, only: put, gtvarputdouble
222 use dc_types, only: dp
223 real(DP), intent(in) :: value(:,:,:,:,:,:)
224 type(GT_VARIABLE), intent(inout):: var
225 logical ,intent(out), optional:: err
226 continue
227 call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

◆ gtvarputdouble7()

subroutine gtvarputdouble7 ( type(gt_variable), intent(inout) var,
real(dp), dimension(:,:,:,:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 230 of file gtvarputnum.f90.

231 use gtdata_types, only: gt_variable
232 use gtdata_generic, only: put, gtvarputdouble
233 use dc_types, only: dp
234 real(DP), intent(in) :: value(:,:,:,:,:,:,:)
235 type(GT_VARIABLE), intent(inout):: var
236 logical ,intent(out), optional:: err
237 continue
238 call gtvarputdouble(var, value, size(value), err)

References dc_types::dp, and gtvarputdouble().

Here is the call graph for this function:

◆ gtvarputint()

subroutine gtvarputint ( type(gt_variable), intent(in) var,
integer, dimension(nvalue), intent(in) value,
integer, intent(in) nvalue,
logical, intent(out), optional err )

Definition at line 97 of file gtvarputnum.f90.

98 use gtdata_types, only: gt_variable
99 use gtdata_internal_map, only: &
100 & var_class, &
101 & vtb_class_netcdf, &
102 & map_to_internal_specs
103 use gtdata_netcdf_generic, only: put
104 use gtdata_netcdf_types, only: gd_nc_variable
105 use dc_error, only: storeerror, gt_efake
106 ! use dc_trace, only: BeginSub, EndSub
107 implicit none
108 type(GT_VARIABLE), intent(in) :: var
109 integer, intent(in) :: nvalue
110 integer, intent(in) :: value(nvalue)
111 logical, intent(out), optional :: err
112 ! Variables for Intenal work
113 integer:: class, cid, stat, ndims
114 integer, pointer:: specs(:, :)
115 character(len = *), parameter:: subname = "GTVarPutInt"
116 continue
117 call var_class(var, class, cid)
118 call map_to_internal_specs(var, specs, ndims)
119 if (class == vtb_class_netcdf) then
120 call put(gd_nc_variable(cid), start=specs(:, 1), count=specs(:, 2), &
121 & stride=specs(:, 3), imap=specs(:, 4), value=value, &
122 & siz=nvalue, iostat=stat)
123 else
124 stat = gt_efake
125 endif
126 call storeerror(stat, subname, err=err)
127 deallocate(specs)

References dc_error::gt_efake, gtdata_internal_map::map_to_internal_specs(), dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

◆ gtvarputint1()

subroutine gtvarputint1 ( type(gt_variable), intent(inout) var,
integer, dimension(:), intent(in) value,
logical, intent(out), optional err )

Definition at line 318 of file gtvarputnum.f90.

319 use gtdata_types, only: gt_variable
320 use gtdata_generic, only: put, gtvarputint
321 integer, intent(in) :: value(:)
322 type(GT_VARIABLE), intent(inout):: var
323 logical ,intent(out), optional:: err
324 continue
325 call gtvarputint(var, value, size(value), err)
gtvarputint
subroutine gtvarputint(var, value, nvalue, err)
Definition gtvarputnum.f90:98

References gtvarputint().

Here is the call graph for this function:

◆ gtvarputint2()

subroutine gtvarputint2 ( type(gt_variable), intent(inout) var,
integer, dimension(:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 328 of file gtvarputnum.f90.

329 use gtdata_types, only: gt_variable
330 use gtdata_generic, only: put, gtvarputint
331 integer, intent(in) :: value(:,:)
332 type(GT_VARIABLE), intent(inout):: var
333 logical ,intent(out), optional:: err
334 continue
335 call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

◆ gtvarputint3()

subroutine gtvarputint3 ( type(gt_variable), intent(inout) var,
integer, dimension(:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 338 of file gtvarputnum.f90.

339 use gtdata_types, only: gt_variable
340 use gtdata_generic, only: put, gtvarputint
341 integer, intent(in) :: value(:,:,:)
342 type(GT_VARIABLE), intent(inout):: var
343 logical ,intent(out), optional:: err
344 continue
345 call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

◆ gtvarputint4()

subroutine gtvarputint4 ( type(gt_variable), intent(inout) var,
integer, dimension(:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 348 of file gtvarputnum.f90.

349 use gtdata_types, only: gt_variable
350 use gtdata_generic, only: put, gtvarputint
351 integer, intent(in) :: value(:,:,:,:)
352 type(GT_VARIABLE), intent(inout):: var
353 logical ,intent(out), optional:: err
354 continue
355 call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

◆ gtvarputint5()

subroutine gtvarputint5 ( type(gt_variable), intent(inout) var,
integer, dimension(:,:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 358 of file gtvarputnum.f90.

359 use gtdata_types, only: gt_variable
360 use gtdata_generic, only: put, gtvarputint
361 integer, intent(in) :: value(:,:,:,:,:)
362 type(GT_VARIABLE), intent(inout):: var
363 logical ,intent(out), optional:: err
364 continue
365 call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

◆ gtvarputint6()

subroutine gtvarputint6 ( type(gt_variable), intent(inout) var,
integer, dimension(:,:,:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 368 of file gtvarputnum.f90.

369 use gtdata_types, only: gt_variable
370 use gtdata_generic, only: put, gtvarputint
371 integer, intent(in) :: value(:,:,:,:,:,:)
372 type(GT_VARIABLE), intent(inout):: var
373 logical ,intent(out), optional:: err
374 continue
375 call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

◆ gtvarputint7()

subroutine gtvarputint7 ( type(gt_variable), intent(inout) var,
integer, dimension(:,:,:,:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 378 of file gtvarputnum.f90.

379 use gtdata_types, only: gt_variable
380 use gtdata_generic, only: put, gtvarputint
381 integer, intent(in) :: value(:,:,:,:,:,:,:)
382 type(GT_VARIABLE), intent(inout):: var
383 logical ,intent(out), optional:: err
384 continue
385 call gtvarputint(var, value, size(value), err)

References gtvarputint().

Here is the call graph for this function:

◆ gtvarputreal()

subroutine gtvarputreal ( type(gt_variable), intent(in) var,
real(sp), dimension(nvalue), intent(in) value,
integer, intent(in) nvalue,
logical, intent(out), optional err )

Definition at line 63 of file gtvarputnum.f90.

64 use gtdata_types, only: gt_variable
65 use gtdata_internal_map, only: &
66 & var_class, &
67 & vtb_class_netcdf, &
68 & map_to_internal_specs
69 use gtdata_netcdf_generic, only: put
70 use gtdata_netcdf_types, only: gd_nc_variable
71 use dc_error, only: storeerror, gt_efake
72 ! use dc_trace, only: BeginSub, EndSub
73 use dc_types, only: sp
74 implicit none
75 type(GT_VARIABLE), intent(in) :: var
76 integer, intent(in) :: nvalue
77 real(SP), intent(in) :: value(nvalue)
78 logical, intent(out), optional :: err
79 ! Variables for Intenal work
80 integer:: class, cid, stat, ndims
81 integer, pointer:: specs(:, :)
82 character(len = *), parameter:: subname = "GTVarPutReal"
83 continue
84 call var_class(var, class, cid)
85 call map_to_internal_specs(var, specs, ndims)
86 if (class == vtb_class_netcdf) then
87 call put(gd_nc_variable(cid), start=specs(:, 1), count=specs(:, 2), &
88 & stride=specs(:, 3), imap=specs(:, 4), value=value, &
89 & siz=nvalue, iostat=stat)
90 else
91 stat = gt_efake
92 endif
93 call storeerror(stat, subname, err=err)
94 deallocate(specs)
dc_types::sp
integer, parameter, public sp
Single Precision Real number.
Definition dc_types.f90:73

References dc_error::gt_efake, gtdata_internal_map::map_to_internal_specs(), dc_types::sp, dc_error::storeerror(), and gtdata_internal_map::var_class().

Here is the call graph for this function:

◆ gtvarputreal1()

subroutine gtvarputreal1 ( type(gt_variable), intent(inout) var,
real(sp), dimension(:), intent(in) value,
logical, intent(out), optional err )

Definition at line 241 of file gtvarputnum.f90.

242 use gtdata_types, only: gt_variable
243 use gtdata_generic, only: put, gtvarputreal
244 use dc_types, only: sp
245 real(SP), intent(in) :: value(:)
246 type(GT_VARIABLE), intent(inout):: var
247 logical ,intent(out), optional:: err
248 continue
249 call gtvarputreal(var, value, size(value), err)
gtvarputreal
subroutine gtvarputreal(var, value, nvalue, err)
Definition gtvarputnum.f90:64

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

◆ gtvarputreal2()

subroutine gtvarputreal2 ( type(gt_variable), intent(inout) var,
real(sp), dimension(:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 252 of file gtvarputnum.f90.

253 use gtdata_types, only: gt_variable
254 use gtdata_generic, only: put, gtvarputreal
255 use dc_types, only: sp
256 real(SP), intent(in) :: value(:,:)
257 type(GT_VARIABLE), intent(inout):: var
258 logical ,intent(out), optional:: err
259 continue
260 call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

◆ gtvarputreal3()

subroutine gtvarputreal3 ( type(gt_variable), intent(inout) var,
real(sp), dimension(:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 263 of file gtvarputnum.f90.

264 use gtdata_types, only: gt_variable
265 use gtdata_generic, only: put, gtvarputreal
266 use dc_types, only: sp
267 real(SP), intent(in) :: value(:,:,:)
268 type(GT_VARIABLE), intent(inout):: var
269 logical ,intent(out), optional:: err
270 continue
271 call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

◆ gtvarputreal4()

subroutine gtvarputreal4 ( type(gt_variable), intent(inout) var,
real(sp), dimension(:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 274 of file gtvarputnum.f90.

275 use gtdata_types, only: gt_variable
276 use gtdata_generic, only: put, gtvarputreal
277 use dc_types, only: sp
278 real(SP), intent(in) :: value(:,:,:,:)
279 type(GT_VARIABLE), intent(inout):: var
280 logical ,intent(out), optional:: err
281 continue
282 call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

◆ gtvarputreal5()

subroutine gtvarputreal5 ( type(gt_variable), intent(inout) var,
real(sp), dimension(:,:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 285 of file gtvarputnum.f90.

286 use gtdata_types, only: gt_variable
287 use gtdata_generic, only: put, gtvarputreal
288 use dc_types, only: sp
289 real(SP), intent(in) :: value(:,:,:,:,:)
290 type(GT_VARIABLE), intent(inout):: var
291 logical ,intent(out), optional:: err
292 continue
293 call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

◆ gtvarputreal6()

subroutine gtvarputreal6 ( type(gt_variable), intent(inout) var,
real(sp), dimension(:,:,:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 296 of file gtvarputnum.f90.

297 use gtdata_types, only: gt_variable
298 use gtdata_generic, only: put, gtvarputreal
299 use dc_types, only: sp
300 real(SP), intent(in) :: value(:,:,:,:,:,:)
301 type(GT_VARIABLE), intent(inout):: var
302 logical ,intent(out), optional:: err
303 continue
304 call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function:

◆ gtvarputreal7()

subroutine gtvarputreal7 ( type(gt_variable), intent(inout) var,
real(sp), dimension(:,:,:,:,:,:,:), intent(in) value,
logical, intent(out), optional err )

Definition at line 307 of file gtvarputnum.f90.

308 use gtdata_types, only: gt_variable
309 use gtdata_generic, only: put, gtvarputreal
310 use dc_types, only: sp
311 real(SP), intent(in) :: value(:,:,:,:,:,:,:)
312 type(GT_VARIABLE), intent(inout):: var
313 logical ,intent(out), optional:: err
314 continue
315 call gtvarputreal(var, value, size(value), err)

References gtvarputreal(), and dc_types::sp.

Here is the call graph for this function: