Ignore:
Timestamp:
08/24/15 14:53:17 (9 years ago)
Author:
mhnguyen
Message:

Changing some domain attributes

+) Longitude and latitude from now on can be 2 dimension array

Test
+) On Curie
+) test_client, test_complete pass and are correct

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/idomaingroup_attr.F90

    r657 r664  
    1212 
    1313  SUBROUTINE xios(set_domaingroup_attr)  & 
    14     ( domaingroup_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    15     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    16     , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    17     , nvertex, standard_name, type ) 
     14    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     15    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     16    , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     17    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     18    , type ) 
    1819 
    1920    IMPLICIT NONE 
    … …  
    2122      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id 
    2223      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:) 
    23       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:) 
    24       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:) 
     24      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 
     25      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 
     26      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:) 
     27      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 
    2528      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim 
    2629      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:) 
    … …  
    3841      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:) 
    3942      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin 
    40       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:) 
     43      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:) 
     44      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:) 
    4145      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    42       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:) 
    43       LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:) 
    44       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:) 
     46      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:) 
     47      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:) 
     48      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:) 
     49      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) 
     50      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:) 
     51      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:) 
    4552      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    4653      INTEGER  , OPTIONAL, INTENT(IN) :: ni 
    … …  
    5461      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 
    5562      CALL xios(set_domaingroup_attr_hdl_)   & 
    56       ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    57       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    58       , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    59       , nvertex, standard_name, type ) 
     63      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     64      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     65      , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     66      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     67      , type ) 
    6068 
    6169  END SUBROUTINE xios(set_domaingroup_attr) 
    6270 
    6371  SUBROUTINE xios(set_domaingroup_attr_hdl)  & 
    64     ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    65     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    66     , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    67     , nvertex, standard_name, type ) 
     72    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     73    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     74    , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     75    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     76    , type ) 
    6877 
    6978    IMPLICIT NONE 
    7079      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 
    7180      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area(:,:) 
    72       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat(:,:) 
    73       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon(:,:) 
     81      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d(:,:) 
     82      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d(:,:,:) 
     83      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d(:,:) 
     84      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d(:,:,:) 
    7485      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim 
    7586      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index(:) 
    … …  
    8798      INTEGER  , OPTIONAL, INTENT(IN) :: j_index(:) 
    8899      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin 
    89       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue(:) 
     100      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d(:) 
     101      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d(:,:) 
    90102      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    91       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue(:) 
    92       LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:,:) 
    93       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:) 
     103      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d(:) 
     104      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d(:,:) 
     105      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:) 
     106      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) 
     107      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:) 
     108      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:) 
    94109      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    95110      INTEGER  , OPTIONAL, INTENT(IN) :: ni 
    … …  
    102117 
    103118      CALL xios(set_domaingroup_attr_hdl_)  & 
    104       ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    105       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    106       , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    107       , nvertex, standard_name, type ) 
     119      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     120      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     121      , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     122      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     123      , type ) 
    108124 
    109125  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    110126 
    111127  SUBROUTINE xios(set_domaingroup_attr_hdl_)   & 
    112     ( domaingroup_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    113     , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_  & 
    114     , i_index_, ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_  & 
    115     , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_ ) 
     128    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
     129    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_, data_ni_, data_nj_  & 
     130    , domain_group_ref_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_  & 
     131    , latvalue_2d_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_  & 
     132    , nj_, nj_glo_, nvertex_, standard_name_, type_ ) 
    116133 
    117134    IMPLICIT NONE 
    118135      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 
    119136      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: area_(:,:) 
    120       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_(:,:) 
    121       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_(:,:) 
     137      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_1d_(:,:) 
     138      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_2d_(:,:,:) 
     139      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_1d_(:,:) 
     140      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_2d_(:,:,:) 
    122141      INTEGER  , OPTIONAL, INTENT(IN) :: data_dim_ 
    123142      INTEGER  , OPTIONAL, INTENT(IN) :: data_i_index_(:) 
    … …  
    135154      INTEGER  , OPTIONAL, INTENT(IN) :: j_index_(:) 
    136155      INTEGER  , OPTIONAL, INTENT(IN) :: jbegin_ 
    137       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_(:) 
     156      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_1d_(:) 
     157      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: latvalue_2d_(:,:) 
    138158      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 
    139       REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_(:) 
    140       LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:,:) 
    141       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:) 
     159      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_1d_(:) 
     160      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lonvalue_2d_(:,:) 
     161      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:) 
     162      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:) 
     163      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:) 
     164      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:) 
    142165      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
    143166      INTEGER  , OPTIONAL, INTENT(IN) :: ni_ 
    … …  
    153176      ENDIF 
    154177 
    155       IF (PRESENT(bounds_lat_)) THEN 
    156         CALL cxios_set_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2)) 
    157       ENDIF 
    158  
    159       IF (PRESENT(bounds_lon_)) THEN 
    160         CALL cxios_set_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2)) 
     178      IF (PRESENT(bounds_lat_1d_)) THEN 
     179        CALL cxios_set_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, size(bounds_lat_1d_,1), size(bounds_lat_1d_,2)) 
     180      ENDIF 
     181 
     182      IF (PRESENT(bounds_lat_2d_)) THEN 
     183        CALL cxios_set_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, size(bounds_lat_2d_,1), size(bounds_lat_2d_,2), size(bounds_lat_2d_,3)) 
     184      ENDIF 
     185 
     186      IF (PRESENT(bounds_lon_1d_)) THEN 
     187        CALL cxios_set_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, size(bounds_lon_1d_,1), size(bounds_lon_1d_,2)) 
     188      ENDIF 
     189 
     190      IF (PRESENT(bounds_lon_2d_)) THEN 
     191        CALL cxios_set_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, size(bounds_lon_2d_,1), size(bounds_lon_2d_,2), size(bounds_lon_2d_,3)) 
    161192      ENDIF 
    162193 
    … …  
    221252      ENDIF 
    222253 
    223       IF (PRESENT(latvalue_)) THEN 
    224         CALL cxios_set_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_,1)) 
     254      IF (PRESENT(latvalue_1d_)) THEN 
     255        CALL cxios_set_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, size(latvalue_1d_,1)) 
     256      ENDIF 
     257 
     258      IF (PRESENT(latvalue_2d_)) THEN 
     259        CALL cxios_set_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, size(latvalue_2d_,1), size(latvalue_2d_,2)) 
    225260      ENDIF 
    226261 
    … …  
    229264      ENDIF 
    230265 
    231       IF (PRESENT(lonvalue_)) THEN 
    232         CALL cxios_set_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_,1)) 
    233       ENDIF 
    234  
    235       IF (PRESENT(mask_)) THEN 
    236         ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2))) 
    237         mask__tmp = mask_ 
    238         CALL cxios_set_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2)) 
     266      IF (PRESENT(lonvalue_1d_)) THEN 
     267        CALL cxios_set_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, size(lonvalue_1d_,1)) 
     268      ENDIF 
     269 
     270      IF (PRESENT(lonvalue_2d_)) THEN 
     271        CALL cxios_set_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, size(lonvalue_2d_,1), size(lonvalue_2d_,2)) 
     272      ENDIF 
     273 
     274      IF (PRESENT(mask_1d_)) THEN 
     275        ALLOCATE(mask_1d__tmp(size(mask_1d_,1))) 
     276        mask_1d__tmp = mask_1d_ 
     277        CALL cxios_set_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, size(mask_1d_,1)) 
     278      ENDIF 
     279 
     280      IF (PRESENT(mask_2d_)) THEN 
     281        ALLOCATE(mask_2d__tmp(size(mask_2d_,1), size(mask_2d_,2))) 
     282        mask_2d__tmp = mask_2d_ 
     283        CALL cxios_set_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, size(mask_2d_,1), size(mask_2d_,2)) 
    239284      ENDIF 
    240285 
    … …  
    274319 
    275320  SUBROUTINE xios(get_domaingroup_attr)  & 
    276     ( domaingroup_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    277     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    278     , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    279     , nvertex, standard_name, type ) 
     321    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     322    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     323    , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     324    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     325    , type ) 
    280326 
    281327    IMPLICIT NONE 
    … …  
    283329      CHARACTER(LEN=*), INTENT(IN) ::domaingroup_id 
    284330      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:) 
    285       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:) 
    286       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:) 
     331      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 
     332      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 
     333      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:) 
     334      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 
    287335      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim 
    288336      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:) 
    … …  
    300348      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:) 
    301349      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin 
    302       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:) 
     350      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:) 
     351      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:) 
    303352      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    304       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:) 
    305       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:) 
    306       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:) 
     353      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:) 
     354      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:) 
     355      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:) 
     356      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) 
     357      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:) 
     358      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:) 
    307359      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    308360      INTEGER  , OPTIONAL, INTENT(OUT) :: ni 
    … …  
    316368      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 
    317369      CALL xios(get_domaingroup_attr_hdl_)   & 
    318       ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    319       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    320       , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    321       , nvertex, standard_name, type ) 
     370      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     371      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     372      , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     373      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     374      , type ) 
    322375 
    323376  END SUBROUTINE xios(get_domaingroup_attr) 
    324377 
    325378  SUBROUTINE xios(get_domaingroup_attr_hdl)  & 
    326     ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    327     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    328     , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    329     , nvertex, standard_name, type ) 
     379    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     380    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     381    , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     382    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     383    , type ) 
    330384 
    331385    IMPLICIT NONE 
    332386      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 
    333387      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area(:,:) 
    334       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat(:,:) 
    335       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon(:,:) 
     388      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d(:,:) 
     389      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d(:,:,:) 
     390      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d(:,:) 
     391      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d(:,:,:) 
    336392      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim 
    337393      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index(:) 
    … …  
    349405      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index(:) 
    350406      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin 
    351       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue(:) 
     407      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d(:) 
     408      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d(:,:) 
    352409      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    353       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue(:) 
    354       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:,:) 
    355       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_tmp(:,:) 
     410      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d(:) 
     411      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d(:,:) 
     412      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:) 
     413      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) 
     414      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:) 
     415      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:) 
    356416      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    357417      INTEGER  , OPTIONAL, INTENT(OUT) :: ni 
    … …  
    364424 
    365425      CALL xios(get_domaingroup_attr_hdl_)  & 
    366       ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    367       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    368       , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    369       , nvertex, standard_name, type ) 
     426      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     427      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     428      , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     429      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     430      , type ) 
    370431 
    371432  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
    372433 
    373434  SUBROUTINE xios(get_domaingroup_attr_hdl_)   & 
    374     ( domaingroup_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    375     , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_  & 
    376     , i_index_, ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_  & 
    377     , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_ ) 
     435    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
     436    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_, data_ni_, data_nj_  & 
     437    , domain_group_ref_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_  & 
     438    , latvalue_2d_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_  & 
     439    , nj_, nj_glo_, nvertex_, standard_name_, type_ ) 
    378440 
    379441    IMPLICIT NONE 
    380442      TYPE(txios(domaingroup)) , INTENT(IN) :: domaingroup_hdl 
    381443      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: area_(:,:) 
    382       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_(:,:) 
    383       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_(:,:) 
     444      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_1d_(:,:) 
     445      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_2d_(:,:,:) 
     446      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_1d_(:,:) 
     447      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_2d_(:,:,:) 
    384448      INTEGER  , OPTIONAL, INTENT(OUT) :: data_dim_ 
    385449      INTEGER  , OPTIONAL, INTENT(OUT) :: data_i_index_(:) 
    … …  
    397461      INTEGER  , OPTIONAL, INTENT(OUT) :: j_index_(:) 
    398462      INTEGER  , OPTIONAL, INTENT(OUT) :: jbegin_ 
    399       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_(:) 
     463      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_1d_(:) 
     464      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: latvalue_2d_(:,:) 
    400465      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 
    401       REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_(:) 
    402       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:,:) 
    403       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask__tmp(:,:) 
     466      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_1d_(:) 
     467      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lonvalue_2d_(:,:) 
     468      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:) 
     469      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:) 
     470      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:) 
     471      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:) 
    404472      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
    405473      INTEGER  , OPTIONAL, INTENT(OUT) :: ni_ 
    … …  
    415483      ENDIF 
    416484 
    417       IF (PRESENT(bounds_lat_)) THEN 
    418         CALL cxios_get_domaingroup_bounds_lat(domaingroup_hdl%daddr, bounds_lat_, size(bounds_lat_,1), size(bounds_lat_,2)) 
    419       ENDIF 
    420  
    421       IF (PRESENT(bounds_lon_)) THEN 
    422         CALL cxios_get_domaingroup_bounds_lon(domaingroup_hdl%daddr, bounds_lon_, size(bounds_lon_,1), size(bounds_lon_,2)) 
     485      IF (PRESENT(bounds_lat_1d_)) THEN 
     486        CALL cxios_get_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr, bounds_lat_1d_, size(bounds_lat_1d_,1), size(bounds_lat_1d_,2)) 
     487      ENDIF 
     488 
     489      IF (PRESENT(bounds_lat_2d_)) THEN 
     490        CALL cxios_get_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr, bounds_lat_2d_, size(bounds_lat_2d_,1), size(bounds_lat_2d_,2), size(bounds_lat_2d_,3)) 
     491      ENDIF 
     492 
     493      IF (PRESENT(bounds_lon_1d_)) THEN 
     494        CALL cxios_get_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr, bounds_lon_1d_, size(bounds_lon_1d_,1), size(bounds_lon_1d_,2)) 
     495      ENDIF 
     496 
     497      IF (PRESENT(bounds_lon_2d_)) THEN 
     498        CALL cxios_get_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr, bounds_lon_2d_, size(bounds_lon_2d_,1), size(bounds_lon_2d_,2), size(bounds_lon_2d_,3)) 
    423499      ENDIF 
    424500 
    … …  
    483559      ENDIF 
    484560 
    485       IF (PRESENT(latvalue_)) THEN 
    486         CALL cxios_get_domaingroup_latvalue(domaingroup_hdl%daddr, latvalue_, size(latvalue_,1)) 
     561      IF (PRESENT(latvalue_1d_)) THEN 
     562        CALL cxios_get_domaingroup_latvalue_1d(domaingroup_hdl%daddr, latvalue_1d_, size(latvalue_1d_,1)) 
     563      ENDIF 
     564 
     565      IF (PRESENT(latvalue_2d_)) THEN 
     566        CALL cxios_get_domaingroup_latvalue_2d(domaingroup_hdl%daddr, latvalue_2d_, size(latvalue_2d_,1), size(latvalue_2d_,2)) 
    487567      ENDIF 
    488568 
    … …  
    491571      ENDIF 
    492572 
    493       IF (PRESENT(lonvalue_)) THEN 
    494         CALL cxios_get_domaingroup_lonvalue(domaingroup_hdl%daddr, lonvalue_, size(lonvalue_,1)) 
    495       ENDIF 
    496  
    497       IF (PRESENT(mask_)) THEN 
    498         ALLOCATE(mask__tmp(size(mask_,1), size(mask_,2))) 
    499         CALL cxios_get_domaingroup_mask(domaingroup_hdl%daddr, mask__tmp, size(mask_,1), size(mask_,2)) 
    500         mask_ = mask__tmp 
     573      IF (PRESENT(lonvalue_1d_)) THEN 
     574        CALL cxios_get_domaingroup_lonvalue_1d(domaingroup_hdl%daddr, lonvalue_1d_, size(lonvalue_1d_,1)) 
     575      ENDIF 
     576 
     577      IF (PRESENT(lonvalue_2d_)) THEN 
     578        CALL cxios_get_domaingroup_lonvalue_2d(domaingroup_hdl%daddr, lonvalue_2d_, size(lonvalue_2d_,1), size(lonvalue_2d_,2)) 
     579      ENDIF 
     580 
     581      IF (PRESENT(mask_1d_)) THEN 
     582        ALLOCATE(mask_1d__tmp(size(mask_1d_,1))) 
     583        CALL cxios_get_domaingroup_mask_1d(domaingroup_hdl%daddr, mask_1d__tmp, size(mask_1d_,1)) 
     584        mask_1d_ = mask_1d__tmp 
     585      ENDIF 
     586 
     587      IF (PRESENT(mask_2d_)) THEN 
     588        ALLOCATE(mask_2d__tmp(size(mask_2d_,1), size(mask_2d_,2))) 
     589        CALL cxios_get_domaingroup_mask_2d(domaingroup_hdl%daddr, mask_2d__tmp, size(mask_2d_,1), size(mask_2d_,2)) 
     590        mask_2d_ = mask_2d__tmp 
    501591      ENDIF 
    502592 
    … …  
    536626 
    537627  SUBROUTINE xios(is_defined_domaingroup_attr)  & 
    538     ( domaingroup_id, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    539     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    540     , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    541     , nvertex, standard_name, type ) 
     628    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     629    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     630    , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     631    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     632    , type ) 
    542633 
    543634    IMPLICIT NONE 
    … …  
    546637      LOGICAL, OPTIONAL, INTENT(OUT) :: area 
    547638      LOGICAL(KIND=C_BOOL) :: area_tmp 
    548       LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat 
    549       LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp 
    550       LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon 
    551       LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp 
     639      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d 
     640      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp 
     641      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d 
     642      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp 
     643      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d 
     644      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp 
     645      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d 
     646      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp 
    552647      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 
    553648      LOGICAL(KIND=C_BOOL) :: data_dim_tmp 
    … …  
    580675      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
    581676      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
    582       LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 
    583       LOGICAL(KIND=C_BOOL) :: latvalue_tmp 
     677      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d 
     678      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp 
     679      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d 
     680      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp 
    584681      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
    585682      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
    586       LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 
    587       LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 
    588       LOGICAL, OPTIONAL, INTENT(OUT) :: mask 
    589       LOGICAL(KIND=C_BOOL) :: mask_tmp 
     683      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d 
     684      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp 
     685      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d 
     686      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp 
     687      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d 
     688      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp 
     689      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d 
     690      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp 
    590691      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    591692      LOGICAL(KIND=C_BOOL) :: name_tmp 
    … …  
    607708      CALL xios(get_domaingroup_handle)(domaingroup_id,domaingroup_hdl) 
    608709      CALL xios(is_defined_domaingroup_attr_hdl_)   & 
    609       ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    610       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    611       , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    612       , nvertex, standard_name, type ) 
     710      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     711      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     712      , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     713      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     714      , type ) 
    613715 
    614716  END SUBROUTINE xios(is_defined_domaingroup_attr) 
    615717 
    616718  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  & 
    617     ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    618     , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    619     , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    620     , nvertex, standard_name, type ) 
     719    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     720    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     721    , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     722    , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     723    , type ) 
    621724 
    622725    IMPLICIT NONE 
    … …  
    624727      LOGICAL, OPTIONAL, INTENT(OUT) :: area 
    625728      LOGICAL(KIND=C_BOOL) :: area_tmp 
    626       LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat 
    627       LOGICAL(KIND=C_BOOL) :: bounds_lat_tmp 
    628       LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon 
    629       LOGICAL(KIND=C_BOOL) :: bounds_lon_tmp 
     729      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d 
     730      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d_tmp 
     731      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d 
     732      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d_tmp 
     733      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d 
     734      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d_tmp 
     735      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d 
     736      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d_tmp 
    630737      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim 
    631738      LOGICAL(KIND=C_BOOL) :: data_dim_tmp 
    … …  
    658765      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin 
    659766      LOGICAL(KIND=C_BOOL) :: jbegin_tmp 
    660       LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue 
    661       LOGICAL(KIND=C_BOOL) :: latvalue_tmp 
     767      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d 
     768      LOGICAL(KIND=C_BOOL) :: latvalue_1d_tmp 
     769      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d 
     770      LOGICAL(KIND=C_BOOL) :: latvalue_2d_tmp 
    662771      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
    663772      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
    664       LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue 
    665       LOGICAL(KIND=C_BOOL) :: lonvalue_tmp 
    666       LOGICAL, OPTIONAL, INTENT(OUT) :: mask 
    667       LOGICAL(KIND=C_BOOL) :: mask_tmp 
     773      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d 
     774      LOGICAL(KIND=C_BOOL) :: lonvalue_1d_tmp 
     775      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d 
     776      LOGICAL(KIND=C_BOOL) :: lonvalue_2d_tmp 
     777      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d 
     778      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp 
     779      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d 
     780      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp 
    668781      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    669782      LOGICAL(KIND=C_BOOL) :: name_tmp 
    … …  
    684797 
    685798      CALL xios(is_defined_domaingroup_attr_hdl_)  & 
    686       ( domaingroup_hdl, area, bounds_lat, bounds_lon, data_dim, data_i_index, data_ibegin, data_j_index  & 
    687       , data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref, domain_ref, group_ref, i_index  & 
    688       , ibegin, j_index, jbegin, latvalue, long_name, lonvalue, mask, name, ni, ni_glo, nj, nj_glo  & 
    689       , nvertex, standard_name, type ) 
     799      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
     800      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_n_index, data_ni, data_nj, domain_group_ref  & 
     801      , domain_ref, group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name  & 
     802      , lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name  & 
     803      , type ) 
    690804 
    691805  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
    692806 
    693807  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   & 
    694     ( domaingroup_hdl, area_, bounds_lat_, bounds_lon_, data_dim_, data_i_index_, data_ibegin_, data_j_index_  & 
    695     , data_jbegin_, data_n_index_, data_ni_, data_nj_, domain_group_ref_, domain_ref_, group_ref_  & 
    696     , i_index_, ibegin_, j_index_, jbegin_, latvalue_, long_name_, lonvalue_, mask_, name_, ni_  & 
    697     , ni_glo_, nj_, nj_glo_, nvertex_, standard_name_, type_ ) 
     808    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
     809    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_n_index_, data_ni_, data_nj_  & 
     810    , domain_group_ref_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_  & 
     811    , latvalue_2d_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_  & 
     812    , nj_, nj_glo_, nvertex_, standard_name_, type_ ) 
    698813 
    699814    IMPLICIT NONE 
    … …  
    701816      LOGICAL, OPTIONAL, INTENT(OUT) :: area_ 
    702817      LOGICAL(KIND=C_BOOL) :: area__tmp 
    703       LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_ 
    704       LOGICAL(KIND=C_BOOL) :: bounds_lat__tmp 
    705       LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_ 
    706       LOGICAL(KIND=C_BOOL) :: bounds_lon__tmp 
     818      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_1d_ 
     819      LOGICAL(KIND=C_BOOL) :: bounds_lat_1d__tmp 
     820      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_2d_ 
     821      LOGICAL(KIND=C_BOOL) :: bounds_lat_2d__tmp 
     822      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_1d_ 
     823      LOGICAL(KIND=C_BOOL) :: bounds_lon_1d__tmp 
     824      LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_2d_ 
     825      LOGICAL(KIND=C_BOOL) :: bounds_lon_2d__tmp 
    707826      LOGICAL, OPTIONAL, INTENT(OUT) :: data_dim_ 
    708827      LOGICAL(KIND=C_BOOL) :: data_dim__tmp 
    … …  
    735854      LOGICAL, OPTIONAL, INTENT(OUT) :: jbegin_ 
    736855      LOGICAL(KIND=C_BOOL) :: jbegin__tmp 
    737       LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_ 
    738       LOGICAL(KIND=C_BOOL) :: latvalue__tmp 
     856      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_1d_ 
     857      LOGICAL(KIND=C_BOOL) :: latvalue_1d__tmp 
     858      LOGICAL, OPTIONAL, INTENT(OUT) :: latvalue_2d_ 
     859      LOGICAL(KIND=C_BOOL) :: latvalue_2d__tmp 
    739860      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 
    740861      LOGICAL(KIND=C_BOOL) :: long_name__tmp 
    741       LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_ 
    742       LOGICAL(KIND=C_BOOL) :: lonvalue__tmp 
    743       LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 
    744       LOGICAL(KIND=C_BOOL) :: mask__tmp 
     862      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_1d_ 
     863      LOGICAL(KIND=C_BOOL) :: lonvalue_1d__tmp 
     864      LOGICAL, OPTIONAL, INTENT(OUT) :: lonvalue_2d_ 
     865      LOGICAL(KIND=C_BOOL) :: lonvalue_2d__tmp 
     866      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_ 
     867      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp 
     868      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_ 
     869      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp 
    745870      LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 
    746871      LOGICAL(KIND=C_BOOL) :: name__tmp 
    … …  
    765890      ENDIF 
    766891 
    767       IF (PRESENT(bounds_lat_)) THEN 
    768         bounds_lat__tmp = cxios_is_defined_domaingroup_bounds_lat(domaingroup_hdl%daddr) 
    769         bounds_lat_ = bounds_lat__tmp 
    770       ENDIF 
    771  
    772       IF (PRESENT(bounds_lon_)) THEN 
    773         bounds_lon__tmp = cxios_is_defined_domaingroup_bounds_lon(domaingroup_hdl%daddr) 
    774         bounds_lon_ = bounds_lon__tmp 
     892      IF (PRESENT(bounds_lat_1d_)) THEN 
     893        bounds_lat_1d__tmp = cxios_is_defined_domaingroup_bounds_lat_1d(domaingroup_hdl%daddr) 
     894        bounds_lat_1d_ = bounds_lat_1d__tmp 
     895      ENDIF 
     896 
     897      IF (PRESENT(bounds_lat_2d_)) THEN 
     898        bounds_lat_2d__tmp = cxios_is_defined_domaingroup_bounds_lat_2d(domaingroup_hdl%daddr) 
     899        bounds_lat_2d_ = bounds_lat_2d__tmp 
     900      ENDIF 
     901 
     902      IF (PRESENT(bounds_lon_1d_)) THEN 
     903        bounds_lon_1d__tmp = cxios_is_defined_domaingroup_bounds_lon_1d(domaingroup_hdl%daddr) 
     904        bounds_lon_1d_ = bounds_lon_1d__tmp 
     905      ENDIF 
     906 
     907      IF (PRESENT(bounds_lon_2d_)) THEN 
     908        bounds_lon_2d__tmp = cxios_is_defined_domaingroup_bounds_lon_2d(domaingroup_hdl%daddr) 
     909        bounds_lon_2d_ = bounds_lon_2d__tmp 
    775910      ENDIF 
    776911 
    … …  
    850985      ENDIF 
    851986 
    852       IF (PRESENT(latvalue_)) THEN 
    853         latvalue__tmp = cxios_is_defined_domaingroup_latvalue(domaingroup_hdl%daddr) 
    854         latvalue_ = latvalue__tmp 
     987      IF (PRESENT(latvalue_1d_)) THEN 
     988        latvalue_1d__tmp = cxios_is_defined_domaingroup_latvalue_1d(domaingroup_hdl%daddr) 
     989        latvalue_1d_ = latvalue_1d__tmp 
     990      ENDIF 
     991 
     992      IF (PRESENT(latvalue_2d_)) THEN 
     993        latvalue_2d__tmp = cxios_is_defined_domaingroup_latvalue_2d(domaingroup_hdl%daddr) 
     994        latvalue_2d_ = latvalue_2d__tmp 
    855995      ENDIF 
    856996 
    … …  
    8601000      ENDIF 
    8611001 
    862       IF (PRESENT(lonvalue_)) THEN 
    863         lonvalue__tmp = cxios_is_defined_domaingroup_lonvalue(domaingroup_hdl%daddr) 
    864         lonvalue_ = lonvalue__tmp 
    865       ENDIF 
    866  
    867       IF (PRESENT(mask_)) THEN 
    868         mask__tmp = cxios_is_defined_domaingroup_mask(domaingroup_hdl%daddr) 
    869         mask_ = mask__tmp 
     1002      IF (PRESENT(lonvalue_1d_)) THEN 
     1003        lonvalue_1d__tmp = cxios_is_defined_domaingroup_lonvalue_1d(domaingroup_hdl%daddr) 
     1004        lonvalue_1d_ = lonvalue_1d__tmp 
     1005      ENDIF 
     1006 
     1007      IF (PRESENT(lonvalue_2d_)) THEN 
     1008        lonvalue_2d__tmp = cxios_is_defined_domaingroup_lonvalue_2d(domaingroup_hdl%daddr) 
     1009        lonvalue_2d_ = lonvalue_2d__tmp 
     1010      ENDIF 
     1011 
     1012      IF (PRESENT(mask_1d_)) THEN 
     1013        mask_1d__tmp = cxios_is_defined_domaingroup_mask_1d(domaingroup_hdl%daddr) 
     1014        mask_1d_ = mask_1d__tmp 
     1015      ENDIF 
     1016 
     1017      IF (PRESENT(mask_2d_)) THEN 
     1018        mask_2d__tmp = cxios_is_defined_domaingroup_mask_2d(domaingroup_hdl%daddr) 
     1019        mask_2d_ = mask_2d__tmp 
    8701020      ENDIF 
    8711021 
Note: See TracChangeset for help on using the changeset viewer.