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

Last change on this file since 581 was 581, checked in by rlacroix, 9 years ago

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