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

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

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