source: XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90 @ 611

Last change on this file since 611 was 611, checked in by rlacroix, 9 years ago

Improve CF compliance: Add a new domain attribute "area".

Fixes ticket #68.
  • 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: 51.3 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, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
15    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
16    , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
17    , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
18    , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
19
20    IMPLICIT NONE
21      TYPE(txios(domaingroup))  :: domaingroup_hdl
22      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
26      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
27      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
28      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
30      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
33      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
37      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:)
38      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
39      INTEGER  , OPTIONAL, INTENT(IN) :: iend
40      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:)
41      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
42      INTEGER  , OPTIONAL, INTENT(IN) :: jend
43      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
45      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
46      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
47      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
49      INTEGER  , OPTIONAL, INTENT(IN) :: ni
50      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
51      INTEGER  , OPTIONAL, INTENT(IN) :: nj
52      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
53      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
56      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
57      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
58      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
59      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
60      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
61      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
62      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
63      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
64
65      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
66      CALL xios(set_domaingroup_attr_hdl_)   &
67      ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
68      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
69      , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
70      , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
71      , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
72
73  END SUBROUTINE xios(set_domaingroup_attr)
74
75  SUBROUTINE xios(set_domaingroup_attr_hdl)  &
76    ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
77    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
78    , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
79    , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
80    , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
81
82    IMPLICIT NONE
83      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
84      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
85      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
86      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
87      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
88      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
89      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
90      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
91      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
92      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
93      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
94      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
96      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
98      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:)
99      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
100      INTEGER  , OPTIONAL, INTENT(IN) :: iend
101      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:)
102      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
103      INTEGER  , OPTIONAL, INTENT(IN) :: jend
104      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
106      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
107      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
108      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
110      INTEGER  , OPTIONAL, INTENT(IN) :: ni
111      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
112      INTEGER  , OPTIONAL, INTENT(IN) :: nj
113      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
114      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
115      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
116      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
117      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
118      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
119      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
120      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
121      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
122      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
123      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
124      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
125
126      CALL xios(set_domaingroup_attr_hdl_)  &
127      ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
128      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
129      , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
130      , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
131      , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
132
133  END SUBROUTINE xios(set_domaingroup_attr_hdl)
134
135  SUBROUTINE xios(set_domaingroup_attr_hdl_)   &
136    ( domaingroup_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
137    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_  &
138    , i_index_, ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_  &
139    , name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_  &
140    , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
141
142    IMPLICIT NONE
143      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
144      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
145      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_(:,:)
146      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_(:,:)
147      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
148      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
149      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
150      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
151      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
152      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index_
153      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
154      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
155      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
156      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
157      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
158      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:,:)
159      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
160      INTEGER  , OPTIONAL, INTENT(IN) :: iend_
161      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:,:)
162      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
163      INTEGER  , OPTIONAL, INTENT(IN) :: jend_
164      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
165      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
166      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
167      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:,:)
168      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
169      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
170      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
171      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
172      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
173      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
174      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
176      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
177      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_
178      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_
179      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_
180      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_
181      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_
182      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc_
183      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_
184      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc_
185
186      IF (PRESENT(area_)) THEN
187        CALL cxios_set_domaingroup_area(domaingroup_hdl%daddr, area_, size(area_,1), size(area_,2))
188      ENDIF
189
190      IF (PRESENT(bounds_lat_)) THEN
191        CALL cxios_set_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2))
192      ENDIF
193
194      IF (PRESENT(bounds_lon_)) THEN
195        CALL cxios_set_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2))
196      ENDIF
197
198      IF (PRESENT(data_dim_)) THEN
199        CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
200      ENDIF
201
202      IF (PRESENT(data_i_index_)) THEN
203        CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_,1))
204      ENDIF
205
206      IF (PRESENT(data_ibegin_)) THEN
207        CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
208      ENDIF
209
210      IF (PRESENT(data_j_index_)) THEN
211        CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_,1))
212      ENDIF
213
214      IF (PRESENT(data_jbegin_)) THEN
215        CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
216      ENDIF
217
218      IF (PRESENT(data_n_index_)) THEN
219        CALL cxios_set_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
220      ENDIF
221
222      IF (PRESENT(data_ni_)) THEN
223        CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
224      ENDIF
225
226      IF (PRESENT(data_nj_)) THEN
227        CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
228      ENDIF
229
230      IF (PRESENT(domain_group_ref_)) THEN
231        CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
232      ENDIF
233
234      IF (PRESENT(domain_ref_)) THEN
235        CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
236      ENDIF
237
238      IF (PRESENT(group_ref_)) THEN
239        CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
240      ENDIF
241
242      IF (PRESENT(i_index_)) THEN
243        CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2))
244      ENDIF
245
246      IF (PRESENT(ibegin_)) THEN
247        CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
248      ENDIF
249
250      IF (PRESENT(iend_)) THEN
251        CALL cxios_set_domaingroup_iend(domaingroup_hdl%daddr, iend_)
252      ENDIF
253
254      IF (PRESENT(j_index_)) THEN
255        CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2))
256      ENDIF
257
258      IF (PRESENT(jbegin_)) THEN
259        CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
260      ENDIF
261
262      IF (PRESENT(jend_)) THEN
263        CALL cxios_set_domaingroup_jend(domaingroup_hdl%daddr, jend_)
264      ENDIF
265
266      IF (PRESENT(latvalue_)) THEN
267        CALL cxios_set_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_,1))
268      ENDIF
269
270      IF (PRESENT(long_name_)) THEN
271        CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
272      ENDIF
273
274      IF (PRESENT(lonvalue_)) THEN
275        CALL cxios_set_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_,1))
276      ENDIF
277
278      IF (PRESENT(mask_)) THEN
279        ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))
280        mask__tmp = mask_
281        CALL cxios_set_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2))
282      ENDIF
283
284      IF (PRESENT(name_)) THEN
285        CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
286      ENDIF
287
288      IF (PRESENT(ni_)) THEN
289        CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_)
290      ENDIF
291
292      IF (PRESENT(ni_glo_)) THEN
293        CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
294      ENDIF
295
296      IF (PRESENT(nj_)) THEN
297        CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_)
298      ENDIF
299
300      IF (PRESENT(nj_glo_)) THEN
301        CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
302      ENDIF
303
304      IF (PRESENT(nvertex_)) THEN
305        CALL cxios_set_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
306      ENDIF
307
308      IF (PRESENT(standard_name_)) THEN
309        CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
310      ENDIF
311
312      IF (PRESENT(type_)) THEN
313        CALL cxios_set_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
314      ENDIF
315
316      IF (PRESENT(zoom_ibegin_)) THEN
317        CALL cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_)
318      ENDIF
319
320      IF (PRESENT(zoom_ibegin_loc_)) THEN
321        CALL cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_)
322      ENDIF
323
324      IF (PRESENT(zoom_jbegin_)) THEN
325        CALL cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_)
326      ENDIF
327
328      IF (PRESENT(zoom_jbegin_loc_)) THEN
329        CALL cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_)
330      ENDIF
331
332      IF (PRESENT(zoom_ni_)) THEN
333        CALL cxios_set_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_)
334      ENDIF
335
336      IF (PRESENT(zoom_ni_loc_)) THEN
337        CALL cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_)
338      ENDIF
339
340      IF (PRESENT(zoom_nj_)) THEN
341        CALL cxios_set_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_)
342      ENDIF
343
344      IF (PRESENT(zoom_nj_loc_)) THEN
345        CALL cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_)
346      ENDIF
347
348  END SUBROUTINE xios(set_domaingroup_attr_hdl_)
349
350  SUBROUTINE xios(get_domaingroup_attr)  &
351    ( domaingroup_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
352    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
353    , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
354    , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
355    , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
356
357    IMPLICIT NONE
358      TYPE(txios(domaingroup))  :: domaingroup_hdl
359      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
360      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
361      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
362      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
363      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
364      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
365      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
366      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
367      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
368      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
369      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
370      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
371      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
372      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
373      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
374      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:)
375      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
376      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
377      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:)
378      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
379      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
380      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
381      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
382      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
383      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
384      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
385      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
386      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
387      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
388      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
389      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
390      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
391      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
393      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
394      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
395      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
396      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
397      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
398      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
399      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
400      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
401
402      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
403      CALL xios(get_domaingroup_attr_hdl_)   &
404      ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
405      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
406      , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
407      , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
408      , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
409
410  END SUBROUTINE xios(get_domaingroup_attr)
411
412  SUBROUTINE xios(get_domaingroup_attr_hdl)  &
413    ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
414    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
415    , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
416    , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
417    , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
418
419    IMPLICIT NONE
420      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
421      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
422      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
423      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
424      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
425      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
426      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
427      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
428      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
429      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
430      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
431      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
432      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
433      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
434      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
435      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:)
436      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
437      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
438      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:)
439      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
440      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
441      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
442      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
443      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
444      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
445      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
446      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
447      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
448      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
449      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
450      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
451      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
452      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
453      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
454      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
455      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
456      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
457      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
458      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
459      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
460      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
461      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
462
463      CALL xios(get_domaingroup_attr_hdl_)  &
464      ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
465      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
466      , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
467      , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
468      , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
469
470  END SUBROUTINE xios(get_domaingroup_attr_hdl)
471
472  SUBROUTINE xios(get_domaingroup_attr_hdl_)   &
473    ( domaingroup_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
474    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_  &
475    , i_index_, ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_  &
476    , name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_  &
477    , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
478
479    IMPLICIT NONE
480      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
481      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
482      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_(:,:)
483      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_(:,:)
484      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
485      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
486      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
487      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
488      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
489      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index_
490      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
491      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
492      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
493      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
494      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
495      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:,:)
496      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
497      INTEGER  , OPTIONAL, INTENT(OUT) :: iend_
498      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:,:)
499      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
500      INTEGER  , OPTIONAL, INTENT(OUT) :: jend_
501      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
502      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
503      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
504      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:)
505      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
506      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
507      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
508      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
509      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
510      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
511      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
512      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
513      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
514      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_
515      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
516      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_
517      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
518      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_
519      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
520      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_
521      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
522
523      IF (PRESENT(area_)) THEN
524        CALL cxios_get_domaingroup_area(domaingroup_hdl%daddr, area_, size(area_,1), size(area_,2))
525      ENDIF
526
527      IF (PRESENT(bounds_lat_)) THEN
528        CALL cxios_get_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2))
529      ENDIF
530
531      IF (PRESENT(bounds_lon_)) THEN
532        CALL cxios_get_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2))
533      ENDIF
534
535      IF (PRESENT(data_dim_)) THEN
536        CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
537      ENDIF
538
539      IF (PRESENT(data_i_index_)) THEN
540        CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, size(data_i_index_,1))
541      ENDIF
542
543      IF (PRESENT(data_ibegin_)) THEN
544        CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
545      ENDIF
546
547      IF (PRESENT(data_j_index_)) THEN
548        CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, size(data_j_index_,1))
549      ENDIF
550
551      IF (PRESENT(data_jbegin_)) THEN
552        CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
553      ENDIF
554
555      IF (PRESENT(data_n_index_)) THEN
556        CALL cxios_get_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
557      ENDIF
558
559      IF (PRESENT(data_ni_)) THEN
560        CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
561      ENDIF
562
563      IF (PRESENT(data_nj_)) THEN
564        CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
565      ENDIF
566
567      IF (PRESENT(domain_group_ref_)) THEN
568        CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
569      ENDIF
570
571      IF (PRESENT(domain_ref_)) THEN
572        CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
573      ENDIF
574
575      IF (PRESENT(group_ref_)) THEN
576        CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
577      ENDIF
578
579      IF (PRESENT(i_index_)) THEN
580        CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2))
581      ENDIF
582
583      IF (PRESENT(ibegin_)) THEN
584        CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
585      ENDIF
586
587      IF (PRESENT(iend_)) THEN
588        CALL cxios_get_domaingroup_iend(domaingroup_hdl%daddr, iend_)
589      ENDIF
590
591      IF (PRESENT(j_index_)) THEN
592        CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2))
593      ENDIF
594
595      IF (PRESENT(jbegin_)) THEN
596        CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
597      ENDIF
598
599      IF (PRESENT(jend_)) THEN
600        CALL cxios_get_domaingroup_jend(domaingroup_hdl%daddr, jend_)
601      ENDIF
602
603      IF (PRESENT(latvalue_)) THEN
604        CALL cxios_get_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_,1))
605      ENDIF
606
607      IF (PRESENT(long_name_)) THEN
608        CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
609      ENDIF
610
611      IF (PRESENT(lonvalue_)) THEN
612        CALL cxios_get_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_,1))
613      ENDIF
614
615      IF (PRESENT(mask_)) THEN
616        ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))
617        CALL cxios_get_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2))
618        mask_ = mask__tmp
619      ENDIF
620
621      IF (PRESENT(name_)) THEN
622        CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
623      ENDIF
624
625      IF (PRESENT(ni_)) THEN
626        CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_)
627      ENDIF
628
629      IF (PRESENT(ni_glo_)) THEN
630        CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
631      ENDIF
632
633      IF (PRESENT(nj_)) THEN
634        CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_)
635      ENDIF
636
637      IF (PRESENT(nj_glo_)) THEN
638        CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
639      ENDIF
640
641      IF (PRESENT(nvertex_)) THEN
642        CALL cxios_get_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
643      ENDIF
644
645      IF (PRESENT(standard_name_)) THEN
646        CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
647      ENDIF
648
649      IF (PRESENT(type_)) THEN
650        CALL cxios_get_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
651      ENDIF
652
653      IF (PRESENT(zoom_ibegin_)) THEN
654        CALL cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_)
655      ENDIF
656
657      IF (PRESENT(zoom_ibegin_loc_)) THEN
658        CALL cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_)
659      ENDIF
660
661      IF (PRESENT(zoom_jbegin_)) THEN
662        CALL cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_)
663      ENDIF
664
665      IF (PRESENT(zoom_jbegin_loc_)) THEN
666        CALL cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_)
667      ENDIF
668
669      IF (PRESENT(zoom_ni_)) THEN
670        CALL cxios_get_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_)
671      ENDIF
672
673      IF (PRESENT(zoom_ni_loc_)) THEN
674        CALL cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_)
675      ENDIF
676
677      IF (PRESENT(zoom_nj_)) THEN
678        CALL cxios_get_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_)
679      ENDIF
680
681      IF (PRESENT(zoom_nj_loc_)) THEN
682        CALL cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_)
683      ENDIF
684
685  END SUBROUTINE xios(get_domaingroup_attr_hdl_)
686
687  SUBROUTINE xios(is_defined_domaingroup_attr)  &
688    ( domaingroup_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
689    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
690    , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
691    , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
692    , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
693
694    IMPLICIT NONE
695      TYPE(txios(domaingroup))  :: domaingroup_hdl
696      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
697      LOGICAL, OPTIONAL, INTENT(OUT) :: area
698      LOGICAL(KIND=C_BOOL) :: area_tmp
699      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
700      LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
701      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
702      LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
703      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
704      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
705      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
706      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
707      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
708      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
709      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
710      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
711      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
712      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
713      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
714      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
715      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
716      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
717      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
718      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
719      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
720      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
721      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
722      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
723      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
724      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
725      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
726      LOGICAL(KIND=C_BOOL) :: i_index_tmp
727      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
728      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
729      LOGICAL, OPTIONAL, INTENT(OUT) :: iend
730      LOGICAL(KIND=C_BOOL) :: iend_tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
732      LOGICAL(KIND=C_BOOL) :: j_index_tmp
733      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
734      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
735      LOGICAL, OPTIONAL, INTENT(OUT) :: jend
736      LOGICAL(KIND=C_BOOL) :: jend_tmp
737      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
738      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
739      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
740      LOGICAL(KIND=C_BOOL) :: long_name_tmp
741      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
742      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
743      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
744      LOGICAL(KIND=C_BOOL) :: mask_tmp
745      LOGICAL, OPTIONAL, INTENT(OUT) :: name
746      LOGICAL(KIND=C_BOOL) :: name_tmp
747      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
748      LOGICAL(KIND=C_BOOL) :: ni_tmp
749      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
750      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
751      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
752      LOGICAL(KIND=C_BOOL) :: nj_tmp
753      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
754      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
755      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
756      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
757      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
758      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
759      LOGICAL, OPTIONAL, INTENT(OUT) :: type
760      LOGICAL(KIND=C_BOOL) :: type_tmp
761      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
762      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
763      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
764      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
765      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
766      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
767      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
768      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
769      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
770      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
771      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
772      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
773      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
774      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
775      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
776      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
777
778      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
779      CALL xios(is_defined_domaingroup_attr_hdl_)   &
780      ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
781      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
782      , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
783      , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
784      , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
785
786  END SUBROUTINE xios(is_defined_domaingroup_attr)
787
788  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  &
789    ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
790    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
791    , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
792    , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
793    , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
794
795    IMPLICIT NONE
796      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
797      LOGICAL, OPTIONAL, INTENT(OUT) :: area
798      LOGICAL(KIND=C_BOOL) :: area_tmp
799      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
800      LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
801      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
802      LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
803      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
804      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
805      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
806      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
807      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
808      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
809      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
810      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
811      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
812      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
813      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
814      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
815      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
816      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
817      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
818      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
819      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
820      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
821      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
822      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
823      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
824      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
825      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
826      LOGICAL(KIND=C_BOOL) :: i_index_tmp
827      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
828      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
829      LOGICAL, OPTIONAL, INTENT(OUT) :: iend
830      LOGICAL(KIND=C_BOOL) :: iend_tmp
831      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
832      LOGICAL(KIND=C_BOOL) :: j_index_tmp
833      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
834      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
835      LOGICAL, OPTIONAL, INTENT(OUT) :: jend
836      LOGICAL(KIND=C_BOOL) :: jend_tmp
837      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
838      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
839      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
840      LOGICAL(KIND=C_BOOL) :: long_name_tmp
841      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
842      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
843      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
844      LOGICAL(KIND=C_BOOL) :: mask_tmp
845      LOGICAL, OPTIONAL, INTENT(OUT) :: name
846      LOGICAL(KIND=C_BOOL) :: name_tmp
847      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
848      LOGICAL(KIND=C_BOOL) :: ni_tmp
849      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
850      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
851      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
852      LOGICAL(KIND=C_BOOL) :: nj_tmp
853      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
854      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
855      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
856      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
857      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
858      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
859      LOGICAL, OPTIONAL, INTENT(OUT) :: type
860      LOGICAL(KIND=C_BOOL) :: type_tmp
861      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
862      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
863      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
864      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
865      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
866      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
867      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
868      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
869      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
870      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
871      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
872      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
873      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
874      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
875      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
876      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
877
878      CALL xios(is_defined_domaingroup_attr_hdl_)  &
879      ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
880      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  &
881      , ibegin, iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo  &
882      , nj, nj_glo, nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc  &
883      , zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
884
885  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
886
887  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   &
888    ( domaingroup_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
889    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_  &
890    , i_index_, ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_  &
891    , name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_  &
892    , zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
893
894    IMPLICIT NONE
895      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
896      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
897      LOGICAL(KIND=C_BOOL) :: area__tmp
898      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_
899      LOGICAL(KIND=C_BOOL) :: bounds_lat__tmp
900      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_
901      LOGICAL(KIND=C_BOOL) :: bounds_lon__tmp
902      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
903      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
904      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
905      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
906      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
907      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
908      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
909      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
910      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
911      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
912      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_
913      LOGICAL(KIND=C_BOOL) :: data_n_index__tmp
914      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
915      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
916      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
917      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
918      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
919      LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
920      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
921      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
922      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
923      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
924      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
925      LOGICAL(KIND=C_BOOL) :: i_index__tmp
926      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
927      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
928      LOGICAL, OPTIONAL, INTENT(OUT) :: iend_
929      LOGICAL(KIND=C_BOOL) :: iend__tmp
930      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
931      LOGICAL(KIND=C_BOOL) :: j_index__tmp
932      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
933      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
934      LOGICAL, OPTIONAL, INTENT(OUT) :: jend_
935      LOGICAL(KIND=C_BOOL) :: jend__tmp
936      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_
937      LOGICAL(KIND=C_BOOL) :: latvalue__tmp
938      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
939      LOGICAL(KIND=C_BOOL) :: long_name__tmp
940      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_
941      LOGICAL(KIND=C_BOOL) :: lonvalue__tmp
942      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
943      LOGICAL(KIND=C_BOOL) :: mask__tmp
944      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
945      LOGICAL(KIND=C_BOOL) :: name__tmp
946      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
947      LOGICAL(KIND=C_BOOL) :: ni__tmp
948      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
949      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
950      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
951      LOGICAL(KIND=C_BOOL) :: nj__tmp
952      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
953      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
954      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
955      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
956      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
957      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
958      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
959      LOGICAL(KIND=C_BOOL) :: type__tmp
960      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_
961      LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp
962      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
963      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp
964      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_
965      LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp
966      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
967      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp
968      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_
969      LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp
970      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
971      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp
972      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_
973      LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp
974      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
975      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp
976
977      IF (PRESENT(area_)) THEN
978        area__tmp = cxios_is_defined_domaingroup_area(domaingroup_hdl%daddr)
979        area_ = area__tmp
980      ENDIF
981
982      IF (PRESENT(bounds_lat_)) THEN
983        bounds_lat__tmp = cxios_is_defined_domaingroup_bounds_lat(domaingroup_hdl%daddr)
984        bounds_lat_ = bounds_lat__tmp
985      ENDIF
986
987      IF (PRESENT(bounds_lon_)) THEN
988        bounds_lon__tmp = cxios_is_defined_domaingroup_bounds_lon(domaingroup_hdl%daddr)
989        bounds_lon_ = bounds_lon__tmp
990      ENDIF
991
992      IF (PRESENT(data_dim_)) THEN
993        data_dim__tmp = cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr)
994        data_dim_ = data_dim__tmp
995      ENDIF
996
997      IF (PRESENT(data_i_index_)) THEN
998        data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr)
999        data_i_index_ = data_i_index__tmp
1000      ENDIF
1001
1002      IF (PRESENT(data_ibegin_)) THEN
1003        data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr)
1004        data_ibegin_ = data_ibegin__tmp
1005      ENDIF
1006
1007      IF (PRESENT(data_j_index_)) THEN
1008        data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr)
1009        data_j_index_ = data_j_index__tmp
1010      ENDIF
1011
1012      IF (PRESENT(data_jbegin_)) THEN
1013        data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr)
1014        data_jbegin_ = data_jbegin__tmp
1015      ENDIF
1016
1017      IF (PRESENT(data_n_index_)) THEN
1018        data_n_index__tmp = cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr)
1019        data_n_index_ = data_n_index__tmp
1020      ENDIF
1021
1022      IF (PRESENT(data_ni_)) THEN
1023        data_ni__tmp = cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr)
1024        data_ni_ = data_ni__tmp
1025      ENDIF
1026
1027      IF (PRESENT(data_nj_)) THEN
1028        data_nj__tmp = cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr)
1029        data_nj_ = data_nj__tmp
1030      ENDIF
1031
1032      IF (PRESENT(domain_group_ref_)) THEN
1033        domain_group_ref__tmp = cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr)
1034        domain_group_ref_ = domain_group_ref__tmp
1035      ENDIF
1036
1037      IF (PRESENT(domain_ref_)) THEN
1038        domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr)
1039        domain_ref_ = domain_ref__tmp
1040      ENDIF
1041
1042      IF (PRESENT(group_ref_)) THEN
1043        group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)
1044        group_ref_ = group_ref__tmp
1045      ENDIF
1046
1047      IF (PRESENT(i_index_)) THEN
1048        i_index__tmp = cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr)
1049        i_index_ = i_index__tmp
1050      ENDIF
1051
1052      IF (PRESENT(ibegin_)) THEN
1053        ibegin__tmp = cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr)
1054        ibegin_ = ibegin__tmp
1055      ENDIF
1056
1057      IF (PRESENT(iend_)) THEN
1058        iend__tmp = cxios_is_defined_domaingroup_iend(domaingroup_hdl%daddr)
1059        iend_ = iend__tmp
1060      ENDIF
1061
1062      IF (PRESENT(j_index_)) THEN
1063        j_index__tmp = cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr)
1064        j_index_ = j_index__tmp
1065      ENDIF
1066
1067      IF (PRESENT(jbegin_)) THEN
1068        jbegin__tmp = cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr)
1069        jbegin_ = jbegin__tmp
1070      ENDIF
1071
1072      IF (PRESENT(jend_)) THEN
1073        jend__tmp = cxios_is_defined_domaingroup_jend(domaingroup_hdl%daddr)
1074        jend_ = jend__tmp
1075      ENDIF
1076
1077      IF (PRESENT(latvalue_)) THEN
1078        latvalue__tmp = cxios_is_defined_domaingroup_latvalue(domaingroup_hdl%daddr)
1079        latvalue_ = latvalue__tmp
1080      ENDIF
1081
1082      IF (PRESENT(long_name_)) THEN
1083        long_name__tmp = cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr)
1084        long_name_ = long_name__tmp
1085      ENDIF
1086
1087      IF (PRESENT(lonvalue_)) THEN
1088        lonvalue__tmp = cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl%daddr)
1089        lonvalue_ = lonvalue__tmp
1090      ENDIF
1091
1092      IF (PRESENT(mask_)) THEN
1093        mask__tmp = cxios_is_defined_domaingroup_mask(domaingroup_hdl%daddr)
1094        mask_ = mask__tmp
1095      ENDIF
1096
1097      IF (PRESENT(name_)) THEN
1098        name__tmp = cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr)
1099        name_ = name__tmp
1100      ENDIF
1101
1102      IF (PRESENT(ni_)) THEN
1103        ni__tmp = cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr)
1104        ni_ = ni__tmp
1105      ENDIF
1106
1107      IF (PRESENT(ni_glo_)) THEN
1108        ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr)
1109        ni_glo_ = ni_glo__tmp
1110      ENDIF
1111
1112      IF (PRESENT(nj_)) THEN
1113        nj__tmp = cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr)
1114        nj_ = nj__tmp
1115      ENDIF
1116
1117      IF (PRESENT(nj_glo_)) THEN
1118        nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr)
1119        nj_glo_ = nj_glo__tmp
1120      ENDIF
1121
1122      IF (PRESENT(nvertex_)) THEN
1123        nvertex__tmp = cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr)
1124        nvertex_ = nvertex__tmp
1125      ENDIF
1126
1127      IF (PRESENT(standard_name_)) THEN
1128        standard_name__tmp = cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr)
1129        standard_name_ = standard_name__tmp
1130      ENDIF
1131
1132      IF (PRESENT(type_)) THEN
1133        type__tmp = cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr)
1134        type_ = type__tmp
1135      ENDIF
1136
1137      IF (PRESENT(zoom_ibegin_)) THEN
1138        zoom_ibegin__tmp = cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl%daddr)
1139        zoom_ibegin_ = zoom_ibegin__tmp
1140      ENDIF
1141
1142      IF (PRESENT(zoom_ibegin_loc_)) THEN
1143        zoom_ibegin_loc__tmp = cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr)
1144        zoom_ibegin_loc_ = zoom_ibegin_loc__tmp
1145      ENDIF
1146
1147      IF (PRESENT(zoom_jbegin_)) THEN
1148        zoom_jbegin__tmp = cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl%daddr)
1149        zoom_jbegin_ = zoom_jbegin__tmp
1150      ENDIF
1151
1152      IF (PRESENT(zoom_jbegin_loc_)) THEN
1153        zoom_jbegin_loc__tmp = cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr)
1154        zoom_jbegin_loc_ = zoom_jbegin_loc__tmp
1155      ENDIF
1156
1157      IF (PRESENT(zoom_ni_)) THEN
1158        zoom_ni__tmp = cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl%daddr)
1159        zoom_ni_ = zoom_ni__tmp
1160      ENDIF
1161
1162      IF (PRESENT(zoom_ni_loc_)) THEN
1163        zoom_ni_loc__tmp = cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr)
1164        zoom_ni_loc_ = zoom_ni_loc__tmp
1165      ENDIF
1166
1167      IF (PRESENT(zoom_nj_)) THEN
1168        zoom_nj__tmp = cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl%daddr)
1169        zoom_nj_ = zoom_nj__tmp
1170      ENDIF
1171
1172      IF (PRESENT(zoom_nj_loc_)) THEN
1173        zoom_nj_loc__tmp = cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr)
1174        zoom_nj_loc_ = zoom_nj_loc__tmp
1175      ENDIF
1176
1177  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
1178
1179END MODULE idomaingroup_attr
Note: See TracBrowser for help on using the repository browser.