source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/idomaingroup_attr.F90 @ 611

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