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

Last change on this file since 789 was 789, checked in by rlacroix, 8 years ago

Domain: Remove the domain_src attribute.

It was added but was never used.
  • 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: 41.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomain_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domain_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_domain_attr)  &
14    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
15    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
16    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
17    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
18
19    IMPLICIT NONE
20      TYPE(txios(domain))  :: domain_hdl
21      CHARACTER(LEN=*), INTENT(IN) ::domain_id
22      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
27      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
28      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
29      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
30      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
33      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
34      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
35      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
36      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
37      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
38      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
39      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
40      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
42      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
43      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
44      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
45      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
46      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
47      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
48      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
49      INTEGER  , OPTIONAL, INTENT(IN) :: ni
50      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
51      INTEGER  , OPTIONAL, INTENT(IN) :: nj
52      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
53      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
54      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
55      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
56
57      CALL xios(get_domain_handle)(domain_id,domain_hdl)
58      CALL xios(set_domain_attr_hdl_)   &
59      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
60      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
61      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
62      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
63
64  END SUBROUTINE xios(set_domain_attr)
65
66  SUBROUTINE xios(set_domain_attr_hdl)  &
67    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
68    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
69    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
70    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
71
72    IMPLICIT NONE
73      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
74      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
75      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
76      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
77      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
78      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
79      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
80      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
81      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
82      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
83      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
84      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
85      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
86      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
87      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
88      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
89      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
90      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
91      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
92      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
94      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
95      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
96      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
97      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
98      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
99      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
100      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
101      INTEGER  , OPTIONAL, INTENT(IN) :: ni
102      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
103      INTEGER  , OPTIONAL, INTENT(IN) :: nj
104      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
105      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
106      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
108
109      CALL xios(set_domain_attr_hdl_)  &
110      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
111      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
112      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
113      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
114
115  END SUBROUTINE xios(set_domain_attr_hdl)
116
117  SUBROUTINE xios(set_domain_attr_hdl_)   &
118    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
119    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  &
120    , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_  &
121    , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_  &
122    , type_ )
123
124    IMPLICIT NONE
125      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
126      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
127      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
128      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
129      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
130      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
131      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
132      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
133      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
134      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
135      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
136      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
137      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
138      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
139      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:)
140      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
141      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:)
142      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
143      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
144      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
145      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
146      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
147      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
148      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
149      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
150      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
151      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
152      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
153      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
154      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
155      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
156      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
157      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
158      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
159      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
160
161      IF (PRESENT(area_)) THEN
162        CALL cxios_set_domain_area(domain_hdl%daddr, area_, SHAPE(area_))
163      ENDIF
164
165      IF (PRESENT(bounds_lat_1d_)) THEN
166        CALL cxios_set_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
167      ENDIF
168
169      IF (PRESENT(bounds_lat_2d_)) THEN
170        CALL cxios_set_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
171      ENDIF
172
173      IF (PRESENT(bounds_lon_1d_)) THEN
174        CALL cxios_set_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
175      ENDIF
176
177      IF (PRESENT(bounds_lon_2d_)) THEN
178        CALL cxios_set_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
179      ENDIF
180
181      IF (PRESENT(data_dim_)) THEN
182        CALL cxios_set_domain_data_dim(domain_hdl%daddr, data_dim_)
183      ENDIF
184
185      IF (PRESENT(data_i_index_)) THEN
186        CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
187      ENDIF
188
189      IF (PRESENT(data_ibegin_)) THEN
190        CALL cxios_set_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
191      ENDIF
192
193      IF (PRESENT(data_j_index_)) THEN
194        CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
195      ENDIF
196
197      IF (PRESENT(data_jbegin_)) THEN
198        CALL cxios_set_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
199      ENDIF
200
201      IF (PRESENT(data_ni_)) THEN
202        CALL cxios_set_domain_data_ni(domain_hdl%daddr, data_ni_)
203      ENDIF
204
205      IF (PRESENT(data_nj_)) THEN
206        CALL cxios_set_domain_data_nj(domain_hdl%daddr, data_nj_)
207      ENDIF
208
209      IF (PRESENT(domain_ref_)) THEN
210        CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_))
211      ENDIF
212
213      IF (PRESENT(i_index_)) THEN
214        CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_))
215      ENDIF
216
217      IF (PRESENT(ibegin_)) THEN
218        CALL cxios_set_domain_ibegin(domain_hdl%daddr, ibegin_)
219      ENDIF
220
221      IF (PRESENT(j_index_)) THEN
222        CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, SHAPE(j_index_))
223      ENDIF
224
225      IF (PRESENT(jbegin_)) THEN
226        CALL cxios_set_domain_jbegin(domain_hdl%daddr, jbegin_)
227      ENDIF
228
229      IF (PRESENT(latvalue_1d_)) THEN
230        CALL cxios_set_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
231      ENDIF
232
233      IF (PRESENT(latvalue_2d_)) THEN
234        CALL cxios_set_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
235      ENDIF
236
237      IF (PRESENT(long_name_)) THEN
238        CALL cxios_set_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
239      ENDIF
240
241      IF (PRESENT(lonvalue_1d_)) THEN
242        CALL cxios_set_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
243      ENDIF
244
245      IF (PRESENT(lonvalue_2d_)) THEN
246        CALL cxios_set_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
247      ENDIF
248
249      IF (PRESENT(mask_1d_)) THEN
250        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
251        mask_1d__tmp = mask_1d_
252        CALL cxios_set_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
253      ENDIF
254
255      IF (PRESENT(mask_2d_)) THEN
256        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
257        mask_2d__tmp = mask_2d_
258        CALL cxios_set_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
259      ENDIF
260
261      IF (PRESENT(name_)) THEN
262        CALL cxios_set_domain_name(domain_hdl%daddr, name_, len(name_))
263      ENDIF
264
265      IF (PRESENT(ni_)) THEN
266        CALL cxios_set_domain_ni(domain_hdl%daddr, ni_)
267      ENDIF
268
269      IF (PRESENT(ni_glo_)) THEN
270        CALL cxios_set_domain_ni_glo(domain_hdl%daddr, ni_glo_)
271      ENDIF
272
273      IF (PRESENT(nj_)) THEN
274        CALL cxios_set_domain_nj(domain_hdl%daddr, nj_)
275      ENDIF
276
277      IF (PRESENT(nj_glo_)) THEN
278        CALL cxios_set_domain_nj_glo(domain_hdl%daddr, nj_glo_)
279      ENDIF
280
281      IF (PRESENT(nvertex_)) THEN
282        CALL cxios_set_domain_nvertex(domain_hdl%daddr, nvertex_)
283      ENDIF
284
285      IF (PRESENT(standard_name_)) THEN
286        CALL cxios_set_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
287      ENDIF
288
289      IF (PRESENT(type_)) THEN
290        CALL cxios_set_domain_type(domain_hdl%daddr, type_, len(type_))
291      ENDIF
292
293  END SUBROUTINE xios(set_domain_attr_hdl_)
294
295  SUBROUTINE xios(get_domain_attr)  &
296    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
297    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
298    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
299    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
300
301    IMPLICIT NONE
302      TYPE(txios(domain))  :: domain_hdl
303      CHARACTER(LEN=*), INTENT(IN) ::domain_id
304      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
305      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
306      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
307      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
308      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
309      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
310      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
311      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
312      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
313      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
314      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
315      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
316      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
317      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
318      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
319      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
320      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
321      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
322      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
323      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
324      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
325      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
326      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
327      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
328      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
329      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
330      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
331      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
332      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
333      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
334      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
335      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
336      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
337      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
338
339      CALL xios(get_domain_handle)(domain_id,domain_hdl)
340      CALL xios(get_domain_attr_hdl_)   &
341      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
342      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
343      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
344      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
345
346  END SUBROUTINE xios(get_domain_attr)
347
348  SUBROUTINE xios(get_domain_attr_hdl)  &
349    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
350    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
351    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
352    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
353
354    IMPLICIT NONE
355      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
356      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
357      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
358      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
359      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
360      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
361      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
362      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
363      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
364      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
365      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
366      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
367      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
368      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
369      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
370      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
371      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
372      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
373      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
374      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
375      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
376      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
377      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
378      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
379      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
380      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
381      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
382      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
383      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
384      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
385      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
386      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
387      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
388      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
389      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
390
391      CALL xios(get_domain_attr_hdl_)  &
392      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
393      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
394      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
395      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
396
397  END SUBROUTINE xios(get_domain_attr_hdl)
398
399  SUBROUTINE xios(get_domain_attr_hdl_)   &
400    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
401    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  &
402    , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_  &
403    , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_  &
404    , type_ )
405
406    IMPLICIT NONE
407      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
408      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
409      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
410      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
411      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
412      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
413      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
414      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
415      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
416      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
417      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
418      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
419      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
420      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
421      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:)
422      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
423      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:)
424      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
425      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
426      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
427      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
428      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
429      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
430      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
431      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
432      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
433      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
434      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
435      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
436      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
437      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
438      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
439      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
440      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
441      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
442
443      IF (PRESENT(area_)) THEN
444        CALL cxios_get_domain_area(domain_hdl%daddr, area_, SHAPE(area_))
445      ENDIF
446
447      IF (PRESENT(bounds_lat_1d_)) THEN
448        CALL cxios_get_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
449      ENDIF
450
451      IF (PRESENT(bounds_lat_2d_)) THEN
452        CALL cxios_get_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
453      ENDIF
454
455      IF (PRESENT(bounds_lon_1d_)) THEN
456        CALL cxios_get_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
457      ENDIF
458
459      IF (PRESENT(bounds_lon_2d_)) THEN
460        CALL cxios_get_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
461      ENDIF
462
463      IF (PRESENT(data_dim_)) THEN
464        CALL cxios_get_domain_data_dim(domain_hdl%daddr, data_dim_)
465      ENDIF
466
467      IF (PRESENT(data_i_index_)) THEN
468        CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
469      ENDIF
470
471      IF (PRESENT(data_ibegin_)) THEN
472        CALL cxios_get_domain_data_ibegin(domain_hdl%daddr, data_ibegin_)
473      ENDIF
474
475      IF (PRESENT(data_j_index_)) THEN
476        CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
477      ENDIF
478
479      IF (PRESENT(data_jbegin_)) THEN
480        CALL cxios_get_domain_data_jbegin(domain_hdl%daddr, data_jbegin_)
481      ENDIF
482
483      IF (PRESENT(data_ni_)) THEN
484        CALL cxios_get_domain_data_ni(domain_hdl%daddr, data_ni_)
485      ENDIF
486
487      IF (PRESENT(data_nj_)) THEN
488        CALL cxios_get_domain_data_nj(domain_hdl%daddr, data_nj_)
489      ENDIF
490
491      IF (PRESENT(domain_ref_)) THEN
492        CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_))
493      ENDIF
494
495      IF (PRESENT(i_index_)) THEN
496        CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_))
497      ENDIF
498
499      IF (PRESENT(ibegin_)) THEN
500        CALL cxios_get_domain_ibegin(domain_hdl%daddr, ibegin_)
501      ENDIF
502
503      IF (PRESENT(j_index_)) THEN
504        CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, SHAPE(j_index_))
505      ENDIF
506
507      IF (PRESENT(jbegin_)) THEN
508        CALL cxios_get_domain_jbegin(domain_hdl%daddr, jbegin_)
509      ENDIF
510
511      IF (PRESENT(latvalue_1d_)) THEN
512        CALL cxios_get_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
513      ENDIF
514
515      IF (PRESENT(latvalue_2d_)) THEN
516        CALL cxios_get_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
517      ENDIF
518
519      IF (PRESENT(long_name_)) THEN
520        CALL cxios_get_domain_long_name(domain_hdl%daddr, long_name_, len(long_name_))
521      ENDIF
522
523      IF (PRESENT(lonvalue_1d_)) THEN
524        CALL cxios_get_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
525      ENDIF
526
527      IF (PRESENT(lonvalue_2d_)) THEN
528        CALL cxios_get_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
529      ENDIF
530
531      IF (PRESENT(mask_1d_)) THEN
532        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
533        CALL cxios_get_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
534        mask_1d_ = mask_1d__tmp
535      ENDIF
536
537      IF (PRESENT(mask_2d_)) THEN
538        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
539        CALL cxios_get_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
540        mask_2d_ = mask_2d__tmp
541      ENDIF
542
543      IF (PRESENT(name_)) THEN
544        CALL cxios_get_domain_name(domain_hdl%daddr, name_, len(name_))
545      ENDIF
546
547      IF (PRESENT(ni_)) THEN
548        CALL cxios_get_domain_ni(domain_hdl%daddr, ni_)
549      ENDIF
550
551      IF (PRESENT(ni_glo_)) THEN
552        CALL cxios_get_domain_ni_glo(domain_hdl%daddr, ni_glo_)
553      ENDIF
554
555      IF (PRESENT(nj_)) THEN
556        CALL cxios_get_domain_nj(domain_hdl%daddr, nj_)
557      ENDIF
558
559      IF (PRESENT(nj_glo_)) THEN
560        CALL cxios_get_domain_nj_glo(domain_hdl%daddr, nj_glo_)
561      ENDIF
562
563      IF (PRESENT(nvertex_)) THEN
564        CALL cxios_get_domain_nvertex(domain_hdl%daddr, nvertex_)
565      ENDIF
566
567      IF (PRESENT(standard_name_)) THEN
568        CALL cxios_get_domain_standard_name(domain_hdl%daddr, standard_name_, len(standard_name_))
569      ENDIF
570
571      IF (PRESENT(type_)) THEN
572        CALL cxios_get_domain_type(domain_hdl%daddr, type_, len(type_))
573      ENDIF
574
575  END SUBROUTINE xios(get_domain_attr_hdl_)
576
577  SUBROUTINE xios(is_defined_domain_attr)  &
578    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
579    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
580    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
581    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
582
583    IMPLICIT NONE
584      TYPE(txios(domain))  :: domain_hdl
585      CHARACTER(LEN=*), INTENT(IN) ::domain_id
586      LOGICAL, OPTIONAL, INTENT(OUT) :: area
587      LOGICAL(KIND=C_BOOL) :: area_tmp
588      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
589      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
590      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
591      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
592      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
593      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
594      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
595      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
596      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
597      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
598      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
599      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
600      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
601      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
602      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
603      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
604      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
605      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
606      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
607      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
608      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
609      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
610      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
611      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
612      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
613      LOGICAL(KIND=C_BOOL) :: i_index_tmp
614      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
615      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
616      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
617      LOGICAL(KIND=C_BOOL) :: j_index_tmp
618      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
619      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
620      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
621      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
622      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
623      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
624      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
625      LOGICAL(KIND=C_BOOL) :: long_name_tmp
626      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
627      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
628      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
629      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
630      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
631      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
632      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
633      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
634      LOGICAL, OPTIONAL, INTENT(OUT) :: name
635      LOGICAL(KIND=C_BOOL) :: name_tmp
636      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
637      LOGICAL(KIND=C_BOOL) :: ni_tmp
638      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
639      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
640      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
641      LOGICAL(KIND=C_BOOL) :: nj_tmp
642      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
643      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
644      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
645      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
646      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
647      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
648      LOGICAL, OPTIONAL, INTENT(OUT) :: type
649      LOGICAL(KIND=C_BOOL) :: type_tmp
650
651      CALL xios(get_domain_handle)(domain_id,domain_hdl)
652      CALL xios(is_defined_domain_attr_hdl_)   &
653      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
654      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
655      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
656      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
657
658  END SUBROUTINE xios(is_defined_domain_attr)
659
660  SUBROUTINE xios(is_defined_domain_attr_hdl)  &
661    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
662    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
663    , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
664    , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
665
666    IMPLICIT NONE
667      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
668      LOGICAL, OPTIONAL, INTENT(OUT) :: area
669      LOGICAL(KIND=C_BOOL) :: area_tmp
670      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
671      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
672      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
673      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
674      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
675      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
676      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
677      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
678      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
679      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
680      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
681      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
682      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
683      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
684      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
685      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
686      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
687      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
688      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
689      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
690      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
691      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
692      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
693      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
694      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
695      LOGICAL(KIND=C_BOOL) :: i_index_tmp
696      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
697      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
698      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
699      LOGICAL(KIND=C_BOOL) :: j_index_tmp
700      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
701      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
702      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
703      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
704      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
705      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
706      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
707      LOGICAL(KIND=C_BOOL) :: long_name_tmp
708      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
709      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
710      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
711      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
712      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
713      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
714      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
715      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
716      LOGICAL, OPTIONAL, INTENT(OUT) :: name
717      LOGICAL(KIND=C_BOOL) :: name_tmp
718      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
719      LOGICAL(KIND=C_BOOL) :: ni_tmp
720      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
721      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
722      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
723      LOGICAL(KIND=C_BOOL) :: nj_tmp
724      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
725      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
726      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
727      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
728      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
729      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
730      LOGICAL, OPTIONAL, INTENT(OUT) :: type
731      LOGICAL(KIND=C_BOOL) :: type_tmp
732
733      CALL xios(is_defined_domain_attr_hdl_)  &
734      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  &
735      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, i_index, ibegin, j_index  &
736      , jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name  &
737      , ni, ni_glo, nj, nj_glo, nvertex, standard_name, type )
738
739  END SUBROUTINE xios(is_defined_domain_attr_hdl)
740
741  SUBROUTINE xios(is_defined_domain_attr_hdl_)   &
742    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  &
743    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  &
744    , i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_, lonvalue_1d_  &
745    , lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, standard_name_  &
746    , type_ )
747
748    IMPLICIT NONE
749      TYPE(txios(domain)) , INTENT(IN) :: domain_hdl
750      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
751      LOGICAL(KIND=C_BOOL) :: area__tmp
752      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
753      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
754      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
755      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
756      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
757      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
758      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
759      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
760      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
761      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
762      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
763      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
764      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
765      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
766      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
767      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
768      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
769      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
770      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
771      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
772      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
773      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
774      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
775      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
776      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
777      LOGICAL(KIND=C_BOOL) :: i_index__tmp
778      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
779      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
780      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
781      LOGICAL(KIND=C_BOOL) :: j_index__tmp
782      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
783      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
784      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
785      LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
786      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
787      LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
788      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
789      LOGICAL(KIND=C_BOOL) :: long_name__tmp
790      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
791      LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
792      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
793      LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
794      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
795      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
796      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
797      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
798      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
799      LOGICAL(KIND=C_BOOL) :: name__tmp
800      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
801      LOGICAL(KIND=C_BOOL) :: ni__tmp
802      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
803      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
804      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
805      LOGICAL(KIND=C_BOOL) :: nj__tmp
806      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
807      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
808      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
809      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
810      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
811      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
812      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
813      LOGICAL(KIND=C_BOOL) :: type__tmp
814
815      IF (PRESENT(area_)) THEN
816        area__tmp = cxios_is_defined_domain_area(domain_hdl%daddr)
817        area_ = area__tmp
818      ENDIF
819
820      IF (PRESENT(bounds_lat_1d_)) THEN
821        bounds_lat_1d__tmp = cxios_is_defined_domain_bounds_lat_1d(domain_hdl%daddr)
822        bounds_lat_1d_ = bounds_lat_1d__tmp
823      ENDIF
824
825      IF (PRESENT(bounds_lat_2d_)) THEN
826        bounds_lat_2d__tmp = cxios_is_defined_domain_bounds_lat_2d(domain_hdl%daddr)
827        bounds_lat_2d_ = bounds_lat_2d__tmp
828      ENDIF
829
830      IF (PRESENT(bounds_lon_1d_)) THEN
831        bounds_lon_1d__tmp = cxios_is_defined_domain_bounds_lon_1d(domain_hdl%daddr)
832        bounds_lon_1d_ = bounds_lon_1d__tmp
833      ENDIF
834
835      IF (PRESENT(bounds_lon_2d_)) THEN
836        bounds_lon_2d__tmp = cxios_is_defined_domain_bounds_lon_2d(domain_hdl%daddr)
837        bounds_lon_2d_ = bounds_lon_2d__tmp
838      ENDIF
839
840      IF (PRESENT(data_dim_)) THEN
841        data_dim__tmp = cxios_is_defined_domain_data_dim(domain_hdl%daddr)
842        data_dim_ = data_dim__tmp
843      ENDIF
844
845      IF (PRESENT(data_i_index_)) THEN
846        data_i_index__tmp = cxios_is_defined_domain_data_i_index(domain_hdl%daddr)
847        data_i_index_ = data_i_index__tmp
848      ENDIF
849
850      IF (PRESENT(data_ibegin_)) THEN
851        data_ibegin__tmp = cxios_is_defined_domain_data_ibegin(domain_hdl%daddr)
852        data_ibegin_ = data_ibegin__tmp
853      ENDIF
854
855      IF (PRESENT(data_j_index_)) THEN
856        data_j_index__tmp = cxios_is_defined_domain_data_j_index(domain_hdl%daddr)
857        data_j_index_ = data_j_index__tmp
858      ENDIF
859
860      IF (PRESENT(data_jbegin_)) THEN
861        data_jbegin__tmp = cxios_is_defined_domain_data_jbegin(domain_hdl%daddr)
862        data_jbegin_ = data_jbegin__tmp
863      ENDIF
864
865      IF (PRESENT(data_ni_)) THEN
866        data_ni__tmp = cxios_is_defined_domain_data_ni(domain_hdl%daddr)
867        data_ni_ = data_ni__tmp
868      ENDIF
869
870      IF (PRESENT(data_nj_)) THEN
871        data_nj__tmp = cxios_is_defined_domain_data_nj(domain_hdl%daddr)
872        data_nj_ = data_nj__tmp
873      ENDIF
874
875      IF (PRESENT(domain_ref_)) THEN
876        domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr)
877        domain_ref_ = domain_ref__tmp
878      ENDIF
879
880      IF (PRESENT(i_index_)) THEN
881        i_index__tmp = cxios_is_defined_domain_i_index(domain_hdl%daddr)
882        i_index_ = i_index__tmp
883      ENDIF
884
885      IF (PRESENT(ibegin_)) THEN
886        ibegin__tmp = cxios_is_defined_domain_ibegin(domain_hdl%daddr)
887        ibegin_ = ibegin__tmp
888      ENDIF
889
890      IF (PRESENT(j_index_)) THEN
891        j_index__tmp = cxios_is_defined_domain_j_index(domain_hdl%daddr)
892        j_index_ = j_index__tmp
893      ENDIF
894
895      IF (PRESENT(jbegin_)) THEN
896        jbegin__tmp = cxios_is_defined_domain_jbegin(domain_hdl%daddr)
897        jbegin_ = jbegin__tmp
898      ENDIF
899
900      IF (PRESENT(latvalue_1d_)) THEN
901        latvalue_1d__tmp = cxios_is_defined_domain_latvalue_1d(domain_hdl%daddr)
902        latvalue_1d_ = latvalue_1d__tmp
903      ENDIF
904
905      IF (PRESENT(latvalue_2d_)) THEN
906        latvalue_2d__tmp = cxios_is_defined_domain_latvalue_2d(domain_hdl%daddr)
907        latvalue_2d_ = latvalue_2d__tmp
908      ENDIF
909
910      IF (PRESENT(long_name_)) THEN
911        long_name__tmp = cxios_is_defined_domain_long_name(domain_hdl%daddr)
912        long_name_ = long_name__tmp
913      ENDIF
914
915      IF (PRESENT(lonvalue_1d_)) THEN
916        lonvalue_1d__tmp = cxios_is_defined_domain_lonvalue_1d(domain_hdl%daddr)
917        lonvalue_1d_ = lonvalue_1d__tmp
918      ENDIF
919
920      IF (PRESENT(lonvalue_2d_)) THEN
921        lonvalue_2d__tmp = cxios_is_defined_domain_lonvalue_2d(domain_hdl%daddr)
922        lonvalue_2d_ = lonvalue_2d__tmp
923      ENDIF
924
925      IF (PRESENT(mask_1d_)) THEN
926        mask_1d__tmp = cxios_is_defined_domain_mask_1d(domain_hdl%daddr)
927        mask_1d_ = mask_1d__tmp
928      ENDIF
929
930      IF (PRESENT(mask_2d_)) THEN
931        mask_2d__tmp = cxios_is_defined_domain_mask_2d(domain_hdl%daddr)
932        mask_2d_ = mask_2d__tmp
933      ENDIF
934
935      IF (PRESENT(name_)) THEN
936        name__tmp = cxios_is_defined_domain_name(domain_hdl%daddr)
937        name_ = name__tmp
938      ENDIF
939
940      IF (PRESENT(ni_)) THEN
941        ni__tmp = cxios_is_defined_domain_ni(domain_hdl%daddr)
942        ni_ = ni__tmp
943      ENDIF
944
945      IF (PRESENT(ni_glo_)) THEN
946        ni_glo__tmp = cxios_is_defined_domain_ni_glo(domain_hdl%daddr)
947        ni_glo_ = ni_glo__tmp
948      ENDIF
949
950      IF (PRESENT(nj_)) THEN
951        nj__tmp = cxios_is_defined_domain_nj(domain_hdl%daddr)
952        nj_ = nj__tmp
953      ENDIF
954
955      IF (PRESENT(nj_glo_)) THEN
956        nj_glo__tmp = cxios_is_defined_domain_nj_glo(domain_hdl%daddr)
957        nj_glo_ = nj_glo__tmp
958      ENDIF
959
960      IF (PRESENT(nvertex_)) THEN
961        nvertex__tmp = cxios_is_defined_domain_nvertex(domain_hdl%daddr)
962        nvertex_ = nvertex__tmp
963      ENDIF
964
965      IF (PRESENT(standard_name_)) THEN
966        standard_name__tmp = cxios_is_defined_domain_standard_name(domain_hdl%daddr)
967        standard_name_ = standard_name__tmp
968      ENDIF
969
970      IF (PRESENT(type_)) THEN
971        type__tmp = cxios_is_defined_domain_type(domain_hdl%daddr)
972        type_ = type__tmp
973      ENDIF
974
975  END SUBROUTINE xios(is_defined_domain_attr_hdl_)
976
977END MODULE idomain_attr
Note: See TracBrowser for help on using the repository browser.