source: XIOS/dev/XIOS_DEV_CMIP6/src/interface/fortran_attr/idomaingroup_attr.F90 @ 1492

Last change on this file since 1492 was 1492, checked in by oabramkina, 4 years ago

Updating fortran interface for attributes that have been recently introduced and the following filters:

duplicate_scalar_to_axis
reduce_axis_to_axis
reduce_scalar_to_scalar
reorder_domain
temporal_splitting.

  • 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: 55.5 KB
Line 
1! * ************************************************************************** *
2! *               Interface auto generated - do not modify                     *
3! * ************************************************************************** *
4#include "xios_fortran_prefix.hpp"
5
6MODULE idomaingroup_attr
7  USE, INTRINSIC :: ISO_C_BINDING
8  USE idomain
9  USE domaingroup_interface_attr
10
11CONTAINS
12
13  SUBROUTINE xios(set_domaingroup_attr)  &
14    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
15    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
16    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
17    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
18    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
19
20    IMPLICIT NONE
21      TYPE(txios(domaingroup))  :: domaingroup_hdl
22      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
23      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
26      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
28      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
30      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
31      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
32      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
33      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
34      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
35      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
36      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
37      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
38      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
39      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
40      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
42      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
43      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
44      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
45      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
46      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
47      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
48      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
50      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
51      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
52      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
53      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
54      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
55      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
56      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
57      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
58      INTEGER  , OPTIONAL, INTENT(IN) :: ni
59      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
60      INTEGER  , OPTIONAL, INTENT(IN) :: nj
61      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
62      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
63      INTEGER  , OPTIONAL, INTENT(IN) :: prec
64      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
65      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
66
67      CALL xios(get_domaingroup_handle) &
68      (domaingroup_id,domaingroup_hdl)
69      CALL xios(set_domaingroup_attr_hdl_)   &
70      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
71      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
72      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
73      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
74      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
75
76  END SUBROUTINE xios(set_domaingroup_attr)
77
78  SUBROUTINE xios(set_domaingroup_attr_hdl)  &
79    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
80    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
81    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
82    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
83    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
84
85    IMPLICIT NONE
86      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
87      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
88      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
89      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
91      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
92      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
93      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
95      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
96      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
97      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
98      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
99      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
100      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
101      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
103      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
104      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
105      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
106      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
107      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
108      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
109      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
111      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
112      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
114      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
115      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
116      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
117      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
118      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
119      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
120      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
122      INTEGER  , OPTIONAL, INTENT(IN) :: ni
123      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
124      INTEGER  , OPTIONAL, INTENT(IN) :: nj
125      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
126      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
127      INTEGER  , OPTIONAL, INTENT(IN) :: prec
128      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
130
131      CALL xios(set_domaingroup_attr_hdl_)  &
132      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
133      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
134      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
135      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
136      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
137
138  END SUBROUTINE xios(set_domaingroup_attr_hdl)
139
140  SUBROUTINE xios(set_domaingroup_attr_hdl_)   &
141    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
142    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
143    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  &
144    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  &
145    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_  &
146     )
147
148    IMPLICIT NONE
149      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
150      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
151      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
152      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
153      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name_
154      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
155      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
156      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_
157      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
158      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
159      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
160      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
161      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
162      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
163      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
164      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
165      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name_
166      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name_
167      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
168      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
169      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:)
170      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
171      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:)
172      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
173      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name_
174      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
175      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
176      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name_
177      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
178      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
179      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
180      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
181      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
182      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
183      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
184      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
185      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
186      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
187      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
188      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
189      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
190      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
191      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
192      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
193
194      IF (PRESENT(area_)) THEN
195        CALL cxios_set_domaingroup_area &
196      (domaingroup_hdl%daddr, area_, SHAPE(area_))
197      ENDIF
198
199      IF (PRESENT(bounds_lat_1d_)) THEN
200        CALL cxios_set_domaingroup_bounds_lat_1d &
201      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
202      ENDIF
203
204      IF (PRESENT(bounds_lat_2d_)) THEN
205        CALL cxios_set_domaingroup_bounds_lat_2d &
206      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
207      ENDIF
208
209      IF (PRESENT(bounds_lat_name_)) THEN
210        CALL cxios_set_domaingroup_bounds_lat_name &
211      (domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
212      ENDIF
213
214      IF (PRESENT(bounds_lon_1d_)) THEN
215        CALL cxios_set_domaingroup_bounds_lon_1d &
216      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
217      ENDIF
218
219      IF (PRESENT(bounds_lon_2d_)) THEN
220        CALL cxios_set_domaingroup_bounds_lon_2d &
221      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
222      ENDIF
223
224      IF (PRESENT(bounds_lon_name_)) THEN
225        CALL cxios_set_domaingroup_bounds_lon_name &
226      (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
227      ENDIF
228
229      IF (PRESENT(comment_)) THEN
230        CALL cxios_set_domaingroup_comment &
231      (domaingroup_hdl%daddr, comment_, len(comment_))
232      ENDIF
233
234      IF (PRESENT(data_dim_)) THEN
235        CALL cxios_set_domaingroup_data_dim &
236      (domaingroup_hdl%daddr, data_dim_)
237      ENDIF
238
239      IF (PRESENT(data_i_index_)) THEN
240        CALL cxios_set_domaingroup_data_i_index &
241      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
242      ENDIF
243
244      IF (PRESENT(data_ibegin_)) THEN
245        CALL cxios_set_domaingroup_data_ibegin &
246      (domaingroup_hdl%daddr, data_ibegin_)
247      ENDIF
248
249      IF (PRESENT(data_j_index_)) THEN
250        CALL cxios_set_domaingroup_data_j_index &
251      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
252      ENDIF
253
254      IF (PRESENT(data_jbegin_)) THEN
255        CALL cxios_set_domaingroup_data_jbegin &
256      (domaingroup_hdl%daddr, data_jbegin_)
257      ENDIF
258
259      IF (PRESENT(data_ni_)) THEN
260        CALL cxios_set_domaingroup_data_ni &
261      (domaingroup_hdl%daddr, data_ni_)
262      ENDIF
263
264      IF (PRESENT(data_nj_)) THEN
265        CALL cxios_set_domaingroup_data_nj &
266      (domaingroup_hdl%daddr, data_nj_)
267      ENDIF
268
269      IF (PRESENT(dim_i_name_)) THEN
270        CALL cxios_set_domaingroup_dim_i_name &
271      (domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_))
272      ENDIF
273
274      IF (PRESENT(dim_j_name_)) THEN
275        CALL cxios_set_domaingroup_dim_j_name &
276      (domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_))
277      ENDIF
278
279      IF (PRESENT(domain_ref_)) THEN
280        CALL cxios_set_domaingroup_domain_ref &
281      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
282      ENDIF
283
284      IF (PRESENT(group_ref_)) THEN
285        CALL cxios_set_domaingroup_group_ref &
286      (domaingroup_hdl%daddr, group_ref_, len(group_ref_))
287      ENDIF
288
289      IF (PRESENT(i_index_)) THEN
290        CALL cxios_set_domaingroup_i_index &
291      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
292      ENDIF
293
294      IF (PRESENT(ibegin_)) THEN
295        CALL cxios_set_domaingroup_ibegin &
296      (domaingroup_hdl%daddr, ibegin_)
297      ENDIF
298
299      IF (PRESENT(j_index_)) THEN
300        CALL cxios_set_domaingroup_j_index &
301      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
302      ENDIF
303
304      IF (PRESENT(jbegin_)) THEN
305        CALL cxios_set_domaingroup_jbegin &
306      (domaingroup_hdl%daddr, jbegin_)
307      ENDIF
308
309      IF (PRESENT(lat_name_)) THEN
310        CALL cxios_set_domaingroup_lat_name &
311      (domaingroup_hdl%daddr, lat_name_, len(lat_name_))
312      ENDIF
313
314      IF (PRESENT(latvalue_1d_)) THEN
315        CALL cxios_set_domaingroup_latvalue_1d &
316      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
317      ENDIF
318
319      IF (PRESENT(latvalue_2d_)) THEN
320        CALL cxios_set_domaingroup_latvalue_2d &
321      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
322      ENDIF
323
324      IF (PRESENT(lon_name_)) THEN
325        CALL cxios_set_domaingroup_lon_name &
326      (domaingroup_hdl%daddr, lon_name_, len(lon_name_))
327      ENDIF
328
329      IF (PRESENT(long_name_)) THEN
330        CALL cxios_set_domaingroup_long_name &
331      (domaingroup_hdl%daddr, long_name_, len(long_name_))
332      ENDIF
333
334      IF (PRESENT(lonvalue_1d_)) THEN
335        CALL cxios_set_domaingroup_lonvalue_1d &
336      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
337      ENDIF
338
339      IF (PRESENT(lonvalue_2d_)) THEN
340        CALL cxios_set_domaingroup_lonvalue_2d &
341      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
342      ENDIF
343
344      IF (PRESENT(mask_1d_)) THEN
345        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
346        mask_1d__tmp = mask_1d_
347        CALL cxios_set_domaingroup_mask_1d &
348      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
349      ENDIF
350
351      IF (PRESENT(mask_2d_)) THEN
352        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
353        mask_2d__tmp = mask_2d_
354        CALL cxios_set_domaingroup_mask_2d &
355      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
356      ENDIF
357
358      IF (PRESENT(name_)) THEN
359        CALL cxios_set_domaingroup_name &
360      (domaingroup_hdl%daddr, name_, len(name_))
361      ENDIF
362
363      IF (PRESENT(ni_)) THEN
364        CALL cxios_set_domaingroup_ni &
365      (domaingroup_hdl%daddr, ni_)
366      ENDIF
367
368      IF (PRESENT(ni_glo_)) THEN
369        CALL cxios_set_domaingroup_ni_glo &
370      (domaingroup_hdl%daddr, ni_glo_)
371      ENDIF
372
373      IF (PRESENT(nj_)) THEN
374        CALL cxios_set_domaingroup_nj &
375      (domaingroup_hdl%daddr, nj_)
376      ENDIF
377
378      IF (PRESENT(nj_glo_)) THEN
379        CALL cxios_set_domaingroup_nj_glo &
380      (domaingroup_hdl%daddr, nj_glo_)
381      ENDIF
382
383      IF (PRESENT(nvertex_)) THEN
384        CALL cxios_set_domaingroup_nvertex &
385      (domaingroup_hdl%daddr, nvertex_)
386      ENDIF
387
388      IF (PRESENT(prec_)) THEN
389        CALL cxios_set_domaingroup_prec &
390      (domaingroup_hdl%daddr, prec_)
391      ENDIF
392
393      IF (PRESENT(standard_name_)) THEN
394        CALL cxios_set_domaingroup_standard_name &
395      (domaingroup_hdl%daddr, standard_name_, len(standard_name_))
396      ENDIF
397
398      IF (PRESENT(type_)) THEN
399        CALL cxios_set_domaingroup_type &
400      (domaingroup_hdl%daddr, type_, len(type_))
401      ENDIF
402
403  END SUBROUTINE xios(set_domaingroup_attr_hdl_)
404
405  SUBROUTINE xios(get_domaingroup_attr)  &
406    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
407    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
408    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
409    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
410    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
411
412    IMPLICIT NONE
413      TYPE(txios(domaingroup))  :: domaingroup_hdl
414      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
415      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
416      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
417      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
418      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
419      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
420      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
421      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
422      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
423      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
424      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
425      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
426      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
427      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
428      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
429      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
431      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
432      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
433      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
434      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
435      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
436      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
437      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
438      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
439      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
440      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
441      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
442      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
443      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
444      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
445      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
446      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
447      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
448      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
449      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
450      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
451      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
452      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
453      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
454      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
455      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
456      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
457      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
458
459      CALL xios(get_domaingroup_handle) &
460      (domaingroup_id,domaingroup_hdl)
461      CALL xios(get_domaingroup_attr_hdl_)   &
462      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
463      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
464      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
465      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
466      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
467
468  END SUBROUTINE xios(get_domaingroup_attr)
469
470  SUBROUTINE xios(get_domaingroup_attr_hdl)  &
471    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
472    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
473    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
474    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
475    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
476
477    IMPLICIT NONE
478      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
479      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
480      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
481      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
482      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
483      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
484      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
485      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
486      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
487      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
488      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
489      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
490      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
491      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
492      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
493      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
494      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
495      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
496      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
497      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
498      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
499      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
500      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
501      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
502      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
503      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
504      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
505      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
506      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
507      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
508      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
509      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
510      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
511      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
512      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
513      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
514      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
515      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
516      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
517      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
518      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
519      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
520      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
521      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
522
523      CALL xios(get_domaingroup_attr_hdl_)  &
524      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
525      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
526      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
527      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
528      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
529
530  END SUBROUTINE xios(get_domaingroup_attr_hdl)
531
532  SUBROUTINE xios(get_domaingroup_attr_hdl_)   &
533    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
534    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
535    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  &
536    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  &
537    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_  &
538     )
539
540    IMPLICIT NONE
541      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
542      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
543      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
544      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
545      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name_
546      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
547      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
548      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_
549      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
550      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
551      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
552      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
553      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
554      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
555      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
556      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
557      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name_
558      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name_
559      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
560      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
561      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:)
562      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
563      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:)
564      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
565      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name_
566      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
567      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
568      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name_
569      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
570      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
571      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
572      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
573      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
574      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
575      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
576      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
577      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
578      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
579      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
580      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
581      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
582      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
583      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
584      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
585
586      IF (PRESENT(area_)) THEN
587        CALL cxios_get_domaingroup_area &
588      (domaingroup_hdl%daddr, area_, SHAPE(area_))
589      ENDIF
590
591      IF (PRESENT(bounds_lat_1d_)) THEN
592        CALL cxios_get_domaingroup_bounds_lat_1d &
593      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
594      ENDIF
595
596      IF (PRESENT(bounds_lat_2d_)) THEN
597        CALL cxios_get_domaingroup_bounds_lat_2d &
598      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
599      ENDIF
600
601      IF (PRESENT(bounds_lat_name_)) THEN
602        CALL cxios_get_domaingroup_bounds_lat_name &
603      (domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
604      ENDIF
605
606      IF (PRESENT(bounds_lon_1d_)) THEN
607        CALL cxios_get_domaingroup_bounds_lon_1d &
608      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
609      ENDIF
610
611      IF (PRESENT(bounds_lon_2d_)) THEN
612        CALL cxios_get_domaingroup_bounds_lon_2d &
613      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
614      ENDIF
615
616      IF (PRESENT(bounds_lon_name_)) THEN
617        CALL cxios_get_domaingroup_bounds_lon_name &
618      (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
619      ENDIF
620
621      IF (PRESENT(comment_)) THEN
622        CALL cxios_get_domaingroup_comment &
623      (domaingroup_hdl%daddr, comment_, len(comment_))
624      ENDIF
625
626      IF (PRESENT(data_dim_)) THEN
627        CALL cxios_get_domaingroup_data_dim &
628      (domaingroup_hdl%daddr, data_dim_)
629      ENDIF
630
631      IF (PRESENT(data_i_index_)) THEN
632        CALL cxios_get_domaingroup_data_i_index &
633      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
634      ENDIF
635
636      IF (PRESENT(data_ibegin_)) THEN
637        CALL cxios_get_domaingroup_data_ibegin &
638      (domaingroup_hdl%daddr, data_ibegin_)
639      ENDIF
640
641      IF (PRESENT(data_j_index_)) THEN
642        CALL cxios_get_domaingroup_data_j_index &
643      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
644      ENDIF
645
646      IF (PRESENT(data_jbegin_)) THEN
647        CALL cxios_get_domaingroup_data_jbegin &
648      (domaingroup_hdl%daddr, data_jbegin_)
649      ENDIF
650
651      IF (PRESENT(data_ni_)) THEN
652        CALL cxios_get_domaingroup_data_ni &
653      (domaingroup_hdl%daddr, data_ni_)
654      ENDIF
655
656      IF (PRESENT(data_nj_)) THEN
657        CALL cxios_get_domaingroup_data_nj &
658      (domaingroup_hdl%daddr, data_nj_)
659      ENDIF
660
661      IF (PRESENT(dim_i_name_)) THEN
662        CALL cxios_get_domaingroup_dim_i_name &
663      (domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_))
664      ENDIF
665
666      IF (PRESENT(dim_j_name_)) THEN
667        CALL cxios_get_domaingroup_dim_j_name &
668      (domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_))
669      ENDIF
670
671      IF (PRESENT(domain_ref_)) THEN
672        CALL cxios_get_domaingroup_domain_ref &
673      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
674      ENDIF
675
676      IF (PRESENT(group_ref_)) THEN
677        CALL cxios_get_domaingroup_group_ref &
678      (domaingroup_hdl%daddr, group_ref_, len(group_ref_))
679      ENDIF
680
681      IF (PRESENT(i_index_)) THEN
682        CALL cxios_get_domaingroup_i_index &
683      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
684      ENDIF
685
686      IF (PRESENT(ibegin_)) THEN
687        CALL cxios_get_domaingroup_ibegin &
688      (domaingroup_hdl%daddr, ibegin_)
689      ENDIF
690
691      IF (PRESENT(j_index_)) THEN
692        CALL cxios_get_domaingroup_j_index &
693      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
694      ENDIF
695
696      IF (PRESENT(jbegin_)) THEN
697        CALL cxios_get_domaingroup_jbegin &
698      (domaingroup_hdl%daddr, jbegin_)
699      ENDIF
700
701      IF (PRESENT(lat_name_)) THEN
702        CALL cxios_get_domaingroup_lat_name &
703      (domaingroup_hdl%daddr, lat_name_, len(lat_name_))
704      ENDIF
705
706      IF (PRESENT(latvalue_1d_)) THEN
707        CALL cxios_get_domaingroup_latvalue_1d &
708      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
709      ENDIF
710
711      IF (PRESENT(latvalue_2d_)) THEN
712        CALL cxios_get_domaingroup_latvalue_2d &
713      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
714      ENDIF
715
716      IF (PRESENT(lon_name_)) THEN
717        CALL cxios_get_domaingroup_lon_name &
718      (domaingroup_hdl%daddr, lon_name_, len(lon_name_))
719      ENDIF
720
721      IF (PRESENT(long_name_)) THEN
722        CALL cxios_get_domaingroup_long_name &
723      (domaingroup_hdl%daddr, long_name_, len(long_name_))
724      ENDIF
725
726      IF (PRESENT(lonvalue_1d_)) THEN
727        CALL cxios_get_domaingroup_lonvalue_1d &
728      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
729      ENDIF
730
731      IF (PRESENT(lonvalue_2d_)) THEN
732        CALL cxios_get_domaingroup_lonvalue_2d &
733      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
734      ENDIF
735
736      IF (PRESENT(mask_1d_)) THEN
737        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
738        CALL cxios_get_domaingroup_mask_1d &
739      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
740        mask_1d_ = mask_1d__tmp
741      ENDIF
742
743      IF (PRESENT(mask_2d_)) THEN
744        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
745        CALL cxios_get_domaingroup_mask_2d &
746      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
747        mask_2d_ = mask_2d__tmp
748      ENDIF
749
750      IF (PRESENT(name_)) THEN
751        CALL cxios_get_domaingroup_name &
752      (domaingroup_hdl%daddr, name_, len(name_))
753      ENDIF
754
755      IF (PRESENT(ni_)) THEN
756        CALL cxios_get_domaingroup_ni &
757      (domaingroup_hdl%daddr, ni_)
758      ENDIF
759
760      IF (PRESENT(ni_glo_)) THEN
761        CALL cxios_get_domaingroup_ni_glo &
762      (domaingroup_hdl%daddr, ni_glo_)
763      ENDIF
764
765      IF (PRESENT(nj_)) THEN
766        CALL cxios_get_domaingroup_nj &
767      (domaingroup_hdl%daddr, nj_)
768      ENDIF
769
770      IF (PRESENT(nj_glo_)) THEN
771        CALL cxios_get_domaingroup_nj_glo &
772      (domaingroup_hdl%daddr, nj_glo_)
773      ENDIF
774
775      IF (PRESENT(nvertex_)) THEN
776        CALL cxios_get_domaingroup_nvertex &
777      (domaingroup_hdl%daddr, nvertex_)
778      ENDIF
779
780      IF (PRESENT(prec_)) THEN
781        CALL cxios_get_domaingroup_prec &
782      (domaingroup_hdl%daddr, prec_)
783      ENDIF
784
785      IF (PRESENT(standard_name_)) THEN
786        CALL cxios_get_domaingroup_standard_name &
787      (domaingroup_hdl%daddr, standard_name_, len(standard_name_))
788      ENDIF
789
790      IF (PRESENT(type_)) THEN
791        CALL cxios_get_domaingroup_type &
792      (domaingroup_hdl%daddr, type_, len(type_))
793      ENDIF
794
795  END SUBROUTINE xios(get_domaingroup_attr_hdl_)
796
797  SUBROUTINE xios(is_defined_domaingroup_attr)  &
798    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
799    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
800    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
801    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
802    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
803
804    IMPLICIT NONE
805      TYPE(txios(domaingroup))  :: domaingroup_hdl
806      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
807      LOGICAL, OPTIONAL, INTENT(OUT) :: area
808      LOGICAL(KIND=C_BOOL) :: area_tmp
809      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
810      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
811      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
812      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
813      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
814      LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
815      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
816      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
817      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
818      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
819      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
820      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
821      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
822      LOGICAL(KIND=C_BOOL) :: comment_tmp
823      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
824      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
825      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
826      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
827      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
828      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
829      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
830      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
831      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
832      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
833      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
834      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
835      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
836      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
837      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
838      LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
839      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
840      LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
841      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
842      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
843      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
844      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
845      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
846      LOGICAL(KIND=C_BOOL) :: i_index_tmp
847      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
848      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
849      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
850      LOGICAL(KIND=C_BOOL) :: j_index_tmp
851      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
852      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
853      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
854      LOGICAL(KIND=C_BOOL) :: lat_name_tmp
855      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
856      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
857      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
858      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
859      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
860      LOGICAL(KIND=C_BOOL) :: lon_name_tmp
861      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
862      LOGICAL(KIND=C_BOOL) :: long_name_tmp
863      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
864      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
865      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
866      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
867      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
868      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
869      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
870      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
871      LOGICAL, OPTIONAL, INTENT(OUT) :: name
872      LOGICAL(KIND=C_BOOL) :: name_tmp
873      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
874      LOGICAL(KIND=C_BOOL) :: ni_tmp
875      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
876      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
877      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
878      LOGICAL(KIND=C_BOOL) :: nj_tmp
879      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
880      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
881      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
882      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
883      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
884      LOGICAL(KIND=C_BOOL) :: prec_tmp
885      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
886      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
887      LOGICAL, OPTIONAL, INTENT(OUT) :: type
888      LOGICAL(KIND=C_BOOL) :: type_tmp
889
890      CALL xios(get_domaingroup_handle) &
891      (domaingroup_id,domaingroup_hdl)
892      CALL xios(is_defined_domaingroup_attr_hdl_)   &
893      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
894      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
895      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
896      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
897      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
898
899  END SUBROUTINE xios(is_defined_domaingroup_attr)
900
901  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  &
902    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
903    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
904    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
905    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
906    , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
907
908    IMPLICIT NONE
909      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
910      LOGICAL, OPTIONAL, INTENT(OUT) :: area
911      LOGICAL(KIND=C_BOOL) :: area_tmp
912      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
913      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
914      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
915      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
916      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
917      LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
918      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
919      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
920      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
921      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
922      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
923      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
924      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
925      LOGICAL(KIND=C_BOOL) :: comment_tmp
926      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
927      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
928      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
929      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
930      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
931      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
932      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
933      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
934      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
935      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
936      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
937      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
938      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
939      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
940      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
941      LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
942      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
943      LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
944      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
945      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
946      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
947      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
948      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
949      LOGICAL(KIND=C_BOOL) :: i_index_tmp
950      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
951      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
952      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
953      LOGICAL(KIND=C_BOOL) :: j_index_tmp
954      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
955      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
956      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
957      LOGICAL(KIND=C_BOOL) :: lat_name_tmp
958      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
959      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
960      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
961      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
962      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
963      LOGICAL(KIND=C_BOOL) :: lon_name_tmp
964      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
965      LOGICAL(KIND=C_BOOL) :: long_name_tmp
966      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
967      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
968      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
969      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
970      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
971      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
972      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
973      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
974      LOGICAL, OPTIONAL, INTENT(OUT) :: name
975      LOGICAL(KIND=C_BOOL) :: name_tmp
976      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
977      LOGICAL(KIND=C_BOOL) :: ni_tmp
978      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
979      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
980      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
981      LOGICAL(KIND=C_BOOL) :: nj_tmp
982      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
983      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
984      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
985      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
986      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
987      LOGICAL(KIND=C_BOOL) :: prec_tmp
988      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
989      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
990      LOGICAL, OPTIONAL, INTENT(OUT) :: type
991      LOGICAL(KIND=C_BOOL) :: type_tmp
992
993      CALL xios(is_defined_domaingroup_attr_hdl_)  &
994      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
995      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
996      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
997      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
998      , name, ni, ni_glo, nj, nj_glo, nvertex, prec, standard_name, type )
999
1000  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
1001
1002  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   &
1003    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
1004    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
1005    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  &
1006    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  &
1007    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, standard_name_, type_  &
1008     )
1009
1010    IMPLICIT NONE
1011      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
1012      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
1013      LOGICAL(KIND=C_BOOL) :: area__tmp
1014      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
1015      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
1016      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
1017      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
1018      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name_
1019      LOGICAL(KIND=C_BOOL) :: bounds_lat_name__tmp
1020      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
1021      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
1022      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
1023      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
1024      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_
1025      LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp
1026      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
1027      LOGICAL(KIND=C_BOOL) :: comment__tmp
1028      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
1029      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
1030      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
1031      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
1032      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
1033      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
1034      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
1035      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
1036      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
1037      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
1038      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
1039      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
1040      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
1041      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
1042      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name_
1043      LOGICAL(KIND=C_BOOL) :: dim_i_name__tmp
1044      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name_
1045      LOGICAL(KIND=C_BOOL) :: dim_j_name__tmp
1046      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
1047      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
1048      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
1049      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
1050      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
1051      LOGICAL(KIND=C_BOOL) :: i_index__tmp
1052      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
1053      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
1054      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
1055      LOGICAL(KIND=C_BOOL) :: j_index__tmp
1056      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
1057      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
1058      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name_
1059      LOGICAL(KIND=C_BOOL) :: lat_name__tmp
1060      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
1061      LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
1062      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
1063      LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
1064      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name_
1065      LOGICAL(KIND=C_BOOL) :: lon_name__tmp
1066      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
1067      LOGICAL(KIND=C_BOOL) :: long_name__tmp
1068      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
1069      LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
1070      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
1071      LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
1072      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
1073      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
1074      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
1075      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
1076      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
1077      LOGICAL(KIND=C_BOOL) :: name__tmp
1078      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
1079      LOGICAL(KIND=C_BOOL) :: ni__tmp
1080      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
1081      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
1082      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
1083      LOGICAL(KIND=C_BOOL) :: nj__tmp
1084      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
1085      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
1086      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
1087      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
1088      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
1089      LOGICAL(KIND=C_BOOL) :: prec__tmp
1090      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
1091      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
1092      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
1093      LOGICAL(KIND=C_BOOL) :: type__tmp
1094
1095      IF (PRESENT(area_)) THEN
1096        area__tmp = cxios_is_defined_domaingroup_area &
1097      (domaingroup_hdl%daddr)
1098        area_ = area__tmp
1099      ENDIF
1100
1101      IF (PRESENT(bounds_lat_1d_)) THEN
1102        bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d &
1103      (domaingroup_hdl%daddr)
1104        bounds_lat_1d_ = bounds_lat_1d__tmp
1105      ENDIF
1106
1107      IF (PRESENT(bounds_lat_2d_)) THEN
1108        bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d &
1109      (domaingroup_hdl%daddr)
1110        bounds_lat_2d_ = bounds_lat_2d__tmp
1111      ENDIF
1112
1113      IF (PRESENT(bounds_lat_name_)) THEN
1114        bounds_lat_name__tmp = cxios_is_defined_domaingroup_bounds_lat_name &
1115      (domaingroup_hdl%daddr)
1116        bounds_lat_name_ = bounds_lat_name__tmp
1117      ENDIF
1118
1119      IF (PRESENT(bounds_lon_1d_)) THEN
1120        bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d &
1121      (domaingroup_hdl%daddr)
1122        bounds_lon_1d_ = bounds_lon_1d__tmp
1123      ENDIF
1124
1125      IF (PRESENT(bounds_lon_2d_)) THEN
1126        bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d &
1127      (domaingroup_hdl%daddr)
1128        bounds_lon_2d_ = bounds_lon_2d__tmp
1129      ENDIF
1130
1131      IF (PRESENT(bounds_lon_name_)) THEN
1132        bounds_lon_name__tmp = cxios_is_defined_domaingroup_bounds_lon_name &
1133      (domaingroup_hdl%daddr)
1134        bounds_lon_name_ = bounds_lon_name__tmp
1135      ENDIF
1136
1137      IF (PRESENT(comment_)) THEN
1138        comment__tmp = cxios_is_defined_domaingroup_comment &
1139      (domaingroup_hdl%daddr)
1140        comment_ = comment__tmp
1141      ENDIF
1142
1143      IF (PRESENT(data_dim_)) THEN
1144        data_dim__tmp = cxios_is_defined_domaingroup_data_dim &
1145      (domaingroup_hdl%daddr)
1146        data_dim_ = data_dim__tmp
1147      ENDIF
1148
1149      IF (PRESENT(data_i_index_)) THEN
1150        data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index &
1151      (domaingroup_hdl%daddr)
1152        data_i_index_ = data_i_index__tmp
1153      ENDIF
1154
1155      IF (PRESENT(data_ibegin_)) THEN
1156        data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin &
1157      (domaingroup_hdl%daddr)
1158        data_ibegin_ = data_ibegin__tmp
1159      ENDIF
1160
1161      IF (PRESENT(data_j_index_)) THEN
1162        data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index &
1163      (domaingroup_hdl%daddr)
1164        data_j_index_ = data_j_index__tmp
1165      ENDIF
1166
1167      IF (PRESENT(data_jbegin_)) THEN
1168        data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin &
1169      (domaingroup_hdl%daddr)
1170        data_jbegin_ = data_jbegin__tmp
1171      ENDIF
1172
1173      IF (PRESENT(data_ni_)) THEN
1174        data_ni__tmp = cxios_is_defined_domaingroup_data_ni &
1175      (domaingroup_hdl%daddr)
1176        data_ni_ = data_ni__tmp
1177      ENDIF
1178
1179      IF (PRESENT(data_nj_)) THEN
1180        data_nj__tmp = cxios_is_defined_domaingroup_data_nj &
1181      (domaingroup_hdl%daddr)
1182        data_nj_ = data_nj__tmp
1183      ENDIF
1184
1185      IF (PRESENT(dim_i_name_)) THEN
1186        dim_i_name__tmp = cxios_is_defined_domaingroup_dim_i_name &
1187      (domaingroup_hdl%daddr)
1188        dim_i_name_ = dim_i_name__tmp
1189      ENDIF
1190
1191      IF (PRESENT(dim_j_name_)) THEN
1192        dim_j_name__tmp = cxios_is_defined_domaingroup_dim_j_name &
1193      (domaingroup_hdl%daddr)
1194        dim_j_name_ = dim_j_name__tmp
1195      ENDIF
1196
1197      IF (PRESENT(domain_ref_)) THEN
1198        domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref &
1199      (domaingroup_hdl%daddr)
1200        domain_ref_ = domain_ref__tmp
1201      ENDIF
1202
1203      IF (PRESENT(group_ref_)) THEN
1204        group_ref__tmp = cxios_is_defined_domaingroup_group_ref &
1205      (domaingroup_hdl%daddr)
1206        group_ref_ = group_ref__tmp
1207      ENDIF
1208
1209      IF (PRESENT(i_index_)) THEN
1210        i_index__tmp = cxios_is_defined_domaingroup_i_index &
1211      (domaingroup_hdl%daddr)
1212        i_index_ = i_index__tmp
1213      ENDIF
1214
1215      IF (PRESENT(ibegin_)) THEN
1216        ibegin__tmp = cxios_is_defined_domaingroup_ibegin &
1217      (domaingroup_hdl%daddr)
1218        ibegin_ = ibegin__tmp
1219      ENDIF
1220
1221      IF (PRESENT(j_index_)) THEN
1222        j_index__tmp = cxios_is_defined_domaingroup_j_index &
1223      (domaingroup_hdl%daddr)
1224        j_index_ = j_index__tmp
1225      ENDIF
1226
1227      IF (PRESENT(jbegin_)) THEN
1228        jbegin__tmp = cxios_is_defined_domaingroup_jbegin &
1229      (domaingroup_hdl%daddr)
1230        jbegin_ = jbegin__tmp
1231      ENDIF
1232
1233      IF (PRESENT(lat_name_)) THEN
1234        lat_name__tmp = cxios_is_defined_domaingroup_lat_name &
1235      (domaingroup_hdl%daddr)
1236        lat_name_ = lat_name__tmp
1237      ENDIF
1238
1239      IF (PRESENT(latvalue_1d_)) THEN
1240        latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d &
1241      (domaingroup_hdl%daddr)
1242        latvalue_1d_ = latvalue_1d__tmp
1243      ENDIF
1244
1245      IF (PRESENT(latvalue_2d_)) THEN
1246        latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d &
1247      (domaingroup_hdl%daddr)
1248        latvalue_2d_ = latvalue_2d__tmp
1249      ENDIF
1250
1251      IF (PRESENT(lon_name_)) THEN
1252        lon_name__tmp = cxios_is_defined_domaingroup_lon_name &
1253      (domaingroup_hdl%daddr)
1254        lon_name_ = lon_name__tmp
1255      ENDIF
1256
1257      IF (PRESENT(long_name_)) THEN
1258        long_name__tmp = cxios_is_defined_domaingroup_long_name &
1259      (domaingroup_hdl%daddr)
1260        long_name_ = long_name__tmp
1261      ENDIF
1262
1263      IF (PRESENT(lonvalue_1d_)) THEN
1264        lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d &
1265      (domaingroup_hdl%daddr)
1266        lonvalue_1d_ = lonvalue_1d__tmp
1267      ENDIF
1268
1269      IF (PRESENT(lonvalue_2d_)) THEN
1270        lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d &
1271      (domaingroup_hdl%daddr)
1272        lonvalue_2d_ = lonvalue_2d__tmp
1273      ENDIF
1274
1275      IF (PRESENT(mask_1d_)) THEN
1276        mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d &
1277      (domaingroup_hdl%daddr)
1278        mask_1d_ = mask_1d__tmp
1279      ENDIF
1280
1281      IF (PRESENT(mask_2d_)) THEN
1282        mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d &
1283      (domaingroup_hdl%daddr)
1284        mask_2d_ = mask_2d__tmp
1285      ENDIF
1286
1287      IF (PRESENT(name_)) THEN
1288        name__tmp = cxios_is_defined_domaingroup_name &
1289      (domaingroup_hdl%daddr)
1290        name_ = name__tmp
1291      ENDIF
1292
1293      IF (PRESENT(ni_)) THEN
1294        ni__tmp = cxios_is_defined_domaingroup_ni &
1295      (domaingroup_hdl%daddr)
1296        ni_ = ni__tmp
1297      ENDIF
1298
1299      IF (PRESENT(ni_glo_)) THEN
1300        ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo &
1301      (domaingroup_hdl%daddr)
1302        ni_glo_ = ni_glo__tmp
1303      ENDIF
1304
1305      IF (PRESENT(nj_)) THEN
1306        nj__tmp = cxios_is_defined_domaingroup_nj &
1307      (domaingroup_hdl%daddr)
1308        nj_ = nj__tmp
1309      ENDIF
1310
1311      IF (PRESENT(nj_glo_)) THEN
1312        nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo &
1313      (domaingroup_hdl%daddr)
1314        nj_glo_ = nj_glo__tmp
1315      ENDIF
1316
1317      IF (PRESENT(nvertex_)) THEN
1318        nvertex__tmp = cxios_is_defined_domaingroup_nvertex &
1319      (domaingroup_hdl%daddr)
1320        nvertex_ = nvertex__tmp
1321      ENDIF
1322
1323      IF (PRESENT(prec_)) THEN
1324        prec__tmp = cxios_is_defined_domaingroup_prec &
1325      (domaingroup_hdl%daddr)
1326        prec_ = prec__tmp
1327      ENDIF
1328
1329      IF (PRESENT(standard_name_)) THEN
1330        standard_name__tmp = cxios_is_defined_domaingroup_standard_name &
1331      (domaingroup_hdl%daddr)
1332        standard_name_ = standard_name__tmp
1333      ENDIF
1334
1335      IF (PRESENT(type_)) THEN
1336        type__tmp = cxios_is_defined_domaingroup_type &
1337      (domaingroup_hdl%daddr)
1338        type_ = type__tmp
1339      ENDIF
1340
1341  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
1342
1343END MODULE idomaingroup_attr
Note: See TracBrowser for help on using the repository browser.