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

Last change on this file since 1626 was 1626, checked in by oabramkina, 5 years ago

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