source: XIOS/dev/dev_oa/src/interface/fortran_attr/idomaingroup_attr.F90 @ 1952

Last change on this file since 1952 was 1952, checked in by oabramkina, 4 years ago

Adding tile attributes.
  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 65.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomaingroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domaingroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_domaingroup_attr)  &
14    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
15    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
16    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
17    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
18    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
19    , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
20
21    IMPLICIT NONE
22      TYPE(txios(domaingroup))  :: domaingroup_hdl
23      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
28      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
29      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
33      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
34      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
35      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
36      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
37      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
38      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
43      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
44      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
45      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
46      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
48      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
49      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
53      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
54      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
55      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
56      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
57      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
59      INTEGER  , OPTIONAL, INTENT(IN) :: ni
60      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
61      INTEGER  , OPTIONAL, INTENT(IN) :: nj
62      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
63      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles
64      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
65      INTEGER  , OPTIONAL, INTENT(IN) :: prec
66      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
67      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
68      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:)
69      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:)
70      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:)
71      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:)
72      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:)
73      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:)
74      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
75
76      CALL xios(get_domaingroup_handle) &
77      (domaingroup_id,domaingroup_hdl)
78      CALL xios(set_domaingroup_attr_hdl_)   &
79      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
80      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
81      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
82      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
83      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
84      , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
85
86  END SUBROUTINE xios(set_domaingroup_attr)
87
88  SUBROUTINE xios(set_domaingroup_attr_hdl)  &
89    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
90    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
91    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
92    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
93    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
94    , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
95
96    IMPLICIT NONE
97      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
98      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
99      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
102      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
103      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
106      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
107      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
108      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
109      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
110      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
111      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
112      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
116      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
117      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
118      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
119      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
120      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
122      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
123      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
124      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
125      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
126      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
127      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
128      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
129      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
130      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
131      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
133      INTEGER  , OPTIONAL, INTENT(IN) :: ni
134      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
135      INTEGER  , OPTIONAL, INTENT(IN) :: nj
136      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
137      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles
138      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
139      INTEGER  , OPTIONAL, INTENT(IN) :: prec
140      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
141      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
142      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:)
143      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:)
144      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:)
145      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:)
146      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:)
147      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:)
148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
149
150      CALL xios(set_domaingroup_attr_hdl_)  &
151      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
152      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
153      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
154      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
155      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
156      , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
157
158  END SUBROUTINE xios(set_domaingroup_attr_hdl)
159
160  SUBROUTINE xios(set_domaingroup_attr_hdl_)   &
161    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
162    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
163    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  &
164    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  &
165    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  &
166    , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  &
167     )
168
169    IMPLICIT NONE
170      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
171      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
172      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
173      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
174      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name_
175      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
176      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
177      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_
178      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
179      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
180      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
181      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
182      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
183      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
184      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
185      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
186      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name_
187      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name_
188      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
189      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
190      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:)
191      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
192      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:)
193      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
194      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name_
195      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
196      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
197      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name_
198      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
199      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
200      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
201      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
202      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
203      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
204      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
205      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
206      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
207      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
208      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
209      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
210      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles_
211      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
212      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
213      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_
214      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
215      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:)
216      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:)
217      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin_(:)
218      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin_(:)
219      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni_(:)
220      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj_(:)
221      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
222
223      IF (PRESENT(area_)) THEN
224        CALL cxios_set_domaingroup_area &
225      (domaingroup_hdl%daddr, area_, SHAPE(area_))
226      ENDIF
227
228      IF (PRESENT(bounds_lat_1d_)) THEN
229        CALL cxios_set_domaingroup_bounds_lat_1d &
230      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
231      ENDIF
232
233      IF (PRESENT(bounds_lat_2d_)) THEN
234        CALL cxios_set_domaingroup_bounds_lat_2d &
235      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
236      ENDIF
237
238      IF (PRESENT(bounds_lat_name_)) THEN
239        CALL cxios_set_domaingroup_bounds_lat_name &
240      (domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
241      ENDIF
242
243      IF (PRESENT(bounds_lon_1d_)) THEN
244        CALL cxios_set_domaingroup_bounds_lon_1d &
245      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
246      ENDIF
247
248      IF (PRESENT(bounds_lon_2d_)) THEN
249        CALL cxios_set_domaingroup_bounds_lon_2d &
250      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
251      ENDIF
252
253      IF (PRESENT(bounds_lon_name_)) THEN
254        CALL cxios_set_domaingroup_bounds_lon_name &
255      (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
256      ENDIF
257
258      IF (PRESENT(comment_)) THEN
259        CALL cxios_set_domaingroup_comment &
260      (domaingroup_hdl%daddr, comment_, len(comment_))
261      ENDIF
262
263      IF (PRESENT(data_dim_)) THEN
264        CALL cxios_set_domaingroup_data_dim &
265      (domaingroup_hdl%daddr, data_dim_)
266      ENDIF
267
268      IF (PRESENT(data_i_index_)) THEN
269        CALL cxios_set_domaingroup_data_i_index &
270      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
271      ENDIF
272
273      IF (PRESENT(data_ibegin_)) THEN
274        CALL cxios_set_domaingroup_data_ibegin &
275      (domaingroup_hdl%daddr, data_ibegin_)
276      ENDIF
277
278      IF (PRESENT(data_j_index_)) THEN
279        CALL cxios_set_domaingroup_data_j_index &
280      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
281      ENDIF
282
283      IF (PRESENT(data_jbegin_)) THEN
284        CALL cxios_set_domaingroup_data_jbegin &
285      (domaingroup_hdl%daddr, data_jbegin_)
286      ENDIF
287
288      IF (PRESENT(data_ni_)) THEN
289        CALL cxios_set_domaingroup_data_ni &
290      (domaingroup_hdl%daddr, data_ni_)
291      ENDIF
292
293      IF (PRESENT(data_nj_)) THEN
294        CALL cxios_set_domaingroup_data_nj &
295      (domaingroup_hdl%daddr, data_nj_)
296      ENDIF
297
298      IF (PRESENT(dim_i_name_)) THEN
299        CALL cxios_set_domaingroup_dim_i_name &
300      (domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_))
301      ENDIF
302
303      IF (PRESENT(dim_j_name_)) THEN
304        CALL cxios_set_domaingroup_dim_j_name &
305      (domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_))
306      ENDIF
307
308      IF (PRESENT(domain_ref_)) THEN
309        CALL cxios_set_domaingroup_domain_ref &
310      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
311      ENDIF
312
313      IF (PRESENT(group_ref_)) THEN
314        CALL cxios_set_domaingroup_group_ref &
315      (domaingroup_hdl%daddr, group_ref_, len(group_ref_))
316      ENDIF
317
318      IF (PRESENT(i_index_)) THEN
319        CALL cxios_set_domaingroup_i_index &
320      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
321      ENDIF
322
323      IF (PRESENT(ibegin_)) THEN
324        CALL cxios_set_domaingroup_ibegin &
325      (domaingroup_hdl%daddr, ibegin_)
326      ENDIF
327
328      IF (PRESENT(j_index_)) THEN
329        CALL cxios_set_domaingroup_j_index &
330      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
331      ENDIF
332
333      IF (PRESENT(jbegin_)) THEN
334        CALL cxios_set_domaingroup_jbegin &
335      (domaingroup_hdl%daddr, jbegin_)
336      ENDIF
337
338      IF (PRESENT(lat_name_)) THEN
339        CALL cxios_set_domaingroup_lat_name &
340      (domaingroup_hdl%daddr, lat_name_, len(lat_name_))
341      ENDIF
342
343      IF (PRESENT(latvalue_1d_)) THEN
344        CALL cxios_set_domaingroup_latvalue_1d &
345      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
346      ENDIF
347
348      IF (PRESENT(latvalue_2d_)) THEN
349        CALL cxios_set_domaingroup_latvalue_2d &
350      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
351      ENDIF
352
353      IF (PRESENT(lon_name_)) THEN
354        CALL cxios_set_domaingroup_lon_name &
355      (domaingroup_hdl%daddr, lon_name_, len(lon_name_))
356      ENDIF
357
358      IF (PRESENT(long_name_)) THEN
359        CALL cxios_set_domaingroup_long_name &
360      (domaingroup_hdl%daddr, long_name_, len(long_name_))
361      ENDIF
362
363      IF (PRESENT(lonvalue_1d_)) THEN
364        CALL cxios_set_domaingroup_lonvalue_1d &
365      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
366      ENDIF
367
368      IF (PRESENT(lonvalue_2d_)) THEN
369        CALL cxios_set_domaingroup_lonvalue_2d &
370      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
371      ENDIF
372
373      IF (PRESENT(mask_1d_)) THEN
374        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
375        mask_1d__tmp = mask_1d_
376        CALL cxios_set_domaingroup_mask_1d &
377      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
378      ENDIF
379
380      IF (PRESENT(mask_2d_)) THEN
381        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
382        mask_2d__tmp = mask_2d_
383        CALL cxios_set_domaingroup_mask_2d &
384      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
385      ENDIF
386
387      IF (PRESENT(name_)) THEN
388        CALL cxios_set_domaingroup_name &
389      (domaingroup_hdl%daddr, name_, len(name_))
390      ENDIF
391
392      IF (PRESENT(ni_)) THEN
393        CALL cxios_set_domaingroup_ni &
394      (domaingroup_hdl%daddr, ni_)
395      ENDIF
396
397      IF (PRESENT(ni_glo_)) THEN
398        CALL cxios_set_domaingroup_ni_glo &
399      (domaingroup_hdl%daddr, ni_glo_)
400      ENDIF
401
402      IF (PRESENT(nj_)) THEN
403        CALL cxios_set_domaingroup_nj &
404      (domaingroup_hdl%daddr, nj_)
405      ENDIF
406
407      IF (PRESENT(nj_glo_)) THEN
408        CALL cxios_set_domaingroup_nj_glo &
409      (domaingroup_hdl%daddr, nj_glo_)
410      ENDIF
411
412      IF (PRESENT(ntiles_)) THEN
413        CALL cxios_set_domaingroup_ntiles &
414      (domaingroup_hdl%daddr, ntiles_)
415      ENDIF
416
417      IF (PRESENT(nvertex_)) THEN
418        CALL cxios_set_domaingroup_nvertex &
419      (domaingroup_hdl%daddr, nvertex_)
420      ENDIF
421
422      IF (PRESENT(prec_)) THEN
423        CALL cxios_set_domaingroup_prec &
424      (domaingroup_hdl%daddr, prec_)
425      ENDIF
426
427      IF (PRESENT(radius_)) THEN
428        CALL cxios_set_domaingroup_radius &
429      (domaingroup_hdl%daddr, radius_)
430      ENDIF
431
432      IF (PRESENT(standard_name_)) THEN
433        CALL cxios_set_domaingroup_standard_name &
434      (domaingroup_hdl%daddr, standard_name_, len(standard_name_))
435      ENDIF
436
437      IF (PRESENT(tile_data_ibegin_)) THEN
438        CALL cxios_set_domaingroup_tile_data_ibegin &
439      (domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_))
440      ENDIF
441
442      IF (PRESENT(tile_data_jbegin_)) THEN
443        CALL cxios_set_domaingroup_tile_data_jbegin &
444      (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_))
445      ENDIF
446
447      IF (PRESENT(tile_ibegin_)) THEN
448        CALL cxios_set_domaingroup_tile_ibegin &
449      (domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_))
450      ENDIF
451
452      IF (PRESENT(tile_jbegin_)) THEN
453        CALL cxios_set_domaingroup_tile_jbegin &
454      (domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_))
455      ENDIF
456
457      IF (PRESENT(tile_ni_)) THEN
458        CALL cxios_set_domaingroup_tile_ni &
459      (domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_))
460      ENDIF
461
462      IF (PRESENT(tile_nj_)) THEN
463        CALL cxios_set_domaingroup_tile_nj &
464      (domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_))
465      ENDIF
466
467      IF (PRESENT(type_)) THEN
468        CALL cxios_set_domaingroup_type &
469      (domaingroup_hdl%daddr, type_, len(type_))
470      ENDIF
471
472  END SUBROUTINE xios(set_domaingroup_attr_hdl_)
473
474  SUBROUTINE xios(get_domaingroup_attr)  &
475    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
476    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
477    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
478    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
479    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
480    , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
481
482    IMPLICIT NONE
483      TYPE(txios(domaingroup))  :: domaingroup_hdl
484      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
485      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
486      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
487      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
488      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
489      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
490      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
491      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
492      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
493      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
494      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
495      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
496      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
497      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
498      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
499      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
500      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
501      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
502      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
503      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
504      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
505      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
506      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
507      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
508      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
509      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
510      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
511      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
512      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
513      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
514      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
515      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
516      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
517      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
518      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
519      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
520      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
521      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
522      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
523      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
524      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles
525      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
526      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
527      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
528      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
529      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:)
530      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:)
531      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:)
532      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:)
533      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:)
534      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:)
535      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
536
537      CALL xios(get_domaingroup_handle) &
538      (domaingroup_id,domaingroup_hdl)
539      CALL xios(get_domaingroup_attr_hdl_)   &
540      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
541      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
542      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
543      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
544      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
545      , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
546
547  END SUBROUTINE xios(get_domaingroup_attr)
548
549  SUBROUTINE xios(get_domaingroup_attr_hdl)  &
550    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
551    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
552    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
553    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
554    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
555    , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
556
557    IMPLICIT NONE
558      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
559      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
560      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
561      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
562      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
563      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
564      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
565      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
566      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
567      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
568      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
569      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
570      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
571      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
572      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
573      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
574      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
575      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
576      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
577      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
578      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
579      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
580      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
581      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
582      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
583      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
584      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
585      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
586      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
587      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
588      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
589      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
590      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
591      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
592      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
593      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
594      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
595      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
596      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
597      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
598      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles
599      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
600      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
601      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
602      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
603      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:)
604      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:)
605      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:)
606      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:)
607      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:)
608      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:)
609      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
610
611      CALL xios(get_domaingroup_attr_hdl_)  &
612      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
613      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
614      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
615      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
616      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
617      , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
618
619  END SUBROUTINE xios(get_domaingroup_attr_hdl)
620
621  SUBROUTINE xios(get_domaingroup_attr_hdl_)   &
622    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
623    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
624    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  &
625    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  &
626    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  &
627    , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  &
628     )
629
630    IMPLICIT NONE
631      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
632      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
633      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
634      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
635      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name_
636      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
637      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
638      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_
639      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
640      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
641      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
642      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
643      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
644      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
645      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
646      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
647      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name_
648      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name_
649      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
650      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
651      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:)
652      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
653      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:)
654      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
655      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name_
656      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
657      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
658      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name_
659      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
660      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
661      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
662      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
663      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
664      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
665      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
666      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
667      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
668      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
669      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
670      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
671      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles_
672      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
673      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
674      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_
675      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
676      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:)
677      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:)
678      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:)
679      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:)
680      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni_(:)
681      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj_(:)
682      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
683
684      IF (PRESENT(area_)) THEN
685        CALL cxios_get_domaingroup_area &
686      (domaingroup_hdl%daddr, area_, SHAPE(area_))
687      ENDIF
688
689      IF (PRESENT(bounds_lat_1d_)) THEN
690        CALL cxios_get_domaingroup_bounds_lat_1d &
691      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
692      ENDIF
693
694      IF (PRESENT(bounds_lat_2d_)) THEN
695        CALL cxios_get_domaingroup_bounds_lat_2d &
696      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
697      ENDIF
698
699      IF (PRESENT(bounds_lat_name_)) THEN
700        CALL cxios_get_domaingroup_bounds_lat_name &
701      (domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
702      ENDIF
703
704      IF (PRESENT(bounds_lon_1d_)) THEN
705        CALL cxios_get_domaingroup_bounds_lon_1d &
706      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
707      ENDIF
708
709      IF (PRESENT(bounds_lon_2d_)) THEN
710        CALL cxios_get_domaingroup_bounds_lon_2d &
711      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
712      ENDIF
713
714      IF (PRESENT(bounds_lon_name_)) THEN
715        CALL cxios_get_domaingroup_bounds_lon_name &
716      (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
717      ENDIF
718
719      IF (PRESENT(comment_)) THEN
720        CALL cxios_get_domaingroup_comment &
721      (domaingroup_hdl%daddr, comment_, len(comment_))
722      ENDIF
723
724      IF (PRESENT(data_dim_)) THEN
725        CALL cxios_get_domaingroup_data_dim &
726      (domaingroup_hdl%daddr, data_dim_)
727      ENDIF
728
729      IF (PRESENT(data_i_index_)) THEN
730        CALL cxios_get_domaingroup_data_i_index &
731      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
732      ENDIF
733
734      IF (PRESENT(data_ibegin_)) THEN
735        CALL cxios_get_domaingroup_data_ibegin &
736      (domaingroup_hdl%daddr, data_ibegin_)
737      ENDIF
738
739      IF (PRESENT(data_j_index_)) THEN
740        CALL cxios_get_domaingroup_data_j_index &
741      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
742      ENDIF
743
744      IF (PRESENT(data_jbegin_)) THEN
745        CALL cxios_get_domaingroup_data_jbegin &
746      (domaingroup_hdl%daddr, data_jbegin_)
747      ENDIF
748
749      IF (PRESENT(data_ni_)) THEN
750        CALL cxios_get_domaingroup_data_ni &
751      (domaingroup_hdl%daddr, data_ni_)
752      ENDIF
753
754      IF (PRESENT(data_nj_)) THEN
755        CALL cxios_get_domaingroup_data_nj &
756      (domaingroup_hdl%daddr, data_nj_)
757      ENDIF
758
759      IF (PRESENT(dim_i_name_)) THEN
760        CALL cxios_get_domaingroup_dim_i_name &
761      (domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_))
762      ENDIF
763
764      IF (PRESENT(dim_j_name_)) THEN
765        CALL cxios_get_domaingroup_dim_j_name &
766      (domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_))
767      ENDIF
768
769      IF (PRESENT(domain_ref_)) THEN
770        CALL cxios_get_domaingroup_domain_ref &
771      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
772      ENDIF
773
774      IF (PRESENT(group_ref_)) THEN
775        CALL cxios_get_domaingroup_group_ref &
776      (domaingroup_hdl%daddr, group_ref_, len(group_ref_))
777      ENDIF
778
779      IF (PRESENT(i_index_)) THEN
780        CALL cxios_get_domaingroup_i_index &
781      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
782      ENDIF
783
784      IF (PRESENT(ibegin_)) THEN
785        CALL cxios_get_domaingroup_ibegin &
786      (domaingroup_hdl%daddr, ibegin_)
787      ENDIF
788
789      IF (PRESENT(j_index_)) THEN
790        CALL cxios_get_domaingroup_j_index &
791      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
792      ENDIF
793
794      IF (PRESENT(jbegin_)) THEN
795        CALL cxios_get_domaingroup_jbegin &
796      (domaingroup_hdl%daddr, jbegin_)
797      ENDIF
798
799      IF (PRESENT(lat_name_)) THEN
800        CALL cxios_get_domaingroup_lat_name &
801      (domaingroup_hdl%daddr, lat_name_, len(lat_name_))
802      ENDIF
803
804      IF (PRESENT(latvalue_1d_)) THEN
805        CALL cxios_get_domaingroup_latvalue_1d &
806      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
807      ENDIF
808
809      IF (PRESENT(latvalue_2d_)) THEN
810        CALL cxios_get_domaingroup_latvalue_2d &
811      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
812      ENDIF
813
814      IF (PRESENT(lon_name_)) THEN
815        CALL cxios_get_domaingroup_lon_name &
816      (domaingroup_hdl%daddr, lon_name_, len(lon_name_))
817      ENDIF
818
819      IF (PRESENT(long_name_)) THEN
820        CALL cxios_get_domaingroup_long_name &
821      (domaingroup_hdl%daddr, long_name_, len(long_name_))
822      ENDIF
823
824      IF (PRESENT(lonvalue_1d_)) THEN
825        CALL cxios_get_domaingroup_lonvalue_1d &
826      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
827      ENDIF
828
829      IF (PRESENT(lonvalue_2d_)) THEN
830        CALL cxios_get_domaingroup_lonvalue_2d &
831      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
832      ENDIF
833
834      IF (PRESENT(mask_1d_)) THEN
835        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
836        CALL cxios_get_domaingroup_mask_1d &
837      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
838        mask_1d_ = mask_1d__tmp
839      ENDIF
840
841      IF (PRESENT(mask_2d_)) THEN
842        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
843        CALL cxios_get_domaingroup_mask_2d &
844      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
845        mask_2d_ = mask_2d__tmp
846      ENDIF
847
848      IF (PRESENT(name_)) THEN
849        CALL cxios_get_domaingroup_name &
850      (domaingroup_hdl%daddr, name_, len(name_))
851      ENDIF
852
853      IF (PRESENT(ni_)) THEN
854        CALL cxios_get_domaingroup_ni &
855      (domaingroup_hdl%daddr, ni_)
856      ENDIF
857
858      IF (PRESENT(ni_glo_)) THEN
859        CALL cxios_get_domaingroup_ni_glo &
860      (domaingroup_hdl%daddr, ni_glo_)
861      ENDIF
862
863      IF (PRESENT(nj_)) THEN
864        CALL cxios_get_domaingroup_nj &
865      (domaingroup_hdl%daddr, nj_)
866      ENDIF
867
868      IF (PRESENT(nj_glo_)) THEN
869        CALL cxios_get_domaingroup_nj_glo &
870      (domaingroup_hdl%daddr, nj_glo_)
871      ENDIF
872
873      IF (PRESENT(ntiles_)) THEN
874        CALL cxios_get_domaingroup_ntiles &
875      (domaingroup_hdl%daddr, ntiles_)
876      ENDIF
877
878      IF (PRESENT(nvertex_)) THEN
879        CALL cxios_get_domaingroup_nvertex &
880      (domaingroup_hdl%daddr, nvertex_)
881      ENDIF
882
883      IF (PRESENT(prec_)) THEN
884        CALL cxios_get_domaingroup_prec &
885      (domaingroup_hdl%daddr, prec_)
886      ENDIF
887
888      IF (PRESENT(radius_)) THEN
889        CALL cxios_get_domaingroup_radius &
890      (domaingroup_hdl%daddr, radius_)
891      ENDIF
892
893      IF (PRESENT(standard_name_)) THEN
894        CALL cxios_get_domaingroup_standard_name &
895      (domaingroup_hdl%daddr, standard_name_, len(standard_name_))
896      ENDIF
897
898      IF (PRESENT(tile_data_ibegin_)) THEN
899        CALL cxios_get_domaingroup_tile_data_ibegin &
900      (domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_))
901      ENDIF
902
903      IF (PRESENT(tile_data_jbegin_)) THEN
904        CALL cxios_get_domaingroup_tile_data_jbegin &
905      (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_))
906      ENDIF
907
908      IF (PRESENT(tile_ibegin_)) THEN
909        CALL cxios_get_domaingroup_tile_ibegin &
910      (domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_))
911      ENDIF
912
913      IF (PRESENT(tile_jbegin_)) THEN
914        CALL cxios_get_domaingroup_tile_jbegin &
915      (domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_))
916      ENDIF
917
918      IF (PRESENT(tile_ni_)) THEN
919        CALL cxios_get_domaingroup_tile_ni &
920      (domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_))
921      ENDIF
922
923      IF (PRESENT(tile_nj_)) THEN
924        CALL cxios_get_domaingroup_tile_nj &
925      (domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_))
926      ENDIF
927
928      IF (PRESENT(type_)) THEN
929        CALL cxios_get_domaingroup_type &
930      (domaingroup_hdl%daddr, type_, len(type_))
931      ENDIF
932
933  END SUBROUTINE xios(get_domaingroup_attr_hdl_)
934
935  SUBROUTINE xios(is_defined_domaingroup_attr)  &
936    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
937    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
938    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
939    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
940    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
941    , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
942
943    IMPLICIT NONE
944      TYPE(txios(domaingroup))  :: domaingroup_hdl
945      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
946      LOGICAL, OPTIONAL, INTENT(OUT) :: area
947      LOGICAL(KIND=C_BOOL) :: area_tmp
948      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
949      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
950      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
951      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
952      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
953      LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
954      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
955      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
956      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
957      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
958      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
959      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
960      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
961      LOGICAL(KIND=C_BOOL) :: comment_tmp
962      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
963      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
964      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
965      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
966      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
967      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
968      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
969      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
970      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
971      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
972      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
973      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
974      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
975      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
976      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
977      LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
978      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
979      LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
980      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
981      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
982      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
983      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
984      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
985      LOGICAL(KIND=C_BOOL) :: i_index_tmp
986      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
987      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
988      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
989      LOGICAL(KIND=C_BOOL) :: j_index_tmp
990      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
991      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
992      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
993      LOGICAL(KIND=C_BOOL) :: lat_name_tmp
994      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
995      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
996      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
997      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
998      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
999      LOGICAL(KIND=C_BOOL) :: lon_name_tmp
1000      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
1001      LOGICAL(KIND=C_BOOL) :: long_name_tmp
1002      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
1003      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
1004      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
1005      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
1006      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
1007      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
1008      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
1009      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
1010      LOGICAL, OPTIONAL, INTENT(OUT) :: name
1011      LOGICAL(KIND=C_BOOL) :: name_tmp
1012      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
1013      LOGICAL(KIND=C_BOOL) :: ni_tmp
1014      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
1015      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
1016      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
1017      LOGICAL(KIND=C_BOOL) :: nj_tmp
1018      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
1019      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
1020      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles
1021      LOGICAL(KIND=C_BOOL) :: ntiles_tmp
1022      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
1023      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
1024      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1025      LOGICAL(KIND=C_BOOL) :: prec_tmp
1026      LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1027      LOGICAL(KIND=C_BOOL) :: radius_tmp
1028      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1029      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
1030      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin
1031      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp
1032      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin
1033      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp
1034      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin
1035      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp
1036      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin
1037      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp
1038      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni
1039      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp
1040      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj
1041      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp
1042      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1043      LOGICAL(KIND=C_BOOL) :: type_tmp
1044
1045      CALL xios(get_domaingroup_handle) &
1046      (domaingroup_id,domaingroup_hdl)
1047      CALL xios(is_defined_domaingroup_attr_hdl_)   &
1048      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1049      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1050      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
1051      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
1052      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
1053      , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
1054
1055  END SUBROUTINE xios(is_defined_domaingroup_attr)
1056
1057  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  &
1058    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1059    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1060    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
1061    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
1062    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
1063    , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
1064
1065    IMPLICIT NONE
1066      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
1067      LOGICAL, OPTIONAL, INTENT(OUT) :: area
1068      LOGICAL(KIND=C_BOOL) :: area_tmp
1069      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
1070      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
1071      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
1072      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
1073      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
1074      LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
1075      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
1076      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
1077      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
1078      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
1079      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
1080      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
1081      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
1082      LOGICAL(KIND=C_BOOL) :: comment_tmp
1083      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
1084      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
1085      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
1086      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
1087      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
1088      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
1089      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
1090      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
1091      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
1092      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
1093      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
1094      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
1095      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
1096      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
1097      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
1098      LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
1099      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
1100      LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
1101      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
1102      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
1103      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
1104      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
1105      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
1106      LOGICAL(KIND=C_BOOL) :: i_index_tmp
1107      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
1108      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
1109      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
1110      LOGICAL(KIND=C_BOOL) :: j_index_tmp
1111      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
1112      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
1113      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
1114      LOGICAL(KIND=C_BOOL) :: lat_name_tmp
1115      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
1116      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
1117      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
1118      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
1119      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
1120      LOGICAL(KIND=C_BOOL) :: lon_name_tmp
1121      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
1122      LOGICAL(KIND=C_BOOL) :: long_name_tmp
1123      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
1124      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
1125      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
1126      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
1127      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
1128      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
1129      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
1130      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
1131      LOGICAL, OPTIONAL, INTENT(OUT) :: name
1132      LOGICAL(KIND=C_BOOL) :: name_tmp
1133      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
1134      LOGICAL(KIND=C_BOOL) :: ni_tmp
1135      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
1136      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
1137      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
1138      LOGICAL(KIND=C_BOOL) :: nj_tmp
1139      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
1140      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
1141      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles
1142      LOGICAL(KIND=C_BOOL) :: ntiles_tmp
1143      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
1144      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
1145      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1146      LOGICAL(KIND=C_BOOL) :: prec_tmp
1147      LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1148      LOGICAL(KIND=C_BOOL) :: radius_tmp
1149      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1150      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
1151      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin
1152      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp
1153      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin
1154      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp
1155      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin
1156      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp
1157      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin
1158      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp
1159      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni
1160      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp
1161      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj
1162      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp
1163      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1164      LOGICAL(KIND=C_BOOL) :: type_tmp
1165
1166      CALL xios(is_defined_domaingroup_attr_hdl_)  &
1167      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1168      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1169      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
1170      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
1171      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
1172      , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
1173
1174  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
1175
1176  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   &
1177    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
1178    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
1179    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  &
1180    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  &
1181    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  &
1182    , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  &
1183     )
1184
1185    IMPLICIT NONE
1186      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
1187      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
1188      LOGICAL(KIND=C_BOOL) :: area__tmp
1189      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
1190      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
1191      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
1192      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
1193      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name_
1194      LOGICAL(KIND=C_BOOL) :: bounds_lat_name__tmp
1195      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
1196      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
1197      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
1198      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
1199      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_
1200      LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp
1201      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
1202      LOGICAL(KIND=C_BOOL) :: comment__tmp
1203      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
1204      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
1205      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
1206      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
1207      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
1208      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
1209      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
1210      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
1211      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
1212      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
1213      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
1214      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
1215      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
1216      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
1217      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name_
1218      LOGICAL(KIND=C_BOOL) :: dim_i_name__tmp
1219      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name_
1220      LOGICAL(KIND=C_BOOL) :: dim_j_name__tmp
1221      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
1222      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
1223      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
1224      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
1225      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
1226      LOGICAL(KIND=C_BOOL) :: i_index__tmp
1227      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
1228      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
1229      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
1230      LOGICAL(KIND=C_BOOL) :: j_index__tmp
1231      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
1232      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
1233      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name_
1234      LOGICAL(KIND=C_BOOL) :: lat_name__tmp
1235      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
1236      LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
1237      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
1238      LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
1239      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name_
1240      LOGICAL(KIND=C_BOOL) :: lon_name__tmp
1241      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
1242      LOGICAL(KIND=C_BOOL) :: long_name__tmp
1243      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
1244      LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
1245      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
1246      LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
1247      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
1248      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
1249      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
1250      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
1251      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
1252      LOGICAL(KIND=C_BOOL) :: name__tmp
1253      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
1254      LOGICAL(KIND=C_BOOL) :: ni__tmp
1255      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
1256      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
1257      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
1258      LOGICAL(KIND=C_BOOL) :: nj__tmp
1259      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
1260      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
1261      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_
1262      LOGICAL(KIND=C_BOOL) :: ntiles__tmp
1263      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
1264      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
1265      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
1266      LOGICAL(KIND=C_BOOL) :: prec__tmp
1267      LOGICAL, OPTIONAL, INTENT(OUT) :: radius_
1268      LOGICAL(KIND=C_BOOL) :: radius__tmp
1269      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
1270      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
1271      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_
1272      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp
1273      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_
1274      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp
1275      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_
1276      LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp
1277      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_
1278      LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp
1279      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_
1280      LOGICAL(KIND=C_BOOL) :: tile_ni__tmp
1281      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_
1282      LOGICAL(KIND=C_BOOL) :: tile_nj__tmp
1283      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
1284      LOGICAL(KIND=C_BOOL) :: type__tmp
1285
1286      IF (PRESENT(area_)) THEN
1287        area__tmp = cxios_is_defined_domaingroup_area &
1288      (domaingroup_hdl%daddr)
1289        area_ = area__tmp
1290      ENDIF
1291
1292      IF (PRESENT(bounds_lat_1d_)) THEN
1293        bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d &
1294      (domaingroup_hdl%daddr)
1295        bounds_lat_1d_ = bounds_lat_1d__tmp
1296      ENDIF
1297
1298      IF (PRESENT(bounds_lat_2d_)) THEN
1299        bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d &
1300      (domaingroup_hdl%daddr)
1301        bounds_lat_2d_ = bounds_lat_2d__tmp
1302      ENDIF
1303
1304      IF (PRESENT(bounds_lat_name_)) THEN
1305        bounds_lat_name__tmp = cxios_is_defined_domaingroup_bounds_lat_name &
1306      (domaingroup_hdl%daddr)
1307        bounds_lat_name_ = bounds_lat_name__tmp
1308      ENDIF
1309
1310      IF (PRESENT(bounds_lon_1d_)) THEN
1311        bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d &
1312      (domaingroup_hdl%daddr)
1313        bounds_lon_1d_ = bounds_lon_1d__tmp
1314      ENDIF
1315
1316      IF (PRESENT(bounds_lon_2d_)) THEN
1317        bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d &
1318      (domaingroup_hdl%daddr)
1319        bounds_lon_2d_ = bounds_lon_2d__tmp
1320      ENDIF
1321
1322      IF (PRESENT(bounds_lon_name_)) THEN
1323        bounds_lon_name__tmp = cxios_is_defined_domaingroup_bounds_lon_name &
1324      (domaingroup_hdl%daddr)
1325        bounds_lon_name_ = bounds_lon_name__tmp
1326      ENDIF
1327
1328      IF (PRESENT(comment_)) THEN
1329        comment__tmp = cxios_is_defined_domaingroup_comment &
1330      (domaingroup_hdl%daddr)
1331        comment_ = comment__tmp
1332      ENDIF
1333
1334      IF (PRESENT(data_dim_)) THEN
1335        data_dim__tmp = cxios_is_defined_domaingroup_data_dim &
1336      (domaingroup_hdl%daddr)
1337        data_dim_ = data_dim__tmp
1338      ENDIF
1339
1340      IF (PRESENT(data_i_index_)) THEN
1341        data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index &
1342      (domaingroup_hdl%daddr)
1343        data_i_index_ = data_i_index__tmp
1344      ENDIF
1345
1346      IF (PRESENT(data_ibegin_)) THEN
1347        data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin &
1348      (domaingroup_hdl%daddr)
1349        data_ibegin_ = data_ibegin__tmp
1350      ENDIF
1351
1352      IF (PRESENT(data_j_index_)) THEN
1353        data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index &
1354      (domaingroup_hdl%daddr)
1355        data_j_index_ = data_j_index__tmp
1356      ENDIF
1357
1358      IF (PRESENT(data_jbegin_)) THEN
1359        data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin &
1360      (domaingroup_hdl%daddr)
1361        data_jbegin_ = data_jbegin__tmp
1362      ENDIF
1363
1364      IF (PRESENT(data_ni_)) THEN
1365        data_ni__tmp = cxios_is_defined_domaingroup_data_ni &
1366      (domaingroup_hdl%daddr)
1367        data_ni_ = data_ni__tmp
1368      ENDIF
1369
1370      IF (PRESENT(data_nj_)) THEN
1371        data_nj__tmp = cxios_is_defined_domaingroup_data_nj &
1372      (domaingroup_hdl%daddr)
1373        data_nj_ = data_nj__tmp
1374      ENDIF
1375
1376      IF (PRESENT(dim_i_name_)) THEN
1377        dim_i_name__tmp = cxios_is_defined_domaingroup_dim_i_name &
1378      (domaingroup_hdl%daddr)
1379        dim_i_name_ = dim_i_name__tmp
1380      ENDIF
1381
1382      IF (PRESENT(dim_j_name_)) THEN
1383        dim_j_name__tmp = cxios_is_defined_domaingroup_dim_j_name &
1384      (domaingroup_hdl%daddr)
1385        dim_j_name_ = dim_j_name__tmp
1386      ENDIF
1387
1388      IF (PRESENT(domain_ref_)) THEN
1389        domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref &
1390      (domaingroup_hdl%daddr)
1391        domain_ref_ = domain_ref__tmp
1392      ENDIF
1393
1394      IF (PRESENT(group_ref_)) THEN
1395        group_ref__tmp = cxios_is_defined_domaingroup_group_ref &
1396      (domaingroup_hdl%daddr)
1397        group_ref_ = group_ref__tmp
1398      ENDIF
1399
1400      IF (PRESENT(i_index_)) THEN
1401        i_index__tmp = cxios_is_defined_domaingroup_i_index &
1402      (domaingroup_hdl%daddr)
1403        i_index_ = i_index__tmp
1404      ENDIF
1405
1406      IF (PRESENT(ibegin_)) THEN
1407        ibegin__tmp = cxios_is_defined_domaingroup_ibegin &
1408      (domaingroup_hdl%daddr)
1409        ibegin_ = ibegin__tmp
1410      ENDIF
1411
1412      IF (PRESENT(j_index_)) THEN
1413        j_index__tmp = cxios_is_defined_domaingroup_j_index &
1414      (domaingroup_hdl%daddr)
1415        j_index_ = j_index__tmp
1416      ENDIF
1417
1418      IF (PRESENT(jbegin_)) THEN
1419        jbegin__tmp = cxios_is_defined_domaingroup_jbegin &
1420      (domaingroup_hdl%daddr)
1421        jbegin_ = jbegin__tmp
1422      ENDIF
1423
1424      IF (PRESENT(lat_name_)) THEN
1425        lat_name__tmp = cxios_is_defined_domaingroup_lat_name &
1426      (domaingroup_hdl%daddr)
1427        lat_name_ = lat_name__tmp
1428      ENDIF
1429
1430      IF (PRESENT(latvalue_1d_)) THEN
1431        latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d &
1432      (domaingroup_hdl%daddr)
1433        latvalue_1d_ = latvalue_1d__tmp
1434      ENDIF
1435
1436      IF (PRESENT(latvalue_2d_)) THEN
1437        latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d &
1438      (domaingroup_hdl%daddr)
1439        latvalue_2d_ = latvalue_2d__tmp
1440      ENDIF
1441
1442      IF (PRESENT(lon_name_)) THEN
1443        lon_name__tmp = cxios_is_defined_domaingroup_lon_name &
1444      (domaingroup_hdl%daddr)
1445        lon_name_ = lon_name__tmp
1446      ENDIF
1447
1448      IF (PRESENT(long_name_)) THEN
1449        long_name__tmp = cxios_is_defined_domaingroup_long_name &
1450      (domaingroup_hdl%daddr)
1451        long_name_ = long_name__tmp
1452      ENDIF
1453
1454      IF (PRESENT(lonvalue_1d_)) THEN
1455        lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d &
1456      (domaingroup_hdl%daddr)
1457        lonvalue_1d_ = lonvalue_1d__tmp
1458      ENDIF
1459
1460      IF (PRESENT(lonvalue_2d_)) THEN
1461        lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d &
1462      (domaingroup_hdl%daddr)
1463        lonvalue_2d_ = lonvalue_2d__tmp
1464      ENDIF
1465
1466      IF (PRESENT(mask_1d_)) THEN
1467        mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d &
1468      (domaingroup_hdl%daddr)
1469        mask_1d_ = mask_1d__tmp
1470      ENDIF
1471
1472      IF (PRESENT(mask_2d_)) THEN
1473        mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d &
1474      (domaingroup_hdl%daddr)
1475        mask_2d_ = mask_2d__tmp
1476      ENDIF
1477
1478      IF (PRESENT(name_)) THEN
1479        name__tmp = cxios_is_defined_domaingroup_name &
1480      (domaingroup_hdl%daddr)
1481        name_ = name__tmp
1482      ENDIF
1483
1484      IF (PRESENT(ni_)) THEN
1485        ni__tmp = cxios_is_defined_domaingroup_ni &
1486      (domaingroup_hdl%daddr)
1487        ni_ = ni__tmp
1488      ENDIF
1489
1490      IF (PRESENT(ni_glo_)) THEN
1491        ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo &
1492      (domaingroup_hdl%daddr)
1493        ni_glo_ = ni_glo__tmp
1494      ENDIF
1495
1496      IF (PRESENT(nj_)) THEN
1497        nj__tmp = cxios_is_defined_domaingroup_nj &
1498      (domaingroup_hdl%daddr)
1499        nj_ = nj__tmp
1500      ENDIF
1501
1502      IF (PRESENT(nj_glo_)) THEN
1503        nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo &
1504      (domaingroup_hdl%daddr)
1505        nj_glo_ = nj_glo__tmp
1506      ENDIF
1507
1508      IF (PRESENT(ntiles_)) THEN
1509        ntiles__tmp = cxios_is_defined_domaingroup_ntiles &
1510      (domaingroup_hdl%daddr)
1511        ntiles_ = ntiles__tmp
1512      ENDIF
1513
1514      IF (PRESENT(nvertex_)) THEN
1515        nvertex__tmp = cxios_is_defined_domaingroup_nvertex &
1516      (domaingroup_hdl%daddr)
1517        nvertex_ = nvertex__tmp
1518      ENDIF
1519
1520      IF (PRESENT(prec_)) THEN
1521        prec__tmp = cxios_is_defined_domaingroup_prec &
1522      (domaingroup_hdl%daddr)
1523        prec_ = prec__tmp
1524      ENDIF
1525
1526      IF (PRESENT(radius_)) THEN
1527        radius__tmp = cxios_is_defined_domaingroup_radius &
1528      (domaingroup_hdl%daddr)
1529        radius_ = radius__tmp
1530      ENDIF
1531
1532      IF (PRESENT(standard_name_)) THEN
1533        standard_name__tmp = cxios_is_defined_domaingroup_standard_name &
1534      (domaingroup_hdl%daddr)
1535        standard_name_ = standard_name__tmp
1536      ENDIF
1537
1538      IF (PRESENT(tile_data_ibegin_)) THEN
1539        tile_data_ibegin__tmp = cxios_is_defined_domaingroup_tile_data_ibegin &
1540      (domaingroup_hdl%daddr)
1541        tile_data_ibegin_ = tile_data_ibegin__tmp
1542      ENDIF
1543
1544      IF (PRESENT(tile_data_jbegin_)) THEN
1545        tile_data_jbegin__tmp = cxios_is_defined_domaingroup_tile_data_jbegin &
1546      (domaingroup_hdl%daddr)
1547        tile_data_jbegin_ = tile_data_jbegin__tmp
1548      ENDIF
1549
1550      IF (PRESENT(tile_ibegin_)) THEN
1551        tile_ibegin__tmp = cxios_is_defined_domaingroup_tile_ibegin &
1552      (domaingroup_hdl%daddr)
1553        tile_ibegin_ = tile_ibegin__tmp
1554      ENDIF
1555
1556      IF (PRESENT(tile_jbegin_)) THEN
1557        tile_jbegin__tmp = cxios_is_defined_domaingroup_tile_jbegin &
1558      (domaingroup_hdl%daddr)
1559        tile_jbegin_ = tile_jbegin__tmp
1560      ENDIF
1561
1562      IF (PRESENT(tile_ni_)) THEN
1563        tile_ni__tmp = cxios_is_defined_domaingroup_tile_ni &
1564      (domaingroup_hdl%daddr)
1565        tile_ni_ = tile_ni__tmp
1566      ENDIF
1567
1568      IF (PRESENT(tile_nj_)) THEN
1569        tile_nj__tmp = cxios_is_defined_domaingroup_tile_nj &
1570      (domaingroup_hdl%daddr)
1571        tile_nj_ = tile_nj__tmp
1572      ENDIF
1573
1574      IF (PRESENT(type_)) THEN
1575        type__tmp = cxios_is_defined_domaingroup_type &
1576      (domaingroup_hdl%daddr)
1577        type_ = type__tmp
1578      ENDIF
1579
1580  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
1581
1582END MODULE idomaingroup_attr
Note: See TracBrowser for help on using the repository browser.