source: XIOS/trunk/src/interface/fortran_attr/idomain_attr.F90 @ 611

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

Improve CF compliance: Add a new domain attribute "area".

Fixes ticket #68.

  • 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: 48.5 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, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
15    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
16    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
17    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
18    , zoom_ni_loc, zoom_nj, zoom_nj_loc )
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(:,:)
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
26      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
27      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
28      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
30      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
33      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
35      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
36      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:)
37      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
38      INTEGER  , OPTIONAL, INTENT(IN) :: iend
39      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:)
40      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
41      INTEGER  , OPTIONAL, INTENT(IN) :: jend
42      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
44      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
45      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
46      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
47      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
48      INTEGER  , OPTIONAL, INTENT(IN) :: ni
49      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
50      INTEGER  , OPTIONAL, INTENT(IN) :: nj
51      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
52      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
55      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
56      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
57      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
58      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
59      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
60      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
61      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
62      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
63
64      CALL xios(get_domain_handle)(domain_id,domain_hdl)
65      CALL xios(set_domain_attr_hdl_)   &
66      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
67      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
68      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
69      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
70      , zoom_ni_loc, zoom_nj, zoom_nj_loc )
71
72  END SUBROUTINE xios(set_domain_attr)
73
74  SUBROUTINE xios(set_domain_attr_hdl)  &
75    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
76    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
77    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
78    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
79    , zoom_ni_loc, zoom_nj, zoom_nj_loc )
80
81    IMPLICIT NONE
82      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
83      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
84      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
85      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
86      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
87      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
88      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
89      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
90      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
91      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
92      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
93      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
95      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
96      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:,:)
97      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
98      INTEGER  , OPTIONAL, INTENT(IN) :: iend
99      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:,:)
100      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
101      INTEGER  , OPTIONAL, INTENT(IN) :: jend
102      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
104      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
105      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
106      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
108      INTEGER  , OPTIONAL, INTENT(IN) :: ni
109      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
110      INTEGER  , OPTIONAL, INTENT(IN) :: nj
111      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
112      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
115      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
116      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
117      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
118      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
119      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
120      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
121      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
122      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
123
124      CALL xios(set_domain_attr_hdl_)  &
125      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
126      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
127      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
128      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
129      , zoom_ni_loc, zoom_nj, zoom_nj_loc )
130
131  END SUBROUTINE xios(set_domain_attr_hdl)
132
133  SUBROUTINE xios(set_domain_attr_hdl_)   &
134    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
135    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_  &
136    , ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_  &
137    , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_  &
138    , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
139
140    IMPLICIT NONE
141      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
142      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
143      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_(:,:)
144      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_(:,:)
145      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
146      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
147      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
148      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
149      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
150      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index_
151      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
152      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
153      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
154      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
155      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:,:)
156      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
157      INTEGER  , OPTIONAL, INTENT(IN) :: iend_
158      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:,:)
159      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
160      INTEGER  , OPTIONAL, INTENT(IN) :: jend_
161      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
162      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
163      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
164      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:,:)
165      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
166      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
167      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
168      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
169      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
170      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
171      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
172      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
173      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
174      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_
175      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_
176      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_
177      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_
178      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_
179      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc_
180      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_
181      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc_
182
183      IF (PRESENT(area_)) THEN
184        CALL cxios_set_domain_area(domain_hdl%daddr, area_, size(area_,1), size(area_,2))
185      ENDIF
186
187      IF (PRESENT(bounds_lat_)) THEN
188        CALL cxios_set_domain_bounds_lat(domain_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2))
189      ENDIF
190
191      IF (PRESENT(bounds_lon_)) THEN
192        CALL cxios_set_domain_bounds_lon(domain_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2))
193      ENDIF
194
195      IF (PRESENT(data_dim_)) THEN
196        CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_)
197      ENDIF
198
199      IF (PRESENT(data_i_index_)) THEN
200        CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1))
201      ENDIF
202
203      IF (PRESENT(data_ibegin_)) THEN
204        CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
205      ENDIF
206
207      IF (PRESENT(data_j_index_)) THEN
208        CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1))
209      ENDIF
210
211      IF (PRESENT(data_jbegin_)) THEN
212        CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
213      ENDIF
214
215      IF (PRESENT(data_n_index_)) THEN
216        CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_)
217      ENDIF
218
219      IF (PRESENT(data_ni_)) THEN
220        CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_)
221      ENDIF
222
223      IF (PRESENT(data_nj_)) THEN
224        CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_)
225      ENDIF
226
227      IF (PRESENT(domain_group_ref_)) THEN
228        CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
229      ENDIF
230
231      IF (PRESENT(domain_ref_)) THEN
232        CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_))
233      ENDIF
234
235      IF (PRESENT(i_index_)) THEN
236        CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2))
237      ENDIF
238
239      IF (PRESENT(ibegin_)) THEN
240        CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_)
241      ENDIF
242
243      IF (PRESENT(iend_)) THEN
244        CALL cxios_set_domain_iend(domain_hdl%daddr, iend_)
245      ENDIF
246
247      IF (PRESENT(j_index_)) THEN
248        CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2))
249      ENDIF
250
251      IF (PRESENT(jbegin_)) THEN
252        CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_)
253      ENDIF
254
255      IF (PRESENT(jend_)) THEN
256        CALL cxios_set_domain_jend(domain_hdl%daddr, jend_)
257      ENDIF
258
259      IF (PRESENT(latvalue_)) THEN
260        CALL cxios_set_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_,1))
261      ENDIF
262
263      IF (PRESENT(long_name_)) THEN
264        CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
265      ENDIF
266
267      IF (PRESENT(lonvalue_)) THEN
268        CALL cxios_set_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_,1))
269      ENDIF
270
271      IF (PRESENT(mask_)) THEN
272        ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))
273        mask__tmp = mask_
274        CALL cxios_set_domain_mask(domain_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2))
275      ENDIF
276
277      IF (PRESENT(name_)) THEN
278        CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_))
279      ENDIF
280
281      IF (PRESENT(ni_)) THEN
282        CALL cxios_set_domain_ni(domain_hdl%daddr, ni_)
283      ENDIF
284
285      IF (PRESENT(ni_glo_)) THEN
286        CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_)
287      ENDIF
288
289      IF (PRESENT(nj_)) THEN
290        CALL cxios_set_domain_nj(domain_hdl%daddr, nj_)
291      ENDIF
292
293      IF (PRESENT(nj_glo_)) THEN
294        CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_)
295      ENDIF
296
297      IF (PRESENT(nvertex_)) THEN
298        CALL cxios_set_domain_nvertex(domain_hdl%daddr, nvertex_)
299      ENDIF
300
301      IF (PRESENT(standard_name_)) THEN
302        CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
303      ENDIF
304
305      IF (PRESENT(type_)) THEN
306        CALL cxios_set_domain_type(domain_hdl%daddr, type_, len(type_))
307      ENDIF
308
309      IF (PRESENT(zoom_ibegin_)) THEN
310        CALL cxios_set_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_)
311      ENDIF
312
313      IF (PRESENT(zoom_ibegin_loc_)) THEN
314        CALL cxios_set_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_)
315      ENDIF
316
317      IF (PRESENT(zoom_jbegin_)) THEN
318        CALL cxios_set_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_)
319      ENDIF
320
321      IF (PRESENT(zoom_jbegin_loc_)) THEN
322        CALL cxios_set_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_)
323      ENDIF
324
325      IF (PRESENT(zoom_ni_)) THEN
326        CALL cxios_set_domain_zoom_ni(domain_hdl%daddr, zoom_ni_)
327      ENDIF
328
329      IF (PRESENT(zoom_ni_loc_)) THEN
330        CALL cxios_set_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_)
331      ENDIF
332
333      IF (PRESENT(zoom_nj_)) THEN
334        CALL cxios_set_domain_zoom_nj(domain_hdl%daddr, zoom_nj_)
335      ENDIF
336
337      IF (PRESENT(zoom_nj_loc_)) THEN
338        CALL cxios_set_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_)
339      ENDIF
340
341  END SUBROUTINE xios(set_domain_attr_hdl_)
342
343  SUBROUTINE xios(get_domain_attr)  &
344    ( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
345    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
346    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
347    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
348    , zoom_ni_loc, zoom_nj, zoom_nj_loc )
349
350    IMPLICIT NONE
351      TYPE(txios(domain))  :: domain_hdl
352      CHARACTER(LEN=*), INTENT(IN) ::domain_id
353      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
354      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
355      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
356      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
357      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
358      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
359      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
360      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
361      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
362      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
363      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
364      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
365      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
366      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:)
367      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
368      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
369      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:)
370      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
371      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
372      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
373      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
374      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
375      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
376      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
378      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
379      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
380      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
381      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
382      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
383      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
384      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
385      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
386      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
387      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
388      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
389      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
390      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
391      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
392      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
393
394      CALL xios(get_domain_handle)(domain_id,domain_hdl)
395      CALL xios(get_domain_attr_hdl_)   &
396      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
397      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
398      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
399      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
400      , zoom_ni_loc, zoom_nj, zoom_nj_loc )
401
402  END SUBROUTINE xios(get_domain_attr)
403
404  SUBROUTINE xios(get_domain_attr_hdl)  &
405    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
406    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
407    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
408    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
409    , zoom_ni_loc, zoom_nj, zoom_nj_loc )
410
411    IMPLICIT NONE
412      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
413      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
414      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
415      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
416      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
417      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
418      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
419      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
420      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
421      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
422      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
423      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
424      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
425      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
426      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:)
427      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
428      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
429      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:)
430      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
431      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
432      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
433      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
434      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
435      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
436      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
437      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
438      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
439      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
440      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
441      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
442      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
443      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
444      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
445      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
446      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
447      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
448      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
449      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
450      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
451      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
452      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
453
454      CALL xios(get_domain_attr_hdl_)  &
455      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
456      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
457      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
458      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
459      , zoom_ni_loc, zoom_nj, zoom_nj_loc )
460
461  END SUBROUTINE xios(get_domain_attr_hdl)
462
463  SUBROUTINE xios(get_domain_attr_hdl_)   &
464    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
465    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_  &
466    , ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_  &
467    , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_  &
468    , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
469
470    IMPLICIT NONE
471      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
472      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
473      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_(:,:)
474      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_(:,:)
475      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
476      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
477      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
478      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
479      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
480      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index_
481      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
482      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
483      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
485      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:,:)
486      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
487      INTEGER  , OPTIONAL, INTENT(OUT) :: iend_
488      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:,:)
489      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
490      INTEGER  , OPTIONAL, INTENT(OUT) :: jend_
491      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
492      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
493      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
494      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:)
495      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
496      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
497      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
498      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
499      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
500      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
501      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
502      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
503      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
504      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_
505      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
506      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_
507      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
508      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_
509      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
510      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_
511      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
512
513      IF (PRESENT(area_)) THEN
514        CALL cxios_get_domain_area(domain_hdl%daddr, area_, size(area_,1), size(area_,2))
515      ENDIF
516
517      IF (PRESENT(bounds_lat_)) THEN
518        CALL cxios_get_domain_bounds_lat(domain_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2))
519      ENDIF
520
521      IF (PRESENT(bounds_lon_)) THEN
522        CALL cxios_get_domain_bounds_lon(domain_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2))
523      ENDIF
524
525      IF (PRESENT(data_dim_)) THEN
526        CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_)
527      ENDIF
528
529      IF (PRESENT(data_i_index_)) THEN
530        CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1))
531      ENDIF
532
533      IF (PRESENT(data_ibegin_)) THEN
534        CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
535      ENDIF
536
537      IF (PRESENT(data_j_index_)) THEN
538        CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1))
539      ENDIF
540
541      IF (PRESENT(data_jbegin_)) THEN
542        CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
543      ENDIF
544
545      IF (PRESENT(data_n_index_)) THEN
546        CALL cxios_get_domain_data_n_index(domain_hdl%daddr, data_n_index_)
547      ENDIF
548
549      IF (PRESENT(data_ni_)) THEN
550        CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_)
551      ENDIF
552
553      IF (PRESENT(data_nj_)) THEN
554        CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_)
555      ENDIF
556
557      IF (PRESENT(domain_group_ref_)) THEN
558        CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
559      ENDIF
560
561      IF (PRESENT(domain_ref_)) THEN
562        CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_))
563      ENDIF
564
565      IF (PRESENT(i_index_)) THEN
566        CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1), size(i_index_,2))
567      ENDIF
568
569      IF (PRESENT(ibegin_)) THEN
570        CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_)
571      ENDIF
572
573      IF (PRESENT(iend_)) THEN
574        CALL cxios_get_domain_iend(domain_hdl%daddr, iend_)
575      ENDIF
576
577      IF (PRESENT(j_index_)) THEN
578        CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1), size(j_index_,2))
579      ENDIF
580
581      IF (PRESENT(jbegin_)) THEN
582        CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_)
583      ENDIF
584
585      IF (PRESENT(jend_)) THEN
586        CALL cxios_get_domain_jend(domain_hdl%daddr, jend_)
587      ENDIF
588
589      IF (PRESENT(latvalue_)) THEN
590        CALL cxios_get_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_,1))
591      ENDIF
592
593      IF (PRESENT(long_name_)) THEN
594        CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
595      ENDIF
596
597      IF (PRESENT(lonvalue_)) THEN
598        CALL cxios_get_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_,1))
599      ENDIF
600
601      IF (PRESENT(mask_)) THEN
602        ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))
603        CALL cxios_get_domain_mask(domain_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2))
604        mask_ = mask__tmp
605      ENDIF
606
607      IF (PRESENT(name_)) THEN
608        CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_))
609      ENDIF
610
611      IF (PRESENT(ni_)) THEN
612        CALL cxios_get_domain_ni(domain_hdl%daddr, ni_)
613      ENDIF
614
615      IF (PRESENT(ni_glo_)) THEN
616        CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_)
617      ENDIF
618
619      IF (PRESENT(nj_)) THEN
620        CALL cxios_get_domain_nj(domain_hdl%daddr, nj_)
621      ENDIF
622
623      IF (PRESENT(nj_glo_)) THEN
624        CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_)
625      ENDIF
626
627      IF (PRESENT(nvertex_)) THEN
628        CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_)
629      ENDIF
630
631      IF (PRESENT(standard_name_)) THEN
632        CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
633      ENDIF
634
635      IF (PRESENT(type_)) THEN
636        CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_))
637      ENDIF
638
639      IF (PRESENT(zoom_ibegin_)) THEN
640        CALL cxios_get_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_)
641      ENDIF
642
643      IF (PRESENT(zoom_ibegin_loc_)) THEN
644        CALL cxios_get_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_)
645      ENDIF
646
647      IF (PRESENT(zoom_jbegin_)) THEN
648        CALL cxios_get_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_)
649      ENDIF
650
651      IF (PRESENT(zoom_jbegin_loc_)) THEN
652        CALL cxios_get_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_)
653      ENDIF
654
655      IF (PRESENT(zoom_ni_)) THEN
656        CALL cxios_get_domain_zoom_ni(domain_hdl%daddr, zoom_ni_)
657      ENDIF
658
659      IF (PRESENT(zoom_ni_loc_)) THEN
660        CALL cxios_get_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_)
661      ENDIF
662
663      IF (PRESENT(zoom_nj_)) THEN
664        CALL cxios_get_domain_zoom_nj(domain_hdl%daddr, zoom_nj_)
665      ENDIF
666
667      IF (PRESENT(zoom_nj_loc_)) THEN
668        CALL cxios_get_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_)
669      ENDIF
670
671  END SUBROUTINE xios(get_domain_attr_hdl_)
672
673  SUBROUTINE xios(is_defined_domain_attr)  &
674    ( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
675    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
676    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
677    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
678    , zoom_ni_loc, zoom_nj, zoom_nj_loc )
679
680    IMPLICIT NONE
681      TYPE(txios(domain))  :: domain_hdl
682      CHARACTER(LEN=*), INTENT(IN) ::domain_id
683      LOGICAL, OPTIONAL, INTENT(OUT) :: area
684      LOGICAL(KIND=C_BOOL) :: area_tmp
685      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
686      LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
687      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
688      LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
689      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
690      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
691      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
692      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
693      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
694      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
695      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
696      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
697      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
698      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
699      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
700      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
701      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
702      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
703      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
704      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
705      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
706      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
707      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
708      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
709      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
710      LOGICAL(KIND=C_BOOL) :: i_index_tmp
711      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
712      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
713      LOGICAL, OPTIONAL, INTENT(OUT) :: iend
714      LOGICAL(KIND=C_BOOL) :: iend_tmp
715      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
716      LOGICAL(KIND=C_BOOL) :: j_index_tmp
717      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
718      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
719      LOGICAL, OPTIONAL, INTENT(OUT) :: jend
720      LOGICAL(KIND=C_BOOL) :: jend_tmp
721      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
722      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
723      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
724      LOGICAL(KIND=C_BOOL) :: long_name_tmp
725      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
726      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
727      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
728      LOGICAL(KIND=C_BOOL) :: mask_tmp
729      LOGICAL, OPTIONAL, INTENT(OUT) :: name
730      LOGICAL(KIND=C_BOOL) :: name_tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
732      LOGICAL(KIND=C_BOOL) :: ni_tmp
733      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
734      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
735      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
736      LOGICAL(KIND=C_BOOL) :: nj_tmp
737      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
738      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
739      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
740      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
741      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
742      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
743      LOGICAL, OPTIONAL, INTENT(OUT) :: type
744      LOGICAL(KIND=C_BOOL) :: type_tmp
745      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
746      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
747      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
748      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
749      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
750      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
751      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
752      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
753      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
754      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
755      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
756      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
757      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
758      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
759      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
760      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
761
762      CALL xios(get_domain_handle)(domain_id,domain_hdl)
763      CALL xios(is_defined_domain_attr_hdl_)   &
764      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
765      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
766      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
767      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
768      , zoom_ni_loc, zoom_nj, zoom_nj_loc )
769
770  END SUBROUTINE xios(is_defined_domain_attr)
771
772  SUBROUTINE xios(is_defined_domain_attr_hdl)  &
773    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
774    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
775    , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
776    , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
777    , zoom_ni_loc, zoom_nj, zoom_nj_loc )
778
779    IMPLICIT NONE
780      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
781      LOGICAL, OPTIONAL, INTENT(OUT) :: area
782      LOGICAL(KIND=C_BOOL) :: area_tmp
783      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
784      LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
785      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
786      LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
787      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
788      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
789      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
790      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
791      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
792      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
793      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
794      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
795      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
796      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
797      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
798      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
799      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
800      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
801      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
802      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
803      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
804      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
805      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
806      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
807      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
808      LOGICAL(KIND=C_BOOL) :: i_index_tmp
809      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
810      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
811      LOGICAL, OPTIONAL, INTENT(OUT) :: iend
812      LOGICAL(KIND=C_BOOL) :: iend_tmp
813      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
814      LOGICAL(KIND=C_BOOL) :: j_index_tmp
815      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
816      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
817      LOGICAL, OPTIONAL, INTENT(OUT) :: jend
818      LOGICAL(KIND=C_BOOL) :: jend_tmp
819      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
820      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
821      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
822      LOGICAL(KIND=C_BOOL) :: long_name_tmp
823      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
824      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
825      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
826      LOGICAL(KIND=C_BOOL) :: mask_tmp
827      LOGICAL, OPTIONAL, INTENT(OUT) :: name
828      LOGICAL(KIND=C_BOOL) :: name_tmp
829      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
830      LOGICAL(KIND=C_BOOL) :: ni_tmp
831      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
832      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
833      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
834      LOGICAL(KIND=C_BOOL) :: nj_tmp
835      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
836      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
837      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
838      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
839      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
840      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
841      LOGICAL, OPTIONAL, INTENT(OUT) :: type
842      LOGICAL(KIND=C_BOOL) :: type_tmp
843      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
844      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
845      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
846      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
847      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
848      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
849      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
850      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
851      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
852      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
853      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
854      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
855      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
856      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
857      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
858      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
859
860      CALL xios(is_defined_domain_attr_hdl_)  &
861      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
862      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
863      , iend, j_index, jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  &
864      , nvertex, standard_name, type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni  &
865      , zoom_ni_loc, zoom_nj, zoom_nj_loc )
866
867  END SUBROUTINE xios(is_defined_domain_attr_hdl)
868
869  SUBROUTINE xios(is_defined_domain_attr_hdl_)   &
870    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
871    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_  &
872    , ibegin_, iend_, j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_  &
873    , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_  &
874    , zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
875
876    IMPLICIT NONE
877      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
878      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
879      LOGICAL(KIND=C_BOOL) :: area__tmp
880      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_
881      LOGICAL(KIND=C_BOOL) :: bounds_lat__tmp
882      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_
883      LOGICAL(KIND=C_BOOL) :: bounds_lon__tmp
884      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
885      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
886      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
887      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
888      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
889      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
890      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
891      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
892      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
893      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
894      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_
895      LOGICAL(KIND=C_BOOL) :: data_n_index__tmp
896      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
897      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
898      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
899      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
900      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
901      LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
902      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
903      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
904      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
905      LOGICAL(KIND=C_BOOL) :: i_index__tmp
906      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
907      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
908      LOGICAL, OPTIONAL, INTENT(OUT) :: iend_
909      LOGICAL(KIND=C_BOOL) :: iend__tmp
910      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
911      LOGICAL(KIND=C_BOOL) :: j_index__tmp
912      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
913      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
914      LOGICAL, OPTIONAL, INTENT(OUT) :: jend_
915      LOGICAL(KIND=C_BOOL) :: jend__tmp
916      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_
917      LOGICAL(KIND=C_BOOL) :: latvalue__tmp
918      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
919      LOGICAL(KIND=C_BOOL) :: long_name__tmp
920      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_
921      LOGICAL(KIND=C_BOOL) :: lonvalue__tmp
922      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
923      LOGICAL(KIND=C_BOOL) :: mask__tmp
924      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
925      LOGICAL(KIND=C_BOOL) :: name__tmp
926      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
927      LOGICAL(KIND=C_BOOL) :: ni__tmp
928      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
929      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
930      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
931      LOGICAL(KIND=C_BOOL) :: nj__tmp
932      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
933      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
934      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
935      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
936      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
937      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
938      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
939      LOGICAL(KIND=C_BOOL) :: type__tmp
940      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_
941      LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp
942      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
943      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp
944      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_
945      LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp
946      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
947      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp
948      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_
949      LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp
950      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
951      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp
952      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_
953      LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp
954      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
955      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp
956
957      IF (PRESENT(area_)) THEN
958        area__tmp = cxios_is_defined_domain_area(domain_hdl%daddr)
959        area_ = area__tmp
960      ENDIF
961
962      IF (PRESENT(bounds_lat_)) THEN
963        bounds_lat__tmp = cxios_is_defined_domain_bounds_lat(domain_hdl%daddr)
964        bounds_lat_ = bounds_lat__tmp
965      ENDIF
966
967      IF (PRESENT(bounds_lon_)) THEN
968        bounds_lon__tmp = cxios_is_defined_domain_bounds_lon(domain_hdl%daddr)
969        bounds_lon_ = bounds_lon__tmp
970      ENDIF
971
972      IF (PRESENT(data_dim_)) THEN
973        data_dim__tmp = cxios_is_defined_domain_data_dim(domain_hdl%daddr)
974        data_dim_ = data_dim__tmp
975      ENDIF
976
977      IF (PRESENT(data_i_index_)) THEN
978        data_i_index__tmp = cxios_is_defined_domain_data_i_index(domain_hdl%daddr)
979        data_i_index_ = data_i_index__tmp
980      ENDIF
981
982      IF (PRESENT(data_ibegin_)) THEN
983        data_ibegin__tmp = cxios_is_defined_domain_data_ibegin(domain_hdl%daddr)
984        data_ibegin_ = data_ibegin__tmp
985      ENDIF
986
987      IF (PRESENT(data_j_index_)) THEN
988        data_j_index__tmp = cxios_is_defined_domain_data_j_index(domain_hdl%daddr)
989        data_j_index_ = data_j_index__tmp
990      ENDIF
991
992      IF (PRESENT(data_jbegin_)) THEN
993        data_jbegin__tmp = cxios_is_defined_domain_data_jbegin(domain_hdl%daddr)
994        data_jbegin_ = data_jbegin__tmp
995      ENDIF
996
997      IF (PRESENT(data_n_index_)) THEN
998        data_n_index__tmp = cxios_is_defined_domain_data_n_index(domain_hdl%daddr)
999        data_n_index_ = data_n_index__tmp
1000      ENDIF
1001
1002      IF (PRESENT(data_ni_)) THEN
1003        data_ni__tmp = cxios_is_defined_domain_data_ni(domain_hdl%daddr)
1004        data_ni_ = data_ni__tmp
1005      ENDIF
1006
1007      IF (PRESENT(data_nj_)) THEN
1008        data_nj__tmp = cxios_is_defined_domain_data_nj(domain_hdl%daddr)
1009        data_nj_ = data_nj__tmp
1010      ENDIF
1011
1012      IF (PRESENT(domain_group_ref_)) THEN
1013        domain_group_ref__tmp = cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr)
1014        domain_group_ref_ = domain_group_ref__tmp
1015      ENDIF
1016
1017      IF (PRESENT(domain_ref_)) THEN
1018        domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr)
1019        domain_ref_ = domain_ref__tmp
1020      ENDIF
1021
1022      IF (PRESENT(i_index_)) THEN
1023        i_index__tmp = cxios_is_defined_domain_i_index(domain_hdl%daddr)
1024        i_index_ = i_index__tmp
1025      ENDIF
1026
1027      IF (PRESENT(ibegin_)) THEN
1028        ibegin__tmp = cxios_is_defined_domain_ibegin(domain_hdl%daddr)
1029        ibegin_ = ibegin__tmp
1030      ENDIF
1031
1032      IF (PRESENT(iend_)) THEN
1033        iend__tmp = cxios_is_defined_domain_iend(domain_hdl%daddr)
1034        iend_ = iend__tmp
1035      ENDIF
1036
1037      IF (PRESENT(j_index_)) THEN
1038        j_index__tmp = cxios_is_defined_domain_j_index(domain_hdl%daddr)
1039        j_index_ = j_index__tmp
1040      ENDIF
1041
1042      IF (PRESENT(jbegin_)) THEN
1043        jbegin__tmp = cxios_is_defined_domain_jbegin(domain_hdl%daddr)
1044        jbegin_ = jbegin__tmp
1045      ENDIF
1046
1047      IF (PRESENT(jend_)) THEN
1048        jend__tmp = cxios_is_defined_domain_jend(domain_hdl%daddr)
1049        jend_ = jend__tmp
1050      ENDIF
1051
1052      IF (PRESENT(latvalue_)) THEN
1053        latvalue__tmp = cxios_is_defined_domain_latvalue(domain_hdl%daddr)
1054        latvalue_ = latvalue__tmp
1055      ENDIF
1056
1057      IF (PRESENT(long_name_)) THEN
1058        long_name__tmp = cxios_is_defined_domain_long_name(domain_hdl%daddr)
1059        long_name_ = long_name__tmp
1060      ENDIF
1061
1062      IF (PRESENT(lonvalue_)) THEN
1063        lonvalue__tmp = cxios_is_defined_domain_lonvalue(domain_hdl%daddr)
1064        lonvalue_ = lonvalue__tmp
1065      ENDIF
1066
1067      IF (PRESENT(mask_)) THEN
1068        mask__tmp = cxios_is_defined_domain_mask(domain_hdl%daddr)
1069        mask_ = mask__tmp
1070      ENDIF
1071
1072      IF (PRESENT(name_)) THEN
1073        name__tmp = cxios_is_defined_domain_name(domain_hdl%daddr)
1074        name_ = name__tmp
1075      ENDIF
1076
1077      IF (PRESENT(ni_)) THEN
1078        ni__tmp = cxios_is_defined_domain_ni(domain_hdl%daddr)
1079        ni_ = ni__tmp
1080      ENDIF
1081
1082      IF (PRESENT(ni_glo_)) THEN
1083        ni_glo__tmp = cxios_is_defined_domain_ni_glo(domain_hdl%daddr)
1084        ni_glo_ = ni_glo__tmp
1085      ENDIF
1086
1087      IF (PRESENT(nj_)) THEN
1088        nj__tmp = cxios_is_defined_domain_nj(domain_hdl%daddr)
1089        nj_ = nj__tmp
1090      ENDIF
1091
1092      IF (PRESENT(nj_glo_)) THEN
1093        nj_glo__tmp = cxios_is_defined_domain_nj_glo(domain_hdl%daddr)
1094        nj_glo_ = nj_glo__tmp
1095      ENDIF
1096
1097      IF (PRESENT(nvertex_)) THEN
1098        nvertex__tmp = cxios_is_defined_domain_nvertex(domain_hdl%daddr)
1099        nvertex_ = nvertex__tmp
1100      ENDIF
1101
1102      IF (PRESENT(standard_name_)) THEN
1103        standard_name__tmp = cxios_is_defined_domain_standard_name(domain_hdl%daddr)
1104        standard_name_ = standard_name__tmp
1105      ENDIF
1106
1107      IF (PRESENT(type_)) THEN
1108        type__tmp = cxios_is_defined_domain_type(domain_hdl%daddr)
1109        type_ = type__tmp
1110      ENDIF
1111
1112      IF (PRESENT(zoom_ibegin_)) THEN
1113        zoom_ibegin__tmp = cxios_is_defined_domain_zoom_ibegin(domain_hdl%daddr)
1114        zoom_ibegin_ = zoom_ibegin__tmp
1115      ENDIF
1116
1117      IF (PRESENT(zoom_ibegin_loc_)) THEN
1118        zoom_ibegin_loc__tmp = cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl%daddr)
1119        zoom_ibegin_loc_ = zoom_ibegin_loc__tmp
1120      ENDIF
1121
1122      IF (PRESENT(zoom_jbegin_)) THEN
1123        zoom_jbegin__tmp = cxios_is_defined_domain_zoom_jbegin(domain_hdl%daddr)
1124        zoom_jbegin_ = zoom_jbegin__tmp
1125      ENDIF
1126
1127      IF (PRESENT(zoom_jbegin_loc_)) THEN
1128        zoom_jbegin_loc__tmp = cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl%daddr)
1129        zoom_jbegin_loc_ = zoom_jbegin_loc__tmp
1130      ENDIF
1131
1132      IF (PRESENT(zoom_ni_)) THEN
1133        zoom_ni__tmp = cxios_is_defined_domain_zoom_ni(domain_hdl%daddr)
1134        zoom_ni_ = zoom_ni__tmp
1135      ENDIF
1136
1137      IF (PRESENT(zoom_ni_loc_)) THEN
1138        zoom_ni_loc__tmp = cxios_is_defined_domain_zoom_ni_loc(domain_hdl%daddr)
1139        zoom_ni_loc_ = zoom_ni_loc__tmp
1140      ENDIF
1141
1142      IF (PRESENT(zoom_nj_)) THEN
1143        zoom_nj__tmp = cxios_is_defined_domain_zoom_nj(domain_hdl%daddr)
1144        zoom_nj_ = zoom_nj__tmp
1145      ENDIF
1146
1147      IF (PRESENT(zoom_nj_loc_)) THEN
1148        zoom_nj_loc__tmp = cxios_is_defined_domain_zoom_nj_loc(domain_hdl%daddr)
1149        zoom_nj_loc_ = zoom_nj_loc__tmp
1150      ENDIF
1151
1152  END SUBROUTINE xios(is_defined_domain_attr_hdl_)
1153
1154END MODULE idomain_attr
Note: See TracBrowser for help on using the repository browser.