source: XIOS/dev/dev_oa/src/interface/fortran_attr/idomain_attr.F90 @ 1952

Last change on this file since 1952 was 1952, checked in by oabramkina, 4 years ago

Adding tile attributes.
  • 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: 62.8 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_domain_attr)  &
14    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
15    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
16    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
17    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
18    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
19    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
20
21    IMPLICIT NONE
22      TYPE(txios(domain))  :: domain_hdl
23      CHARACTER(LEN=*), INTENT(IN) ::domain_id
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
27      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
28      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
29      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
31      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
33      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
34      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
35      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
36      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
37      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
38      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
42      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
43      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
44      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
45      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
47      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
48      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
51      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
53      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
54      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
55      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
56      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
58      INTEGER  , OPTIONAL, INTENT(IN) :: ni
59      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
60      INTEGER  , OPTIONAL, INTENT(IN) :: nj
61      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
62      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles
63      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
64      INTEGER  , OPTIONAL, INTENT(IN) :: prec
65      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
66      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
67      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:)
68      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:)
69      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:)
70      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:)
71      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:)
72      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:)
73      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
74
75      CALL xios(get_domain_handle) &
76      (domain_id,domain_hdl)
77      CALL xios(set_domain_attr_hdl_)   &
78      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
79      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
80      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
81      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
82      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
83      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
84
85  END SUBROUTINE xios(set_domain_attr)
86
87  SUBROUTINE xios(set_domain_attr_hdl)  &
88    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
89    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
90    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
91    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
92    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
93    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
94
95    IMPLICIT NONE
96      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
97      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
98      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
99      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
102      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
105      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
106      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
107      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
108      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
109      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
110      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
111      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
115      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
116      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
117      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
118      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
119      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
120      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
121      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
122      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
123      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
124      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
125      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
126      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
127      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
128      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
129      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
130      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
131      INTEGER  , OPTIONAL, INTENT(IN) :: ni
132      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
133      INTEGER  , OPTIONAL, INTENT(IN) :: nj
134      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
135      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles
136      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
137      INTEGER  , OPTIONAL, INTENT(IN) :: prec
138      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
140      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:)
141      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:)
142      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:)
143      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:)
144      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:)
145      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:)
146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
147
148      CALL xios(set_domain_attr_hdl_)  &
149      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
150      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
151      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
152      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
153      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
154      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
155
156  END SUBROUTINE xios(set_domain_attr_hdl)
157
158  SUBROUTINE xios(set_domain_attr_hdl_)   &
159    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
160    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
161    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  &
162    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  &
163    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  &
164    , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  &
165     )
166
167    IMPLICIT NONE
168      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
169      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
170      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
171      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
172      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name_
173      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
174      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
175      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_
176      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
177      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
178      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
179      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
180      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
181      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
182      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
183      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
184      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name_
185      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name_
186      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
187      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:)
188      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
189      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:)
190      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
191      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name_
192      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
193      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
194      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name_
195      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
196      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
197      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
198      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
199      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
200      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
201      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
202      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
203      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
204      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
205      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
206      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
207      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles_
208      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
209      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
210      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_
211      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
212      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:)
213      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:)
214      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin_(:)
215      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin_(:)
216      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni_(:)
217      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj_(:)
218      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
219
220      IF (PRESENT(area_)) THEN
221        CALL cxios_set_domain_area &
222      (domain_hdl%daddr, area_, SHAPE(area_))
223      ENDIF
224
225      IF (PRESENT(bounds_lat_1d_)) THEN
226        CALL cxios_set_domain_bounds_lat_1d &
227      (domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
228      ENDIF
229
230      IF (PRESENT(bounds_lat_2d_)) THEN
231        CALL cxios_set_domain_bounds_lat_2d &
232      (domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
233      ENDIF
234
235      IF (PRESENT(bounds_lat_name_)) THEN
236        CALL cxios_set_domain_bounds_lat_name &
237      (domain_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
238      ENDIF
239
240      IF (PRESENT(bounds_lon_1d_)) THEN
241        CALL cxios_set_domain_bounds_lon_1d &
242      (domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
243      ENDIF
244
245      IF (PRESENT(bounds_lon_2d_)) THEN
246        CALL cxios_set_domain_bounds_lon_2d &
247      (domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
248      ENDIF
249
250      IF (PRESENT(bounds_lon_name_)) THEN
251        CALL cxios_set_domain_bounds_lon_name &
252      (domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
253      ENDIF
254
255      IF (PRESENT(comment_)) THEN
256        CALL cxios_set_domain_comment &
257      (domain_hdl%daddr, comment_, len(comment_))
258      ENDIF
259
260      IF (PRESENT(data_dim_)) THEN
261        CALL cxios_set_domain_data_dim &
262      (domain_hdl%daddr, data_dim_)
263      ENDIF
264
265      IF (PRESENT(data_i_index_)) THEN
266        CALL cxios_set_domain_data_i_index &
267      (domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
268      ENDIF
269
270      IF (PRESENT(data_ibegin_)) THEN
271        CALL cxios_set_domain_data_ibegin &
272      (domain_hdl%daddr, data_ibegin_)
273      ENDIF
274
275      IF (PRESENT(data_j_index_)) THEN
276        CALL cxios_set_domain_data_j_index &
277      (domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
278      ENDIF
279
280      IF (PRESENT(data_jbegin_)) THEN
281        CALL cxios_set_domain_data_jbegin &
282      (domain_hdl%daddr, data_jbegin_)
283      ENDIF
284
285      IF (PRESENT(data_ni_)) THEN
286        CALL cxios_set_domain_data_ni &
287      (domain_hdl%daddr, data_ni_)
288      ENDIF
289
290      IF (PRESENT(data_nj_)) THEN
291        CALL cxios_set_domain_data_nj &
292      (domain_hdl%daddr, data_nj_)
293      ENDIF
294
295      IF (PRESENT(dim_i_name_)) THEN
296        CALL cxios_set_domain_dim_i_name &
297      (domain_hdl%daddr, dim_i_name_, len(dim_i_name_))
298      ENDIF
299
300      IF (PRESENT(dim_j_name_)) THEN
301        CALL cxios_set_domain_dim_j_name &
302      (domain_hdl%daddr, dim_j_name_, len(dim_j_name_))
303      ENDIF
304
305      IF (PRESENT(domain_ref_)) THEN
306        CALL cxios_set_domain_domain_ref &
307      (domain_hdl%daddr, domain_ref_, len(domain_ref_))
308      ENDIF
309
310      IF (PRESENT(i_index_)) THEN
311        CALL cxios_set_domain_i_index &
312      (domain_hdl%daddr, i_index_, SHAPE(i_index_))
313      ENDIF
314
315      IF (PRESENT(ibegin_)) THEN
316        CALL cxios_set_domain_ibegin &
317      (domain_hdl%daddr, ibegin_)
318      ENDIF
319
320      IF (PRESENT(j_index_)) THEN
321        CALL cxios_set_domain_j_index &
322      (domain_hdl%daddr, j_index_, SHAPE(j_index_))
323      ENDIF
324
325      IF (PRESENT(jbegin_)) THEN
326        CALL cxios_set_domain_jbegin &
327      (domain_hdl%daddr, jbegin_)
328      ENDIF
329
330      IF (PRESENT(lat_name_)) THEN
331        CALL cxios_set_domain_lat_name &
332      (domain_hdl%daddr, lat_name_, len(lat_name_))
333      ENDIF
334
335      IF (PRESENT(latvalue_1d_)) THEN
336        CALL cxios_set_domain_latvalue_1d &
337      (domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
338      ENDIF
339
340      IF (PRESENT(latvalue_2d_)) THEN
341        CALL cxios_set_domain_latvalue_2d &
342      (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
343      ENDIF
344
345      IF (PRESENT(lon_name_)) THEN
346        CALL cxios_set_domain_lon_name &
347      (domain_hdl%daddr, lon_name_, len(lon_name_))
348      ENDIF
349
350      IF (PRESENT(long_name_)) THEN
351        CALL cxios_set_domain_long_name &
352      (domain_hdl%daddr, long_name_, len(long_name_))
353      ENDIF
354
355      IF (PRESENT(lonvalue_1d_)) THEN
356        CALL cxios_set_domain_lonvalue_1d &
357      (domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
358      ENDIF
359
360      IF (PRESENT(lonvalue_2d_)) THEN
361        CALL cxios_set_domain_lonvalue_2d &
362      (domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
363      ENDIF
364
365      IF (PRESENT(mask_1d_)) THEN
366        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
367        mask_1d__tmp = mask_1d_
368        CALL cxios_set_domain_mask_1d &
369      (domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
370      ENDIF
371
372      IF (PRESENT(mask_2d_)) THEN
373        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
374        mask_2d__tmp = mask_2d_
375        CALL cxios_set_domain_mask_2d &
376      (domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
377      ENDIF
378
379      IF (PRESENT(name_)) THEN
380        CALL cxios_set_domain_name &
381      (domain_hdl%daddr, name_, len(name_))
382      ENDIF
383
384      IF (PRESENT(ni_)) THEN
385        CALL cxios_set_domain_ni &
386      (domain_hdl%daddr, ni_)
387      ENDIF
388
389      IF (PRESENT(ni_glo_)) THEN
390        CALL cxios_set_domain_ni_glo &
391      (domain_hdl%daddr, ni_glo_)
392      ENDIF
393
394      IF (PRESENT(nj_)) THEN
395        CALL cxios_set_domain_nj &
396      (domain_hdl%daddr, nj_)
397      ENDIF
398
399      IF (PRESENT(nj_glo_)) THEN
400        CALL cxios_set_domain_nj_glo &
401      (domain_hdl%daddr, nj_glo_)
402      ENDIF
403
404      IF (PRESENT(ntiles_)) THEN
405        CALL cxios_set_domain_ntiles &
406      (domain_hdl%daddr, ntiles_)
407      ENDIF
408
409      IF (PRESENT(nvertex_)) THEN
410        CALL cxios_set_domain_nvertex &
411      (domain_hdl%daddr, nvertex_)
412      ENDIF
413
414      IF (PRESENT(prec_)) THEN
415        CALL cxios_set_domain_prec &
416      (domain_hdl%daddr, prec_)
417      ENDIF
418
419      IF (PRESENT(radius_)) THEN
420        CALL cxios_set_domain_radius &
421      (domain_hdl%daddr, radius_)
422      ENDIF
423
424      IF (PRESENT(standard_name_)) THEN
425        CALL cxios_set_domain_standard_name &
426      (domain_hdl%daddr, standard_name_, len(standard_name_))
427      ENDIF
428
429      IF (PRESENT(tile_data_ibegin_)) THEN
430        CALL cxios_set_domain_tile_data_ibegin &
431      (domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_))
432      ENDIF
433
434      IF (PRESENT(tile_data_jbegin_)) THEN
435        CALL cxios_set_domain_tile_data_jbegin &
436      (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_))
437      ENDIF
438
439      IF (PRESENT(tile_ibegin_)) THEN
440        CALL cxios_set_domain_tile_ibegin &
441      (domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_))
442      ENDIF
443
444      IF (PRESENT(tile_jbegin_)) THEN
445        CALL cxios_set_domain_tile_jbegin &
446      (domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_))
447      ENDIF
448
449      IF (PRESENT(tile_ni_)) THEN
450        CALL cxios_set_domain_tile_ni &
451      (domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_))
452      ENDIF
453
454      IF (PRESENT(tile_nj_)) THEN
455        CALL cxios_set_domain_tile_nj &
456      (domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_))
457      ENDIF
458
459      IF (PRESENT(type_)) THEN
460        CALL cxios_set_domain_type &
461      (domain_hdl%daddr, type_, len(type_))
462      ENDIF
463
464  END SUBROUTINE xios(set_domain_attr_hdl_)
465
466  SUBROUTINE xios(get_domain_attr)  &
467    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
468    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
469    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
470    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
471    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
472    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
473
474    IMPLICIT NONE
475      TYPE(txios(domain))  :: domain_hdl
476      CHARACTER(LEN=*), INTENT(IN) ::domain_id
477      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
478      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
479      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
480      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
481      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
482      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
483      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
485      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
486      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
487      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
488      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
489      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
490      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
491      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
492      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
493      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
494      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
495      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
496      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
497      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
498      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
499      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
500      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
501      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
502      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
503      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
504      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
505      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
506      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
507      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
508      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
509      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
510      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
511      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
512      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
513      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
514      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
515      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles
516      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
517      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
518      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
519      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
520      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:)
521      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:)
522      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:)
523      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:)
524      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:)
525      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:)
526      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
527
528      CALL xios(get_domain_handle) &
529      (domain_id,domain_hdl)
530      CALL xios(get_domain_attr_hdl_)   &
531      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
532      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
533      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
534      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
535      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
536      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
537
538  END SUBROUTINE xios(get_domain_attr)
539
540  SUBROUTINE xios(get_domain_attr_hdl)  &
541    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
542    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
543    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
544    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
545    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
546    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
547
548    IMPLICIT NONE
549      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
550      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
551      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
552      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
553      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
554      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
555      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
556      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
557      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
558      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
559      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
560      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
561      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
562      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
563      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
564      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
565      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
566      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
567      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
568      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
569      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
570      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
571      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
572      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
573      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
574      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
575      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
576      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
577      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
578      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
579      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
580      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
581      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
582      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
583      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
584      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
585      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
586      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
587      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
588      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles
589      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
590      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
591      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
592      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
593      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:)
594      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:)
595      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:)
596      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:)
597      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:)
598      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:)
599      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
600
601      CALL xios(get_domain_attr_hdl_)  &
602      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
603      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
604      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
605      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
606      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
607      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
608
609  END SUBROUTINE xios(get_domain_attr_hdl)
610
611  SUBROUTINE xios(get_domain_attr_hdl_)   &
612    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
613    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
614    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  &
615    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  &
616    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  &
617    , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  &
618     )
619
620    IMPLICIT NONE
621      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
622      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
623      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
624      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
625      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name_
626      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
627      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
628      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_
629      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
630      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
631      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
632      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
633      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
634      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
635      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
636      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
637      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name_
638      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name_
639      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
640      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:)
641      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
642      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:)
643      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
644      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name_
645      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
646      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
647      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name_
648      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
649      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
650      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
651      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
652      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
653      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
654      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
655      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
656      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
657      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
658      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
659      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
660      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles_
661      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
662      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
663      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_
664      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
665      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:)
666      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:)
667      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:)
668      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:)
669      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni_(:)
670      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj_(:)
671      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
672
673      IF (PRESENT(area_)) THEN
674        CALL cxios_get_domain_area &
675      (domain_hdl%daddr, area_, SHAPE(area_))
676      ENDIF
677
678      IF (PRESENT(bounds_lat_1d_)) THEN
679        CALL cxios_get_domain_bounds_lat_1d &
680      (domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
681      ENDIF
682
683      IF (PRESENT(bounds_lat_2d_)) THEN
684        CALL cxios_get_domain_bounds_lat_2d &
685      (domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
686      ENDIF
687
688      IF (PRESENT(bounds_lat_name_)) THEN
689        CALL cxios_get_domain_bounds_lat_name &
690      (domain_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
691      ENDIF
692
693      IF (PRESENT(bounds_lon_1d_)) THEN
694        CALL cxios_get_domain_bounds_lon_1d &
695      (domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
696      ENDIF
697
698      IF (PRESENT(bounds_lon_2d_)) THEN
699        CALL cxios_get_domain_bounds_lon_2d &
700      (domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
701      ENDIF
702
703      IF (PRESENT(bounds_lon_name_)) THEN
704        CALL cxios_get_domain_bounds_lon_name &
705      (domain_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
706      ENDIF
707
708      IF (PRESENT(comment_)) THEN
709        CALL cxios_get_domain_comment &
710      (domain_hdl%daddr, comment_, len(comment_))
711      ENDIF
712
713      IF (PRESENT(data_dim_)) THEN
714        CALL cxios_get_domain_data_dim &
715      (domain_hdl%daddr, data_dim_)
716      ENDIF
717
718      IF (PRESENT(data_i_index_)) THEN
719        CALL cxios_get_domain_data_i_index &
720      (domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
721      ENDIF
722
723      IF (PRESENT(data_ibegin_)) THEN
724        CALL cxios_get_domain_data_ibegin &
725      (domain_hdl%daddr, data_ibegin_)
726      ENDIF
727
728      IF (PRESENT(data_j_index_)) THEN
729        CALL cxios_get_domain_data_j_index &
730      (domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
731      ENDIF
732
733      IF (PRESENT(data_jbegin_)) THEN
734        CALL cxios_get_domain_data_jbegin &
735      (domain_hdl%daddr, data_jbegin_)
736      ENDIF
737
738      IF (PRESENT(data_ni_)) THEN
739        CALL cxios_get_domain_data_ni &
740      (domain_hdl%daddr, data_ni_)
741      ENDIF
742
743      IF (PRESENT(data_nj_)) THEN
744        CALL cxios_get_domain_data_nj &
745      (domain_hdl%daddr, data_nj_)
746      ENDIF
747
748      IF (PRESENT(dim_i_name_)) THEN
749        CALL cxios_get_domain_dim_i_name &
750      (domain_hdl%daddr, dim_i_name_, len(dim_i_name_))
751      ENDIF
752
753      IF (PRESENT(dim_j_name_)) THEN
754        CALL cxios_get_domain_dim_j_name &
755      (domain_hdl%daddr, dim_j_name_, len(dim_j_name_))
756      ENDIF
757
758      IF (PRESENT(domain_ref_)) THEN
759        CALL cxios_get_domain_domain_ref &
760      (domain_hdl%daddr, domain_ref_, len(domain_ref_))
761      ENDIF
762
763      IF (PRESENT(i_index_)) THEN
764        CALL cxios_get_domain_i_index &
765      (domain_hdl%daddr, i_index_, SHAPE(i_index_))
766      ENDIF
767
768      IF (PRESENT(ibegin_)) THEN
769        CALL cxios_get_domain_ibegin &
770      (domain_hdl%daddr, ibegin_)
771      ENDIF
772
773      IF (PRESENT(j_index_)) THEN
774        CALL cxios_get_domain_j_index &
775      (domain_hdl%daddr, j_index_, SHAPE(j_index_))
776      ENDIF
777
778      IF (PRESENT(jbegin_)) THEN
779        CALL cxios_get_domain_jbegin &
780      (domain_hdl%daddr, jbegin_)
781      ENDIF
782
783      IF (PRESENT(lat_name_)) THEN
784        CALL cxios_get_domain_lat_name &
785      (domain_hdl%daddr, lat_name_, len(lat_name_))
786      ENDIF
787
788      IF (PRESENT(latvalue_1d_)) THEN
789        CALL cxios_get_domain_latvalue_1d &
790      (domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
791      ENDIF
792
793      IF (PRESENT(latvalue_2d_)) THEN
794        CALL cxios_get_domain_latvalue_2d &
795      (domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
796      ENDIF
797
798      IF (PRESENT(lon_name_)) THEN
799        CALL cxios_get_domain_lon_name &
800      (domain_hdl%daddr, lon_name_, len(lon_name_))
801      ENDIF
802
803      IF (PRESENT(long_name_)) THEN
804        CALL cxios_get_domain_long_name &
805      (domain_hdl%daddr, long_name_, len(long_name_))
806      ENDIF
807
808      IF (PRESENT(lonvalue_1d_)) THEN
809        CALL cxios_get_domain_lonvalue_1d &
810      (domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
811      ENDIF
812
813      IF (PRESENT(lonvalue_2d_)) THEN
814        CALL cxios_get_domain_lonvalue_2d &
815      (domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
816      ENDIF
817
818      IF (PRESENT(mask_1d_)) THEN
819        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
820        CALL cxios_get_domain_mask_1d &
821      (domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
822        mask_1d_ = mask_1d__tmp
823      ENDIF
824
825      IF (PRESENT(mask_2d_)) THEN
826        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
827        CALL cxios_get_domain_mask_2d &
828      (domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
829        mask_2d_ = mask_2d__tmp
830      ENDIF
831
832      IF (PRESENT(name_)) THEN
833        CALL cxios_get_domain_name &
834      (domain_hdl%daddr, name_, len(name_))
835      ENDIF
836
837      IF (PRESENT(ni_)) THEN
838        CALL cxios_get_domain_ni &
839      (domain_hdl%daddr, ni_)
840      ENDIF
841
842      IF (PRESENT(ni_glo_)) THEN
843        CALL cxios_get_domain_ni_glo &
844      (domain_hdl%daddr, ni_glo_)
845      ENDIF
846
847      IF (PRESENT(nj_)) THEN
848        CALL cxios_get_domain_nj &
849      (domain_hdl%daddr, nj_)
850      ENDIF
851
852      IF (PRESENT(nj_glo_)) THEN
853        CALL cxios_get_domain_nj_glo &
854      (domain_hdl%daddr, nj_glo_)
855      ENDIF
856
857      IF (PRESENT(ntiles_)) THEN
858        CALL cxios_get_domain_ntiles &
859      (domain_hdl%daddr, ntiles_)
860      ENDIF
861
862      IF (PRESENT(nvertex_)) THEN
863        CALL cxios_get_domain_nvertex &
864      (domain_hdl%daddr, nvertex_)
865      ENDIF
866
867      IF (PRESENT(prec_)) THEN
868        CALL cxios_get_domain_prec &
869      (domain_hdl%daddr, prec_)
870      ENDIF
871
872      IF (PRESENT(radius_)) THEN
873        CALL cxios_get_domain_radius &
874      (domain_hdl%daddr, radius_)
875      ENDIF
876
877      IF (PRESENT(standard_name_)) THEN
878        CALL cxios_get_domain_standard_name &
879      (domain_hdl%daddr, standard_name_, len(standard_name_))
880      ENDIF
881
882      IF (PRESENT(tile_data_ibegin_)) THEN
883        CALL cxios_get_domain_tile_data_ibegin &
884      (domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_))
885      ENDIF
886
887      IF (PRESENT(tile_data_jbegin_)) THEN
888        CALL cxios_get_domain_tile_data_jbegin &
889      (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_))
890      ENDIF
891
892      IF (PRESENT(tile_ibegin_)) THEN
893        CALL cxios_get_domain_tile_ibegin &
894      (domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_))
895      ENDIF
896
897      IF (PRESENT(tile_jbegin_)) THEN
898        CALL cxios_get_domain_tile_jbegin &
899      (domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_))
900      ENDIF
901
902      IF (PRESENT(tile_ni_)) THEN
903        CALL cxios_get_domain_tile_ni &
904      (domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_))
905      ENDIF
906
907      IF (PRESENT(tile_nj_)) THEN
908        CALL cxios_get_domain_tile_nj &
909      (domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_))
910      ENDIF
911
912      IF (PRESENT(type_)) THEN
913        CALL cxios_get_domain_type &
914      (domain_hdl%daddr, type_, len(type_))
915      ENDIF
916
917  END SUBROUTINE xios(get_domain_attr_hdl_)
918
919  SUBROUTINE xios(is_defined_domain_attr)  &
920    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
921    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
922    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
923    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
924    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
925    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
926
927    IMPLICIT NONE
928      TYPE(txios(domain))  :: domain_hdl
929      CHARACTER(LEN=*), INTENT(IN) ::domain_id
930      LOGICAL, OPTIONAL, INTENT(OUT) :: area
931      LOGICAL(KIND=C_BOOL) :: area_tmp
932      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
933      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
934      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
935      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
936      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
937      LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
938      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
939      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
940      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
941      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
942      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
943      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
944      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
945      LOGICAL(KIND=C_BOOL) :: comment_tmp
946      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
947      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
948      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
949      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
950      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
951      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
952      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
953      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
954      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
955      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
956      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
957      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
958      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
959      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
960      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
961      LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
962      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
963      LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
964      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
965      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
966      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
967      LOGICAL(KIND=C_BOOL) :: i_index_tmp
968      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
969      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
970      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
971      LOGICAL(KIND=C_BOOL) :: j_index_tmp
972      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
973      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
974      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
975      LOGICAL(KIND=C_BOOL) :: lat_name_tmp
976      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
977      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
978      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
979      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
980      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
981      LOGICAL(KIND=C_BOOL) :: lon_name_tmp
982      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
983      LOGICAL(KIND=C_BOOL) :: long_name_tmp
984      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
985      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
986      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
987      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
988      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
989      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
990      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
991      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
992      LOGICAL, OPTIONAL, INTENT(OUT) :: name
993      LOGICAL(KIND=C_BOOL) :: name_tmp
994      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
995      LOGICAL(KIND=C_BOOL) :: ni_tmp
996      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
997      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
998      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
999      LOGICAL(KIND=C_BOOL) :: nj_tmp
1000      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
1001      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
1002      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles
1003      LOGICAL(KIND=C_BOOL) :: ntiles_tmp
1004      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
1005      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
1006      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1007      LOGICAL(KIND=C_BOOL) :: prec_tmp
1008      LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1009      LOGICAL(KIND=C_BOOL) :: radius_tmp
1010      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1011      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
1012      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin
1013      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp
1014      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin
1015      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp
1016      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin
1017      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp
1018      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin
1019      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp
1020      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni
1021      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp
1022      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj
1023      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp
1024      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1025      LOGICAL(KIND=C_BOOL) :: type_tmp
1026
1027      CALL xios(get_domain_handle) &
1028      (domain_id,domain_hdl)
1029      CALL xios(is_defined_domain_attr_hdl_)   &
1030      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1031      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1032      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
1033      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
1034      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
1035      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
1036
1037  END SUBROUTINE xios(is_defined_domain_attr)
1038
1039  SUBROUTINE xios(is_defined_domain_attr_hdl)  &
1040    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1041    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1042    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
1043    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
1044    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
1045    , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
1046
1047    IMPLICIT NONE
1048      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
1049      LOGICAL, OPTIONAL, INTENT(OUT) :: area
1050      LOGICAL(KIND=C_BOOL) :: area_tmp
1051      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
1052      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
1053      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
1054      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
1055      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
1056      LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
1057      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
1058      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
1059      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
1060      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
1061      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
1062      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
1063      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
1064      LOGICAL(KIND=C_BOOL) :: comment_tmp
1065      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
1066      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
1067      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
1068      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
1069      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
1070      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
1071      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
1072      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
1073      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
1074      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
1075      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
1076      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
1077      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
1078      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
1079      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
1080      LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
1081      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
1082      LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
1083      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
1084      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
1085      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
1086      LOGICAL(KIND=C_BOOL) :: i_index_tmp
1087      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
1088      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
1089      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
1090      LOGICAL(KIND=C_BOOL) :: j_index_tmp
1091      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
1092      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
1093      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
1094      LOGICAL(KIND=C_BOOL) :: lat_name_tmp
1095      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
1096      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
1097      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
1098      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
1099      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
1100      LOGICAL(KIND=C_BOOL) :: lon_name_tmp
1101      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
1102      LOGICAL(KIND=C_BOOL) :: long_name_tmp
1103      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
1104      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
1105      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
1106      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
1107      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
1108      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
1109      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
1110      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
1111      LOGICAL, OPTIONAL, INTENT(OUT) :: name
1112      LOGICAL(KIND=C_BOOL) :: name_tmp
1113      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
1114      LOGICAL(KIND=C_BOOL) :: ni_tmp
1115      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
1116      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
1117      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
1118      LOGICAL(KIND=C_BOOL) :: nj_tmp
1119      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
1120      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
1121      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles
1122      LOGICAL(KIND=C_BOOL) :: ntiles_tmp
1123      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
1124      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
1125      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1126      LOGICAL(KIND=C_BOOL) :: prec_tmp
1127      LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1128      LOGICAL(KIND=C_BOOL) :: radius_tmp
1129      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1130      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
1131      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin
1132      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp
1133      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin
1134      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp
1135      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin
1136      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp
1137      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin
1138      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp
1139      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni
1140      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp
1141      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj
1142      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp
1143      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1144      LOGICAL(KIND=C_BOOL) :: type_tmp
1145
1146      CALL xios(is_defined_domain_attr_hdl_)  &
1147      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1148      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1149      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  &
1150      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  &
1151      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  &
1152      , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type )
1153
1154  END SUBROUTINE xios(is_defined_domain_attr_hdl)
1155
1156  SUBROUTINE xios(is_defined_domain_attr_hdl_)   &
1157    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
1158    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
1159    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  &
1160    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  &
1161    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  &
1162    , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  &
1163     )
1164
1165    IMPLICIT NONE
1166      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
1167      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
1168      LOGICAL(KIND=C_BOOL) :: area__tmp
1169      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
1170      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
1171      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
1172      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
1173      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name_
1174      LOGICAL(KIND=C_BOOL) :: bounds_lat_name__tmp
1175      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
1176      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
1177      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
1178      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
1179      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_
1180      LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp
1181      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
1182      LOGICAL(KIND=C_BOOL) :: comment__tmp
1183      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
1184      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
1185      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
1186      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
1187      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
1188      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
1189      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
1190      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
1191      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
1192      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
1193      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
1194      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
1195      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
1196      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
1197      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name_
1198      LOGICAL(KIND=C_BOOL) :: dim_i_name__tmp
1199      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name_
1200      LOGICAL(KIND=C_BOOL) :: dim_j_name__tmp
1201      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
1202      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
1203      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
1204      LOGICAL(KIND=C_BOOL) :: i_index__tmp
1205      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
1206      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
1207      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
1208      LOGICAL(KIND=C_BOOL) :: j_index__tmp
1209      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
1210      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
1211      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name_
1212      LOGICAL(KIND=C_BOOL) :: lat_name__tmp
1213      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
1214      LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
1215      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
1216      LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
1217      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name_
1218      LOGICAL(KIND=C_BOOL) :: lon_name__tmp
1219      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
1220      LOGICAL(KIND=C_BOOL) :: long_name__tmp
1221      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
1222      LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
1223      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
1224      LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
1225      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
1226      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
1227      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
1228      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
1229      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
1230      LOGICAL(KIND=C_BOOL) :: name__tmp
1231      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
1232      LOGICAL(KIND=C_BOOL) :: ni__tmp
1233      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
1234      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
1235      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
1236      LOGICAL(KIND=C_BOOL) :: nj__tmp
1237      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
1238      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
1239      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_
1240      LOGICAL(KIND=C_BOOL) :: ntiles__tmp
1241      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
1242      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
1243      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
1244      LOGICAL(KIND=C_BOOL) :: prec__tmp
1245      LOGICAL, OPTIONAL, INTENT(OUT) :: radius_
1246      LOGICAL(KIND=C_BOOL) :: radius__tmp
1247      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
1248      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
1249      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_
1250      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp
1251      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_
1252      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp
1253      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_
1254      LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp
1255      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_
1256      LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp
1257      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_
1258      LOGICAL(KIND=C_BOOL) :: tile_ni__tmp
1259      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_
1260      LOGICAL(KIND=C_BOOL) :: tile_nj__tmp
1261      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
1262      LOGICAL(KIND=C_BOOL) :: type__tmp
1263
1264      IF (PRESENT(area_)) THEN
1265        area__tmp = cxios_is_defined_domain_area &
1266      (domain_hdl%daddr)
1267        area_ = area__tmp
1268      ENDIF
1269
1270      IF (PRESENT(bounds_lat_1d_)) THEN
1271        bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d &
1272      (domain_hdl%daddr)
1273        bounds_lat_1d_ = bounds_lat_1d__tmp
1274      ENDIF
1275
1276      IF (PRESENT(bounds_lat_2d_)) THEN
1277        bounds_lat_2d__tmp = cxios_is_defined_domain_bounds_lat_2d &
1278      (domain_hdl%daddr)
1279        bounds_lat_2d_ = bounds_lat_2d__tmp
1280      ENDIF
1281
1282      IF (PRESENT(bounds_lat_name_)) THEN
1283        bounds_lat_name__tmp = cxios_is_defined_domain_bounds_lat_name &
1284      (domain_hdl%daddr)
1285        bounds_lat_name_ = bounds_lat_name__tmp
1286      ENDIF
1287
1288      IF (PRESENT(bounds_lon_1d_)) THEN
1289        bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d &
1290      (domain_hdl%daddr)
1291        bounds_lon_1d_ = bounds_lon_1d__tmp
1292      ENDIF
1293
1294      IF (PRESENT(bounds_lon_2d_)) THEN
1295        bounds_lon_2d__tmp = cxios_is_defined_domain_bounds_lon_2d &
1296      (domain_hdl%daddr)
1297        bounds_lon_2d_ = bounds_lon_2d__tmp
1298      ENDIF
1299
1300      IF (PRESENT(bounds_lon_name_)) THEN
1301        bounds_lon_name__tmp = cxios_is_defined_domain_bounds_lon_name &
1302      (domain_hdl%daddr)
1303        bounds_lon_name_ = bounds_lon_name__tmp
1304      ENDIF
1305
1306      IF (PRESENT(comment_)) THEN
1307        comment__tmp = cxios_is_defined_domain_comment &
1308      (domain_hdl%daddr)
1309        comment_ = comment__tmp
1310      ENDIF
1311
1312      IF (PRESENT(data_dim_)) THEN
1313        data_dim__tmp = cxios_is_defined_domain_data_dim &
1314      (domain_hdl%daddr)
1315        data_dim_ = data_dim__tmp
1316      ENDIF
1317
1318      IF (PRESENT(data_i_index_)) THEN
1319        data_i_index__tmp = cxios_is_defined_domain_data_i_index &
1320      (domain_hdl%daddr)
1321        data_i_index_ = data_i_index__tmp
1322      ENDIF
1323
1324      IF (PRESENT(data_ibegin_)) THEN
1325        data_ibegin__tmp = cxios_is_defined_domain_data_ibegin &
1326      (domain_hdl%daddr)
1327        data_ibegin_ = data_ibegin__tmp
1328      ENDIF
1329
1330      IF (PRESENT(data_j_index_)) THEN
1331        data_j_index__tmp = cxios_is_defined_domain_data_j_index &
1332      (domain_hdl%daddr)
1333        data_j_index_ = data_j_index__tmp
1334      ENDIF
1335
1336      IF (PRESENT(data_jbegin_)) THEN
1337        data_jbegin__tmp = cxios_is_defined_domain_data_jbegin &
1338      (domain_hdl%daddr)
1339        data_jbegin_ = data_jbegin__tmp
1340      ENDIF
1341
1342      IF (PRESENT(data_ni_)) THEN
1343        data_ni__tmp = cxios_is_defined_domain_data_ni &
1344      (domain_hdl%daddr)
1345        data_ni_ = data_ni__tmp
1346      ENDIF
1347
1348      IF (PRESENT(data_nj_)) THEN
1349        data_nj__tmp = cxios_is_defined_domain_data_nj &
1350      (domain_hdl%daddr)
1351        data_nj_ = data_nj__tmp
1352      ENDIF
1353
1354      IF (PRESENT(dim_i_name_)) THEN
1355        dim_i_name__tmp = cxios_is_defined_domain_dim_i_name &
1356      (domain_hdl%daddr)
1357        dim_i_name_ = dim_i_name__tmp
1358      ENDIF
1359
1360      IF (PRESENT(dim_j_name_)) THEN
1361        dim_j_name__tmp = cxios_is_defined_domain_dim_j_name &
1362      (domain_hdl%daddr)
1363        dim_j_name_ = dim_j_name__tmp
1364      ENDIF
1365
1366      IF (PRESENT(domain_ref_)) THEN
1367        domain_ref__tmp = cxios_is_defined_domain_domain_ref &
1368      (domain_hdl%daddr)
1369        domain_ref_ = domain_ref__tmp
1370      ENDIF
1371
1372      IF (PRESENT(i_index_)) THEN
1373        i_index__tmp = cxios_is_defined_domain_i_index &
1374      (domain_hdl%daddr)
1375        i_index_ = i_index__tmp
1376      ENDIF
1377
1378      IF (PRESENT(ibegin_)) THEN
1379        ibegin__tmp = cxios_is_defined_domain_ibegin &
1380      (domain_hdl%daddr)
1381        ibegin_ = ibegin__tmp
1382      ENDIF
1383
1384      IF (PRESENT(j_index_)) THEN
1385        j_index__tmp = cxios_is_defined_domain_j_index &
1386      (domain_hdl%daddr)
1387        j_index_ = j_index__tmp
1388      ENDIF
1389
1390      IF (PRESENT(jbegin_)) THEN
1391        jbegin__tmp = cxios_is_defined_domain_jbegin &
1392      (domain_hdl%daddr)
1393        jbegin_ = jbegin__tmp
1394      ENDIF
1395
1396      IF (PRESENT(lat_name_)) THEN
1397        lat_name__tmp = cxios_is_defined_domain_lat_name &
1398      (domain_hdl%daddr)
1399        lat_name_ = lat_name__tmp
1400      ENDIF
1401
1402      IF (PRESENT(latvalue_1d_)) THEN
1403        latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d &
1404      (domain_hdl%daddr)
1405        latvalue_1d_ = latvalue_1d__tmp
1406      ENDIF
1407
1408      IF (PRESENT(latvalue_2d_)) THEN
1409        latvalue_2d__tmp = cxios_is_defined_domain_latvalue_2d &
1410      (domain_hdl%daddr)
1411        latvalue_2d_ = latvalue_2d__tmp
1412      ENDIF
1413
1414      IF (PRESENT(lon_name_)) THEN
1415        lon_name__tmp = cxios_is_defined_domain_lon_name &
1416      (domain_hdl%daddr)
1417        lon_name_ = lon_name__tmp
1418      ENDIF
1419
1420      IF (PRESENT(long_name_)) THEN
1421        long_name__tmp = cxios_is_defined_domain_long_name &
1422      (domain_hdl%daddr)
1423        long_name_ = long_name__tmp
1424      ENDIF
1425
1426      IF (PRESENT(lonvalue_1d_)) THEN
1427        lonvalue_1d__tmp = cxios_is_defined_domain_lonvalue_1d &
1428      (domain_hdl%daddr)
1429        lonvalue_1d_ = lonvalue_1d__tmp
1430      ENDIF
1431
1432      IF (PRESENT(lonvalue_2d_)) THEN
1433        lonvalue_2d__tmp = cxios_is_defined_domain_lonvalue_2d &
1434      (domain_hdl%daddr)
1435        lonvalue_2d_ = lonvalue_2d__tmp
1436      ENDIF
1437
1438      IF (PRESENT(mask_1d_)) THEN
1439        mask_1d__tmp = cxios_is_defined_domain_mask_1d &
1440      (domain_hdl%daddr)
1441        mask_1d_ = mask_1d__tmp
1442      ENDIF
1443
1444      IF (PRESENT(mask_2d_)) THEN
1445        mask_2d__tmp = cxios_is_defined_domain_mask_2d &
1446      (domain_hdl%daddr)
1447        mask_2d_ = mask_2d__tmp
1448      ENDIF
1449
1450      IF (PRESENT(name_)) THEN
1451        name__tmp = cxios_is_defined_domain_name &
1452      (domain_hdl%daddr)
1453        name_ = name__tmp
1454      ENDIF
1455
1456      IF (PRESENT(ni_)) THEN
1457        ni__tmp = cxios_is_defined_domain_ni &
1458      (domain_hdl%daddr)
1459        ni_ = ni__tmp
1460      ENDIF
1461
1462      IF (PRESENT(ni_glo_)) THEN
1463        ni_glo__tmp = cxios_is_defined_domain_ni_glo &
1464      (domain_hdl%daddr)
1465        ni_glo_ = ni_glo__tmp
1466      ENDIF
1467
1468      IF (PRESENT(nj_)) THEN
1469        nj__tmp = cxios_is_defined_domain_nj &
1470      (domain_hdl%daddr)
1471        nj_ = nj__tmp
1472      ENDIF
1473
1474      IF (PRESENT(nj_glo_)) THEN
1475        nj_glo__tmp = cxios_is_defined_domain_nj_glo &
1476      (domain_hdl%daddr)
1477        nj_glo_ = nj_glo__tmp
1478      ENDIF
1479
1480      IF (PRESENT(ntiles_)) THEN
1481        ntiles__tmp = cxios_is_defined_domain_ntiles &
1482      (domain_hdl%daddr)
1483        ntiles_ = ntiles__tmp
1484      ENDIF
1485
1486      IF (PRESENT(nvertex_)) THEN
1487        nvertex__tmp = cxios_is_defined_domain_nvertex &
1488      (domain_hdl%daddr)
1489        nvertex_ = nvertex__tmp
1490      ENDIF
1491
1492      IF (PRESENT(prec_)) THEN
1493        prec__tmp = cxios_is_defined_domain_prec &
1494      (domain_hdl%daddr)
1495        prec_ = prec__tmp
1496      ENDIF
1497
1498      IF (PRESENT(radius_)) THEN
1499        radius__tmp = cxios_is_defined_domain_radius &
1500      (domain_hdl%daddr)
1501        radius_ = radius__tmp
1502      ENDIF
1503
1504      IF (PRESENT(standard_name_)) THEN
1505        standard_name__tmp = cxios_is_defined_domain_standard_name &
1506      (domain_hdl%daddr)
1507        standard_name_ = standard_name__tmp
1508      ENDIF
1509
1510      IF (PRESENT(tile_data_ibegin_)) THEN
1511        tile_data_ibegin__tmp = cxios_is_defined_domain_tile_data_ibegin &
1512      (domain_hdl%daddr)
1513        tile_data_ibegin_ = tile_data_ibegin__tmp
1514      ENDIF
1515
1516      IF (PRESENT(tile_data_jbegin_)) THEN
1517        tile_data_jbegin__tmp = cxios_is_defined_domain_tile_data_jbegin &
1518      (domain_hdl%daddr)
1519        tile_data_jbegin_ = tile_data_jbegin__tmp
1520      ENDIF
1521
1522      IF (PRESENT(tile_ibegin_)) THEN
1523        tile_ibegin__tmp = cxios_is_defined_domain_tile_ibegin &
1524      (domain_hdl%daddr)
1525        tile_ibegin_ = tile_ibegin__tmp
1526      ENDIF
1527
1528      IF (PRESENT(tile_jbegin_)) THEN
1529        tile_jbegin__tmp = cxios_is_defined_domain_tile_jbegin &
1530      (domain_hdl%daddr)
1531        tile_jbegin_ = tile_jbegin__tmp
1532      ENDIF
1533
1534      IF (PRESENT(tile_ni_)) THEN
1535        tile_ni__tmp = cxios_is_defined_domain_tile_ni &
1536      (domain_hdl%daddr)
1537        tile_ni_ = tile_ni__tmp
1538      ENDIF
1539
1540      IF (PRESENT(tile_nj_)) THEN
1541        tile_nj__tmp = cxios_is_defined_domain_tile_nj &
1542      (domain_hdl%daddr)
1543        tile_nj_ = tile_nj__tmp
1544      ENDIF
1545
1546      IF (PRESENT(type_)) THEN
1547        type__tmp = cxios_is_defined_domain_type &
1548      (domain_hdl%daddr)
1549        type_ = type__tmp
1550      ENDIF
1551
1552  END SUBROUTINE xios(is_defined_domain_attr_hdl_)
1553
1554END MODULE idomain_attr
Note: See TracBrowser for help on using the repository browser.