source: XIOS/dev/branch_openmp/src/interface/fortran_attr/idomain_attr.F90 @ 1545

Last change on this file since 1545 was 1545, checked in by yushan, 6 years ago

branch_openmp merged with trunk r1544

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