source: XIOS2/trunk/src/interface/fortran_attr/idomaingroup_attr.F90

Last change on this file was 2623, checked in by jderouillat, 5 months ago

Modify fortran-C interfaces to manage logical-bool conversion, the optimizations of OneAPI could produce bugs regarding the logical-bool encodings.

  • 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: 70.6 KB
RevLine 
[326]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
[2623]10  USE LOGICAL_BOOL_CONVERSION
[581]11
[326]12CONTAINS
[581]13
[326]14  SUBROUTINE xios(set_domaingroup_attr)  &
[1492]15    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
16    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
17    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
18    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]19    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]20    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
21    , type )
[581]22
[326]23    IMPLICIT NONE
24      TYPE(txios(domaingroup))  :: domaingroup_hdl
25      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[611]26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
[664]27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
28      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
[1492]29      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
[664]30      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
31      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
[1492]32      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
33      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[326]34      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
35      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
36      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
37      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
38      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
39      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
40      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
[1492]41      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
42      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
[546]43      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
[326]44      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[657]45      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
[326]46      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
[657]47      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
[326]48      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
[1492]49      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
[664]50      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
51      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
[1492]52      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
[326]53      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[664]54      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
55      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
56      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
57      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
58      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
59      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]60      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
61      INTEGER  , OPTIONAL, INTENT(IN) :: ni
62      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
63      INTEGER  , OPTIONAL, INTENT(IN) :: nj
64      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
[2131]65      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles
[449]66      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
[1158]67      INTEGER  , OPTIONAL, INTENT(IN) :: prec
[1626]68      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
[326]69      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[2131]70      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:)
71      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:)
72      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni(:)
73      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj(:)
74      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:)
75      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:)
76      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:)
77      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:)
[2618]78      LOGICAL  , OPTIONAL, INTENT(IN) :: tile_only
79      LOGICAL (KIND=C_BOOL) :: tile_only_tmp
[449]80      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]81
[966]82      CALL xios(get_domaingroup_handle) &
83      (domaingroup_id,domaingroup_hdl)
[326]84      CALL xios(set_domaingroup_attr_hdl_)   &
[1492]85      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
86      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
87      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
88      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]89      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]90      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
91      , type )
[581]92
[326]93  END SUBROUTINE xios(set_domaingroup_attr)
[581]94
[326]95  SUBROUTINE xios(set_domaingroup_attr_hdl)  &
[1492]96    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
97    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
98    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
99    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]100    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]101    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
102    , type )
[581]103
[326]104    IMPLICIT NONE
105      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]106      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:)
[664]107      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:)
108      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:)
[1492]109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name
[664]110      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:)
111      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:)
[1492]112      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name
113      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment
[326]114      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim
115      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:)
116      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin
117      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index(:)
118      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin
119      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni
120      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj
[1492]121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name
122      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name
[546]123      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref
[326]124      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref
[657]125      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:)
[326]126      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin
[657]127      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:)
[326]128      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin
[1492]129      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name
[664]130      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:)
131      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:)
[1492]132      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name
[326]133      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name
[664]134      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:)
135      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:)
136      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:)
137      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
138      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:)
139      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]140      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name
141      INTEGER  , OPTIONAL, INTENT(IN) :: ni
142      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo
143      INTEGER  , OPTIONAL, INTENT(IN) :: nj
144      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo
[2131]145      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles
[449]146      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex
[1158]147      INTEGER  , OPTIONAL, INTENT(IN) :: prec
[1626]148      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius
[326]149      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name
[2131]150      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:)
151      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:)
152      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni(:)
153      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj(:)
154      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:)
155      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:)
156      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:)
157      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:)
[2618]158      LOGICAL  , OPTIONAL, INTENT(IN) :: tile_only
159      LOGICAL (KIND=C_BOOL) :: tile_only_tmp
[449]160      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type
[581]161
[326]162      CALL xios(set_domaingroup_attr_hdl_)  &
[1492]163      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
164      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
165      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
166      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]167      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]168      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
169      , type )
[581]170
[326]171  END SUBROUTINE xios(set_domaingroup_attr_hdl)
[581]172
[326]173  SUBROUTINE xios(set_domaingroup_attr_hdl_)   &
[1492]174    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
175    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
176    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  &
177    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  &
[2131]178    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  &
179    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  &
[2618]180    , tile_ni_, tile_nj_, tile_only_, type_ )
[581]181
[326]182    IMPLICIT NONE
183      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]184      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:)
[664]185      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:)
186      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:)
[1492]187      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lat_name_
[664]188      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:)
189      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:)
[1492]190      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: bounds_lon_name_
191      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: comment_
[326]192      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_
193      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:)
194      INTEGER  , OPTIONAL, INTENT(IN) :: data_ibegin_
195      INTEGER  , OPTIONAL, INTENT(IN) :: data_j_index_(:)
196      INTEGER  , OPTIONAL, INTENT(IN) :: data_jbegin_
197      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_
198      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_
[1492]199      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_i_name_
200      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: dim_j_name_
[546]201      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_
[326]202      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_
[657]203      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:)
[326]204      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_
[657]205      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:)
[326]206      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_
[1492]207      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lat_name_
[664]208      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:)
209      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:)
[1492]210      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: lon_name_
[326]211      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_
[664]212      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:)
213      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:)
214      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:)
215      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
216      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:)
217      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
[326]218      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_
219      INTEGER  , OPTIONAL, INTENT(IN) :: ni_
220      INTEGER  , OPTIONAL, INTENT(IN) :: ni_glo_
221      INTEGER  , OPTIONAL, INTENT(IN) :: nj_
222      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_
[2131]223      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles_
[449]224      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_
[1158]225      INTEGER  , OPTIONAL, INTENT(IN) :: prec_
[1626]226      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_
[326]227      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_
[2131]228      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:)
229      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:)
230      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni_(:)
231      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj_(:)
232      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin_(:)
233      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin_(:)
234      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni_(:)
235      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj_(:)
[2618]236      LOGICAL  , OPTIONAL, INTENT(IN) :: tile_only_
237      LOGICAL (KIND=C_BOOL) :: tile_only__tmp
[449]238      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_
[581]239
[611]240      IF (PRESENT(area_)) THEN
[966]241        CALL cxios_set_domaingroup_area &
242      (domaingroup_hdl%daddr, area_, SHAPE(area_))
[611]243      ENDIF
244
[664]245      IF (PRESENT(bounds_lat_1d_)) THEN
[966]246        CALL cxios_set_domaingroup_bounds_lat_1d &
247      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
[449]248      ENDIF
[581]249
[664]250      IF (PRESENT(bounds_lat_2d_)) THEN
[966]251        CALL cxios_set_domaingroup_bounds_lat_2d &
252      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
[449]253      ENDIF
[581]254
[1492]255      IF (PRESENT(bounds_lat_name_)) THEN
256        CALL cxios_set_domaingroup_bounds_lat_name &
257      (domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
258      ENDIF
259
[664]260      IF (PRESENT(bounds_lon_1d_)) THEN
[966]261        CALL cxios_set_domaingroup_bounds_lon_1d &
262      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
[664]263      ENDIF
264
265      IF (PRESENT(bounds_lon_2d_)) THEN
[966]266        CALL cxios_set_domaingroup_bounds_lon_2d &
267      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
[664]268      ENDIF
269
[1492]270      IF (PRESENT(bounds_lon_name_)) THEN
271        CALL cxios_set_domaingroup_bounds_lon_name &
272      (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
273      ENDIF
274
275      IF (PRESENT(comment_)) THEN
276        CALL cxios_set_domaingroup_comment &
277      (domaingroup_hdl%daddr, comment_, len(comment_))
278      ENDIF
279
[326]280      IF (PRESENT(data_dim_)) THEN
[966]281        CALL cxios_set_domaingroup_data_dim &
282      (domaingroup_hdl%daddr, data_dim_)
[326]283      ENDIF
[581]284
[326]285      IF (PRESENT(data_i_index_)) THEN
[966]286        CALL cxios_set_domaingroup_data_i_index &
287      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
[326]288      ENDIF
[581]289
[326]290      IF (PRESENT(data_ibegin_)) THEN
[966]291        CALL cxios_set_domaingroup_data_ibegin &
292      (domaingroup_hdl%daddr, data_ibegin_)
[326]293      ENDIF
[581]294
[326]295      IF (PRESENT(data_j_index_)) THEN
[966]296        CALL cxios_set_domaingroup_data_j_index &
297      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
[326]298      ENDIF
[581]299
[326]300      IF (PRESENT(data_jbegin_)) THEN
[966]301        CALL cxios_set_domaingroup_data_jbegin &
302      (domaingroup_hdl%daddr, data_jbegin_)
[326]303      ENDIF
[581]304
[326]305      IF (PRESENT(data_ni_)) THEN
[966]306        CALL cxios_set_domaingroup_data_ni &
307      (domaingroup_hdl%daddr, data_ni_)
[326]308      ENDIF
[581]309
[326]310      IF (PRESENT(data_nj_)) THEN
[966]311        CALL cxios_set_domaingroup_data_nj &
312      (domaingroup_hdl%daddr, data_nj_)
[326]313      ENDIF
[581]314
[1492]315      IF (PRESENT(dim_i_name_)) THEN
316        CALL cxios_set_domaingroup_dim_i_name &
317      (domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_))
318      ENDIF
319
320      IF (PRESENT(dim_j_name_)) THEN
321        CALL cxios_set_domaingroup_dim_j_name &
322      (domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_))
323      ENDIF
324
[546]325      IF (PRESENT(domain_ref_)) THEN
[966]326        CALL cxios_set_domaingroup_domain_ref &
327      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
[546]328      ENDIF
[581]329
[326]330      IF (PRESENT(group_ref_)) THEN
[966]331        CALL cxios_set_domaingroup_group_ref &
332      (domaingroup_hdl%daddr, group_ref_, len(group_ref_))
[326]333      ENDIF
[581]334
[467]335      IF (PRESENT(i_index_)) THEN
[966]336        CALL cxios_set_domaingroup_i_index &
337      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
[467]338      ENDIF
[581]339
[326]340      IF (PRESENT(ibegin_)) THEN
[966]341        CALL cxios_set_domaingroup_ibegin &
342      (domaingroup_hdl%daddr, ibegin_)
[326]343      ENDIF
[581]344
[467]345      IF (PRESENT(j_index_)) THEN
[966]346        CALL cxios_set_domaingroup_j_index &
347      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
[467]348      ENDIF
[581]349
[326]350      IF (PRESENT(jbegin_)) THEN
[966]351        CALL cxios_set_domaingroup_jbegin &
352      (domaingroup_hdl%daddr, jbegin_)
[326]353      ENDIF
[581]354
[1492]355      IF (PRESENT(lat_name_)) THEN
356        CALL cxios_set_domaingroup_lat_name &
357      (domaingroup_hdl%daddr, lat_name_, len(lat_name_))
358      ENDIF
359
[664]360      IF (PRESENT(latvalue_1d_)) THEN
[966]361        CALL cxios_set_domaingroup_latvalue_1d &
362      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
[326]363      ENDIF
[581]364
[664]365      IF (PRESENT(latvalue_2d_)) THEN
[966]366        CALL cxios_set_domaingroup_latvalue_2d &
367      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
[664]368      ENDIF
369
[1492]370      IF (PRESENT(lon_name_)) THEN
371        CALL cxios_set_domaingroup_lon_name &
372      (domaingroup_hdl%daddr, lon_name_, len(lon_name_))
373      ENDIF
374
[326]375      IF (PRESENT(long_name_)) THEN
[966]376        CALL cxios_set_domaingroup_long_name &
377      (domaingroup_hdl%daddr, long_name_, len(long_name_))
[326]378      ENDIF
[581]379
[664]380      IF (PRESENT(lonvalue_1d_)) THEN
[966]381        CALL cxios_set_domaingroup_lonvalue_1d &
382      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
[326]383      ENDIF
[581]384
[664]385      IF (PRESENT(lonvalue_2d_)) THEN
[966]386        CALL cxios_set_domaingroup_lonvalue_2d &
387      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
[326]388      ENDIF
[581]389
[664]390      IF (PRESENT(mask_1d_)) THEN
[674]391        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
[664]392        mask_1d__tmp = mask_1d_
[2623]393        CALL xios_logical_to_bool_1d(mask_1d__tmp, SHAPE(mask_1d__tmp))
[966]394        CALL cxios_set_domaingroup_mask_1d &
395      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[664]396      ENDIF
397
398      IF (PRESENT(mask_2d_)) THEN
[674]399        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
[664]400        mask_2d__tmp = mask_2d_
[2623]401        CALL xios_logical_to_bool_2d(mask_2d__tmp, SHAPE(mask_2d__tmp))
[966]402        CALL cxios_set_domaingroup_mask_2d &
403      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[664]404      ENDIF
405
[326]406      IF (PRESENT(name_)) THEN
[966]407        CALL cxios_set_domaingroup_name &
408      (domaingroup_hdl%daddr, name_, len(name_))
[326]409      ENDIF
[581]410
[326]411      IF (PRESENT(ni_)) THEN
[966]412        CALL cxios_set_domaingroup_ni &
413      (domaingroup_hdl%daddr, ni_)
[326]414      ENDIF
[581]415
[326]416      IF (PRESENT(ni_glo_)) THEN
[966]417        CALL cxios_set_domaingroup_ni_glo &
418      (domaingroup_hdl%daddr, ni_glo_)
[326]419      ENDIF
[581]420
[326]421      IF (PRESENT(nj_)) THEN
[966]422        CALL cxios_set_domaingroup_nj &
423      (domaingroup_hdl%daddr, nj_)
[326]424      ENDIF
[581]425
[326]426      IF (PRESENT(nj_glo_)) THEN
[966]427        CALL cxios_set_domaingroup_nj_glo &
428      (domaingroup_hdl%daddr, nj_glo_)
[326]429      ENDIF
[581]430
[2131]431      IF (PRESENT(ntiles_)) THEN
432        CALL cxios_set_domaingroup_ntiles &
433      (domaingroup_hdl%daddr, ntiles_)
434      ENDIF
435
[449]436      IF (PRESENT(nvertex_)) THEN
[966]437        CALL cxios_set_domaingroup_nvertex &
438      (domaingroup_hdl%daddr, nvertex_)
[449]439      ENDIF
[581]440
[1158]441      IF (PRESENT(prec_)) THEN
442        CALL cxios_set_domaingroup_prec &
443      (domaingroup_hdl%daddr, prec_)
444      ENDIF
445
[1626]446      IF (PRESENT(radius_)) THEN
447        CALL cxios_set_domaingroup_radius &
448      (domaingroup_hdl%daddr, radius_)
449      ENDIF
450
[326]451      IF (PRESENT(standard_name_)) THEN
[966]452        CALL cxios_set_domaingroup_standard_name &
453      (domaingroup_hdl%daddr, standard_name_, len(standard_name_))
[326]454      ENDIF
[581]455
[2131]456      IF (PRESENT(tile_data_ibegin_)) THEN
457        CALL cxios_set_domaingroup_tile_data_ibegin &
458      (domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_))
459      ENDIF
460
461      IF (PRESENT(tile_data_jbegin_)) THEN
462        CALL cxios_set_domaingroup_tile_data_jbegin &
463      (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_))
464      ENDIF
465
466      IF (PRESENT(tile_data_ni_)) THEN
467        CALL cxios_set_domaingroup_tile_data_ni &
468      (domaingroup_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_))
469      ENDIF
470
471      IF (PRESENT(tile_data_nj_)) THEN
472        CALL cxios_set_domaingroup_tile_data_nj &
473      (domaingroup_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_))
474      ENDIF
475
476      IF (PRESENT(tile_ibegin_)) THEN
477        CALL cxios_set_domaingroup_tile_ibegin &
478      (domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_))
479      ENDIF
480
481      IF (PRESENT(tile_jbegin_)) THEN
482        CALL cxios_set_domaingroup_tile_jbegin &
483      (domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_))
484      ENDIF
485
486      IF (PRESENT(tile_ni_)) THEN
487        CALL cxios_set_domaingroup_tile_ni &
488      (domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_))
489      ENDIF
490
491      IF (PRESENT(tile_nj_)) THEN
492        CALL cxios_set_domaingroup_tile_nj &
493      (domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_))
494      ENDIF
495
[2618]496      IF (PRESENT(tile_only_)) THEN
497        tile_only__tmp = tile_only_
[2623]498        CALL xios_logical_to_bool_0d(tile_only__tmp)
[2618]499        CALL cxios_set_domaingroup_tile_only &
500      (domaingroup_hdl%daddr, tile_only__tmp)
501      ENDIF
502
[449]503      IF (PRESENT(type_)) THEN
[966]504        CALL cxios_set_domaingroup_type &
505      (domaingroup_hdl%daddr, type_, len(type_))
[449]506      ENDIF
[581]507
[326]508  END SUBROUTINE xios(set_domaingroup_attr_hdl_)
[581]509
[326]510  SUBROUTINE xios(get_domaingroup_attr)  &
[1492]511    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
512    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
513    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
514    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]515    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]516    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
517    , type )
[581]518
[326]519    IMPLICIT NONE
520      TYPE(txios(domaingroup))  :: domaingroup_hdl
521      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[611]522      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
[664]523      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
524      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
[1492]525      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
[664]526      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
527      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
[1492]528      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
529      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[326]530      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
531      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
532      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
533      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
534      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
535      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
536      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
[1492]537      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
538      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
[546]539      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[326]540      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[657]541      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
[326]542      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
[657]543      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
[326]544      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
[1492]545      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
[664]546      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
547      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
[1492]548      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
[326]549      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[664]550      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
551      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
552      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
553      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
554      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
555      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]556      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
557      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
558      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
559      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
560      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
[2131]561      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles
[449]562      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
[1158]563      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
[1626]564      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
[326]565      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[2131]566      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:)
567      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:)
568      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni(:)
569      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj(:)
570      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:)
571      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:)
572      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:)
573      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:)
[2618]574      LOGICAL  , OPTIONAL, INTENT(OUT) :: tile_only
575      LOGICAL (KIND=C_BOOL) :: tile_only_tmp
[449]576      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]577
[966]578      CALL xios(get_domaingroup_handle) &
579      (domaingroup_id,domaingroup_hdl)
[326]580      CALL xios(get_domaingroup_attr_hdl_)   &
[1492]581      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
582      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
583      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
584      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]585      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]586      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
587      , type )
[581]588
[326]589  END SUBROUTINE xios(get_domaingroup_attr)
[581]590
[326]591  SUBROUTINE xios(get_domaingroup_attr_hdl)  &
[1492]592    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
593    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
594    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
595    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]596    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]597    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
598    , type )
[581]599
[326]600    IMPLICIT NONE
601      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]602      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:)
[664]603      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:)
604      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:)
[1492]605      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name
[664]606      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:)
607      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:)
[1492]608      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name
609      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment
[326]610      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim
611      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:)
612      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin
613      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index(:)
614      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin
615      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni
616      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj
[1492]617      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name
618      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name
[546]619      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref
[326]620      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref
[657]621      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:)
[326]622      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin
[657]623      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:)
[326]624      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin
[1492]625      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name
[664]626      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:)
627      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:)
[1492]628      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name
[326]629      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name
[664]630      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:)
631      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:)
632      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:)
633      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:)
634      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:)
635      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:)
[326]636      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name
637      INTEGER  , OPTIONAL, INTENT(OUT) :: ni
638      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo
639      INTEGER  , OPTIONAL, INTENT(OUT) :: nj
640      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo
[2131]641      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles
[449]642      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex
[1158]643      INTEGER  , OPTIONAL, INTENT(OUT) :: prec
[1626]644      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius
[326]645      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name
[2131]646      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:)
647      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:)
648      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni(:)
649      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj(:)
650      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:)
651      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:)
652      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:)
653      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:)
[2618]654      LOGICAL  , OPTIONAL, INTENT(OUT) :: tile_only
655      LOGICAL (KIND=C_BOOL) :: tile_only_tmp
[449]656      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type
[581]657
[326]658      CALL xios(get_domaingroup_attr_hdl_)  &
[1492]659      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
660      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
661      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
662      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]663      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]664      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
665      , type )
[581]666
[326]667  END SUBROUTINE xios(get_domaingroup_attr_hdl)
[581]668
[326]669  SUBROUTINE xios(get_domaingroup_attr_hdl_)   &
[1492]670    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
671    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
672    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  &
673    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  &
[2131]674    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  &
675    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  &
[2618]676    , tile_ni_, tile_nj_, tile_only_, type_ )
[581]677
[326]678    IMPLICIT NONE
679      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]680      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:)
[664]681      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:)
682      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:)
[1492]683      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lat_name_
[664]684      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:)
685      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:)
[1492]686      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: bounds_lon_name_
687      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: comment_
[326]688      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_
689      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:)
690      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ibegin_
691      INTEGER  , OPTIONAL, INTENT(OUT) :: data_j_index_(:)
692      INTEGER  , OPTIONAL, INTENT(OUT) :: data_jbegin_
693      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_
694      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_
[1492]695      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_i_name_
696      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: dim_j_name_
[546]697      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_
[326]698      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_
[657]699      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:)
[326]700      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_
[657]701      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:)
[326]702      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_
[1492]703      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lat_name_
[664]704      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:)
705      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:)
[1492]706      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: lon_name_
[326]707      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_
[664]708      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:)
709      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:)
710      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:)
711      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:)
712      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:)
713      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:)
[326]714      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_
715      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_
716      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_glo_
717      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_
718      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_
[2131]719      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles_
[449]720      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_
[1158]721      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_
[1626]722      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_
[326]723      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_
[2131]724      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:)
725      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:)
726      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni_(:)
727      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj_(:)
728      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:)
729      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:)
730      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni_(:)
731      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj_(:)
[2618]732      LOGICAL  , OPTIONAL, INTENT(OUT) :: tile_only_
733      LOGICAL (KIND=C_BOOL) :: tile_only__tmp
[449]734      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_
[581]735
[611]736      IF (PRESENT(area_)) THEN
[966]737        CALL cxios_get_domaingroup_area &
738      (domaingroup_hdl%daddr, area_, SHAPE(area_))
[611]739      ENDIF
740
[664]741      IF (PRESENT(bounds_lat_1d_)) THEN
[966]742        CALL cxios_get_domaingroup_bounds_lat_1d &
743      (domaingroup_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_))
[449]744      ENDIF
[581]745
[664]746      IF (PRESENT(bounds_lat_2d_)) THEN
[966]747        CALL cxios_get_domaingroup_bounds_lat_2d &
748      (domaingroup_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_))
[449]749      ENDIF
[581]750
[1492]751      IF (PRESENT(bounds_lat_name_)) THEN
752        CALL cxios_get_domaingroup_bounds_lat_name &
753      (domaingroup_hdl%daddr, bounds_lat_name_, len(bounds_lat_name_))
754      ENDIF
755
[664]756      IF (PRESENT(bounds_lon_1d_)) THEN
[966]757        CALL cxios_get_domaingroup_bounds_lon_1d &
758      (domaingroup_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_))
[664]759      ENDIF
760
761      IF (PRESENT(bounds_lon_2d_)) THEN
[966]762        CALL cxios_get_domaingroup_bounds_lon_2d &
763      (domaingroup_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_))
[664]764      ENDIF
765
[1492]766      IF (PRESENT(bounds_lon_name_)) THEN
767        CALL cxios_get_domaingroup_bounds_lon_name &
768      (domaingroup_hdl%daddr, bounds_lon_name_, len(bounds_lon_name_))
769      ENDIF
770
771      IF (PRESENT(comment_)) THEN
772        CALL cxios_get_domaingroup_comment &
773      (domaingroup_hdl%daddr, comment_, len(comment_))
774      ENDIF
775
[326]776      IF (PRESENT(data_dim_)) THEN
[966]777        CALL cxios_get_domaingroup_data_dim &
778      (domaingroup_hdl%daddr, data_dim_)
[326]779      ENDIF
[581]780
[326]781      IF (PRESENT(data_i_index_)) THEN
[966]782        CALL cxios_get_domaingroup_data_i_index &
783      (domaingroup_hdl%daddr, data_i_index_, SHAPE(data_i_index_))
[326]784      ENDIF
[581]785
[326]786      IF (PRESENT(data_ibegin_)) THEN
[966]787        CALL cxios_get_domaingroup_data_ibegin &
788      (domaingroup_hdl%daddr, data_ibegin_)
[326]789      ENDIF
[581]790
[326]791      IF (PRESENT(data_j_index_)) THEN
[966]792        CALL cxios_get_domaingroup_data_j_index &
793      (domaingroup_hdl%daddr, data_j_index_, SHAPE(data_j_index_))
[326]794      ENDIF
[581]795
[326]796      IF (PRESENT(data_jbegin_)) THEN
[966]797        CALL cxios_get_domaingroup_data_jbegin &
798      (domaingroup_hdl%daddr, data_jbegin_)
[326]799      ENDIF
[581]800
[326]801      IF (PRESENT(data_ni_)) THEN
[966]802        CALL cxios_get_domaingroup_data_ni &
803      (domaingroup_hdl%daddr, data_ni_)
[326]804      ENDIF
[581]805
[326]806      IF (PRESENT(data_nj_)) THEN
[966]807        CALL cxios_get_domaingroup_data_nj &
808      (domaingroup_hdl%daddr, data_nj_)
[326]809      ENDIF
[581]810
[1492]811      IF (PRESENT(dim_i_name_)) THEN
812        CALL cxios_get_domaingroup_dim_i_name &
813      (domaingroup_hdl%daddr, dim_i_name_, len(dim_i_name_))
814      ENDIF
815
816      IF (PRESENT(dim_j_name_)) THEN
817        CALL cxios_get_domaingroup_dim_j_name &
818      (domaingroup_hdl%daddr, dim_j_name_, len(dim_j_name_))
819      ENDIF
820
[546]821      IF (PRESENT(domain_ref_)) THEN
[966]822        CALL cxios_get_domaingroup_domain_ref &
823      (domaingroup_hdl%daddr, domain_ref_, len(domain_ref_))
[546]824      ENDIF
[581]825
[326]826      IF (PRESENT(group_ref_)) THEN
[966]827        CALL cxios_get_domaingroup_group_ref &
828      (domaingroup_hdl%daddr, group_ref_, len(group_ref_))
[326]829      ENDIF
[581]830
[467]831      IF (PRESENT(i_index_)) THEN
[966]832        CALL cxios_get_domaingroup_i_index &
833      (domaingroup_hdl%daddr, i_index_, SHAPE(i_index_))
[467]834      ENDIF
[581]835
[326]836      IF (PRESENT(ibegin_)) THEN
[966]837        CALL cxios_get_domaingroup_ibegin &
838      (domaingroup_hdl%daddr, ibegin_)
[326]839      ENDIF
[581]840
[467]841      IF (PRESENT(j_index_)) THEN
[966]842        CALL cxios_get_domaingroup_j_index &
843      (domaingroup_hdl%daddr, j_index_, SHAPE(j_index_))
[467]844      ENDIF
[581]845
[326]846      IF (PRESENT(jbegin_)) THEN
[966]847        CALL cxios_get_domaingroup_jbegin &
848      (domaingroup_hdl%daddr, jbegin_)
[326]849      ENDIF
[581]850
[1492]851      IF (PRESENT(lat_name_)) THEN
852        CALL cxios_get_domaingroup_lat_name &
853      (domaingroup_hdl%daddr, lat_name_, len(lat_name_))
854      ENDIF
855
[664]856      IF (PRESENT(latvalue_1d_)) THEN
[966]857        CALL cxios_get_domaingroup_latvalue_1d &
858      (domaingroup_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_))
[326]859      ENDIF
[581]860
[664]861      IF (PRESENT(latvalue_2d_)) THEN
[966]862        CALL cxios_get_domaingroup_latvalue_2d &
863      (domaingroup_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_))
[664]864      ENDIF
865
[1492]866      IF (PRESENT(lon_name_)) THEN
867        CALL cxios_get_domaingroup_lon_name &
868      (domaingroup_hdl%daddr, lon_name_, len(lon_name_))
869      ENDIF
870
[326]871      IF (PRESENT(long_name_)) THEN
[966]872        CALL cxios_get_domaingroup_long_name &
873      (domaingroup_hdl%daddr, long_name_, len(long_name_))
[326]874      ENDIF
[581]875
[664]876      IF (PRESENT(lonvalue_1d_)) THEN
[966]877        CALL cxios_get_domaingroup_lonvalue_1d &
878      (domaingroup_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_))
[326]879      ENDIF
[581]880
[664]881      IF (PRESENT(lonvalue_2d_)) THEN
[966]882        CALL cxios_get_domaingroup_lonvalue_2d &
883      (domaingroup_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_))
[326]884      ENDIF
[581]885
[664]886      IF (PRESENT(mask_1d_)) THEN
[674]887        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1)))
[966]888        CALL cxios_get_domaingroup_mask_1d &
889      (domaingroup_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_))
[2623]890        CALL xios_bool_to_logical_1d(mask_1d__tmp, SHAPE(mask_1d__tmp))
[664]891        mask_1d_ = mask_1d__tmp
892      ENDIF
893
894      IF (PRESENT(mask_2d_)) THEN
[674]895        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2)))
[966]896        CALL cxios_get_domaingroup_mask_2d &
897      (domaingroup_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_))
[2623]898        CALL xios_bool_to_logical_2d(mask_2d__tmp, SHAPE(mask_2d__tmp))
[664]899        mask_2d_ = mask_2d__tmp
900      ENDIF
901
[326]902      IF (PRESENT(name_)) THEN
[966]903        CALL cxios_get_domaingroup_name &
904      (domaingroup_hdl%daddr, name_, len(name_))
[326]905      ENDIF
[581]906
[326]907      IF (PRESENT(ni_)) THEN
[966]908        CALL cxios_get_domaingroup_ni &
909      (domaingroup_hdl%daddr, ni_)
[326]910      ENDIF
[581]911
[326]912      IF (PRESENT(ni_glo_)) THEN
[966]913        CALL cxios_get_domaingroup_ni_glo &
914      (domaingroup_hdl%daddr, ni_glo_)
[326]915      ENDIF
[581]916
[326]917      IF (PRESENT(nj_)) THEN
[966]918        CALL cxios_get_domaingroup_nj &
919      (domaingroup_hdl%daddr, nj_)
[326]920      ENDIF
[581]921
[326]922      IF (PRESENT(nj_glo_)) THEN
[966]923        CALL cxios_get_domaingroup_nj_glo &
924      (domaingroup_hdl%daddr, nj_glo_)
[326]925      ENDIF
[581]926
[2131]927      IF (PRESENT(ntiles_)) THEN
928        CALL cxios_get_domaingroup_ntiles &
929      (domaingroup_hdl%daddr, ntiles_)
930      ENDIF
931
[449]932      IF (PRESENT(nvertex_)) THEN
[966]933        CALL cxios_get_domaingroup_nvertex &
934      (domaingroup_hdl%daddr, nvertex_)
[449]935      ENDIF
[581]936
[1158]937      IF (PRESENT(prec_)) THEN
938        CALL cxios_get_domaingroup_prec &
939      (domaingroup_hdl%daddr, prec_)
940      ENDIF
941
[1626]942      IF (PRESENT(radius_)) THEN
943        CALL cxios_get_domaingroup_radius &
944      (domaingroup_hdl%daddr, radius_)
945      ENDIF
946
[326]947      IF (PRESENT(standard_name_)) THEN
[966]948        CALL cxios_get_domaingroup_standard_name &
949      (domaingroup_hdl%daddr, standard_name_, len(standard_name_))
[326]950      ENDIF
[581]951
[2131]952      IF (PRESENT(tile_data_ibegin_)) THEN
953        CALL cxios_get_domaingroup_tile_data_ibegin &
954      (domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_))
955      ENDIF
956
957      IF (PRESENT(tile_data_jbegin_)) THEN
958        CALL cxios_get_domaingroup_tile_data_jbegin &
959      (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_))
960      ENDIF
961
962      IF (PRESENT(tile_data_ni_)) THEN
963        CALL cxios_get_domaingroup_tile_data_ni &
964      (domaingroup_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_))
965      ENDIF
966
967      IF (PRESENT(tile_data_nj_)) THEN
968        CALL cxios_get_domaingroup_tile_data_nj &
969      (domaingroup_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_))
970      ENDIF
971
972      IF (PRESENT(tile_ibegin_)) THEN
973        CALL cxios_get_domaingroup_tile_ibegin &
974      (domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_))
975      ENDIF
976
977      IF (PRESENT(tile_jbegin_)) THEN
978        CALL cxios_get_domaingroup_tile_jbegin &
979      (domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_))
980      ENDIF
981
982      IF (PRESENT(tile_ni_)) THEN
983        CALL cxios_get_domaingroup_tile_ni &
984      (domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_))
985      ENDIF
986
987      IF (PRESENT(tile_nj_)) THEN
988        CALL cxios_get_domaingroup_tile_nj &
989      (domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_))
990      ENDIF
991
[2618]992      IF (PRESENT(tile_only_)) THEN
993        CALL cxios_get_domaingroup_tile_only &
994      (domaingroup_hdl%daddr, tile_only__tmp)
[2623]995        CALL xios_bool_to_logical_0d(tile_only__tmp)
[2618]996        tile_only_ = tile_only__tmp
997      ENDIF
998
[449]999      IF (PRESENT(type_)) THEN
[966]1000        CALL cxios_get_domaingroup_type &
1001      (domaingroup_hdl%daddr, type_, len(type_))
[449]1002      ENDIF
[581]1003
[326]1004  END SUBROUTINE xios(get_domaingroup_attr_hdl_)
[581]1005
[432]1006  SUBROUTINE xios(is_defined_domaingroup_attr)  &
[1492]1007    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1008    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1009    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
1010    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]1011    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]1012    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
1013    , type )
[581]1014
[432]1015    IMPLICIT NONE
1016      TYPE(txios(domaingroup))  :: domaingroup_hdl
1017      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id
[611]1018      LOGICAL, OPTIONAL, INTENT(OUT) :: area
1019      LOGICAL(KIND=C_BOOL) :: area_tmp
[664]1020      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
1021      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
1022      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
1023      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
[1492]1024      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
1025      LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
[664]1026      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
1027      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
1028      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
1029      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
[1492]1030      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
1031      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
1032      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
1033      LOGICAL(KIND=C_BOOL) :: comment_tmp
[432]1034      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
1035      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
1036      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
1037      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
1038      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
1039      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
1040      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
1041      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
1042      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
1043      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
1044      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
1045      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
1046      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
1047      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
[1492]1048      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
1049      LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
1050      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
1051      LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
[546]1052      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
1053      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[432]1054      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
1055      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[467]1056      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
1057      LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]1058      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
1059      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
[467]1060      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
1061      LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]1062      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
1063      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
[1492]1064      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
1065      LOGICAL(KIND=C_BOOL) :: lat_name_tmp
[664]1066      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
1067      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
1068      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
1069      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
[1492]1070      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
1071      LOGICAL(KIND=C_BOOL) :: lon_name_tmp
[432]1072      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
1073      LOGICAL(KIND=C_BOOL) :: long_name_tmp
[664]1074      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
1075      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
1076      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
1077      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
1078      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
1079      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
1080      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
1081      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
[432]1082      LOGICAL, OPTIONAL, INTENT(OUT) :: name
1083      LOGICAL(KIND=C_BOOL) :: name_tmp
1084      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
1085      LOGICAL(KIND=C_BOOL) :: ni_tmp
1086      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
1087      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
1088      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
1089      LOGICAL(KIND=C_BOOL) :: nj_tmp
1090      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
1091      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[2131]1092      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles
1093      LOGICAL(KIND=C_BOOL) :: ntiles_tmp
[449]1094      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
1095      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[1158]1096      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1097      LOGICAL(KIND=C_BOOL) :: prec_tmp
[1626]1098      LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1099      LOGICAL(KIND=C_BOOL) :: radius_tmp
[432]1100      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1101      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[2131]1102      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin
1103      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp
1104      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin
1105      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp
1106      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni
1107      LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp
1108      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj
1109      LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp
1110      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin
1111      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp
1112      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin
1113      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp
1114      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni
1115      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp
1116      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj
1117      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp
[2618]1118      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_only
1119      LOGICAL(KIND=C_BOOL) :: tile_only_tmp
[449]1120      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1121      LOGICAL(KIND=C_BOOL) :: type_tmp
[581]1122
[966]1123      CALL xios(get_domaingroup_handle) &
1124      (domaingroup_id,domaingroup_hdl)
[432]1125      CALL xios(is_defined_domaingroup_attr_hdl_)   &
[1492]1126      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1127      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1128      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
1129      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]1130      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]1131      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
1132      , type )
[581]1133
[432]1134  END SUBROUTINE xios(is_defined_domaingroup_attr)
[581]1135
[432]1136  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  &
[1492]1137    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1138    , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1139    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
1140    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]1141    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]1142    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
1143    , type )
[581]1144
[432]1145    IMPLICIT NONE
1146      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]1147      LOGICAL, OPTIONAL, INTENT(OUT) :: area
1148      LOGICAL(KIND=C_BOOL) :: area_tmp
[664]1149      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d
1150      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp
1151      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d
1152      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp
[1492]1153      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name
1154      LOGICAL(KIND=C_BOOL) :: bounds_lat_name_tmp
[664]1155      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d
1156      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp
1157      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d
1158      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp
[1492]1159      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name
1160      LOGICAL(KIND=C_BOOL) :: bounds_lon_name_tmp
1161      LOGICAL, OPTIONAL, INTENT(OUT) :: comment
1162      LOGICAL(KIND=C_BOOL) :: comment_tmp
[432]1163      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim
1164      LOGICAL(KIND=C_BOOL) :: data_dim_tmp
1165      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index
1166      LOGICAL(KIND=C_BOOL) :: data_i_index_tmp
1167      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin
1168      LOGICAL(KIND=C_BOOL) :: data_ibegin_tmp
1169      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index
1170      LOGICAL(KIND=C_BOOL) :: data_j_index_tmp
1171      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin
1172      LOGICAL(KIND=C_BOOL) :: data_jbegin_tmp
1173      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni
1174      LOGICAL(KIND=C_BOOL) :: data_ni_tmp
1175      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj
1176      LOGICAL(KIND=C_BOOL) :: data_nj_tmp
[1492]1177      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name
1178      LOGICAL(KIND=C_BOOL) :: dim_i_name_tmp
1179      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name
1180      LOGICAL(KIND=C_BOOL) :: dim_j_name_tmp
[546]1181      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref
1182      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp
[432]1183      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref
1184      LOGICAL(KIND=C_BOOL) :: group_ref_tmp
[467]1185      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index
1186      LOGICAL(KIND=C_BOOL) :: i_index_tmp
[432]1187      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin
1188      LOGICAL(KIND=C_BOOL) :: ibegin_tmp
[467]1189      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index
1190      LOGICAL(KIND=C_BOOL) :: j_index_tmp
[432]1191      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin
1192      LOGICAL(KIND=C_BOOL) :: jbegin_tmp
[1492]1193      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name
1194      LOGICAL(KIND=C_BOOL) :: lat_name_tmp
[664]1195      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d
1196      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp
1197      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d
1198      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp
[1492]1199      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name
1200      LOGICAL(KIND=C_BOOL) :: lon_name_tmp
[432]1201      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name
1202      LOGICAL(KIND=C_BOOL) :: long_name_tmp
[664]1203      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d
1204      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp
1205      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d
1206      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp
1207      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d
1208      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp
1209      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d
1210      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp
[432]1211      LOGICAL, OPTIONAL, INTENT(OUT) :: name
1212      LOGICAL(KIND=C_BOOL) :: name_tmp
1213      LOGICAL, OPTIONAL, INTENT(OUT) :: ni
1214      LOGICAL(KIND=C_BOOL) :: ni_tmp
1215      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo
1216      LOGICAL(KIND=C_BOOL) :: ni_glo_tmp
1217      LOGICAL, OPTIONAL, INTENT(OUT) :: nj
1218      LOGICAL(KIND=C_BOOL) :: nj_tmp
1219      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo
1220      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp
[2131]1221      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles
1222      LOGICAL(KIND=C_BOOL) :: ntiles_tmp
[449]1223      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex
1224      LOGICAL(KIND=C_BOOL) :: nvertex_tmp
[1158]1225      LOGICAL, OPTIONAL, INTENT(OUT) :: prec
1226      LOGICAL(KIND=C_BOOL) :: prec_tmp
[1626]1227      LOGICAL, OPTIONAL, INTENT(OUT) :: radius
1228      LOGICAL(KIND=C_BOOL) :: radius_tmp
[432]1229      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name
1230      LOGICAL(KIND=C_BOOL) :: standard_name_tmp
[2131]1231      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin
1232      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp
1233      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin
1234      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp
1235      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni
1236      LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp
1237      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj
1238      LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp
1239      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin
1240      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp
1241      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin
1242      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp
1243      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni
1244      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp
1245      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj
1246      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp
[2618]1247      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_only
1248      LOGICAL(KIND=C_BOOL) :: tile_only_tmp
[449]1249      LOGICAL, OPTIONAL, INTENT(OUT) :: type
1250      LOGICAL(KIND=C_BOOL) :: type_tmp
[581]1251
[432]1252      CALL xios(is_defined_domaingroup_attr_hdl_)  &
[1492]1253      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lat_name, bounds_lon_1d, bounds_lon_2d  &
1254      , bounds_lon_name, comment, data_dim, data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni  &
1255      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  &
1256      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  &
[2131]1257      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  &
[2618]1258      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, tile_only  &
1259      , type )
[581]1260
[432]1261  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl)
[581]1262
[432]1263  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   &
[1492]1264    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lat_name_, bounds_lon_1d_, bounds_lon_2d_  &
1265    , bounds_lon_name_, comment_, data_dim_, data_i_index_, data_ibegin_, data_j_index_, data_jbegin_  &
1266    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  &
1267    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  &
[2131]1268    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  &
1269    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  &
[2618]1270    , tile_ni_, tile_nj_, tile_only_, type_ )
[581]1271
[432]1272    IMPLICIT NONE
1273      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl
[611]1274      LOGICAL, OPTIONAL, INTENT(OUT) :: area_
1275      LOGICAL(KIND=C_BOOL) :: area__tmp
[664]1276      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_
1277      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp
1278      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_
1279      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp
[1492]1280      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_name_
1281      LOGICAL(KIND=C_BOOL) :: bounds_lat_name__tmp
[664]1282      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_
1283      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp
1284      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_
1285      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp
[1492]1286      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_name_
1287      LOGICAL(KIND=C_BOOL) :: bounds_lon_name__tmp
1288      LOGICAL, OPTIONAL, INTENT(OUT) :: comment_
1289      LOGICAL(KIND=C_BOOL) :: comment__tmp
[432]1290      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_
1291      LOGICAL(KIND=C_BOOL) :: data_dim__tmp
1292      LOGICAL, OPTIONAL, INTENT(OUT) :: data_i_index_
1293      LOGICAL(KIND=C_BOOL) :: data_i_index__tmp
1294      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ibegin_
1295      LOGICAL(KIND=C_BOOL) :: data_ibegin__tmp
1296      LOGICAL, OPTIONAL, INTENT(OUT) :: data_j_index_
1297      LOGICAL(KIND=C_BOOL) :: data_j_index__tmp
1298      LOGICAL, OPTIONAL, INTENT(OUT) :: data_jbegin_
1299      LOGICAL(KIND=C_BOOL) :: data_jbegin__tmp
1300      LOGICAL, OPTIONAL, INTENT(OUT) :: data_ni_
1301      LOGICAL(KIND=C_BOOL) :: data_ni__tmp
1302      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_
1303      LOGICAL(KIND=C_BOOL) :: data_nj__tmp
[1492]1304      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_i_name_
1305      LOGICAL(KIND=C_BOOL) :: dim_i_name__tmp
1306      LOGICAL, OPTIONAL, INTENT(OUT) :: dim_j_name_
1307      LOGICAL(KIND=C_BOOL) :: dim_j_name__tmp
[546]1308      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_
1309      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp
[432]1310      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_
1311      LOGICAL(KIND=C_BOOL) :: group_ref__tmp
[467]1312      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_
1313      LOGICAL(KIND=C_BOOL) :: i_index__tmp
[432]1314      LOGICAL, OPTIONAL, INTENT(OUT) :: ibegin_
1315      LOGICAL(KIND=C_BOOL) :: ibegin__tmp
[467]1316      LOGICAL, OPTIONAL, INTENT(OUT) :: j_index_
1317      LOGICAL(KIND=C_BOOL) :: j_index__tmp
[432]1318      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_
1319      LOGICAL(KIND=C_BOOL) :: jbegin__tmp
[1492]1320      LOGICAL, OPTIONAL, INTENT(OUT) :: lat_name_
1321      LOGICAL(KIND=C_BOOL) :: lat_name__tmp
[664]1322      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_
1323      LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp
1324      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_
1325      LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp
[1492]1326      LOGICAL, OPTIONAL, INTENT(OUT) :: lon_name_
1327      LOGICAL(KIND=C_BOOL) :: lon_name__tmp
[432]1328      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_
1329      LOGICAL(KIND=C_BOOL) :: long_name__tmp
[664]1330      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_
1331      LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp
1332      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_
1333      LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp
1334      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_
1335      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp
1336      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_
1337      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp
[432]1338      LOGICAL, OPTIONAL, INTENT(OUT) :: name_
1339      LOGICAL(KIND=C_BOOL) :: name__tmp
1340      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_
1341      LOGICAL(KIND=C_BOOL) :: ni__tmp
1342      LOGICAL, OPTIONAL, INTENT(OUT) :: ni_glo_
1343      LOGICAL(KIND=C_BOOL) :: ni_glo__tmp
1344      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_
1345      LOGICAL(KIND=C_BOOL) :: nj__tmp
1346      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_
1347      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp
[2131]1348      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_
1349      LOGICAL(KIND=C_BOOL) :: ntiles__tmp
[449]1350      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_
1351      LOGICAL(KIND=C_BOOL) :: nvertex__tmp
[1158]1352      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_
1353      LOGICAL(KIND=C_BOOL) :: prec__tmp
[1626]1354      LOGICAL, OPTIONAL, INTENT(OUT) :: radius_
1355      LOGICAL(KIND=C_BOOL) :: radius__tmp
[432]1356      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_
1357      LOGICAL(KIND=C_BOOL) :: standard_name__tmp
[2131]1358      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_
1359      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp
1360      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_
1361      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp
1362      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni_
1363      LOGICAL(KIND=C_BOOL) :: tile_data_ni__tmp
1364      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj_
1365      LOGICAL(KIND=C_BOOL) :: tile_data_nj__tmp
1366      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_
1367      LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp
1368      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_
1369      LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp
1370      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_
1371      LOGICAL(KIND=C_BOOL) :: tile_ni__tmp
1372      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_
1373      LOGICAL(KIND=C_BOOL) :: tile_nj__tmp
[2618]1374      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_only_
1375      LOGICAL(KIND=C_BOOL) :: tile_only__tmp
[449]1376      LOGICAL, OPTIONAL, INTENT(OUT) :: type_
1377      LOGICAL(KIND=C_BOOL) :: type__tmp
[581]1378
[611]1379      IF (PRESENT(area_)) THEN
[966]1380        area__tmp = cxios_is_defined_domaingroup_area &
1381      (domaingroup_hdl%daddr)
[611]1382        area_ = area__tmp
1383      ENDIF
1384
[664]1385      IF (PRESENT(bounds_lat_1d_)) THEN
[966]1386        bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d &
1387      (domaingroup_hdl%daddr)
[664]1388        bounds_lat_1d_ = bounds_lat_1d__tmp
[449]1389      ENDIF
[581]1390
[664]1391      IF (PRESENT(bounds_lat_2d_)) THEN
[966]1392        bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d &
1393      (domaingroup_hdl%daddr)
[664]1394        bounds_lat_2d_ = bounds_lat_2d__tmp
[449]1395      ENDIF
[581]1396
[1492]1397      IF (PRESENT(bounds_lat_name_)) THEN
1398        bounds_lat_name__tmp = cxios_is_defined_domaingroup_bounds_lat_name &
1399      (domaingroup_hdl%daddr)
1400        bounds_lat_name_ = bounds_lat_name__tmp
1401      ENDIF
1402
[664]1403      IF (PRESENT(bounds_lon_1d_)) THEN
[966]1404        bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d &
1405      (domaingroup_hdl%daddr)
[664]1406        bounds_lon_1d_ = bounds_lon_1d__tmp
1407      ENDIF
1408
1409      IF (PRESENT(bounds_lon_2d_)) THEN
[966]1410        bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d &
1411      (domaingroup_hdl%daddr)
[664]1412        bounds_lon_2d_ = bounds_lon_2d__tmp
1413      ENDIF
1414
[1492]1415      IF (PRESENT(bounds_lon_name_)) THEN
1416        bounds_lon_name__tmp = cxios_is_defined_domaingroup_bounds_lon_name &
1417      (domaingroup_hdl%daddr)
1418        bounds_lon_name_ = bounds_lon_name__tmp
1419      ENDIF
1420
1421      IF (PRESENT(comment_)) THEN
1422        comment__tmp = cxios_is_defined_domaingroup_comment &
1423      (domaingroup_hdl%daddr)
1424        comment_ = comment__tmp
1425      ENDIF
1426
[432]1427      IF (PRESENT(data_dim_)) THEN
[966]1428        data_dim__tmp = cxios_is_defined_domaingroup_data_dim &
1429      (domaingroup_hdl%daddr)
[581]1430        data_dim_ = data_dim__tmp
[432]1431      ENDIF
[581]1432
[432]1433      IF (PRESENT(data_i_index_)) THEN
[966]1434        data_i_index__tmp = cxios_is_defined_domaingroup_data_i_index &
1435      (domaingroup_hdl%daddr)
[581]1436        data_i_index_ = data_i_index__tmp
[432]1437      ENDIF
[581]1438
[432]1439      IF (PRESENT(data_ibegin_)) THEN
[966]1440        data_ibegin__tmp = cxios_is_defined_domaingroup_data_ibegin &
1441      (domaingroup_hdl%daddr)
[581]1442        data_ibegin_ = data_ibegin__tmp
[432]1443      ENDIF
[581]1444
[432]1445      IF (PRESENT(data_j_index_)) THEN
[966]1446        data_j_index__tmp = cxios_is_defined_domaingroup_data_j_index &
1447      (domaingroup_hdl%daddr)
[581]1448        data_j_index_ = data_j_index__tmp
[432]1449      ENDIF
[581]1450
[432]1451      IF (PRESENT(data_jbegin_)) THEN
[966]1452        data_jbegin__tmp = cxios_is_defined_domaingroup_data_jbegin &
1453      (domaingroup_hdl%daddr)
[581]1454        data_jbegin_ = data_jbegin__tmp
[432]1455      ENDIF
[581]1456
[432]1457      IF (PRESENT(data_ni_)) THEN
[966]1458        data_ni__tmp = cxios_is_defined_domaingroup_data_ni &
1459      (domaingroup_hdl%daddr)
[581]1460        data_ni_ = data_ni__tmp
[432]1461      ENDIF
[581]1462
[432]1463      IF (PRESENT(data_nj_)) THEN
[966]1464        data_nj__tmp = cxios_is_defined_domaingroup_data_nj &
1465      (domaingroup_hdl%daddr)
[581]1466        data_nj_ = data_nj__tmp
[432]1467      ENDIF
[581]1468
[1492]1469      IF (PRESENT(dim_i_name_)) THEN
1470        dim_i_name__tmp = cxios_is_defined_domaingroup_dim_i_name &
1471      (domaingroup_hdl%daddr)
1472        dim_i_name_ = dim_i_name__tmp
1473      ENDIF
1474
1475      IF (PRESENT(dim_j_name_)) THEN
1476        dim_j_name__tmp = cxios_is_defined_domaingroup_dim_j_name &
1477      (domaingroup_hdl%daddr)
1478        dim_j_name_ = dim_j_name__tmp
1479      ENDIF
1480
[546]1481      IF (PRESENT(domain_ref_)) THEN
[966]1482        domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref &
1483      (domaingroup_hdl%daddr)
[581]1484        domain_ref_ = domain_ref__tmp
[546]1485      ENDIF
[581]1486
[432]1487      IF (PRESENT(group_ref_)) THEN
[966]1488        group_ref__tmp = cxios_is_defined_domaingroup_group_ref &
1489      (domaingroup_hdl%daddr)
[581]1490        group_ref_ = group_ref__tmp
[432]1491      ENDIF
[581]1492
[467]1493      IF (PRESENT(i_index_)) THEN
[966]1494        i_index__tmp = cxios_is_defined_domaingroup_i_index &
1495      (domaingroup_hdl%daddr)
[581]1496        i_index_ = i_index__tmp
[467]1497      ENDIF
[581]1498
[432]1499      IF (PRESENT(ibegin_)) THEN
[966]1500        ibegin__tmp = cxios_is_defined_domaingroup_ibegin &
1501      (domaingroup_hdl%daddr)
[581]1502        ibegin_ = ibegin__tmp
[432]1503      ENDIF
[581]1504
[467]1505      IF (PRESENT(j_index_)) THEN
[966]1506        j_index__tmp = cxios_is_defined_domaingroup_j_index &
1507      (domaingroup_hdl%daddr)
[581]1508        j_index_ = j_index__tmp
[467]1509      ENDIF
[581]1510
[432]1511      IF (PRESENT(jbegin_)) THEN
[966]1512        jbegin__tmp = cxios_is_defined_domaingroup_jbegin &
1513      (domaingroup_hdl%daddr)
[581]1514        jbegin_ = jbegin__tmp
[432]1515      ENDIF
[581]1516
[1492]1517      IF (PRESENT(lat_name_)) THEN
1518        lat_name__tmp = cxios_is_defined_domaingroup_lat_name &
1519      (domaingroup_hdl%daddr)
1520        lat_name_ = lat_name__tmp
1521      ENDIF
1522
[664]1523      IF (PRESENT(latvalue_1d_)) THEN
[966]1524        latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d &
1525      (domaingroup_hdl%daddr)
[664]1526        latvalue_1d_ = latvalue_1d__tmp
[432]1527      ENDIF
[581]1528
[664]1529      IF (PRESENT(latvalue_2d_)) THEN
[966]1530        latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d &
1531      (domaingroup_hdl%daddr)
[664]1532        latvalue_2d_ = latvalue_2d__tmp
1533      ENDIF
1534
[1492]1535      IF (PRESENT(lon_name_)) THEN
1536        lon_name__tmp = cxios_is_defined_domaingroup_lon_name &
1537      (domaingroup_hdl%daddr)
1538        lon_name_ = lon_name__tmp
1539      ENDIF
1540
[432]1541      IF (PRESENT(long_name_)) THEN
[966]1542        long_name__tmp = cxios_is_defined_domaingroup_long_name &
1543      (domaingroup_hdl%daddr)
[581]1544        long_name_ = long_name__tmp
[432]1545      ENDIF
[581]1546
[664]1547      IF (PRESENT(lonvalue_1d_)) THEN
[966]1548        lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d &
1549      (domaingroup_hdl%daddr)
[664]1550        lonvalue_1d_ = lonvalue_1d__tmp
[432]1551      ENDIF
[581]1552
[664]1553      IF (PRESENT(lonvalue_2d_)) THEN
[966]1554        lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d &
1555      (domaingroup_hdl%daddr)
[664]1556        lonvalue_2d_ = lonvalue_2d__tmp
[432]1557      ENDIF
[581]1558
[664]1559      IF (PRESENT(mask_1d_)) THEN
[966]1560        mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d &
1561      (domaingroup_hdl%daddr)
[664]1562        mask_1d_ = mask_1d__tmp
1563      ENDIF
1564
1565      IF (PRESENT(mask_2d_)) THEN
[966]1566        mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d &
1567      (domaingroup_hdl%daddr)
[664]1568        mask_2d_ = mask_2d__tmp
1569      ENDIF
1570
[432]1571      IF (PRESENT(name_)) THEN
[966]1572        name__tmp = cxios_is_defined_domaingroup_name &
1573      (domaingroup_hdl%daddr)
[581]1574        name_ = name__tmp
[432]1575      ENDIF
[581]1576
[432]1577      IF (PRESENT(ni_)) THEN
[966]1578        ni__tmp = cxios_is_defined_domaingroup_ni &
1579      (domaingroup_hdl%daddr)
[581]1580        ni_ = ni__tmp
[432]1581      ENDIF
[581]1582
[432]1583      IF (PRESENT(ni_glo_)) THEN
[966]1584        ni_glo__tmp = cxios_is_defined_domaingroup_ni_glo &
1585      (domaingroup_hdl%daddr)
[581]1586        ni_glo_ = ni_glo__tmp
[432]1587      ENDIF
[581]1588
[432]1589      IF (PRESENT(nj_)) THEN
[966]1590        nj__tmp = cxios_is_defined_domaingroup_nj &
1591      (domaingroup_hdl%daddr)
[581]1592        nj_ = nj__tmp
[432]1593      ENDIF
[581]1594
[432]1595      IF (PRESENT(nj_glo_)) THEN
[966]1596        nj_glo__tmp = cxios_is_defined_domaingroup_nj_glo &
1597      (domaingroup_hdl%daddr)
[581]1598        nj_glo_ = nj_glo__tmp
[432]1599      ENDIF
[581]1600
[2131]1601      IF (PRESENT(ntiles_)) THEN
1602        ntiles__tmp = cxios_is_defined_domaingroup_ntiles &
1603      (domaingroup_hdl%daddr)
1604        ntiles_ = ntiles__tmp
1605      ENDIF
1606
[449]1607      IF (PRESENT(nvertex_)) THEN
[966]1608        nvertex__tmp = cxios_is_defined_domaingroup_nvertex &
1609      (domaingroup_hdl%daddr)
[581]1610        nvertex_ = nvertex__tmp
[449]1611      ENDIF
[581]1612
[1158]1613      IF (PRESENT(prec_)) THEN
1614        prec__tmp = cxios_is_defined_domaingroup_prec &
1615      (domaingroup_hdl%daddr)
1616        prec_ = prec__tmp
1617      ENDIF
1618
[1626]1619      IF (PRESENT(radius_)) THEN
1620        radius__tmp = cxios_is_defined_domaingroup_radius &
1621      (domaingroup_hdl%daddr)
1622        radius_ = radius__tmp
1623      ENDIF
1624
[432]1625      IF (PRESENT(standard_name_)) THEN
[966]1626        standard_name__tmp = cxios_is_defined_domaingroup_standard_name &
1627      (domaingroup_hdl%daddr)
[581]1628        standard_name_ = standard_name__tmp
[432]1629      ENDIF
[581]1630
[2131]1631      IF (PRESENT(tile_data_ibegin_)) THEN
1632        tile_data_ibegin__tmp = cxios_is_defined_domaingroup_tile_data_ibegin &
1633      (domaingroup_hdl%daddr)
1634        tile_data_ibegin_ = tile_data_ibegin__tmp
1635      ENDIF
1636
1637      IF (PRESENT(tile_data_jbegin_)) THEN
1638        tile_data_jbegin__tmp = cxios_is_defined_domaingroup_tile_data_jbegin &
1639      (domaingroup_hdl%daddr)
1640        tile_data_jbegin_ = tile_data_jbegin__tmp
1641      ENDIF
1642
1643      IF (PRESENT(tile_data_ni_)) THEN
1644        tile_data_ni__tmp = cxios_is_defined_domaingroup_tile_data_ni &
1645      (domaingroup_hdl%daddr)
1646        tile_data_ni_ = tile_data_ni__tmp
1647      ENDIF
1648
1649      IF (PRESENT(tile_data_nj_)) THEN
1650        tile_data_nj__tmp = cxios_is_defined_domaingroup_tile_data_nj &
1651      (domaingroup_hdl%daddr)
1652        tile_data_nj_ = tile_data_nj__tmp
1653      ENDIF
1654
1655      IF (PRESENT(tile_ibegin_)) THEN
1656        tile_ibegin__tmp = cxios_is_defined_domaingroup_tile_ibegin &
1657      (domaingroup_hdl%daddr)
1658        tile_ibegin_ = tile_ibegin__tmp
1659      ENDIF
1660
1661      IF (PRESENT(tile_jbegin_)) THEN
1662        tile_jbegin__tmp = cxios_is_defined_domaingroup_tile_jbegin &
1663      (domaingroup_hdl%daddr)
1664        tile_jbegin_ = tile_jbegin__tmp
1665      ENDIF
1666
1667      IF (PRESENT(tile_ni_)) THEN
1668        tile_ni__tmp = cxios_is_defined_domaingroup_tile_ni &
1669      (domaingroup_hdl%daddr)
1670        tile_ni_ = tile_ni__tmp
1671      ENDIF
1672
1673      IF (PRESENT(tile_nj_)) THEN
1674        tile_nj__tmp = cxios_is_defined_domaingroup_tile_nj &
1675      (domaingroup_hdl%daddr)
1676        tile_nj_ = tile_nj__tmp
1677      ENDIF
1678
[2618]1679      IF (PRESENT(tile_only_)) THEN
1680        tile_only__tmp = cxios_is_defined_domaingroup_tile_only &
1681      (domaingroup_hdl%daddr)
1682        tile_only_ = tile_only__tmp
1683      ENDIF
1684
[449]1685      IF (PRESENT(type_)) THEN
[966]1686        type__tmp = cxios_is_defined_domaingroup_type &
1687      (domaingroup_hdl%daddr)
[581]1688        type_ = type__tmp
[449]1689      ENDIF
[581]1690
[432]1691  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)
[581]1692
[326]1693END MODULE idomaingroup_attr
Note: See TracBrowser for help on using the repository browser.