FV3 Bundle
ncdr_vars_fetch.f90
Go to the documentation of this file.
1 module ncdr_vars_fetch
2  use ncd_kinds, only: i_byte, i_short, i_long, r_single, r_double
3  use ncdr_state, only: ncdr_files, current_ncdr_id
4  use ncdr_check, only: ncdr_nc_check, ncdr_check_ncdr_id, &
5  ncdr_check_current_ncdr_id, ncdr_check_ncid
6  use ncdr_alloc_assert, only: nc_diag_read_id_assert_var, &
7  nc_diag_read_assert_var_type, nc_diag_read_assert_var_ndims, &
8  nc_diag_read_assert_dims
9  use netcdf, only: nf90_get_var, nf90_byte, nf90_short, nf90_int, &
10  nf90_float, nf90_double, nf90_char
11 
12  implicit none
13 
14  interface nc_diag_read_get_var
15  module procedure &
16  nc_diag_read_id_get_var_1d_byte, &
17  nc_diag_read_id_get_var_1d_short, &
18  nc_diag_read_id_get_var_1d_long, &
19  nc_diag_read_id_get_var_1d_float, &
20  nc_diag_read_id_get_var_1d_double, &
21  nc_diag_read_id_get_var_1d_string, &
22  nc_diag_read_noid_get_var_1d_byte, &
23  nc_diag_read_noid_get_var_1d_short, &
24  nc_diag_read_noid_get_var_1d_long, &
25  nc_diag_read_noid_get_var_1d_float, &
26  nc_diag_read_noid_get_var_1d_double, &
27  nc_diag_read_noid_get_var_1d_string, &
28  nc_diag_read_id_get_var_2d_byte, &
29  nc_diag_read_id_get_var_2d_short, &
30  nc_diag_read_id_get_var_2d_long, &
31  nc_diag_read_id_get_var_2d_float, &
32  nc_diag_read_id_get_var_2d_double, &
33  nc_diag_read_id_get_var_2d_string, &
34  nc_diag_read_noid_get_var_2d_byte, &
35  nc_diag_read_noid_get_var_2d_short, &
36  nc_diag_read_noid_get_var_2d_long, &
37  nc_diag_read_noid_get_var_2d_float, &
38  nc_diag_read_noid_get_var_2d_double, &
39  nc_diag_read_noid_get_var_2d_string
40  end interface nc_diag_read_get_var
41 
42  contains
43  subroutine nc_diag_read_id_get_var_1d_byte(file_ncdr_id, var_name, var_stor)
44  integer(i_long), intent(in) :: file_ncdr_id
45  character(len=*), intent(in) :: var_name
46  integer(i_byte), dimension(:), allocatable, intent(inout) :: var_stor
47 
48  integer(i_long) :: var_index, var_type, file_ncid
49 
50  call ncdr_check_ncdr_id(file_ncdr_id)
51 
52  file_ncid = ncdr_files(file_ncdr_id)%ncid
53  call ncdr_check_ncdr_id(file_ncdr_id)
54 
55  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
56  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
57 
58  call nc_diag_read_assert_var_type(var_type, nf90_byte)
59  call nc_diag_read_assert_var_ndims(size( &
60  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 1)
61 
62  call nc_diag_read_assert_dims(var_stor, &
63  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
64 
65  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
66  var_stor, &
67  start = (/ 1 /), &
68  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1) /) ))
69  end subroutine nc_diag_read_id_get_var_1d_byte
70 
71  subroutine nc_diag_read_noid_get_var_1d_byte(var_name, var_stor)
72  character(len=*), intent(in) :: var_name
73  integer(i_byte), dimension(:), allocatable, intent(inout) :: var_stor
74 
75  call ncdr_check_current_ncdr_id
76  call nc_diag_read_id_get_var_1d_byte(current_ncdr_id, var_name, var_stor)
77  end subroutine nc_diag_read_noid_get_var_1d_byte
78 
79  subroutine nc_diag_read_id_get_var_1d_short(file_ncdr_id, var_name, var_stor)
80  integer(i_long), intent(in) :: file_ncdr_id
81  character(len=*), intent(in) :: var_name
82  integer(i_short), dimension(:), allocatable, intent(inout) :: var_stor
83 
84  integer(i_long) :: var_index, var_type, file_ncid
85 
86  call ncdr_check_ncdr_id(file_ncdr_id)
87 
88  file_ncid = ncdr_files(file_ncdr_id)%ncid
89  call ncdr_check_ncid(file_ncid)
90 
91  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
92  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
93 
94  call nc_diag_read_assert_var_type(var_type, nf90_short)
95  call nc_diag_read_assert_var_ndims(size( &
96  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 1)
97 
98  call nc_diag_read_assert_dims(var_stor, &
99  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
100 
101  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
102  var_stor, &
103  start = (/ 1 /), &
104  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1) /) ))
105  end subroutine nc_diag_read_id_get_var_1d_short
106 
107  subroutine nc_diag_read_noid_get_var_1d_short(var_name, var_stor)
108  character(len=*), intent(in) :: var_name
109  integer(i_short), dimension(:), allocatable, intent(inout) :: var_stor
110 
111  call ncdr_check_current_ncdr_id
112  call nc_diag_read_id_get_var_1d_short(current_ncdr_id, var_name, var_stor)
113  end subroutine nc_diag_read_noid_get_var_1d_short
114 
115  subroutine nc_diag_read_id_get_var_1d_long(file_ncdr_id, var_name, var_stor)
116  integer(i_long), intent(in) :: file_ncdr_id
117  character(len=*), intent(in) :: var_name
118  integer(i_long), dimension(:), allocatable, intent(inout) :: var_stor
119 
120  integer(i_long) :: var_index, var_type, file_ncid
121 
122  call ncdr_check_ncdr_id(file_ncdr_id)
123 
124  file_ncid = ncdr_files(file_ncdr_id)%ncid
125  call ncdr_check_ncid(file_ncid)
126 
127  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
128  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
129 
130  call nc_diag_read_assert_var_type(var_type, nf90_int)
131  call nc_diag_read_assert_var_ndims(size( &
132  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 1)
133 
134  call nc_diag_read_assert_dims(var_stor, &
135  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
136 
137  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
138  var_stor, &
139  start = (/ 1 /), &
140  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1) /) ))
141  end subroutine nc_diag_read_id_get_var_1d_long
142 
143  subroutine nc_diag_read_noid_get_var_1d_long(var_name, var_stor)
144  character(len=*), intent(in) :: var_name
145  integer(i_long), dimension(:), allocatable, intent(inout) :: var_stor
146 
147  call ncdr_check_current_ncdr_id
148  call nc_diag_read_id_get_var_1d_long(current_ncdr_id, var_name, var_stor)
149  end subroutine nc_diag_read_noid_get_var_1d_long
150 
151  subroutine nc_diag_read_id_get_var_1d_float(file_ncdr_id, var_name, var_stor)
152  integer(i_long), intent(in) :: file_ncdr_id
153  character(len=*), intent(in) :: var_name
154  real(r_single), dimension(:), allocatable, intent(inout) :: var_stor
155 
156  integer(i_long) :: var_index, var_type, file_ncid
157 
158  call ncdr_check_ncdr_id(file_ncdr_id)
159 
160  file_ncid = ncdr_files(file_ncdr_id)%ncid
161  call ncdr_check_ncid(file_ncid)
162 
163  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
164  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
165 
166  call nc_diag_read_assert_var_type(var_type, nf90_float)
167  call nc_diag_read_assert_var_ndims(size( &
168  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 1)
169 
170  call nc_diag_read_assert_dims(var_stor, &
171  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
172 
173  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
174  var_stor, &
175  start = (/ 1 /), &
176  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1) /) ))
177  end subroutine nc_diag_read_id_get_var_1d_float
178 
179  subroutine nc_diag_read_noid_get_var_1d_float(var_name, var_stor)
180  character(len=*), intent(in) :: var_name
181  real(r_single), dimension(:), allocatable, intent(inout) :: var_stor
182 
183  call ncdr_check_current_ncdr_id
184  call nc_diag_read_id_get_var_1d_float(current_ncdr_id, var_name, var_stor)
185  end subroutine nc_diag_read_noid_get_var_1d_float
186 
187  subroutine nc_diag_read_id_get_var_1d_double(file_ncdr_id, var_name, var_stor)
188  integer(i_long), intent(in) :: file_ncdr_id
189  character(len=*), intent(in) :: var_name
190  real(r_double), dimension(:), allocatable, intent(inout) :: var_stor
191 
192  integer(i_long) :: var_index, var_type, file_ncid
193 
194  call ncdr_check_ncdr_id(file_ncdr_id)
195 
196  file_ncid = ncdr_files(file_ncdr_id)%ncid
197  call ncdr_check_ncid(file_ncid)
198 
199  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
200  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
201 
202  call nc_diag_read_assert_var_type(var_type, nf90_double)
203  call nc_diag_read_assert_var_ndims(size( &
204  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 1)
205 
206  call nc_diag_read_assert_dims(var_stor, &
207  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
208 
209  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
210  var_stor, &
211  start = (/ 1 /), &
212  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1) /) ))
213  end subroutine nc_diag_read_id_get_var_1d_double
214 
215  subroutine nc_diag_read_noid_get_var_1d_double(var_name, var_stor)
216  character(len=*), intent(in) :: var_name
217  real(r_double), dimension(:), allocatable, intent(inout) :: var_stor
218 
219  call ncdr_check_current_ncdr_id
220  call nc_diag_read_id_get_var_1d_double(current_ncdr_id, var_name, var_stor)
221  end subroutine nc_diag_read_noid_get_var_1d_double
222 
223  subroutine nc_diag_read_id_get_var_1d_string(file_ncdr_id, var_name, var_stor)
224  integer(i_long), intent(in) :: file_ncdr_id
225  character(len=*), intent(in) :: var_name
226  character(len=:), dimension(:), allocatable, intent(inout) :: var_stor
227 
228  integer(i_long) :: var_index, var_type, file_ncid
229 
230  call ncdr_check_ncdr_id(file_ncdr_id)
231 
232  file_ncid = ncdr_files(file_ncdr_id)%ncid
233  call ncdr_check_ncid(file_ncid)
234 
235  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
236  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
237 
238  call nc_diag_read_assert_var_type(var_type, nf90_char)
239  call nc_diag_read_assert_var_ndims(size( &
240  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 2)
241 
242  call nc_diag_read_assert_dims(var_stor, &
243  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
244 
245  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
246  var_stor, &
247  start = (/ 1, 1 /), &
248  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1), &
249  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(2) /) ))
250  end subroutine nc_diag_read_id_get_var_1d_string
251 
252  subroutine nc_diag_read_noid_get_var_1d_string(var_name, var_stor)
253  character(len=*), intent(in) :: var_name
254  character(len=:), dimension(:), allocatable, intent(inout) :: var_stor
255 
256  call ncdr_check_current_ncdr_id
257  call nc_diag_read_id_get_var_1d_string(current_ncdr_id, var_name, var_stor)
258  end subroutine nc_diag_read_noid_get_var_1d_string
259 
260  subroutine nc_diag_read_id_get_var_2d_byte(file_ncdr_id, var_name, var_stor)
261  integer(i_long), intent(in) :: file_ncdr_id
262  character(len=*), intent(in) :: var_name
263  integer(i_byte), dimension(:,:),allocatable,intent(inout) :: var_stor
264 
265  integer(i_long) :: var_index, var_type, file_ncid
266 
267  call ncdr_check_ncdr_id(file_ncdr_id)
268 
269  file_ncid = ncdr_files(file_ncdr_id)%ncid
270  call ncdr_check_ncid(file_ncid)
271 
272  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
273  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
274 
275  call nc_diag_read_assert_var_type(var_type, nf90_byte)
276  call nc_diag_read_assert_var_ndims(size( &
277  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 2)
278 
279  call nc_diag_read_assert_dims(var_stor, &
280  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
281 
282  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
283  var_stor, &
284  start = (/ 1 /), &
285  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1), &
286  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(2) /) ))
287  end subroutine nc_diag_read_id_get_var_2d_byte
288 
289  subroutine nc_diag_read_noid_get_var_2d_byte(var_name, var_stor)
290  character(len=*), intent(in) :: var_name
291  integer(i_byte), dimension(:,:),allocatable,intent(inout) :: var_stor
292 
293  call ncdr_check_current_ncdr_id
294  call nc_diag_read_id_get_var_2d_byte(current_ncdr_id, var_name, var_stor)
295  end subroutine nc_diag_read_noid_get_var_2d_byte
296 
297  subroutine nc_diag_read_id_get_var_2d_short(file_ncdr_id, var_name, var_stor)
298  integer(i_long), intent(in) :: file_ncdr_id
299  character(len=*), intent(in) :: var_name
300  integer(i_short), dimension(:,:),allocatable,intent(inout) :: var_stor
301 
302  integer(i_long) :: var_index, var_type, file_ncid
303 
304  call ncdr_check_ncdr_id(file_ncdr_id)
305 
306  file_ncid = ncdr_files(file_ncdr_id)%ncid
307  call ncdr_check_ncid(file_ncid)
308 
309  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
310  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
311 
312  call nc_diag_read_assert_var_type(var_type, nf90_short)
313  call nc_diag_read_assert_var_ndims(size( &
314  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 2)
315 
316  call nc_diag_read_assert_dims(var_stor, &
317  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
318 
319  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
320  var_stor, &
321  start = (/ 1 /), &
322  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1), &
323  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(2) /) ))
324  end subroutine nc_diag_read_id_get_var_2d_short
325 
326  subroutine nc_diag_read_noid_get_var_2d_short(var_name, var_stor)
327  character(len=*), intent(in) :: var_name
328  integer(i_short), dimension(:,:),allocatable,intent(inout) :: var_stor
329 
330  call ncdr_check_current_ncdr_id
331  call nc_diag_read_id_get_var_2d_short(current_ncdr_id, var_name, var_stor)
332  end subroutine nc_diag_read_noid_get_var_2d_short
333 
334  subroutine nc_diag_read_id_get_var_2d_long(file_ncdr_id, var_name, var_stor)
335  integer(i_long), intent(in) :: file_ncdr_id
336  character(len=*), intent(in) :: var_name
337  integer(i_long), dimension(:,:),allocatable,intent(inout) :: var_stor
338 
339  integer(i_long) :: var_index, var_type, file_ncid
340 
341  call ncdr_check_ncdr_id(file_ncdr_id)
342 
343  file_ncid = ncdr_files(file_ncdr_id)%ncid
344  call ncdr_check_ncid(file_ncid)
345 
346  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
347  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
348 
349  call nc_diag_read_assert_var_type(var_type, nf90_int)
350  call nc_diag_read_assert_var_ndims(size( &
351  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 2)
352 
353  call nc_diag_read_assert_dims(var_stor, &
354  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
355 
356  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
357  var_stor, &
358  start = (/ 1 /), &
359  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1), &
360  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(2) /) ))
361  end subroutine nc_diag_read_id_get_var_2d_long
362 
363  subroutine nc_diag_read_noid_get_var_2d_long(var_name, var_stor)
364  character(len=*), intent(in) :: var_name
365  integer(i_long), dimension(:,:),allocatable,intent(inout) :: var_stor
366 
367  call ncdr_check_current_ncdr_id
368  call nc_diag_read_id_get_var_2d_long(current_ncdr_id, var_name, var_stor)
369  end subroutine nc_diag_read_noid_get_var_2d_long
370 
371  subroutine nc_diag_read_id_get_var_2d_float(file_ncdr_id, var_name, var_stor)
372  integer(i_long), intent(in) :: file_ncdr_id
373  character(len=*), intent(in) :: var_name
374  real(r_single), dimension(:,:),allocatable,intent(inout) :: var_stor
375 
376  integer(i_long) :: var_index, var_type, file_ncid
377 
378  call ncdr_check_ncdr_id(file_ncdr_id)
379 
380  file_ncid = ncdr_files(file_ncdr_id)%ncid
381  call ncdr_check_ncid(file_ncid)
382 
383  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
384  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
385 
386  call nc_diag_read_assert_var_type(var_type, nf90_float)
387  call nc_diag_read_assert_var_ndims(size( &
388  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 2)
389 
390  call nc_diag_read_assert_dims(var_stor, &
391  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
392 
393  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
394  var_stor, &
395  start = (/ 1 /), &
396  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1), &
397  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(2) /) ))
398  end subroutine nc_diag_read_id_get_var_2d_float
399 
400  subroutine nc_diag_read_noid_get_var_2d_float(var_name, var_stor)
401  character(len=*), intent(in) :: var_name
402  real(r_single), dimension(:,:),allocatable,intent(inout) :: var_stor
403 
404  call ncdr_check_current_ncdr_id
405  call nc_diag_read_id_get_var_2d_float(current_ncdr_id, var_name, var_stor)
406  end subroutine nc_diag_read_noid_get_var_2d_float
407 
408  subroutine nc_diag_read_id_get_var_2d_double(file_ncdr_id, var_name, var_stor)
409  integer(i_long), intent(in) :: file_ncdr_id
410  character(len=*), intent(in) :: var_name
411  real(r_double), dimension(:,:),allocatable,intent(inout) :: var_stor
412 
413  integer(i_long) :: var_index, var_type, file_ncid
414 
415  call ncdr_check_ncdr_id(file_ncdr_id)
416 
417  file_ncid = ncdr_files(file_ncdr_id)%ncid
418  call ncdr_check_ncid(file_ncid)
419 
420  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
421  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
422 
423  call nc_diag_read_assert_var_type(var_type, nf90_double)
424  call nc_diag_read_assert_var_ndims(size( &
425  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 2)
426 
427  call nc_diag_read_assert_dims(var_stor, &
428  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
429 
430  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
431  var_stor, &
432  start = (/ 1 /), &
433  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1), &
434  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(2) /) ))
435  end subroutine nc_diag_read_id_get_var_2d_double
436 
437  subroutine nc_diag_read_noid_get_var_2d_double(var_name, var_stor)
438  character(len=*), intent(in) :: var_name
439  real(r_double), dimension(:,:),allocatable,intent(inout) :: var_stor
440 
441  call ncdr_check_current_ncdr_id
442  call nc_diag_read_id_get_var_2d_double(current_ncdr_id, var_name, var_stor)
443  end subroutine nc_diag_read_noid_get_var_2d_double
444 
445  subroutine nc_diag_read_id_get_var_2d_string(file_ncdr_id, var_name, var_stor)
446  integer(i_long), intent(in) :: file_ncdr_id
447  character(len=*), intent(in) :: var_name
448  character(len=:), dimension(:,:),allocatable,intent(inout) :: var_stor
449 
450  integer(i_long) :: var_index, var_type, file_ncid
451 
452  call ncdr_check_ncdr_id(file_ncdr_id)
453 
454  file_ncid = ncdr_files(file_ncdr_id)%ncid
455  call ncdr_check_ncid(file_ncid)
456 
457  var_index = nc_diag_read_id_assert_var(file_ncdr_id, var_name)
458  var_type = ncdr_files(file_ncdr_id)%vars(var_index)%var_type
459 
460  call nc_diag_read_assert_var_type(var_type, nf90_char)
461  call nc_diag_read_assert_var_ndims(size( &
462  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes), 3)
463 
464  call nc_diag_read_assert_dims(var_stor, &
465  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes)
466 
467  call ncdr_nc_check(nf90_get_var(file_ncid, var_index, &
468  var_stor, &
469  start = (/ 1, 1, 1 /), &
470  count = (/ ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(1), &
471  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(2), &
472  ncdr_files(file_ncdr_id)%vars(var_index)%var_dim_sizes(3) /) ))
473  end subroutine nc_diag_read_id_get_var_2d_string
474 
475  subroutine nc_diag_read_noid_get_var_2d_string(var_name, var_stor)
476  character(len=*), intent(in) :: var_name
477  character(len=:), dimension(:,:),allocatable,intent(inout) :: var_stor
478 
479  call ncdr_check_current_ncdr_id
480  call nc_diag_read_id_get_var_2d_string(current_ncdr_id, var_name, var_stor)
481  end subroutine nc_diag_read_noid_get_var_2d_string
482 end module ncdr_vars_fetch
ncdr_vars_fetch::nc_diag_read_id_get_var_1d_long
subroutine nc_diag_read_id_get_var_1d_long(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:116
ncd_kinds::i_byte
integer, parameter, public i_byte
Definition: ncd_kinds.F90:45
ncdr_vars_fetch
Definition: ncdr_vars_fetch.f90:1
ncdr_alloc_assert
Definition: ncdr_alloc_assert.f90:1
ncdr_vars_fetch::nc_diag_read_noid_get_var_1d_byte
subroutine nc_diag_read_noid_get_var_1d_byte(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:72
ncd_kinds::i_long
integer, parameter, public i_long
Definition: ncd_kinds.F90:47
ncdr_vars_fetch::nc_diag_read_noid_get_var_1d_float
subroutine nc_diag_read_noid_get_var_1d_float(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:180
ncdr_vars_fetch::nc_diag_read_noid_get_var_2d_byte
subroutine nc_diag_read_noid_get_var_2d_byte(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:290
ncdr_vars_fetch::nc_diag_read_id_get_var_1d_byte
subroutine nc_diag_read_id_get_var_1d_byte(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:44
ncdr_vars_fetch::nc_diag_read_noid_get_var_1d_double
subroutine nc_diag_read_noid_get_var_1d_double(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:216
ncdr_check::ncdr_nc_check
subroutine ncdr_nc_check(status)
Definition: ncdr_check.f90:85
ncdr_vars_fetch::nc_diag_read_id_get_var_1d_short
subroutine nc_diag_read_id_get_var_1d_short(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:80
ncdr_vars_fetch::nc_diag_read_noid_get_var_2d_short
subroutine nc_diag_read_noid_get_var_2d_short(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:327
ncdr_vars_fetch::nc_diag_read_id_get_var_1d_float
subroutine nc_diag_read_id_get_var_1d_float(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:152
ncdr_state::current_ncdr_id
integer(i_long) current_ncdr_id
Definition: ncdr_state.f90:7
ncdr_state::ncdr_files
type(ncdr_file), dimension(:), allocatable ncdr_files
Definition: ncdr_state.f90:14
fms_io_mod::var_type
Definition: fms_io.F90:214
ncdr_vars_fetch::nc_diag_read_noid_get_var_2d_double
subroutine nc_diag_read_noid_get_var_2d_double(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:438
ncdr_vars_fetch::nc_diag_read_noid_get_var_1d_string
subroutine nc_diag_read_noid_get_var_1d_string(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:253
ncdr_state
Definition: ncdr_state.f90:1
ncdr_check::ncdr_check_current_ncdr_id
subroutine ncdr_check_current_ncdr_id
Definition: ncdr_check.f90:22
ncdr_vars_fetch::nc_diag_read_noid_get_var_2d_string
subroutine nc_diag_read_noid_get_var_2d_string(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:476
ncdr_check::ncdr_check_ncid
subroutine ncdr_check_ncid(file_ncid)
Definition: ncdr_check.f90:28
ncdr_alloc_assert::nc_diag_read_assert_dims
Definition: ncdr_alloc_assert.f90:33
ncdr_vars_fetch::nc_diag_read_noid_get_var_2d_long
subroutine nc_diag_read_noid_get_var_2d_long(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:364
ncdr_check
Definition: ncdr_check.f90:1
ncdr_vars_fetch::nc_diag_read_id_get_var_1d_double
subroutine nc_diag_read_id_get_var_1d_double(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:188
ncdr_alloc_assert::nc_diag_read_id_assert_var
integer(i_long) function nc_diag_read_id_assert_var(file_ncdr_id, var_name)
Definition: ncdr_alloc_assert.f90:59
ncdr_vars_fetch::nc_diag_read_noid_get_var_1d_long
subroutine nc_diag_read_noid_get_var_1d_long(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:144
ncdr_vars_fetch::nc_diag_read_id_get_var_2d_short
subroutine nc_diag_read_id_get_var_2d_short(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:298
ncdr_check::ncdr_check_ncdr_id
subroutine ncdr_check_ncdr_id(file_ncdr_id)
Definition: ncdr_check.f90:12
ncdr_vars_fetch::nc_diag_read_noid_get_var_2d_float
subroutine nc_diag_read_noid_get_var_2d_float(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:401
ncdr_vars_fetch::nc_diag_read_id_get_var_2d_double
subroutine nc_diag_read_id_get_var_2d_double(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:409
ncd_kinds::i_short
integer, parameter, public i_short
Definition: ncd_kinds.F90:46
ncdr_vars_fetch::nc_diag_read_id_get_var_2d_long
subroutine nc_diag_read_id_get_var_2d_long(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:335
ncdr_vars_fetch::nc_diag_read_get_var
Definition: ncdr_vars_fetch.f90:14
ncdr_vars_fetch::nc_diag_read_id_get_var_1d_string
subroutine nc_diag_read_id_get_var_1d_string(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:224
ncdr_vars_fetch::nc_diag_read_id_get_var_2d_string
subroutine nc_diag_read_id_get_var_2d_string(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:446
ncd_kinds
Definition: ncd_kinds.F90:1
ncdr_vars_fetch::nc_diag_read_id_get_var_2d_byte
subroutine nc_diag_read_id_get_var_2d_byte(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:261
ncd_kinds::r_double
integer, parameter, public r_double
Definition: ncd_kinds.F90:80
ncdr_vars_fetch::nc_diag_read_noid_get_var_1d_short
subroutine nc_diag_read_noid_get_var_1d_short(var_name, var_stor)
Definition: ncdr_vars_fetch.f90:108
ncd_kinds::r_single
integer, parameter, public r_single
Definition: ncd_kinds.F90:79
ncdr_vars_fetch::nc_diag_read_id_get_var_2d_float
subroutine nc_diag_read_id_get_var_2d_float(file_ncdr_id, var_name, var_stor)
Definition: ncdr_vars_fetch.f90:372
ncdr_alloc_assert::nc_diag_read_assert_var_type
subroutine nc_diag_read_assert_var_type(var_type, correct_var_type)
Definition: ncdr_alloc_assert.f90:139
ncdr_alloc_assert::nc_diag_read_assert_var_ndims
subroutine nc_diag_read_assert_var_ndims(var_ndims, correct_var_ndims)
Definition: ncdr_alloc_assert.f90:198