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

Last change on this file since 432 was 432, checked in by ymipsl, 11 years ago

Enhancement : Add fortran interface to know if an attribute is set or not
ex : CALL xios_is_defined_field_attr("field_A",enabled=ok)

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