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

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

Fix Fortran interface generation to avoid generating long lines.

Long lines can cause compilation issues with some compilers.

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