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

Last change on this file since 674 was 674, checked in by rlacroix, 6 years ago

Fix Fortran interface generation to avoid generating long lines.

Long lines can cause compilation issues with some compilers.

  • 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: 45.7 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomaingroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domaingroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_domaingroup_attr)  &
14    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
15    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
16    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
17    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
18     )
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      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
28      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
30      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
33      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
34      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
38      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
39      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
40      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
41      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
42      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
43      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
45      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
46      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
47      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
48      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
49      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
50      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
52      INTEGER  , OPTIONAL, INTENT(IN) :: ni
53      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
54      INTEGER  , OPTIONAL, INTENT(IN) :: nj
55      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
56      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
58      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
59
60      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
61      CALL xios(set_domaingroup_attr_hdl_)   &
62      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
63      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
64      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
65      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
66       )
67
68  END SUBROUTINE xios(set_domaingroup_attr)
69
70  SUBROUTINE xios(set_domaingroup_attr_hdl)  &
71    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
72    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
73    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
74    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
75     )
76
77    IMPLICIT NONE
78      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
79      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
80      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
81      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
82      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
83      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
84      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
85      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
86      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
87      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
88      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
89      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
90      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
91      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
94      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
95      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
96      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
97      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
98      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
99      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
102      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
103      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
104      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
105      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
106      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_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
116      CALL xios(set_domaingroup_attr_hdl_)  &
117      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
118      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
119      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
120      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
121       )
122
123  END SUBROUTINE xios(set_domaingroup_attr_hdl)
124
125  SUBROUTINE xios(set_domaingroup_attr_hdl_)   &
126    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
127    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  &
128    , domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  &
129    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  &
130    , nvertex_, standard_name_, type_ )
131
132    IMPLICIT NONE
133      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
134      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
135      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
136      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
137      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
138      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
139      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
140      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
141      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
142      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
143      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
144      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
145      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
149      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:)
150      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
151      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:)
152      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
153      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
154      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
155      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
156      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
157      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
158      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
159      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
160      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
161      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
162      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
163      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
164      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
165      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
166      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
167      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
168      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
169      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
170
171      IF (PRESENT(area_)) THEN
172        CALL cxios_set_domaingroup_area(domaingroup_hdl%daddr, area_, SHAPE(area_))
173      ENDIF
174
175      IF (PRESENT(bounds_lat_1d_)) THEN
176        CALL cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
177      ENDIF
178
179      IF (PRESENT(bounds_lat_2d_)) THEN
180        CALL cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
181      ENDIF
182
183      IF (PRESENT(bounds_lon_1d_)) THEN
184        CALL cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
185      ENDIF
186
187      IF (PRESENT(bounds_lon_2d_)) THEN
188        CALL cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
189      ENDIF
190
191      IF (PRESENT(data_dim_)) THEN
192        CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
193      ENDIF
194
195      IF (PRESENT(data_i_index_)) THEN
196        CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
197      ENDIF
198
199      IF (PRESENT(data_ibegin_)) THEN
200        CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
201      ENDIF
202
203      IF (PRESENT(data_j_index_)) THEN
204        CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
205      ENDIF
206
207      IF (PRESENT(data_jbegin_)) THEN
208        CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
209      ENDIF
210
211      IF (PRESENT(data_ni_)) THEN
212        CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
213      ENDIF
214
215      IF (PRESENT(data_nj_)) THEN
216        CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
217      ENDIF
218
219      IF (PRESENT(domain_group_ref_)) THEN
220        CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
221      ENDIF
222
223      IF (PRESENT(domain_ref_)) THEN
224        CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
225      ENDIF
226
227      IF (PRESENT(group_ref_)) THEN
228        CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
229      ENDIF
230
231      IF (PRESENT(i_index_)) THEN
232        CALL cxios_set_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
233      ENDIF
234
235      IF (PRESENT(ibegin_)) THEN
236        CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
237      ENDIF
238
239      IF (PRESENT(j_index_)) THEN
240        CALL cxios_set_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
241      ENDIF
242
243      IF (PRESENT(jbegin_)) THEN
244        CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
245      ENDIF
246
247      IF (PRESENT(latvalue_1d_)) THEN
248        CALL cxios_set_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
249      ENDIF
250
251      IF (PRESENT(latvalue_2d_)) THEN
252        CALL cxios_set_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
253      ENDIF
254
255      IF (PRESENT(long_name_)) THEN
256        CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
257      ENDIF
258
259      IF (PRESENT(lonvalue_1d_)) THEN
260        CALL cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
261      ENDIF
262
263      IF (PRESENT(lonvalue_2d_)) THEN
264        CALL cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
265      ENDIF
266
267      IF (PRESENT(mask_1d_)) THEN
268        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
269        mask_1d__tmp = mask_1d_
270        CALL cxios_set_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
271      ENDIF
272
273      IF (PRESENT(mask_2d_)) THEN
274        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
275        mask_2d__tmp = mask_2d_
276        CALL cxios_set_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
277      ENDIF
278
279      IF (PRESENT(name_)) THEN
280        CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
281      ENDIF
282
283      IF (PRESENT(ni_)) THEN
284        CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_)
285      ENDIF
286
287      IF (PRESENT(ni_glo_)) THEN
288        CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
289      ENDIF
290
291      IF (PRESENT(nj_)) THEN
292        CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_)
293      ENDIF
294
295      IF (PRESENT(nj_glo_)) THEN
296        CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
297      ENDIF
298
299      IF (PRESENT(nvertex_)) THEN
300        CALL cxios_set_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
301      ENDIF
302
303      IF (PRESENT(standard_name_)) THEN
304        CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
305      ENDIF
306
307      IF (PRESENT(type_)) THEN
308        CALL cxios_set_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
309      ENDIF
310
311  END SUBROUTINE xios(set_domaingroup_attr_hdl_)
312
313  SUBROUTINE xios(get_domaingroup_attr)  &
314    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
315    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
316    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
317    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
318     )
319
320    IMPLICIT NONE
321      TYPE(txios(domaingroup))  :: domaingroup_hdl
322      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
323      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
324      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
325      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
326      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
327      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
328      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
329      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
330      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
331      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
332      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
333      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
334      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
335      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
336      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
337      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
338      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
339      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
340      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
341      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
342      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
343      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
344      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
345      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
346      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
347      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
348      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
349      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
350      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
351      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
352      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
353      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
354      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
355      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
356      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
357      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
358      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
359
360      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
361      CALL xios(get_domaingroup_attr_hdl_)   &
362      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
363      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
364      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
365      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
366       )
367
368  END SUBROUTINE xios(get_domaingroup_attr)
369
370  SUBROUTINE xios(get_domaingroup_attr_hdl)  &
371    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
372    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
373    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
374    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
375     )
376
377    IMPLICIT NONE
378      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
379      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
380      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
381      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
382      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
383      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
384      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
385      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
386      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
387      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
388      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
389      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
390      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
391      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
393      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
394      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
395      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
396      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
397      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
398      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
399      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
400      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
401      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
402      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
403      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
404      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
405      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
406      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
407      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
408      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
409      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
410      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
411      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
412      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
413      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
414      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
415
416      CALL xios(get_domaingroup_attr_hdl_)  &
417      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
418      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
419      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
420      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
421       )
422
423  END SUBROUTINE xios(get_domaingroup_attr_hdl)
424
425  SUBROUTINE xios(get_domaingroup_attr_hdl_)   &
426    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
427    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  &
428    , domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  &
429    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  &
430    , nvertex_, standard_name_, type_ )
431
432    IMPLICIT NONE
433      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
434      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
435      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
436      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
437      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
438      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
439      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
440      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
441      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
442      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
443      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
444      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
445      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
446      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
447      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
448      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
449      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:)
450      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
451      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:)
452      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
453      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
454      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
455      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
456      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
457      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
458      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
459      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
460      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
461      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
462      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
463      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
464      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
465      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
466      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
467      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
468      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
469      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
470
471      IF (PRESENT(area_)) THEN
472        CALL cxios_get_domaingroup_area(domaingroup_hdl%daddr, area_, SHAPE(area_))
473      ENDIF
474
475      IF (PRESENT(bounds_lat_1d_)) THEN
476        CALL cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
477      ENDIF
478
479      IF (PRESENT(bounds_lat_2d_)) THEN
480        CALL cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
481      ENDIF
482
483      IF (PRESENT(bounds_lon_1d_)) THEN
484        CALL cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
485      ENDIF
486
487      IF (PRESENT(bounds_lon_2d_)) THEN
488        CALL cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
489      ENDIF
490
491      IF (PRESENT(data_dim_)) THEN
492        CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
493      ENDIF
494
495      IF (PRESENT(data_i_index_)) THEN
496        CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
497      ENDIF
498
499      IF (PRESENT(data_ibegin_)) THEN
500        CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
501      ENDIF
502
503      IF (PRESENT(data_j_index_)) THEN
504        CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
505      ENDIF
506
507      IF (PRESENT(data_jbegin_)) THEN
508        CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
509      ENDIF
510
511      IF (PRESENT(data_ni_)) THEN
512        CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
513      ENDIF
514
515      IF (PRESENT(data_nj_)) THEN
516        CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
517      ENDIF
518
519      IF (PRESENT(domain_group_ref_)) THEN
520        CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
521      ENDIF
522
523      IF (PRESENT(domain_ref_)) THEN
524        CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
525      ENDIF
526
527      IF (PRESENT(group_ref_)) THEN
528        CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
529      ENDIF
530
531      IF (PRESENT(i_index_)) THEN
532        CALL cxios_get_domaingroup_i_index(domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
533      ENDIF
534
535      IF (PRESENT(ibegin_)) THEN
536        CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
537      ENDIF
538
539      IF (PRESENT(j_index_)) THEN
540        CALL cxios_get_domaingroup_j_index(domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
541      ENDIF
542
543      IF (PRESENT(jbegin_)) THEN
544        CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
545      ENDIF
546
547      IF (PRESENT(latvalue_1d_)) THEN
548        CALL cxios_get_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
549      ENDIF
550
551      IF (PRESENT(latvalue_2d_)) THEN
552        CALL cxios_get_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
553      ENDIF
554
555      IF (PRESENT(long_name_)) THEN
556        CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
557      ENDIF
558
559      IF (PRESENT(lonvalue_1d_)) THEN
560        CALL cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
561      ENDIF
562
563      IF (PRESENT(lonvalue_2d_)) THEN
564        CALL cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
565      ENDIF
566
567      IF (PRESENT(mask_1d_)) THEN
568        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
569        CALL cxios_get_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
570        mask_1d_ = mask_1d__tmp
571      ENDIF
572
573      IF (PRESENT(mask_2d_)) THEN
574        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
575        CALL cxios_get_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
576        mask_2d_ = mask_2d__tmp
577      ENDIF
578
579      IF (PRESENT(name_)) THEN
580        CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
581      ENDIF
582
583      IF (PRESENT(ni_)) THEN
584        CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_)
585      ENDIF
586
587      IF (PRESENT(ni_glo_)) THEN
588        CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
589      ENDIF
590
591      IF (PRESENT(nj_)) THEN
592        CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_)
593      ENDIF
594
595      IF (PRESENT(nj_glo_)) THEN
596        CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
597      ENDIF
598
599      IF (PRESENT(nvertex_)) THEN
600        CALL cxios_get_domaingroup_nvertex(domaingroup_hdl%daddr, nvertex_)
601      ENDIF
602
603      IF (PRESENT(standard_name_)) THEN
604        CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
605      ENDIF
606
607      IF (PRESENT(type_)) THEN
608        CALL cxios_get_domaingroup_type(domaingroup_hdl%daddr, type_, len(type_))
609      ENDIF
610
611  END SUBROUTINE xios(get_domaingroup_attr_hdl_)
612
613  SUBROUTINE xios(is_defined_domaingroup_attr)  &
614    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
615    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
616    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
617    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
618     )
619
620    IMPLICIT NONE
621      TYPE(txios(domaingroup))  :: domaingroup_hdl
622      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
623      LOGICAL, OPTIONAL, INTENT(OUT) :: area
624      LOGICAL(KIND=C_BOOL) :: area_tmp
625      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
626      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
627      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
628      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
629      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
630      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
631      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
632      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
633      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
634      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
635      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
636      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
637      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
638      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
639      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
640      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
641      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
642      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
643      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
644      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
645      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
646      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
647      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
648      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
649      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
650      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
651      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
652      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
653      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
654      LOGICAL(KIND=C_BOOL) :: i_index_tmp
655      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
656      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
657      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
658      LOGICAL(KIND=C_BOOL) :: j_index_tmp
659      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
660      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
661      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
662      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
663      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
664      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
665      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
666      LOGICAL(KIND=C_BOOL) :: long_name_tmp
667      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
668      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
669      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
670      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
671      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
672      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
673      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
674      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
675      LOGICAL, OPTIONAL, INTENT(OUT) :: name
676      LOGICAL(KIND=C_BOOL) :: name_tmp
677      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
678      LOGICAL(KIND=C_BOOL) :: ni_tmp
679      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
680      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
681      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
682      LOGICAL(KIND=C_BOOL) :: nj_tmp
683      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
684      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
685      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
686      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
687      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
688      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
689      LOGICAL, OPTIONAL, INTENT(OUT) :: type
690      LOGICAL(KIND=C_BOOL) :: type_tmp
691
692      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
693      CALL xios(is_defined_domaingroup_attr_hdl_)   &
694      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
695      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
696      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
697      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
698       )
699
700  END SUBROUTINE xios(is_defined_domaingroup_attr)
701
702  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  &
703    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
704    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
705    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
706    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
707     )
708
709    IMPLICIT NONE
710      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
711      LOGICAL, OPTIONAL, INTENT(OUT) :: area
712      LOGICAL(KIND=C_BOOL) :: area_tmp
713      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
714      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
715      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
716      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
717      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
718      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
719      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
720      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
721      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
722      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
723      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
724      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
725      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
726      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
727      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
728      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
729      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
730      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
732      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
733      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
734      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
735      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
736      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
737      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
738      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
739      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
740      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
741      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
742      LOGICAL(KIND=C_BOOL) :: i_index_tmp
743      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
744      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
745      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
746      LOGICAL(KIND=C_BOOL) :: j_index_tmp
747      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
748      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
749      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
750      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
751      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
752      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
753      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
754      LOGICAL(KIND=C_BOOL) :: long_name_tmp
755      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
756      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
757      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
758      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
759      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
760      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
761      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
762      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
763      LOGICAL, OPTIONAL, INTENT(OUT) :: name
764      LOGICAL(KIND=C_BOOL) :: name_tmp
765      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
766      LOGICAL(KIND=C_BOOL) :: ni_tmp
767      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
768      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
769      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
770      LOGICAL(KIND=C_BOOL) :: nj_tmp
771      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
772      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
773      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
774      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
775      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
776      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
777      LOGICAL, OPTIONAL, INTENT(OUT) :: type
778      LOGICAL(KIND=C_BOOL) :: type_tmp
779
780      CALL xios(is_defined_domaingroup_attr_hdl_)  &
781      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  &
782      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  &
783      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  &
784      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  &
785       )
786
787  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
788
789  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   &
790    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
791    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  &
792    , domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  &
793    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  &
794    , nvertex_, standard_name_, type_ )
795
796    IMPLICIT NONE
797      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
798      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
799      LOGICAL(KIND=C_BOOL) :: area__tmp
800      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
801      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
802      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
803      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
804      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
805      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
806      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
807      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
808      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
809      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
810      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
811      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
812      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
813      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
814      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
815      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
816      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
817      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
818      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
819      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
820      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
821      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
822      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
823      LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
824      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
825      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
826      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
827      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
828      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
829      LOGICAL(KIND=C_BOOL) :: i_index__tmp
830      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
831      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
832      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
833      LOGICAL(KIND=C_BOOL) :: j_index__tmp
834      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
835      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
836      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
837      LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
838      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
839      LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
840      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
841      LOGICAL(KIND=C_BOOL) :: long_name__tmp
842      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
843      LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
844      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
845      LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
846      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
847      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
848      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
849      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
850      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
851      LOGICAL(KIND=C_BOOL) :: name__tmp
852      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
853      LOGICAL(KIND=C_BOOL) :: ni__tmp
854      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
855      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
856      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
857      LOGICAL(KIND=C_BOOL) :: nj__tmp
858      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
859      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
860      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
861      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
862      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
863      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
864      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
865      LOGICAL(KIND=C_BOOL) :: type__tmp
866
867      IF (PRESENT(area_)) THEN
868        area__tmp = cxios_is_defined_domaingroup_area(domaingroup_hdl%daddr)
869        area_ = area__tmp
870      ENDIF
871
872      IF (PRESENT(bounds_lat_1d_)) THEN
873        bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr)
874        bounds_lat_1d_ = bounds_lat_1d__tmp
875      ENDIF
876
877      IF (PRESENT(bounds_lat_2d_)) THEN
878        bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr)
879        bounds_lat_2d_ = bounds_lat_2d__tmp
880      ENDIF
881
882      IF (PRESENT(bounds_lon_1d_)) THEN
883        bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr)
884        bounds_lon_1d_ = bounds_lon_1d__tmp
885      ENDIF
886
887      IF (PRESENT(bounds_lon_2d_)) THEN
888        bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr)
889        bounds_lon_2d_ = bounds_lon_2d__tmp
890      ENDIF
891
892      IF (PRESENT(data_dim_)) THEN
893        data_dim__tmp = cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr)
894        data_dim_ = data_dim__tmp
895      ENDIF
896
897      IF (PRESENT(data_i_index_)) THEN
898        data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr)
899        data_i_index_ = data_i_index__tmp
900      ENDIF
901
902      IF (PRESENT(data_ibegin_)) THEN
903        data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr)
904        data_ibegin_ = data_ibegin__tmp
905      ENDIF
906
907      IF (PRESENT(data_j_index_)) THEN
908        data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr)
909        data_j_index_ = data_j_index__tmp
910      ENDIF
911
912      IF (PRESENT(data_jbegin_)) THEN
913        data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr)
914        data_jbegin_ = data_jbegin__tmp
915      ENDIF
916
917      IF (PRESENT(data_ni_)) THEN
918        data_ni__tmp = cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr)
919        data_ni_ = data_ni__tmp
920      ENDIF
921
922      IF (PRESENT(data_nj_)) THEN
923        data_nj__tmp = cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr)
924        data_nj_ = data_nj__tmp
925      ENDIF
926
927      IF (PRESENT(domain_group_ref_)) THEN
928        domain_group_ref__tmp = cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr)
929        domain_group_ref_ = domain_group_ref__tmp
930      ENDIF
931
932      IF (PRESENT(domain_ref_)) THEN
933        domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr)
934        domain_ref_ = domain_ref__tmp
935      ENDIF
936
937      IF (PRESENT(group_ref_)) THEN
938        group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)
939        group_ref_ = group_ref__tmp
940      ENDIF
941
942      IF (PRESENT(i_index_)) THEN
943        i_index__tmp = cxios_is_defined_domaingroup_i_index(domaingroup_hdl%daddr)
944        i_index_ = i_index__tmp
945      ENDIF
946
947      IF (PRESENT(ibegin_)) THEN
948        ibegin__tmp = cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr)
949        ibegin_ = ibegin__tmp
950      ENDIF
951
952      IF (PRESENT(j_index_)) THEN
953        j_index__tmp = cxios_is_defined_domaingroup_j_index(domaingroup_hdl%daddr)
954        j_index_ = j_index__tmp
955      ENDIF
956
957      IF (PRESENT(jbegin_)) THEN
958        jbegin__tmp = cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr)
959        jbegin_ = jbegin__tmp
960      ENDIF
961
962      IF (PRESENT(latvalue_1d_)) THEN
963        latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl%daddr)
964        latvalue_1d_ = latvalue_1d__tmp
965      ENDIF
966
967      IF (PRESENT(latvalue_2d_)) THEN
968        latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl%daddr)
969        latvalue_2d_ = latvalue_2d__tmp
970      ENDIF
971
972      IF (PRESENT(long_name_)) THEN
973        long_name__tmp = cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr)
974        long_name_ = long_name__tmp
975      ENDIF
976
977      IF (PRESENT(lonvalue_1d_)) THEN
978        lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl%daddr)
979        lonvalue_1d_ = lonvalue_1d__tmp
980      ENDIF
981
982      IF (PRESENT(lonvalue_2d_)) THEN
983        lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl%daddr)
984        lonvalue_2d_ = lonvalue_2d__tmp
985      ENDIF
986
987      IF (PRESENT(mask_1d_)) THEN
988        mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl%daddr)
989        mask_1d_ = mask_1d__tmp
990      ENDIF
991
992      IF (PRESENT(mask_2d_)) THEN
993        mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl%daddr)
994        mask_2d_ = mask_2d__tmp
995      ENDIF
996
997      IF (PRESENT(name_)) THEN
998        name__tmp = cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr)
999        name_ = name__tmp
1000      ENDIF
1001
1002      IF (PRESENT(ni_)) THEN
1003        ni__tmp = cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr)
1004        ni_ = ni__tmp
1005      ENDIF
1006
1007      IF (PRESENT(ni_glo_)) THEN
1008        ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr)
1009        ni_glo_ = ni_glo__tmp
1010      ENDIF
1011
1012      IF (PRESENT(nj_)) THEN
1013        nj__tmp = cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr)
1014        nj_ = nj__tmp
1015      ENDIF
1016
1017      IF (PRESENT(nj_glo_)) THEN
1018        nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr)
1019        nj_glo_ = nj_glo__tmp
1020      ENDIF
1021
1022      IF (PRESENT(nvertex_)) THEN
1023        nvertex__tmp = cxios_is_defined_domaingroup_nvertex(domaingroup_hdl%daddr)
1024        nvertex_ = nvertex__tmp
1025      ENDIF
1026
1027      IF (PRESENT(standard_name_)) THEN
1028        standard_name__tmp = cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr)
1029        standard_name_ = standard_name__tmp
1030      ENDIF
1031
1032      IF (PRESENT(type_)) THEN
1033        type__tmp = cxios_is_defined_domaingroup_type(domaingroup_hdl%daddr)
1034        type_ = type__tmp
1035      ENDIF
1036
1037  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
1038
1039END MODULE idomaingroup_attr
Note: See TracBrowser for help on using the repository browser.