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

Last change on this file since 467 was 467, checked in by ymipsl, 10 years ago

Add functionnalities for reduced gaussian grid support.

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