source: XIOS/dev/dev_trunk_omp/src/interface/fortran_attr/idomain_attr.F90 @ 1646

Last change on this file since 1646 was 1646, checked in by yushan, 5 years ago

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