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

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

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

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

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

  • Property copyright set to
    Software name : XIOS (Xml I/O Server)
    http://forge.ipsl.jussieu.fr/ioserver
    Creation date : January 2009
    Licence : CeCCIL version2
    see license file in root directory : Licence_CeCILL_V2-en.txt
    or http://www.cecill.info/licences/Licence_CeCILL_V2-en.html
    Holder : CEA/LSCE (Laboratoire des Sciences du CLimat et de l'Environnement)
    CNRS/IPSL (Institut Pierre Simon Laplace)
    Project Manager : Yann Meurdesoif
    yann.meurdesoif@cea.fr
File size: 36.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, 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    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
17    , standard_name, type )
18
19    IMPLICIT NONE
20      TYPE(txios(domain))  :: domain_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::domain_id
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
25      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
26      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
27      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
28      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
30      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
35      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
36      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
37      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
38      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
39      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
41      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
42      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
43      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
45      INTEGER  , OPTIONAL, INTENT(IN) :: ni
46      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
47      INTEGER  , OPTIONAL, INTENT(IN) :: nj
48      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
49      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
51      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
52
53      CALL xios(get_domain_handle)(domain_id,domain_hdl)
54      CALL xios(set_domain_attr_hdl_)   &
55      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
56      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
57      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
58      , standard_name, type )
59
60  END SUBROUTINE xios(set_domain_attr)
61
62  SUBROUTINE xios(set_domain_attr_hdl)  &
63    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
64    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
65    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
66    , standard_name, type )
67
68    IMPLICIT NONE
69      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
70      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
71      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
72      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
73      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
74      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
75      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
76      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
77      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
78      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
79      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
80      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
83      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
84      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
85      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
86      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
87      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
89      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
90      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
91      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
93      INTEGER  , OPTIONAL, INTENT(IN) :: ni
94      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
95      INTEGER  , OPTIONAL, INTENT(IN) :: nj
96      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
97      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
98      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
99      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
100
101      CALL xios(set_domain_attr_hdl_)  &
102      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
103      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
104      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
105      , standard_name, type )
106
107  END SUBROUTINE xios(set_domain_attr_hdl)
108
109  SUBROUTINE xios(set_domain_attr_hdl_)   &
110    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
111    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_  &
112    , ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  &
113    , nj_glo_, nvertex_, standard_name_, type_ )
114
115    IMPLICIT NONE
116      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
117      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
118      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_(:,:)
119      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_(:,:)
120      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
121      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
122      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
123      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
124      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
125      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index_
126      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
127      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
128      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
130      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:)
131      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
132      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:)
133      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
134      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
135      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
136      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
137      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:,:)
138      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
140      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
141      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
142      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
143      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
144      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
145      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
147
148      IF (PRESENT(area_)) THEN
149        CALL cxios_set_domain_area(domain_hdl%daddr, area_, size(area_,1), size(area_,2))
150      ENDIF
151
152      IF (PRESENT(bounds_lat_)) THEN
153        CALL cxios_set_domain_bounds_lat(domain_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2))
154      ENDIF
155
156      IF (PRESENT(bounds_lon_)) THEN
157        CALL cxios_set_domain_bounds_lon(domain_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2))
158      ENDIF
159
160      IF (PRESENT(data_dim_)) THEN
161        CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_)
162      ENDIF
163
164      IF (PRESENT(data_i_index_)) THEN
165        CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1))
166      ENDIF
167
168      IF (PRESENT(data_ibegin_)) THEN
169        CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
170      ENDIF
171
172      IF (PRESENT(data_j_index_)) THEN
173        CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1))
174      ENDIF
175
176      IF (PRESENT(data_jbegin_)) THEN
177        CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
178      ENDIF
179
180      IF (PRESENT(data_n_index_)) THEN
181        CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_)
182      ENDIF
183
184      IF (PRESENT(data_ni_)) THEN
185        CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_)
186      ENDIF
187
188      IF (PRESENT(data_nj_)) THEN
189        CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_)
190      ENDIF
191
192      IF (PRESENT(domain_group_ref_)) THEN
193        CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
194      ENDIF
195
196      IF (PRESENT(domain_ref_)) THEN
197        CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_))
198      ENDIF
199
200      IF (PRESENT(i_index_)) THEN
201        CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1))
202      ENDIF
203
204      IF (PRESENT(ibegin_)) THEN
205        CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_)
206      ENDIF
207
208      IF (PRESENT(j_index_)) THEN
209        CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1))
210      ENDIF
211
212      IF (PRESENT(jbegin_)) THEN
213        CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_)
214      ENDIF
215
216      IF (PRESENT(latvalue_)) THEN
217        CALL cxios_set_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_,1))
218      ENDIF
219
220      IF (PRESENT(long_name_)) THEN
221        CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
222      ENDIF
223
224      IF (PRESENT(lonvalue_)) THEN
225        CALL cxios_set_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_,1))
226      ENDIF
227
228      IF (PRESENT(mask_)) THEN
229        ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))
230        mask__tmp = mask_
231        CALL cxios_set_domain_mask(domain_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2))
232      ENDIF
233
234      IF (PRESENT(name_)) THEN
235        CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_))
236      ENDIF
237
238      IF (PRESENT(ni_)) THEN
239        CALL cxios_set_domain_ni(domain_hdl%daddr, ni_)
240      ENDIF
241
242      IF (PRESENT(ni_glo_)) THEN
243        CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_)
244      ENDIF
245
246      IF (PRESENT(nj_)) THEN
247        CALL cxios_set_domain_nj(domain_hdl%daddr, nj_)
248      ENDIF
249
250      IF (PRESENT(nj_glo_)) THEN
251        CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_)
252      ENDIF
253
254      IF (PRESENT(nvertex_)) THEN
255        CALL cxios_set_domain_nvertex(domain_hdl%daddr, nvertex_)
256      ENDIF
257
258      IF (PRESENT(standard_name_)) THEN
259        CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
260      ENDIF
261
262      IF (PRESENT(type_)) THEN
263        CALL cxios_set_domain_type(domain_hdl%daddr, type_, len(type_))
264      ENDIF
265
266  END SUBROUTINE xios(set_domain_attr_hdl_)
267
268  SUBROUTINE xios(get_domain_attr)  &
269    ( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
270    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
271    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
272    , standard_name, type )
273
274    IMPLICIT NONE
275      TYPE(txios(domain))  :: domain_hdl
276      CHARACTER(LEN=*), INTENT(IN) ::domain_id
277      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
278      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
279      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
280      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
281      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
282      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
283      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
284      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
285      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
286      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
287      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
288      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
289      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
290      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
291      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
292      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
293      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
294      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
295      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
296      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
297      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
298      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
299      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
300      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
301      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
302      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
303      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
304      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
305      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
306      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
307
308      CALL xios(get_domain_handle)(domain_id,domain_hdl)
309      CALL xios(get_domain_attr_hdl_)   &
310      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
311      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
312      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
313      , standard_name, type )
314
315  END SUBROUTINE xios(get_domain_attr)
316
317  SUBROUTINE xios(get_domain_attr_hdl)  &
318    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
319    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
320    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
321    , standard_name, type )
322
323    IMPLICIT NONE
324      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
325      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
326      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
327      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
328      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
329      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
330      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
331      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
332      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
333      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
334      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
335      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
336      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
337      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
338      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
339      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
340      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
341      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
342      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
343      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
344      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
345      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
346      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
347      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
348      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
349      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
350      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
351      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
352      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
353      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
354      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
355
356      CALL xios(get_domain_attr_hdl_)  &
357      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
358      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
359      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
360      , standard_name, type )
361
362  END SUBROUTINE xios(get_domain_attr_hdl)
363
364  SUBROUTINE xios(get_domain_attr_hdl_)   &
365    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
366    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_  &
367    , ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  &
368    , nj_glo_, nvertex_, standard_name_, type_ )
369
370    IMPLICIT NONE
371      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
372      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
373      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_(:,:)
374      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_(:,:)
375      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
376      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
377      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
378      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
379      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
380      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index_
381      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
382      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
383      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
384      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
385      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:)
386      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
387      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:)
388      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
389      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
390      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
391      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
392      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:)
393      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
394      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
395      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
396      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
397      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
398      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
399      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
400      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
401      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
402
403      IF (PRESENT(area_)) THEN
404        CALL cxios_get_domain_area(domain_hdl%daddr, area_, size(area_,1), size(area_,2))
405      ENDIF
406
407      IF (PRESENT(bounds_lat_)) THEN
408        CALL cxios_get_domain_bounds_lat(domain_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2))
409      ENDIF
410
411      IF (PRESENT(bounds_lon_)) THEN
412        CALL cxios_get_domain_bounds_lon(domain_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2))
413      ENDIF
414
415      IF (PRESENT(data_dim_)) THEN
416        CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_)
417      ENDIF
418
419      IF (PRESENT(data_i_index_)) THEN
420        CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1))
421      ENDIF
422
423      IF (PRESENT(data_ibegin_)) THEN
424        CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
425      ENDIF
426
427      IF (PRESENT(data_j_index_)) THEN
428        CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1))
429      ENDIF
430
431      IF (PRESENT(data_jbegin_)) THEN
432        CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
433      ENDIF
434
435      IF (PRESENT(data_n_index_)) THEN
436        CALL cxios_get_domain_data_n_index(domain_hdl%daddr, data_n_index_)
437      ENDIF
438
439      IF (PRESENT(data_ni_)) THEN
440        CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_)
441      ENDIF
442
443      IF (PRESENT(data_nj_)) THEN
444        CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_)
445      ENDIF
446
447      IF (PRESENT(domain_group_ref_)) THEN
448        CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
449      ENDIF
450
451      IF (PRESENT(domain_ref_)) THEN
452        CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_))
453      ENDIF
454
455      IF (PRESENT(i_index_)) THEN
456        CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1))
457      ENDIF
458
459      IF (PRESENT(ibegin_)) THEN
460        CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_)
461      ENDIF
462
463      IF (PRESENT(j_index_)) THEN
464        CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1))
465      ENDIF
466
467      IF (PRESENT(jbegin_)) THEN
468        CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_)
469      ENDIF
470
471      IF (PRESENT(latvalue_)) THEN
472        CALL cxios_get_domain_latvalue(domain_hdl%daddr, latvalue_, size(latvalue_,1))
473      ENDIF
474
475      IF (PRESENT(long_name_)) THEN
476        CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
477      ENDIF
478
479      IF (PRESENT(lonvalue_)) THEN
480        CALL cxios_get_domain_lonvalue(domain_hdl%daddr, lonvalue_, size(lonvalue_,1))
481      ENDIF
482
483      IF (PRESENT(mask_)) THEN
484        ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2)))
485        CALL cxios_get_domain_mask(domain_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2))
486        mask_ = mask__tmp
487      ENDIF
488
489      IF (PRESENT(name_)) THEN
490        CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_))
491      ENDIF
492
493      IF (PRESENT(ni_)) THEN
494        CALL cxios_get_domain_ni(domain_hdl%daddr, ni_)
495      ENDIF
496
497      IF (PRESENT(ni_glo_)) THEN
498        CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_)
499      ENDIF
500
501      IF (PRESENT(nj_)) THEN
502        CALL cxios_get_domain_nj(domain_hdl%daddr, nj_)
503      ENDIF
504
505      IF (PRESENT(nj_glo_)) THEN
506        CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_)
507      ENDIF
508
509      IF (PRESENT(nvertex_)) THEN
510        CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_)
511      ENDIF
512
513      IF (PRESENT(standard_name_)) THEN
514        CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
515      ENDIF
516
517      IF (PRESENT(type_)) THEN
518        CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_))
519      ENDIF
520
521  END SUBROUTINE xios(get_domain_attr_hdl_)
522
523  SUBROUTINE xios(is_defined_domain_attr)  &
524    ( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
525    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
526    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
527    , standard_name, type )
528
529    IMPLICIT NONE
530      TYPE(txios(domain))  :: domain_hdl
531      CHARACTER(LEN=*), INTENT(IN) ::domain_id
532      LOGICAL, OPTIONAL, INTENT(OUT) :: area
533      LOGICAL(KIND=C_BOOL) :: area_tmp
534      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
535      LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
536      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
537      LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
538      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
539      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
540      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
541      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
542      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
543      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
544      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
545      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
546      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
547      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
548      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
549      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
550      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
551      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
552      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
553      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
554      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
555      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
556      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
557      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
558      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
559      LOGICAL(KIND=C_BOOL) :: i_index_tmp
560      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
561      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
562      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
563      LOGICAL(KIND=C_BOOL) :: j_index_tmp
564      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
565      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
566      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
567      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
568      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
569      LOGICAL(KIND=C_BOOL) :: long_name_tmp
570      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
571      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
572      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
573      LOGICAL(KIND=C_BOOL) :: mask_tmp
574      LOGICAL, OPTIONAL, INTENT(OUT) :: name
575      LOGICAL(KIND=C_BOOL) :: name_tmp
576      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
577      LOGICAL(KIND=C_BOOL) :: ni_tmp
578      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
579      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
580      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
581      LOGICAL(KIND=C_BOOL) :: nj_tmp
582      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
583      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
584      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
585      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
586      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
587      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
588      LOGICAL, OPTIONAL, INTENT(OUT) :: type
589      LOGICAL(KIND=C_BOOL) :: type_tmp
590
591      CALL xios(get_domain_handle)(domain_id,domain_hdl)
592      CALL xios(is_defined_domain_attr_hdl_)   &
593      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
594      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
595      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
596      , standard_name, type )
597
598  END SUBROUTINE xios(is_defined_domain_attr)
599
600  SUBROUTINE xios(is_defined_domain_attr_hdl)  &
601    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
602    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
603    , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
604    , standard_name, type )
605
606    IMPLICIT NONE
607      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
608      LOGICAL, OPTIONAL, INTENT(OUT) :: area
609      LOGICAL(KIND=C_BOOL) :: area_tmp
610      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
611      LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
612      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
613      LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
614      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
615      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
616      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
617      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
618      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
619      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
620      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
621      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
622      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
623      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
624      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
625      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
626      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
627      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
628      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
629      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
630      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
631      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
632      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
633      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
634      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
635      LOGICAL(KIND=C_BOOL) :: i_index_tmp
636      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
637      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
638      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
639      LOGICAL(KIND=C_BOOL) :: j_index_tmp
640      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
641      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
642      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
643      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
644      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
645      LOGICAL(KIND=C_BOOL) :: long_name_tmp
646      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
647      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
648      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
649      LOGICAL(KIND=C_BOOL) :: mask_tmp
650      LOGICAL, OPTIONAL, INTENT(OUT) :: name
651      LOGICAL(KIND=C_BOOL) :: name_tmp
652      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
653      LOGICAL(KIND=C_BOOL) :: ni_tmp
654      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
655      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
656      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
657      LOGICAL(KIND=C_BOOL) :: nj_tmp
658      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
659      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
660      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
661      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
662      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
663      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
664      LOGICAL, OPTIONAL, INTENT(OUT) :: type
665      LOGICAL(KIND=C_BOOL) :: type_tmp
666
667      CALL xios(is_defined_domain_attr_hdl_)  &
668      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
669      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, i_index, ibegin  &
670      , j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex  &
671      , standard_name, type )
672
673  END SUBROUTINE xios(is_defined_domain_attr_hdl)
674
675  SUBROUTINE xios(is_defined_domain_attr_hdl_)   &
676    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
677    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, i_index_  &
678    , ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  &
679    , nj_glo_, nvertex_, standard_name_, type_ )
680
681    IMPLICIT NONE
682      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
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) :: j_index_
714      LOGICAL(KIND=C_BOOL) :: j_index__tmp
715      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
716      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
717      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_
718      LOGICAL(KIND=C_BOOL) :: latvalue__tmp
719      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
720      LOGICAL(KIND=C_BOOL) :: long_name__tmp
721      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_
722      LOGICAL(KIND=C_BOOL) :: lonvalue__tmp
723      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
724      LOGICAL(KIND=C_BOOL) :: mask__tmp
725      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
726      LOGICAL(KIND=C_BOOL) :: name__tmp
727      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
728      LOGICAL(KIND=C_BOOL) :: ni__tmp
729      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
730      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
732      LOGICAL(KIND=C_BOOL) :: nj__tmp
733      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
734      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
735      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
736      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
737      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
738      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
739      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
740      LOGICAL(KIND=C_BOOL) :: type__tmp
741
742      IF (PRESENT(area_)) THEN
743        area__tmp = cxios_is_defined_domain_area(domain_hdl%daddr)
744        area_ = area__tmp
745      ENDIF
746
747      IF (PRESENT(bounds_lat_)) THEN
748        bounds_lat__tmp = cxios_is_defined_domain_bounds_lat(domain_hdl%daddr)
749        bounds_lat_ = bounds_lat__tmp
750      ENDIF
751
752      IF (PRESENT(bounds_lon_)) THEN
753        bounds_lon__tmp = cxios_is_defined_domain_bounds_lon(domain_hdl%daddr)
754        bounds_lon_ = bounds_lon__tmp
755      ENDIF
756
757      IF (PRESENT(data_dim_)) THEN
758        data_dim__tmp = cxios_is_defined_domain_data_dim(domain_hdl%daddr)
759        data_dim_ = data_dim__tmp
760      ENDIF
761
762      IF (PRESENT(data_i_index_)) THEN
763        data_i_index__tmp = cxios_is_defined_domain_data_i_index(domain_hdl%daddr)
764        data_i_index_ = data_i_index__tmp
765      ENDIF
766
767      IF (PRESENT(data_ibegin_)) THEN
768        data_ibegin__tmp = cxios_is_defined_domain_data_ibegin(domain_hdl%daddr)
769        data_ibegin_ = data_ibegin__tmp
770      ENDIF
771
772      IF (PRESENT(data_j_index_)) THEN
773        data_j_index__tmp = cxios_is_defined_domain_data_j_index(domain_hdl%daddr)
774        data_j_index_ = data_j_index__tmp
775      ENDIF
776
777      IF (PRESENT(data_jbegin_)) THEN
778        data_jbegin__tmp = cxios_is_defined_domain_data_jbegin(domain_hdl%daddr)
779        data_jbegin_ = data_jbegin__tmp
780      ENDIF
781
782      IF (PRESENT(data_n_index_)) THEN
783        data_n_index__tmp = cxios_is_defined_domain_data_n_index(domain_hdl%daddr)
784        data_n_index_ = data_n_index__tmp
785      ENDIF
786
787      IF (PRESENT(data_ni_)) THEN
788        data_ni__tmp = cxios_is_defined_domain_data_ni(domain_hdl%daddr)
789        data_ni_ = data_ni__tmp
790      ENDIF
791
792      IF (PRESENT(data_nj_)) THEN
793        data_nj__tmp = cxios_is_defined_domain_data_nj(domain_hdl%daddr)
794        data_nj_ = data_nj__tmp
795      ENDIF
796
797      IF (PRESENT(domain_group_ref_)) THEN
798        domain_group_ref__tmp = cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr)
799        domain_group_ref_ = domain_group_ref__tmp
800      ENDIF
801
802      IF (PRESENT(domain_ref_)) THEN
803        domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr)
804        domain_ref_ = domain_ref__tmp
805      ENDIF
806
807      IF (PRESENT(i_index_)) THEN
808        i_index__tmp = cxios_is_defined_domain_i_index(domain_hdl%daddr)
809        i_index_ = i_index__tmp
810      ENDIF
811
812      IF (PRESENT(ibegin_)) THEN
813        ibegin__tmp = cxios_is_defined_domain_ibegin(domain_hdl%daddr)
814        ibegin_ = ibegin__tmp
815      ENDIF
816
817      IF (PRESENT(j_index_)) THEN
818        j_index__tmp = cxios_is_defined_domain_j_index(domain_hdl%daddr)
819        j_index_ = j_index__tmp
820      ENDIF
821
822      IF (PRESENT(jbegin_)) THEN
823        jbegin__tmp = cxios_is_defined_domain_jbegin(domain_hdl%daddr)
824        jbegin_ = jbegin__tmp
825      ENDIF
826
827      IF (PRESENT(latvalue_)) THEN
828        latvalue__tmp = cxios_is_defined_domain_latvalue(domain_hdl%daddr)
829        latvalue_ = latvalue__tmp
830      ENDIF
831
832      IF (PRESENT(long_name_)) THEN
833        long_name__tmp = cxios_is_defined_domain_long_name(domain_hdl%daddr)
834        long_name_ = long_name__tmp
835      ENDIF
836
837      IF (PRESENT(lonvalue_)) THEN
838        lonvalue__tmp = cxios_is_defined_domain_lonvalue(domain_hdl%daddr)
839        lonvalue_ = lonvalue__tmp
840      ENDIF
841
842      IF (PRESENT(mask_)) THEN
843        mask__tmp = cxios_is_defined_domain_mask(domain_hdl%daddr)
844        mask_ = mask__tmp
845      ENDIF
846
847      IF (PRESENT(name_)) THEN
848        name__tmp = cxios_is_defined_domain_name(domain_hdl%daddr)
849        name_ = name__tmp
850      ENDIF
851
852      IF (PRESENT(ni_)) THEN
853        ni__tmp = cxios_is_defined_domain_ni(domain_hdl%daddr)
854        ni_ = ni__tmp
855      ENDIF
856
857      IF (PRESENT(ni_glo_)) THEN
858        ni_glo__tmp = cxios_is_defined_domain_ni_glo(domain_hdl%daddr)
859        ni_glo_ = ni_glo__tmp
860      ENDIF
861
862      IF (PRESENT(nj_)) THEN
863        nj__tmp = cxios_is_defined_domain_nj(domain_hdl%daddr)
864        nj_ = nj__tmp
865      ENDIF
866
867      IF (PRESENT(nj_glo_)) THEN
868        nj_glo__tmp = cxios_is_defined_domain_nj_glo(domain_hdl%daddr)
869        nj_glo_ = nj_glo__tmp
870      ENDIF
871
872      IF (PRESENT(nvertex_)) THEN
873        nvertex__tmp = cxios_is_defined_domain_nvertex(domain_hdl%daddr)
874        nvertex_ = nvertex__tmp
875      ENDIF
876
877      IF (PRESENT(standard_name_)) THEN
878        standard_name__tmp = cxios_is_defined_domain_standard_name(domain_hdl%daddr)
879        standard_name_ = standard_name__tmp
880      ENDIF
881
882      IF (PRESENT(type_)) THEN
883        type__tmp = cxios_is_defined_domain_type(domain_hdl%daddr)
884        type_ = type__tmp
885      ENDIF
886
887  END SUBROUTINE xios(is_defined_domain_attr_hdl_)
888
889END MODULE idomain_attr
Note: See TracBrowser for help on using the repository browser.