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

Last change on this file since 657 was 657, checked in by mhnguyen, 7 years ago

Making changes in domain to make sure unstructed grid work with new method of index distribution

+) Change the way define i_index and j_index of a domain
+) Remove some redundant attributes of domain
+) Adjust the way to calculate index distribution on server side

Test
+) Make some minor change to test_unstruct_complete to work with new XIOS
+) On Curie
+) All test pass and correct

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