source: XIOS/branchs/xios-1.0/src/interface/fortran_attr/idomain_attr.F90 @ 611

Last change on this file since 611 was 611, checked in by rlacroix, 6 years ago

Improve CF compliance: Add a new domain attribute "area".

Fixes ticket #68.

  • 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.9 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domain_interface_attr
10 
11CONTAINS
12 
13  SUBROUTINE xios(set_domain_attr)  &
14    ( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
15    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, 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) :: area(:,:)
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
26      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
27      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
28      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
30      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
33      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_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, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
66      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_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, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
75    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_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) :: area(:,:)
83      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:)
84      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:)
85      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
86      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
87      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
88      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
89      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
90      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index
91      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
92      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_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, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
124      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_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, area_, 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_, i_index_, ibegin_, iend_  &
134    , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  &
135    , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  &
136    , 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) :: area_(:,:)
141      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_(:,:)
142      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_(:,:)
143      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
144      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
145      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
146      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
147      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
148      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_index_
149      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
150      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
151      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_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(area_)) THEN
181        CALL cxios_set_domain_area(domain_hdl%daddr, area_,size(area_,1),size(area_,2))
182      ENDIF
183     
184      IF (PRESENT(bounds_lat_)) THEN
185        CALL cxios_set_domain_bounds_lat(domain_hdl%daddr, bounds_lat_,size(bounds_lat_,1),size(bounds_lat_,2))
186      ENDIF
187     
188      IF (PRESENT(bounds_lon_)) THEN
189        CALL cxios_set_domain_bounds_lon(domain_hdl%daddr, bounds_lon_,size(bounds_lon_,1),size(bounds_lon_,2))
190      ENDIF
191     
192      IF (PRESENT(data_dim_)) THEN
193        CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_)
194      ENDIF
195     
196      IF (PRESENT(data_i_index_)) THEN
197        CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_,size(data_i_index_,1))
198      ENDIF
199     
200      IF (PRESENT(data_ibegin_)) THEN
201        CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
202      ENDIF
203     
204      IF (PRESENT(data_j_index_)) THEN
205        CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_,size(data_j_index_,1))
206      ENDIF
207     
208      IF (PRESENT(data_jbegin_)) THEN
209        CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
210      ENDIF
211     
212      IF (PRESENT(data_n_index_)) THEN
213        CALL cxios_set_domain_data_n_index(domain_hdl%daddr, data_n_index_)
214      ENDIF
215     
216      IF (PRESENT(data_ni_)) THEN
217        CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_)
218      ENDIF
219     
220      IF (PRESENT(data_nj_)) THEN
221        CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_)
222      ENDIF
223     
224      IF (PRESENT(domain_group_ref_)) THEN
225        CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_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     
335   
336  END SUBROUTINE xios(set_domain_attr_hdl_)
337 
338  SUBROUTINE xios(get_domain_attr)  &
339    ( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
340    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index  &
341    , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
342    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
343    , zoom_nj_loc )
344   
345    IMPLICIT NONE
346      TYPE(txios(domain))  :: domain_hdl
347      CHARACTER(LEN=*), INTENT(IN) ::domain_id
348      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
349      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
350      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
351      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
352      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
353      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
354      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
355      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
356      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
357      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
358      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
359      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
360      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:)
361      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
362      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
363      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:)
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      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
378      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
379      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
380      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
381      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
382      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
383      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
384      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
385      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
386      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
387     
388      CALL xios(get_domain_handle)(domain_id,domain_hdl)
389      CALL xios(get_domain_attr_hdl_)   &
390      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
391      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index  &
392      , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
393      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
394      , zoom_nj_loc )
395   
396  END SUBROUTINE xios(get_domain_attr)
397 
398  SUBROUTINE xios(get_domain_attr_hdl)  &
399    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
400    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index  &
401    , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
402    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
403    , zoom_nj_loc )
404   
405    IMPLICIT NONE
406      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
407      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
408      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:)
409      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:)
410      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
411      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
412      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
413      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
414      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
415      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index
416      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
417      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
418      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref
419      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:,:)
420      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
421      INTEGER  , OPTIONAL, INTENT(OUT) :: iend
422      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:,:)
423      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
424      INTEGER  , OPTIONAL, INTENT(OUT) :: jend
425      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:)
426      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
427      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:)
428      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:)
429      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:)
430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
431      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
432      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
433      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
434      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
435      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
436      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
437      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
438      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin
439      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
440      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin
441      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
442      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni
443      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc
444      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj
445      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc
446     
447      CALL xios(get_domain_attr_hdl_)  &
448      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
449      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index  &
450      , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
451      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
452      , zoom_nj_loc )
453   
454  END SUBROUTINE xios(get_domain_attr_hdl)
455 
456  SUBROUTINE xios(get_domain_attr_hdl_)   &
457    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
458    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_  &
459    , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  &
460    , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  &
461    , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
462   
463    IMPLICIT NONE
464      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
465      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
466      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_(:,:)
467      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_(:,:)
468      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
469      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
470      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
471      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
472      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
473      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_index_
474      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
475      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
476      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_
477      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:,:)
478      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
479      INTEGER  , OPTIONAL, INTENT(OUT) :: iend_
480      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:,:)
481      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
482      INTEGER  , OPTIONAL, INTENT(OUT) :: jend_
483      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:)
484      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
485      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:)
486      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:)
487      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:)
488      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
489      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
490      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
491      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
492      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
493      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
494      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
495      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
496      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_
497      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
498      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_
499      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
500      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_
501      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
502      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_
503      INTEGER  , OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
504     
505      IF (PRESENT(area_)) THEN
506        CALL cxios_get_domain_area(domain_hdl%daddr, area_,size(area_,1),size(area_,2))
507      ENDIF
508     
509      IF (PRESENT(bounds_lat_)) THEN
510        CALL cxios_get_domain_bounds_lat(domain_hdl%daddr, bounds_lat_,size(bounds_lat_,1),size(bounds_lat_,2))
511      ENDIF
512     
513      IF (PRESENT(bounds_lon_)) THEN
514        CALL cxios_get_domain_bounds_lon(domain_hdl%daddr, bounds_lon_,size(bounds_lon_,1),size(bounds_lon_,2))
515      ENDIF
516     
517      IF (PRESENT(data_dim_)) THEN
518        CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_)
519      ENDIF
520     
521      IF (PRESENT(data_i_index_)) THEN
522        CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_,size(data_i_index_,1))
523      ENDIF
524     
525      IF (PRESENT(data_ibegin_)) THEN
526        CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
527      ENDIF
528     
529      IF (PRESENT(data_j_index_)) THEN
530        CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_,size(data_j_index_,1))
531      ENDIF
532     
533      IF (PRESENT(data_jbegin_)) THEN
534        CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
535      ENDIF
536     
537      IF (PRESENT(data_n_index_)) THEN
538        CALL cxios_get_domain_data_n_index(domain_hdl%daddr, data_n_index_)
539      ENDIF
540     
541      IF (PRESENT(data_ni_)) THEN
542        CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_)
543      ENDIF
544     
545      IF (PRESENT(data_nj_)) THEN
546        CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_)
547      ENDIF
548     
549      IF (PRESENT(domain_group_ref_)) THEN
550        CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_))
551      ENDIF
552     
553      IF (PRESENT(i_index_)) THEN
554        CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_,size(i_index_,1),size(i_index_,2))
555      ENDIF
556     
557      IF (PRESENT(ibegin_)) THEN
558        CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_)
559      ENDIF
560     
561      IF (PRESENT(iend_)) THEN
562        CALL cxios_get_domain_iend(domain_hdl%daddr, iend_)
563      ENDIF
564     
565      IF (PRESENT(j_index_)) THEN
566        CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_,size(j_index_,1),size(j_index_,2))
567      ENDIF
568     
569      IF (PRESENT(jbegin_)) THEN
570        CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_)
571      ENDIF
572     
573      IF (PRESENT(jend_)) THEN
574        CALL cxios_get_domain_jend(domain_hdl%daddr, jend_)
575      ENDIF
576     
577      IF (PRESENT(latvalue_)) THEN
578        CALL cxios_get_domain_latvalue(domain_hdl%daddr, latvalue_,size(latvalue_,1))
579      ENDIF
580     
581      IF (PRESENT(long_name_)) THEN
582        CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
583      ENDIF
584     
585      IF (PRESENT(lonvalue_)) THEN
586        CALL cxios_get_domain_lonvalue(domain_hdl%daddr, lonvalue_,size(lonvalue_,1))
587      ENDIF
588     
589      IF (PRESENT(mask_)) THEN
590        ALLOCATE(mask__tmp(size(mask_,1),size(mask_,2)))
591        CALL cxios_get_domain_mask(domain_hdl%daddr, mask__tmp,size(mask_,1),size(mask_,2))
592        mask_=mask__tmp
593      ENDIF
594     
595      IF (PRESENT(name_)) THEN
596        CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_))
597      ENDIF
598     
599      IF (PRESENT(ni_)) THEN
600        CALL cxios_get_domain_ni(domain_hdl%daddr, ni_)
601      ENDIF
602     
603      IF (PRESENT(ni_glo_)) THEN
604        CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_)
605      ENDIF
606     
607      IF (PRESENT(nj_)) THEN
608        CALL cxios_get_domain_nj(domain_hdl%daddr, nj_)
609      ENDIF
610     
611      IF (PRESENT(nj_glo_)) THEN
612        CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_)
613      ENDIF
614     
615      IF (PRESENT(nvertex_)) THEN
616        CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_)
617      ENDIF
618     
619      IF (PRESENT(standard_name_)) THEN
620        CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
621      ENDIF
622     
623      IF (PRESENT(type_)) THEN
624        CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_))
625      ENDIF
626     
627      IF (PRESENT(zoom_ibegin_)) THEN
628        CALL cxios_get_domain_zoom_ibegin(domain_hdl%daddr, zoom_ibegin_)
629      ENDIF
630     
631      IF (PRESENT(zoom_ibegin_loc_)) THEN
632        CALL cxios_get_domain_zoom_ibegin_loc(domain_hdl%daddr, zoom_ibegin_loc_)
633      ENDIF
634     
635      IF (PRESENT(zoom_jbegin_)) THEN
636        CALL cxios_get_domain_zoom_jbegin(domain_hdl%daddr, zoom_jbegin_)
637      ENDIF
638     
639      IF (PRESENT(zoom_jbegin_loc_)) THEN
640        CALL cxios_get_domain_zoom_jbegin_loc(domain_hdl%daddr, zoom_jbegin_loc_)
641      ENDIF
642     
643      IF (PRESENT(zoom_ni_)) THEN
644        CALL cxios_get_domain_zoom_ni(domain_hdl%daddr, zoom_ni_)
645      ENDIF
646     
647      IF (PRESENT(zoom_ni_loc_)) THEN
648        CALL cxios_get_domain_zoom_ni_loc(domain_hdl%daddr, zoom_ni_loc_)
649      ENDIF
650     
651      IF (PRESENT(zoom_nj_)) THEN
652        CALL cxios_get_domain_zoom_nj(domain_hdl%daddr, zoom_nj_)
653      ENDIF
654     
655      IF (PRESENT(zoom_nj_loc_)) THEN
656        CALL cxios_get_domain_zoom_nj_loc(domain_hdl%daddr, zoom_nj_loc_)
657      ENDIF
658     
659     
660   
661  END SUBROUTINE xios(get_domain_attr_hdl_)
662 
663  SUBROUTINE xios(is_defined_domain_attr)  &
664    ( domain_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
665    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index  &
666    , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
667    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
668    , zoom_nj_loc )
669   
670    IMPLICIT NONE
671      TYPE(txios(domain))  :: domain_hdl
672      CHARACTER(LEN=*), INTENT(IN) ::domain_id
673      LOGICAL, OPTIONAL, INTENT(OUT) :: area
674      LOGICAL(KIND=C_BOOL) :: area_tmp
675      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
676      LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
677      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
678      LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
679      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
680      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
681      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
682      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
683      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
684      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
685      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
686      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
687      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
688      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
689      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
690      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
691      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
692      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
693      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
694      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
695      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
696      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
697      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
698      LOGICAL(KIND=C_BOOL) :: i_index_tmp
699      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
700      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
701      LOGICAL, OPTIONAL, INTENT(OUT) :: iend
702      LOGICAL(KIND=C_BOOL) :: iend_tmp
703      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
704      LOGICAL(KIND=C_BOOL) :: j_index_tmp
705      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
706      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
707      LOGICAL, OPTIONAL, INTENT(OUT) :: jend
708      LOGICAL(KIND=C_BOOL) :: jend_tmp
709      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
710      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
711      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
712      LOGICAL(KIND=C_BOOL) :: long_name_tmp
713      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
714      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
715      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
716      LOGICAL(KIND=C_BOOL) :: mask_tmp
717      LOGICAL, OPTIONAL, INTENT(OUT) :: name
718      LOGICAL(KIND=C_BOOL) :: name_tmp
719      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
720      LOGICAL(KIND=C_BOOL) :: ni_tmp
721      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
722      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
723      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
724      LOGICAL(KIND=C_BOOL) :: nj_tmp
725      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
726      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
727      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
728      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
729      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
730      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
731      LOGICAL, OPTIONAL, INTENT(OUT) :: type
732      LOGICAL(KIND=C_BOOL) :: type_tmp
733      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
734      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
735      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
736      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
737      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
738      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
739      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
740      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
741      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
742      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
743      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
744      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
745      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
746      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
747      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
748      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
749     
750      CALL xios(get_domain_handle)(domain_id,domain_hdl)
751      CALL xios(is_defined_domain_attr_hdl_)   &
752      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
753      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index  &
754      , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
755      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
756      , zoom_nj_loc )
757   
758  END SUBROUTINE xios(is_defined_domain_attr)
759 
760  SUBROUTINE xios(is_defined_domain_attr_hdl)  &
761    ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
762    , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index  &
763    , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
764    , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
765    , zoom_nj_loc )
766   
767    IMPLICIT NONE
768      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
769      LOGICAL, OPTIONAL, INTENT(OUT) :: area
770      LOGICAL(KIND=C_BOOL) :: area_tmp
771      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat
772      LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp
773      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon
774      LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp
775      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
776      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
777      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
778      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
779      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
780      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
781      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
782      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
783      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
784      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
785      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index
786      LOGICAL(KIND=C_BOOL) :: data_n_index_tmp
787      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
788      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
789      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
790      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
791      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref
792      LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp
793      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
794      LOGICAL(KIND=C_BOOL) :: i_index_tmp
795      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
796      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
797      LOGICAL, OPTIONAL, INTENT(OUT) :: iend
798      LOGICAL(KIND=C_BOOL) :: iend_tmp
799      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
800      LOGICAL(KIND=C_BOOL) :: j_index_tmp
801      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
802      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
803      LOGICAL, OPTIONAL, INTENT(OUT) :: jend
804      LOGICAL(KIND=C_BOOL) :: jend_tmp
805      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue
806      LOGICAL(KIND=C_BOOL) :: latvalue_tmp
807      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
808      LOGICAL(KIND=C_BOOL) :: long_name_tmp
809      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue
810      LOGICAL(KIND=C_BOOL) :: lonvalue_tmp
811      LOGICAL, OPTIONAL, INTENT(OUT) :: mask
812      LOGICAL(KIND=C_BOOL) :: mask_tmp
813      LOGICAL, OPTIONAL, INTENT(OUT) :: name
814      LOGICAL(KIND=C_BOOL) :: name_tmp
815      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
816      LOGICAL(KIND=C_BOOL) :: ni_tmp
817      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
818      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
819      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
820      LOGICAL(KIND=C_BOOL) :: nj_tmp
821      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
822      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
823      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
824      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
825      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
826      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
827      LOGICAL, OPTIONAL, INTENT(OUT) :: type
828      LOGICAL(KIND=C_BOOL) :: type_tmp
829      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin
830      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_tmp
831      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc
832      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc_tmp
833      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin
834      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_tmp
835      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc
836      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc_tmp
837      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni
838      LOGICAL(KIND=C_BOOL) :: zoom_ni_tmp
839      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc
840      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc_tmp
841      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj
842      LOGICAL(KIND=C_BOOL) :: zoom_nj_tmp
843      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc
844      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc_tmp
845     
846      CALL xios(is_defined_domain_attr_hdl_)  &
847      ( domain_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  &
848      , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, i_index, ibegin, iend, j_index  &
849      , jbegin, jend, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  &
850      , type, zoom_ibegin, zoom_ibegin_loc, zoom_jbegin, zoom_jbegin_loc, zoom_ni, zoom_ni_loc, zoom_nj  &
851      , zoom_nj_loc )
852   
853  END SUBROUTINE xios(is_defined_domain_attr_hdl)
854 
855  SUBROUTINE xios(is_defined_domain_attr_hdl_)   &
856    ( domain_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  &
857    , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, i_index_, ibegin_, iend_  &
858    , j_index_, jbegin_, jend_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_, ni_glo_, nj_  &
859    , nj_glo_, nvertex_, standard_name_, type_, zoom_ibegin_, zoom_ibegin_loc_, zoom_jbegin_, zoom_jbegin_loc_  &
860    , zoom_ni_, zoom_ni_loc_, zoom_nj_, zoom_nj_loc_ )
861   
862    IMPLICIT NONE
863      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
864      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
865      LOGICAL(KIND=C_BOOL) :: area__tmp
866      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_
867      LOGICAL(KIND=C_BOOL) :: bounds_lat__tmp
868      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_
869      LOGICAL(KIND=C_BOOL) :: bounds_lon__tmp
870      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
871      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
872      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
873      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
874      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
875      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
876      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
877      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
878      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
879      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
880      LOGICAL, OPTIONAL, INTENT(OUT) :: data_n_index_
881      LOGICAL(KIND=C_BOOL) :: data_n_index__tmp
882      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
883      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
884      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
885      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
886      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_
887      LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp
888      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
889      LOGICAL(KIND=C_BOOL) :: i_index__tmp
890      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
891      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
892      LOGICAL, OPTIONAL, INTENT(OUT) :: iend_
893      LOGICAL(KIND=C_BOOL) :: iend__tmp
894      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
895      LOGICAL(KIND=C_BOOL) :: j_index__tmp
896      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
897      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
898      LOGICAL, OPTIONAL, INTENT(OUT) :: jend_
899      LOGICAL(KIND=C_BOOL) :: jend__tmp
900      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_
901      LOGICAL(KIND=C_BOOL) :: latvalue__tmp
902      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
903      LOGICAL(KIND=C_BOOL) :: long_name__tmp
904      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_
905      LOGICAL(KIND=C_BOOL) :: lonvalue__tmp
906      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_
907      LOGICAL(KIND=C_BOOL) :: mask__tmp
908      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
909      LOGICAL(KIND=C_BOOL) :: name__tmp
910      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
911      LOGICAL(KIND=C_BOOL) :: ni__tmp
912      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
913      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
914      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
915      LOGICAL(KIND=C_BOOL) :: nj__tmp
916      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
917      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
918      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
919      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
920      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
921      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
922      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
923      LOGICAL(KIND=C_BOOL) :: type__tmp
924      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_
925      LOGICAL(KIND=C_BOOL) :: zoom_ibegin__tmp
926      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ibegin_loc_
927      LOGICAL(KIND=C_BOOL) :: zoom_ibegin_loc__tmp
928      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_
929      LOGICAL(KIND=C_BOOL) :: zoom_jbegin__tmp
930      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_jbegin_loc_
931      LOGICAL(KIND=C_BOOL) :: zoom_jbegin_loc__tmp
932      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_
933      LOGICAL(KIND=C_BOOL) :: zoom_ni__tmp
934      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_ni_loc_
935      LOGICAL(KIND=C_BOOL) :: zoom_ni_loc__tmp
936      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_
937      LOGICAL(KIND=C_BOOL) :: zoom_nj__tmp
938      LOGICAL, OPTIONAL, INTENT(OUT) :: zoom_nj_loc_
939      LOGICAL(KIND=C_BOOL) :: zoom_nj_loc__tmp
940     
941      IF (PRESENT(area_)) THEN
942        area__tmp=cxios_is_defined_domain_area(domain_hdl%daddr)
943        area_=area__tmp
944      ENDIF
945     
946      IF (PRESENT(bounds_lat_)) THEN
947        bounds_lat__tmp=cxios_is_defined_domain_bounds_lat(domain_hdl%daddr)
948        bounds_lat_=bounds_lat__tmp
949      ENDIF
950     
951      IF (PRESENT(bounds_lon_)) THEN
952        bounds_lon__tmp=cxios_is_defined_domain_bounds_lon(domain_hdl%daddr)
953        bounds_lon_=bounds_lon__tmp
954      ENDIF
955     
956      IF (PRESENT(data_dim_)) THEN
957        data_dim__tmp=cxios_is_defined_domain_data_dim(domain_hdl%daddr)
958        data_dim_=data_dim__tmp
959      ENDIF
960     
961      IF (PRESENT(data_i_index_)) THEN
962        data_i_index__tmp=cxios_is_defined_domain_data_i_index(domain_hdl%daddr)
963        data_i_index_=data_i_index__tmp
964      ENDIF
965     
966      IF (PRESENT(data_ibegin_)) THEN
967        data_ibegin__tmp=cxios_is_defined_domain_data_ibegin(domain_hdl%daddr)
968        data_ibegin_=data_ibegin__tmp
969      ENDIF
970     
971      IF (PRESENT(data_j_index_)) THEN
972        data_j_index__tmp=cxios_is_defined_domain_data_j_index(domain_hdl%daddr)
973        data_j_index_=data_j_index__tmp
974      ENDIF
975     
976      IF (PRESENT(data_jbegin_)) THEN
977        data_jbegin__tmp=cxios_is_defined_domain_data_jbegin(domain_hdl%daddr)
978        data_jbegin_=data_jbegin__tmp
979      ENDIF
980     
981      IF (PRESENT(data_n_index_)) THEN
982        data_n_index__tmp=cxios_is_defined_domain_data_n_index(domain_hdl%daddr)
983        data_n_index_=data_n_index__tmp
984      ENDIF
985     
986      IF (PRESENT(data_ni_)) THEN
987        data_ni__tmp=cxios_is_defined_domain_data_ni(domain_hdl%daddr)
988        data_ni_=data_ni__tmp
989      ENDIF
990     
991      IF (PRESENT(data_nj_)) THEN
992        data_nj__tmp=cxios_is_defined_domain_data_nj(domain_hdl%daddr)
993        data_nj_=data_nj__tmp
994      ENDIF
995     
996      IF (PRESENT(domain_group_ref_)) THEN
997        domain_group_ref__tmp=cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr)
998        domain_group_ref_=domain_group_ref__tmp
999      ENDIF
1000     
1001      IF (PRESENT(i_index_)) THEN
1002        i_index__tmp=cxios_is_defined_domain_i_index(domain_hdl%daddr)
1003        i_index_=i_index__tmp
1004      ENDIF
1005     
1006      IF (PRESENT(ibegin_)) THEN
1007        ibegin__tmp=cxios_is_defined_domain_ibegin(domain_hdl%daddr)
1008        ibegin_=ibegin__tmp
1009      ENDIF
1010     
1011      IF (PRESENT(iend_)) THEN
1012        iend__tmp=cxios_is_defined_domain_iend(domain_hdl%daddr)
1013        iend_=iend__tmp
1014      ENDIF
1015     
1016      IF (PRESENT(j_index_)) THEN
1017        j_index__tmp=cxios_is_defined_domain_j_index(domain_hdl%daddr)
1018        j_index_=j_index__tmp
1019      ENDIF
1020     
1021      IF (PRESENT(jbegin_)) THEN
1022        jbegin__tmp=cxios_is_defined_domain_jbegin(domain_hdl%daddr)
1023        jbegin_=jbegin__tmp
1024      ENDIF
1025     
1026      IF (PRESENT(jend_)) THEN
1027        jend__tmp=cxios_is_defined_domain_jend(domain_hdl%daddr)
1028        jend_=jend__tmp
1029      ENDIF
1030     
1031      IF (PRESENT(latvalue_)) THEN
1032        latvalue__tmp=cxios_is_defined_domain_latvalue(domain_hdl%daddr)
1033        latvalue_=latvalue__tmp
1034      ENDIF
1035     
1036      IF (PRESENT(long_name_)) THEN
1037        long_name__tmp=cxios_is_defined_domain_long_name(domain_hdl%daddr)
1038        long_name_=long_name__tmp
1039      ENDIF
1040     
1041      IF (PRESENT(lonvalue_)) THEN
1042        lonvalue__tmp=cxios_is_defined_domain_lonvalue(domain_hdl%daddr)
1043        lonvalue_=lonvalue__tmp
1044      ENDIF
1045     
1046      IF (PRESENT(mask_)) THEN
1047        mask__tmp=cxios_is_defined_domain_mask(domain_hdl%daddr)
1048        mask_=mask__tmp
1049      ENDIF
1050     
1051      IF (PRESENT(name_)) THEN
1052        name__tmp=cxios_is_defined_domain_name(domain_hdl%daddr)
1053        name_=name__tmp
1054      ENDIF
1055     
1056      IF (PRESENT(ni_)) THEN
1057        ni__tmp=cxios_is_defined_domain_ni(domain_hdl%daddr)
1058        ni_=ni__tmp
1059      ENDIF
1060     
1061      IF (PRESENT(ni_glo_)) THEN
1062        ni_glo__tmp=cxios_is_defined_domain_ni_glo(domain_hdl%daddr)
1063        ni_glo_=ni_glo__tmp
1064      ENDIF
1065     
1066      IF (PRESENT(nj_)) THEN
1067        nj__tmp=cxios_is_defined_domain_nj(domain_hdl%daddr)
1068        nj_=nj__tmp
1069      ENDIF
1070     
1071      IF (PRESENT(nj_glo_)) THEN
1072        nj_glo__tmp=cxios_is_defined_domain_nj_glo(domain_hdl%daddr)
1073        nj_glo_=nj_glo__tmp
1074      ENDIF
1075     
1076      IF (PRESENT(nvertex_)) THEN
1077        nvertex__tmp=cxios_is_defined_domain_nvertex(domain_hdl%daddr)
1078        nvertex_=nvertex__tmp
1079      ENDIF
1080     
1081      IF (PRESENT(standard_name_)) THEN
1082        standard_name__tmp=cxios_is_defined_domain_standard_name(domain_hdl%daddr)
1083        standard_name_=standard_name__tmp
1084      ENDIF
1085     
1086      IF (PRESENT(type_)) THEN
1087        type__tmp=cxios_is_defined_domain_type(domain_hdl%daddr)
1088        type_=type__tmp
1089      ENDIF
1090     
1091      IF (PRESENT(zoom_ibegin_)) THEN
1092        zoom_ibegin__tmp=cxios_is_defined_domain_zoom_ibegin(domain_hdl%daddr)
1093        zoom_ibegin_=zoom_ibegin__tmp
1094      ENDIF
1095     
1096      IF (PRESENT(zoom_ibegin_loc_)) THEN
1097        zoom_ibegin_loc__tmp=cxios_is_defined_domain_zoom_ibegin_loc(domain_hdl%daddr)
1098        zoom_ibegin_loc_=zoom_ibegin_loc__tmp
1099      ENDIF
1100     
1101      IF (PRESENT(zoom_jbegin_)) THEN
1102        zoom_jbegin__tmp=cxios_is_defined_domain_zoom_jbegin(domain_hdl%daddr)
1103        zoom_jbegin_=zoom_jbegin__tmp
1104      ENDIF
1105     
1106      IF (PRESENT(zoom_jbegin_loc_)) THEN
1107        zoom_jbegin_loc__tmp=cxios_is_defined_domain_zoom_jbegin_loc(domain_hdl%daddr)
1108        zoom_jbegin_loc_=zoom_jbegin_loc__tmp
1109      ENDIF
1110     
1111      IF (PRESENT(zoom_ni_)) THEN
1112        zoom_ni__tmp=cxios_is_defined_domain_zoom_ni(domain_hdl%daddr)
1113        zoom_ni_=zoom_ni__tmp
1114      ENDIF
1115     
1116      IF (PRESENT(zoom_ni_loc_)) THEN
1117        zoom_ni_loc__tmp=cxios_is_defined_domain_zoom_ni_loc(domain_hdl%daddr)
1118        zoom_ni_loc_=zoom_ni_loc__tmp
1119      ENDIF
1120     
1121      IF (PRESENT(zoom_nj_)) THEN
1122        zoom_nj__tmp=cxios_is_defined_domain_zoom_nj(domain_hdl%daddr)
1123        zoom_nj_=zoom_nj__tmp
1124      ENDIF
1125     
1126      IF (PRESENT(zoom_nj_loc_)) THEN
1127        zoom_nj_loc__tmp=cxios_is_defined_domain_zoom_nj_loc(domain_hdl%daddr)
1128        zoom_nj_loc_=zoom_nj_loc__tmp
1129      ENDIF
1130     
1131     
1132   
1133  END SUBROUTINE xios(is_defined_domain_attr_hdl_)
1134 
1135END MODULE idomain_attr
Note: See TracBrowser for help on using the repository browser.