source: XIOS/trunk/src/interface/fortran_attr/idomaingroup_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: 42.2 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomaingroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domaingroup_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_domaingroup_attr)  &
14    ( domaingroup_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
15    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
16    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
17    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
18   
19    IMPLICIT NONE
20      TYPE(txios(domaingroup))  :: domaingroup_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_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      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
32      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
33      INTEGER  , OPTIONAL, INTENT(IN) :: iend
34      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
35      INTEGER  , OPTIONAL, INTENT(IN) :: jend
36      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
38      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
39      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
40      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
42      INTEGER  , OPTIONAL, INTENT(IN) :: ni
43      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
44      INTEGER  , OPTIONAL, INTENT(IN) :: nj
45      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
47      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
48      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
49      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
50      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
51      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
52      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
53      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
54      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
55     
56      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
57      CALL xios(set_domaingroup_attr_hdl_)   &
58      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
59      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
60      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
61      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
62   
63  END SUBROUTINE xios(set_domaingroup_attr)
64 
65  SUBROUTINE xios(set_domaingroup_attr_hdl)  &
66    ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
67    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
68    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
69    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
70   
71    IMPLICIT NONE
72      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
73      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
74      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
75      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
76      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
77      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
78      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
79      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
80      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
81      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref
82      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
83      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
84      INTEGER  , OPTIONAL, INTENT(IN) :: iend
85      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
86      INTEGER  , OPTIONAL, INTENT(IN) :: jend
87      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:)
88      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
89      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:)
90      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:)
91      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
92      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
93      INTEGER  , OPTIONAL, INTENT(IN) :: ni
94      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
95      INTEGER  , OPTIONAL, INTENT(IN) :: nj
96      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
97      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
98      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin
99      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc
100      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin
101      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc
102      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni
103      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc
104      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj
105      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc
106     
107      CALL xios(set_domaingroup_attr_hdl_)  &
108      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
109      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
110      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
111      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
112   
113  END SUBROUTINE xios(set_domaingroup_attr_hdl)
114 
115  SUBROUTINE xios(set_domaingroup_attr_hdl_)   &
116    ( domaingroup_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_  &
117    , data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_  &
118    , long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_  &
119    , zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_  &
120     )
121   
122    IMPLICIT NONE
123      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
124      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
125      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
126      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
127      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
128      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
129      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index_
130      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
131      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_
133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
134      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
135      INTEGER  , OPTIONAL, INTENT(IN) :: iend_
136      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
137      INTEGER  , OPTIONAL, INTENT(IN) :: jend_
138      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:)
139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
140      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:)
141      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:,:)
142      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
144      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
145      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
146      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
147      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
149      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_
150      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ibegin_loc_
151      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_
152      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_jbegin_loc_
153      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_
154      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_ni_loc_
155      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_
156      INTEGER  , OPTIONAL, INTENT(IN) :: zoom_nj_loc_
157     
158      IF (PRESENT(data_dim_)) THEN
159        CALL cxios_set_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
160      ENDIF
161     
162      IF (PRESENT(data_i_index_)) THEN
163        CALL cxios_set_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_,size(data_i_index_,1))
164      ENDIF
165     
166      IF (PRESENT(data_ibegin_)) THEN
167        CALL cxios_set_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
168      ENDIF
169     
170      IF (PRESENT(data_j_index_)) THEN
171        CALL cxios_set_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_,size(data_j_index_,1))
172      ENDIF
173     
174      IF (PRESENT(data_jbegin_)) THEN
175        CALL cxios_set_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
176      ENDIF
177     
178      IF (PRESENT(data_n_index_)) THEN
179        CALL cxios_set_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
180      ENDIF
181     
182      IF (PRESENT(data_ni_)) THEN
183        CALL cxios_set_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
184      ENDIF
185     
186      IF (PRESENT(data_nj_)) THEN
187        CALL cxios_set_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
188      ENDIF
189     
190      IF (PRESENT(domain_group_ref_)) THEN
191        CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
192      ENDIF
193     
194      IF (PRESENT(group_ref_)) THEN
195        CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
196      ENDIF
197     
198      IF (PRESENT(ibegin_)) THEN
199        CALL cxios_set_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
200      ENDIF
201     
202      IF (PRESENT(iend_)) THEN
203        CALL cxios_set_domaingroup_iend(domaingroup_hdl%daddr, iend_)
204      ENDIF
205     
206      IF (PRESENT(jbegin_)) THEN
207        CALL cxios_set_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
208      ENDIF
209     
210      IF (PRESENT(jend_)) THEN
211        CALL cxios_set_domaingroup_jend(domaingroup_hdl%daddr, jend_)
212      ENDIF
213     
214      IF (PRESENT(latvalue_)) THEN
215        CALL cxios_set_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_,size(latvalue_,1))
216      ENDIF
217     
218      IF (PRESENT(long_name_)) THEN
219        CALL cxios_set_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
220      ENDIF
221     
222      IF (PRESENT(lonvalue_)) THEN
223        CALL cxios_set_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_,size(lonvalue_,1))
224      ENDIF
225     
226      IF (PRESENT(mask_)) THEN
227        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
228        mask__tmp=mask_
229        CALL cxios_set_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
230      ENDIF
231     
232      IF (PRESENT(name_)) THEN
233        CALL cxios_set_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
234      ENDIF
235     
236      IF (PRESENT(ni_)) THEN
237        CALL cxios_set_domaingroup_ni(domaingroup_hdl%daddr, ni_)
238      ENDIF
239     
240      IF (PRESENT(ni_glo_)) THEN
241        CALL cxios_set_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
242      ENDIF
243     
244      IF (PRESENT(nj_)) THEN
245        CALL cxios_set_domaingroup_nj(domaingroup_hdl%daddr, nj_)
246      ENDIF
247     
248      IF (PRESENT(nj_glo_)) THEN
249        CALL cxios_set_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
250      ENDIF
251     
252      IF (PRESENT(standard_name_)) THEN
253        CALL cxios_set_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
254      ENDIF
255     
256      IF (PRESENT(zoom_ibegin_)) THEN
257        CALL cxios_set_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_)
258      ENDIF
259     
260      IF (PRESENT(zoom_ibegin_loc_)) THEN
261        CALL cxios_set_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_)
262      ENDIF
263     
264      IF (PRESENT(zoom_jbegin_)) THEN
265        CALL cxios_set_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_)
266      ENDIF
267     
268      IF (PRESENT(zoom_jbegin_loc_)) THEN
269        CALL cxios_set_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_)
270      ENDIF
271     
272      IF (PRESENT(zoom_ni_)) THEN
273        CALL cxios_set_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_)
274      ENDIF
275     
276      IF (PRESENT(zoom_ni_loc_)) THEN
277        CALL cxios_set_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_)
278      ENDIF
279     
280      IF (PRESENT(zoom_nj_)) THEN
281        CALL cxios_set_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_)
282      ENDIF
283     
284      IF (PRESENT(zoom_nj_loc_)) THEN
285        CALL cxios_set_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_)
286      ENDIF
287     
288     
289   
290  END SUBROUTINE xios(set_domaingroup_attr_hdl_)
291 
292  SUBROUTINE xios(get_domaingroup_attr)  &
293    ( domaingroup_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
294    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
295    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
296    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
297   
298    IMPLICIT NONE
299      TYPE(txios(domaingroup))  :: domaingroup_hdl
300      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
301      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
302      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
303      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
304      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
305      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
306      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
307      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
308      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
309      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
310      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
311      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
312      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
313      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
314      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
315      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
316      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
317      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
318      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
319      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
320      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
321      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
322      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
323      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
324      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
325      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
326      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
327      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
328      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
329      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
330      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
331      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
332      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
333      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
334     
335      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
336      CALL xios(get_domaingroup_attr_hdl_)   &
337      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
338      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
339      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
340      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
341   
342  END SUBROUTINE xios(get_domaingroup_attr)
343 
344  SUBROUTINE xios(get_domaingroup_attr_hdl)  &
345    ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
346    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
347    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
348    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
349   
350    IMPLICIT NONE
351      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
352      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
353      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
354      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
355      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
356      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
357      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
358      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
359      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
360      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
361      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
362      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
363      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
364      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
365      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
366      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
367      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
368      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
369      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
370      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
371      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
372      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
373      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
374      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
375      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
376      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
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_domaingroup_attr_hdl_)  &
387      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
388      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
389      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
390      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
391   
392  END SUBROUTINE xios(get_domaingroup_attr_hdl)
393 
394  SUBROUTINE xios(get_domaingroup_attr_hdl_)   &
395    ( domaingroup_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_  &
396    , data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_  &
397    , long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_  &
398    , zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_  &
399     )
400   
401    IMPLICIT NONE
402      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
403      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
404      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
405      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
406      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
407      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
408      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index_
409      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
410      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
411      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
412      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
413      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
414      INTEGER  , OPTIONAL, INTENT(OUT) :: iend_
415      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
416      INTEGER  , OPTIONAL, INTENT(OUT) :: jend_
417      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
418      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
419      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
420      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:)
421      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
422      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
423      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
424      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
425      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
426      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
427      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
428      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_
429      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
430      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_
431      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
432      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_
433      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
434      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_
435      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
436     
437      IF (PRESENT(data_dim_)) THEN
438        CALL cxios_get_domaingroup_data_dim(domaingroup_hdl%daddr, data_dim_)
439      ENDIF
440     
441      IF (PRESENT(data_i_index_)) THEN
442        CALL cxios_get_domaingroup_data_i_index(domaingroup_hdl%daddr, data_i_index_,size(data_i_index_,1))
443      ENDIF
444     
445      IF (PRESENT(data_ibegin_)) THEN
446        CALL cxios_get_domaingroup_data_ibegin(domaingroup_hdl%daddr, data_ibegin_)
447      ENDIF
448     
449      IF (PRESENT(data_j_index_)) THEN
450        CALL cxios_get_domaingroup_data_j_index(domaingroup_hdl%daddr, data_j_index_,size(data_j_index_,1))
451      ENDIF
452     
453      IF (PRESENT(data_jbegin_)) THEN
454        CALL cxios_get_domaingroup_data_jbegin(domaingroup_hdl%daddr, data_jbegin_)
455      ENDIF
456     
457      IF (PRESENT(data_n_index_)) THEN
458        CALL cxios_get_domaingroup_data_n_index(domaingroup_hdl%daddr, data_n_index_)
459      ENDIF
460     
461      IF (PRESENT(data_ni_)) THEN
462        CALL cxios_get_domaingroup_data_ni(domaingroup_hdl%daddr, data_ni_)
463      ENDIF
464     
465      IF (PRESENT(data_nj_)) THEN
466        CALL cxios_get_domaingroup_data_nj(domaingroup_hdl%daddr, data_nj_)
467      ENDIF
468     
469      IF (PRESENT(domain_group_ref_)) THEN
470        CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
471      ENDIF
472     
473      IF (PRESENT(group_ref_)) THEN
474        CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_))
475      ENDIF
476     
477      IF (PRESENT(ibegin_)) THEN
478        CALL cxios_get_domaingroup_ibegin(domaingroup_hdl%daddr, ibegin_)
479      ENDIF
480     
481      IF (PRESENT(iend_)) THEN
482        CALL cxios_get_domaingroup_iend(domaingroup_hdl%daddr, iend_)
483      ENDIF
484     
485      IF (PRESENT(jbegin_)) THEN
486        CALL cxios_get_domaingroup_jbegin(domaingroup_hdl%daddr, jbegin_)
487      ENDIF
488     
489      IF (PRESENT(jend_)) THEN
490        CALL cxios_get_domaingroup_jend(domaingroup_hdl%daddr, jend_)
491      ENDIF
492     
493      IF (PRESENT(latvalue_)) THEN
494        CALL cxios_get_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_,size(latvalue_,1))
495      ENDIF
496     
497      IF (PRESENT(long_name_)) THEN
498        CALL cxios_get_domaingroup_long_name(domaingroup_hdl%daddr, long_name_, len(long_name_))
499      ENDIF
500     
501      IF (PRESENT(lonvalue_)) THEN
502        CALL cxios_get_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_,size(lonvalue_,1))
503      ENDIF
504     
505      IF (PRESENT(mask_)) THEN
506        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
507        CALL cxios_get_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
508        mask_=mask__tmp
509      ENDIF
510     
511      IF (PRESENT(name_)) THEN
512        CALL cxios_get_domaingroup_name(domaingroup_hdl%daddr, name_, len(name_))
513      ENDIF
514     
515      IF (PRESENT(ni_)) THEN
516        CALL cxios_get_domaingroup_ni(domaingroup_hdl%daddr, ni_)
517      ENDIF
518     
519      IF (PRESENT(ni_glo_)) THEN
520        CALL cxios_get_domaingroup_ni_glo(domaingroup_hdl%daddr, ni_glo_)
521      ENDIF
522     
523      IF (PRESENT(nj_)) THEN
524        CALL cxios_get_domaingroup_nj(domaingroup_hdl%daddr, nj_)
525      ENDIF
526     
527      IF (PRESENT(nj_glo_)) THEN
528        CALL cxios_get_domaingroup_nj_glo(domaingroup_hdl%daddr, nj_glo_)
529      ENDIF
530     
531      IF (PRESENT(standard_name_)) THEN
532        CALL cxios_get_domaingroup_standard_name(domaingroup_hdl%daddr, standard_name_, len(standard_name_))
533      ENDIF
534     
535      IF (PRESENT(zoom_ibegin_)) THEN
536        CALL cxios_get_domaingroup_zoom_ibegin(domaingroup_hdl%daddr, zoom_ibegin_)
537      ENDIF
538     
539      IF (PRESENT(zoom_ibegin_loc_)) THEN
540        CALL cxios_get_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr, zoom_ibegin_loc_)
541      ENDIF
542     
543      IF (PRESENT(zoom_jbegin_)) THEN
544        CALL cxios_get_domaingroup_zoom_jbegin(domaingroup_hdl%daddr, zoom_jbegin_)
545      ENDIF
546     
547      IF (PRESENT(zoom_jbegin_loc_)) THEN
548        CALL cxios_get_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr, zoom_jbegin_loc_)
549      ENDIF
550     
551      IF (PRESENT(zoom_ni_)) THEN
552        CALL cxios_get_domaingroup_zoom_ni(domaingroup_hdl%daddr, zoom_ni_)
553      ENDIF
554     
555      IF (PRESENT(zoom_ni_loc_)) THEN
556        CALL cxios_get_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr, zoom_ni_loc_)
557      ENDIF
558     
559      IF (PRESENT(zoom_nj_)) THEN
560        CALL cxios_get_domaingroup_zoom_nj(domaingroup_hdl%daddr, zoom_nj_)
561      ENDIF
562     
563      IF (PRESENT(zoom_nj_loc_)) THEN
564        CALL cxios_get_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr, zoom_nj_loc_)
565      ENDIF
566     
567     
568   
569  END SUBROUTINE xios(get_domaingroup_attr_hdl_)
570 
571  SUBROUTINE xios(is_defined_domaingroup_attr)  &
572    ( domaingroup_id, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
573    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
574    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
575    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
576   
577    IMPLICIT NONE
578      TYPE(txios(domaingroup))  :: domaingroup_hdl
579      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
580      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
581      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
582      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
583      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
584      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
585      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
586      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
587      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
588      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
589      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
590      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
591      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
592      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
593      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
594      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
595      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
596      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
597      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
598      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
599      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
600      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
601      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
602      LOGICAL, OPTIONAL, INTENT(OUT) :: iend
603      LOGICAL(KIND=C_BOOL) :: iend_tmp
604      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
605      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
606      LOGICAL, OPTIONAL, INTENT(OUT) :: jend
607      LOGICAL(KIND=C_BOOL) :: jend_tmp
608      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
609      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
610      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
611      LOGICAL(KIND=C_BOOL) :: long_name_tmp
612      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
613      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
614      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
615      LOGICAL(KIND=C_BOOL) :: mask_tmp
616      LOGICAL, OPTIONAL, INTENT(OUT) :: name
617      LOGICAL(KIND=C_BOOL) :: name_tmp
618      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
619      LOGICAL(KIND=C_BOOL) :: ni_tmp
620      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
621      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
622      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
623      LOGICAL(KIND=C_BOOL) :: nj_tmp
624      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
625      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
626      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
627      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
628      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
629      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
630      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
631      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
632      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
633      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
634      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
635      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
636      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
637      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
638      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
639      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
640      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
641      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
642      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
643      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
644     
645      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl)
646      CALL xios(is_defined_domaingroup_attr_hdl_)   &
647      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
648      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
649      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
650      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
651   
652  END SUBROUTINE xios(is_defined_domaingroup_attr)
653 
654  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  &
655    ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
656    , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
657    , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
658    , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
659   
660    IMPLICIT NONE
661      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
662      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
663      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
664      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
665      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
666      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
667      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
668      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
669      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
670      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
671      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
672      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
673      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
674      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
675      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
676      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
677      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
678      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
679      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
680      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
681      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
682      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
683      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
684      LOGICAL, OPTIONAL, INTENT(OUT) :: iend
685      LOGICAL(KIND=C_BOOL) :: iend_tmp
686      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
687      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
688      LOGICAL, OPTIONAL, INTENT(OUT) :: jend
689      LOGICAL(KIND=C_BOOL) :: jend_tmp
690      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
691      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
692      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
693      LOGICAL(KIND=C_BOOL) :: long_name_tmp
694      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
695      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
696      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
697      LOGICAL(KIND=C_BOOL) :: mask_tmp
698      LOGICAL, OPTIONAL, INTENT(OUT) :: name
699      LOGICAL(KIND=C_BOOL) :: name_tmp
700      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
701      LOGICAL(KIND=C_BOOL) :: ni_tmp
702      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
703      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
704      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
705      LOGICAL(KIND=C_BOOL) :: nj_tmp
706      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
707      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
708      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
709      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
710      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
711      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
712      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
713      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
714      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
715      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
716      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
717      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
718      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
719      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
720      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
721      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
722      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
723      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
724      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
725      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
726     
727      CALL xios(is_defined_domaingroup_attr_hdl_)  &
728      ( domaingroup_hdl, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index  &
729      , data_ni, data_nj, domain_group_ref, group_ref, ibegin, iend, jbegin, jend, latvalue, long_name  &
730      , lonvalue, mask, name, ni, ni_glo, nj, nj_glo, standard_name, zoom_ibegin, zoom_ibegin_loc  &
731      , zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj, zoom_nj_loc )
732   
733  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
734 
735  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   &
736    ( domaingroup_hdl, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_  &
737    , data_ni_, data_nj_, domain_group_ref_, group_ref_, ibegin_, iend_, jbegin_, jend_, latvalue_  &
738    , long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_, nj_glo_, standard_name_, zoom_ibegin_  &
739    , zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_, zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_  &
740     )
741   
742    IMPLICIT NONE
743      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
744      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
745      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
746      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
747      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
748      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
749      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
750      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
751      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
752      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
753      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
754      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_
755      LOGICAL(KIND=C_BOOL) :: data_n_index__tmp
756      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
757      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
758      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
759      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
760      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
761      LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
762      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
763      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
764      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
765      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
766      LOGICAL, OPTIONAL, INTENT(OUT) :: iend_
767      LOGICAL(KIND=C_BOOL) :: iend__tmp
768      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
769      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
770      LOGICAL, OPTIONAL, INTENT(OUT) :: jend_
771      LOGICAL(KIND=C_BOOL) :: jend__tmp
772      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_
773      LOGICAL(KIND=C_BOOL) :: latvalue__tmp
774      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
775      LOGICAL(KIND=C_BOOL) :: long_name__tmp
776      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_
777      LOGICAL(KIND=C_BOOL) :: lonvalue__tmp
778      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
779      LOGICAL(KIND=C_BOOL) :: mask__tmp
780      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
781      LOGICAL(KIND=C_BOOL) :: name__tmp
782      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
783      LOGICAL(KIND=C_BOOL) :: ni__tmp
784      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
785      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
786      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
787      LOGICAL(KIND=C_BOOL) :: nj__tmp
788      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
789      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
790      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
791      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
792      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_
793      LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp
794      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
795      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp
796      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_
797      LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp
798      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
799      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp
800      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_
801      LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp
802      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
803      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp
804      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_
805      LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp
806      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
807      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp
808     
809      IF (PRESENT(data_dim_)) THEN
810        data_dim__tmp=cxios_is_defined_domaingroup_data_dim(domaingroup_hdl%daddr)
811        data_dim_=data_dim__tmp
812      ENDIF
813     
814      IF (PRESENT(data_i_index_)) THEN
815        data_i_index__tmp=cxios_is_defined_domaingroup_data_i_index(domaingroup_hdl%daddr)
816        data_i_index_=data_i_index__tmp
817      ENDIF
818     
819      IF (PRESENT(data_ibegin_)) THEN
820        data_ibegin__tmp=cxios_is_defined_domaingroup_data_ibegin(domaingroup_hdl%daddr)
821        data_ibegin_=data_ibegin__tmp
822      ENDIF
823     
824      IF (PRESENT(data_j_index_)) THEN
825        data_j_index__tmp=cxios_is_defined_domaingroup_data_j_index(domaingroup_hdl%daddr)
826        data_j_index_=data_j_index__tmp
827      ENDIF
828     
829      IF (PRESENT(data_jbegin_)) THEN
830        data_jbegin__tmp=cxios_is_defined_domaingroup_data_jbegin(domaingroup_hdl%daddr)
831        data_jbegin_=data_jbegin__tmp
832      ENDIF
833     
834      IF (PRESENT(data_n_index_)) THEN
835        data_n_index__tmp=cxios_is_defined_domaingroup_data_n_index(domaingroup_hdl%daddr)
836        data_n_index_=data_n_index__tmp
837      ENDIF
838     
839      IF (PRESENT(data_ni_)) THEN
840        data_ni__tmp=cxios_is_defined_domaingroup_data_ni(domaingroup_hdl%daddr)
841        data_ni_=data_ni__tmp
842      ENDIF
843     
844      IF (PRESENT(data_nj_)) THEN
845        data_nj__tmp=cxios_is_defined_domaingroup_data_nj(domaingroup_hdl%daddr)
846        data_nj_=data_nj__tmp
847      ENDIF
848     
849      IF (PRESENT(domain_group_ref_)) THEN
850        domain_group_ref__tmp=cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr)
851        domain_group_ref_=domain_group_ref__tmp
852      ENDIF
853     
854      IF (PRESENT(group_ref_)) THEN
855        group_ref__tmp=cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr)
856        group_ref_=group_ref__tmp
857      ENDIF
858     
859      IF (PRESENT(ibegin_)) THEN
860        ibegin__tmp=cxios_is_defined_domaingroup_ibegin(domaingroup_hdl%daddr)
861        ibegin_=ibegin__tmp
862      ENDIF
863     
864      IF (PRESENT(iend_)) THEN
865        iend__tmp=cxios_is_defined_domaingroup_iend(domaingroup_hdl%daddr)
866        iend_=iend__tmp
867      ENDIF
868     
869      IF (PRESENT(jbegin_)) THEN
870        jbegin__tmp=cxios_is_defined_domaingroup_jbegin(domaingroup_hdl%daddr)
871        jbegin_=jbegin__tmp
872      ENDIF
873     
874      IF (PRESENT(jend_)) THEN
875        jend__tmp=cxios_is_defined_domaingroup_jend(domaingroup_hdl%daddr)
876        jend_=jend__tmp
877      ENDIF
878     
879      IF (PRESENT(latvalue_)) THEN
880        latvalue__tmp=cxios_is_defined_domaingroup_latvalue(domaingroup_hdl%daddr)
881        latvalue_=latvalue__tmp
882      ENDIF
883     
884      IF (PRESENT(long_name_)) THEN
885        long_name__tmp=cxios_is_defined_domaingroup_long_name(domaingroup_hdl%daddr)
886        long_name_=long_name__tmp
887      ENDIF
888     
889      IF (PRESENT(lonvalue_)) THEN
890        lonvalue__tmp=cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl%daddr)
891        lonvalue_=lonvalue__tmp
892      ENDIF
893     
894      IF (PRESENT(mask_)) THEN
895        mask__tmp=cxios_is_defined_domaingroup_mask(domaingroup_hdl%daddr)
896        mask_=mask__tmp
897      ENDIF
898     
899      IF (PRESENT(name_)) THEN
900        name__tmp=cxios_is_defined_domaingroup_name(domaingroup_hdl%daddr)
901        name_=name__tmp
902      ENDIF
903     
904      IF (PRESENT(ni_)) THEN
905        ni__tmp=cxios_is_defined_domaingroup_ni(domaingroup_hdl%daddr)
906        ni_=ni__tmp
907      ENDIF
908     
909      IF (PRESENT(ni_glo_)) THEN
910        ni_glo__tmp=cxios_is_defined_domaingroup_ni_glo(domaingroup_hdl%daddr)
911        ni_glo_=ni_glo__tmp
912      ENDIF
913     
914      IF (PRESENT(nj_)) THEN
915        nj__tmp=cxios_is_defined_domaingroup_nj(domaingroup_hdl%daddr)
916        nj_=nj__tmp
917      ENDIF
918     
919      IF (PRESENT(nj_glo_)) THEN
920        nj_glo__tmp=cxios_is_defined_domaingroup_nj_glo(domaingroup_hdl%daddr)
921        nj_glo_=nj_glo__tmp
922      ENDIF
923     
924      IF (PRESENT(standard_name_)) THEN
925        standard_name__tmp=cxios_is_defined_domaingroup_standard_name(domaingroup_hdl%daddr)
926        standard_name_=standard_name__tmp
927      ENDIF
928     
929      IF (PRESENT(zoom_ibegin_)) THEN
930        zoom_ibegin__tmp=cxios_is_defined_domaingroup_zoom_ibegin(domaingroup_hdl%daddr)
931        zoom_ibegin_=zoom_ibegin__tmp
932      ENDIF
933     
934      IF (PRESENT(zoom_ibegin_loc_)) THEN
935        zoom_ibegin_loc__tmp=cxios_is_defined_domaingroup_zoom_ibegin_loc(domaingroup_hdl%daddr)
936        zoom_ibegin_loc_=zoom_ibegin_loc__tmp
937      ENDIF
938     
939      IF (PRESENT(zoom_jbegin_)) THEN
940        zoom_jbegin__tmp=cxios_is_defined_domaingroup_zoom_jbegin(domaingroup_hdl%daddr)
941        zoom_jbegin_=zoom_jbegin__tmp
942      ENDIF
943     
944      IF (PRESENT(zoom_jbegin_loc_)) THEN
945        zoom_jbegin_loc__tmp=cxios_is_defined_domaingroup_zoom_jbegin_loc(domaingroup_hdl%daddr)
946        zoom_jbegin_loc_=zoom_jbegin_loc__tmp
947      ENDIF
948     
949      IF (PRESENT(zoom_ni_)) THEN
950        zoom_ni__tmp=cxios_is_defined_domaingroup_zoom_ni(domaingroup_hdl%daddr)
951        zoom_ni_=zoom_ni__tmp
952      ENDIF
953     
954      IF (PRESENT(zoom_ni_loc_)) THEN
955        zoom_ni_loc__tmp=cxios_is_defined_domaingroup_zoom_ni_loc(domaingroup_hdl%daddr)
956        zoom_ni_loc_=zoom_ni_loc__tmp
957      ENDIF
958     
959      IF (PRESENT(zoom_nj_)) THEN
960        zoom_nj__tmp=cxios_is_defined_domaingroup_zoom_nj(domaingroup_hdl%daddr)
961        zoom_nj_=zoom_nj__tmp
962      ENDIF
963     
964      IF (PRESENT(zoom_nj_loc_)) THEN
965        zoom_nj_loc__tmp=cxios_is_defined_domaingroup_zoom_nj_loc(domaingroup_hdl%daddr)
966        zoom_nj_loc_=zoom_nj_loc__tmp
967      ENDIF
968     
969     
970   
971  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
972 
973END MODULE idomaingroup_attr
Note: See TracBrowser for help on using the repository browser.