Changeset 781 for XIOS/trunk


Ignore:
Timestamp:
11/04/15 17:05:07 (8 years ago)
Author:
rlacroix
Message:

Domain: Remove an unused attribute.

Location:
XIOS/trunk/src
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/config/domain_attribute.conf

    r687 r781  
    33DECLARE_ATTRIBUTE(StdString       , standard_name) 
    44DECLARE_ATTRIBUTE(StdString       , long_name) 
    5  
    6 /* Spécifique */ 
    7 DECLARE_ATTRIBUTE(StdString       , domain_group_ref) 
    85 
    96/* GLOBAL */ 

  • XIOS/trunk/src/interface/c_attr/icdomain_attr.cpp

    r712 r781  
    308308 
    309309 
    310   void cxios_set_domain_domain_group_ref(domain_Ptr domain_hdl, const char * domain_group_ref, int domain_group_ref_size) 
    311   { 
    312     std::string domain_group_ref_str; 
    313     if (!cstr2string(domain_group_ref, domain_group_ref_size, domain_group_ref_str)) return; 
    314     CTimer::get("XIOS").resume(); 
    315     domain_hdl->domain_group_ref.setValue(domain_group_ref_str); 
    316     CTimer::get("XIOS").suspend(); 
    317   } 
    318  
    319   void cxios_get_domain_domain_group_ref(domain_Ptr domain_hdl, char * domain_group_ref, int domain_group_ref_size) 
    320   { 
    321     CTimer::get("XIOS").resume(); 
    322     if (!string_copy(domain_hdl->domain_group_ref.getInheritedValue(), domain_group_ref, domain_group_ref_size)) 
    323       ERROR("void cxios_get_domain_domain_group_ref(domain_Ptr domain_hdl, char * domain_group_ref, int domain_group_ref_size)", << "Input string is too short"); 
    324     CTimer::get("XIOS").suspend(); 
    325   } 
    326  
    327   bool cxios_is_defined_domain_domain_group_ref(domain_Ptr domain_hdl) 
    328   { 
    329      CTimer::get("XIOS").resume(); 
    330      bool isDefined = domain_hdl->domain_group_ref.hasInheritedValue(); 
    331      CTimer::get("XIOS").suspend(); 
    332      return isDefined; 
    333   } 
    334  
    335  
    336310  void cxios_set_domain_domain_ref(domain_Ptr domain_hdl, const char * domain_ref, int domain_ref_size) 
    337311  { 

  • XIOS/trunk/src/interface/c_attr/icdomaingroup_attr.cpp

    r690 r781  
    308308 
    309309 
    310   void cxios_set_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl, const char * domain_group_ref, int domain_group_ref_size) 
    311   { 
    312     std::string domain_group_ref_str; 
    313     if (!cstr2string(domain_group_ref, domain_group_ref_size, domain_group_ref_str)) return; 
    314     CTimer::get("XIOS").resume(); 
    315     domaingroup_hdl->domain_group_ref.setValue(domain_group_ref_str); 
    316     CTimer::get("XIOS").suspend(); 
    317   } 
    318  
    319   void cxios_get_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl, char * domain_group_ref, int domain_group_ref_size) 
    320   { 
    321     CTimer::get("XIOS").resume(); 
    322     if (!string_copy(domaingroup_hdl->domain_group_ref.getInheritedValue(), domain_group_ref, domain_group_ref_size)) 
    323       ERROR("void cxios_get_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl, char * domain_group_ref, int domain_group_ref_size)", << "Input string is too short"); 
    324     CTimer::get("XIOS").suspend(); 
    325   } 
    326  
    327   bool cxios_is_defined_domaingroup_domain_group_ref(domaingroup_Ptr domaingroup_hdl) 
    328   { 
    329      CTimer::get("XIOS").resume(); 
    330      bool isDefined = domaingroup_hdl->domain_group_ref.hasInheritedValue(); 
    331      CTimer::get("XIOS").suspend(); 
    332      return isDefined; 
    333   } 
    334  
    335  
    336310  void cxios_set_domaingroup_domain_ref(domaingroup_Ptr domaingroup_hdl, const char * domain_ref, int domain_ref_size) 
    337311  { 

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

    r712 r781  
    252252 
    253253 
    254     SUBROUTINE cxios_set_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 
    255       USE ISO_C_BINDING 
    256       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    257       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref 
    258       INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size 
    259     END SUBROUTINE cxios_set_domain_domain_group_ref 
    260  
    261     SUBROUTINE cxios_get_domain_domain_group_ref(domain_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 
    262       USE ISO_C_BINDING 
    263       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    264       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref 
    265       INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size 
    266     END SUBROUTINE cxios_get_domain_domain_group_ref 
    267  
    268     FUNCTION cxios_is_defined_domain_domain_group_ref(domain_hdl) BIND(C) 
    269       USE ISO_C_BINDING 
    270       LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_group_ref 
    271       INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
    272     END FUNCTION cxios_is_defined_domain_domain_group_ref 
    273  
    274  
    275254    SUBROUTINE cxios_set_domain_domain_ref(domain_hdl, domain_ref, domain_ref_size) BIND(C) 
    276255      USE ISO_C_BINDING 

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

    r690 r781  
    252252 
    253253 
    254     SUBROUTINE cxios_set_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 
    255       USE ISO_C_BINDING 
    256       INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    257       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref 
    258       INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size 
    259     END SUBROUTINE cxios_set_domaingroup_domain_group_ref 
    260  
    261     SUBROUTINE cxios_get_domaingroup_domain_group_ref(domaingroup_hdl, domain_group_ref, domain_group_ref_size) BIND(C) 
    262       USE ISO_C_BINDING 
    263       INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    264       CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_group_ref 
    265       INTEGER  (kind = C_INT)     , VALUE        :: domain_group_ref_size 
    266     END SUBROUTINE cxios_get_domaingroup_domain_group_ref 
    267  
    268     FUNCTION cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl) BIND(C) 
    269       USE ISO_C_BINDING 
    270       LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_group_ref 
    271       INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
    272     END FUNCTION cxios_is_defined_domaingroup_domain_group_ref 
    273  
    274  
    275254    SUBROUTINE cxios_set_domaingroup_domain_ref(domaingroup_hdl, domain_ref, domain_ref_size) BIND(C) 
    276255      USE ISO_C_BINDING 

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

    r690 r781  
    1313  SUBROUTINE xios(set_domain_attr)  & 
    1414    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    15     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    16     , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    17     , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     15    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     16    , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     17    , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    1818 
    1919    IMPLICIT NONE 
    … …  
    3232      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni 
    3333      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj 
    34       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    3534      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 
    3635      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src 
    … …  
    6059      CALL xios(set_domain_attr_hdl_)   & 
    6160      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    62       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    63       , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    64       , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     61      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     62      , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     63      , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    6564 
    6665  END SUBROUTINE xios(set_domain_attr) 
    … …  
    6867  SUBROUTINE xios(set_domain_attr_hdl)  & 
    6968    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    70     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    71     , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    72     , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     69    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     70    , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     71    , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    7372 
    7473    IMPLICIT NONE 
    … …  
    8685      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni 
    8786      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj 
    88       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    8987      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 
    9088      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src 
    … …  
    113111      CALL xios(set_domain_attr_hdl_)  & 
    114112      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    115       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    116       , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    117       , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     113      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     114      , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     115      , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    118116 
    119117  END SUBROUTINE xios(set_domain_attr_hdl) 
    … …  
    121119  SUBROUTINE xios(set_domain_attr_hdl_)   & 
    122120    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    123     , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
    124     , domain_ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
    125     , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    126     , nvertex_, standard_name_, type_ ) 
     121    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  & 
     122    , domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_  & 
     123    , lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_  & 
     124    , standard_name_, type_ ) 
    127125 
    128126    IMPLICIT NONE 
    … …  
    140138      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_ 
    141139      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_ 
    142       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    143140      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 
    144141      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_ 
    … …  
    213210      ENDIF 
    214211 
    215       IF (PRESENT(domain_group_ref_)) THEN 
    216         CALL cxios_set_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 
    217       ENDIF 
    218  
    219212      IF (PRESENT(domain_ref_)) THEN 
    220213        CALL cxios_set_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) 
    … …  
    309302  SUBROUTINE xios(get_domain_attr)  & 
    310303    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    311     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    312     , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    313     , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     304    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     305    , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     306    , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    314307 
    315308    IMPLICIT NONE 
    … …  
    328321      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni 
    329322      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj 
    330       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    331323      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 
    332324      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src 
    … …  
    356348      CALL xios(get_domain_attr_hdl_)   & 
    357349      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    358       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    359       , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    360       , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     350      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     351      , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     352      , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    361353 
    362354  END SUBROUTINE xios(get_domain_attr) 
    … …  
    364356  SUBROUTINE xios(get_domain_attr_hdl)  & 
    365357    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    366     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    367     , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    368     , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     358    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     359    , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     360    , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    369361 
    370362    IMPLICIT NONE 
    … …  
    382374      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni 
    383375      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj 
    384       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    385376      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 
    386377      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src 
    … …  
    409400      CALL xios(get_domain_attr_hdl_)  & 
    410401      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    411       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    412       , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    413       , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     402      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     403      , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     404      , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    414405 
    415406  END SUBROUTINE xios(get_domain_attr_hdl) 
    … …  
    417408  SUBROUTINE xios(get_domain_attr_hdl_)   & 
    418409    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    419     , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
    420     , domain_ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
    421     , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    422     , nvertex_, standard_name_, type_ ) 
     410    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  & 
     411    , domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_  & 
     412    , lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_  & 
     413    , standard_name_, type_ ) 
    423414 
    424415    IMPLICIT NONE 
    … …  
    436427      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_ 
    437428      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_ 
    438       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
    439429      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 
    440430      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_ 
    … …  
    509499      ENDIF 
    510500 
    511       IF (PRESENT(domain_group_ref_)) THEN 
    512         CALL cxios_get_domain_domain_group_ref(domain_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 
    513       ENDIF 
    514  
    515501      IF (PRESENT(domain_ref_)) THEN 
    516502        CALL cxios_get_domain_domain_ref(domain_hdl%daddr, domain_ref_, len(domain_ref_)) 
    … …  
    605591  SUBROUTINE xios(is_defined_domain_attr)  & 
    606592    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    607     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    608     , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    609     , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     593    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     594    , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     595    , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    610596 
    611597    IMPLICIT NONE 
    … …  
    636622      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 
    637623      LOGICAL(KIND=C_BOOL) :: data_nj_tmp 
    638       LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 
    639       LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 
    640624      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 
    641625      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 
    … …  
    684668      CALL xios(is_defined_domain_attr_hdl_)   & 
    685669      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    686       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    687       , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    688       , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     670      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     671      , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     672      , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    689673 
    690674  END SUBROUTINE xios(is_defined_domain_attr) 
    … …  
    692676  SUBROUTINE xios(is_defined_domain_attr_hdl)  & 
    693677    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    694     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    695     , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    696     , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     678    , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     679    , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     680    , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    697681 
    698682    IMPLICIT NONE 
    … …  
    722706      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 
    723707      LOGICAL(KIND=C_BOOL) :: data_nj_tmp 
    724       LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 
    725       LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 
    726708      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 
    727709      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 
    … …  
    769751      CALL xios(is_defined_domain_attr_hdl_)  & 
    770752      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    771       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, domain_src  & 
    772       , i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d  & 
    773       , mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     753      , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src, i_index  & 
     754      , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
     755      , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
    774756 
    775757  END SUBROUTINE xios(is_defined_domain_attr_hdl) 
    … …  
    777759  SUBROUTINE xios(is_defined_domain_attr_hdl_)   & 
    778760    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    779     , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
    780     , domain_ref_, domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
    781     , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    782     , nvertex_, standard_name_, type_ ) 
     761    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  & 
     762    , domain_src_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_  & 
     763    , lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_  & 
     764    , standard_name_, type_ ) 
    783765 
    784766    IMPLICIT NONE 
    … …  
    808790      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 
    809791      LOGICAL(KIND=C_BOOL) :: data_nj__tmp 
    810       LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
    811       LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 
    812792      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 
    813793      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 
    … …  
    913893      ENDIF 
    914894 
    915       IF (PRESENT(domain_group_ref_)) THEN 
    916         domain_group_ref__tmp = cxios_is_defined_domain_domain_group_ref(domain_hdl%daddr) 
    917         domain_group_ref_ = domain_group_ref__tmp 
    918       ENDIF 
    919  
    920895      IF (PRESENT(domain_ref_)) THEN 
    921896        domain_ref__tmp = cxios_is_defined_domain_domain_ref(domain_hdl%daddr) 

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

    r690 r781  
    1313  SUBROUTINE xios(set_domaingroup_attr)  & 
    1414    ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    16     , domain_src, 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 ) 
     15    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     16    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     17    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     18    ) 
    1919 
    2020    IMPLICIT NONE 
    … …  
    3333      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni 
    3434      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj 
    35       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    3635      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 
    3736      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src 
    … …  
    6261      CALL xios(set_domaingroup_attr_hdl_)   & 
    6362      ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    65       , domain_src, 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 ) 
     63      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     64      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     65      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     66      ) 
    6867 
    6968  END SUBROUTINE xios(set_domaingroup_attr) 
    … …  
    7170  SUBROUTINE xios(set_domaingroup_attr_hdl)  & 
    7271    ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    74     , domain_src, 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 ) 
     72    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     73    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     74    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     75    ) 
    7776 
    7877    IMPLICIT NONE 
    … …  
    9089      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni 
    9190      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj 
    92       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    9391      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 
    9492      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src 
    … …  
    118116      CALL xios(set_domaingroup_attr_hdl_)  & 
    119117      ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    121       , domain_src, 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 ) 
     118      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     119      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     120      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     121      ) 
    124122 
    125123  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    … …  
    127125  SUBROUTINE xios(set_domaingroup_attr_hdl_)   & 
    128126    ( 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_ni_, data_nj_, domain_group_ref_  & 
    130     , domain_ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
     127    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  & 
     128    , domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
    131129    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    132130    , nvertex_, standard_name_, type_ ) 
    … …  
    146144      INTEGER  , OPTIONAL, INTENT(IN) :: data_ni_ 
    147145      INTEGER  , OPTIONAL, INTENT(IN) :: data_nj_ 
    148       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    149146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 
    150147      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_ 
    … …  
    220217      ENDIF 
    221218 
    222       IF (PRESENT(domain_group_ref_)) THEN 
    223         CALL cxios_set_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 
    224       ENDIF 
    225  
    226219      IF (PRESENT(domain_ref_)) THEN 
    227220        CALL cxios_set_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    … …  
    320313  SUBROUTINE xios(get_domaingroup_attr)  & 
    321314    ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    323     , domain_src, 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 ) 
     315    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     316    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     317    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     318    ) 
    326319 
    327320    IMPLICIT NONE 
    … …  
    340333      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni 
    341334      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj 
    342       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    343335      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 
    344336      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src 
    … …  
    369361      CALL xios(get_domaingroup_attr_hdl_)   & 
    370362      ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    372       , domain_src, 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 ) 
     363      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     364      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     365      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     366      ) 
    375367 
    376368  END SUBROUTINE xios(get_domaingroup_attr) 
    … …  
    378370  SUBROUTINE xios(get_domaingroup_attr_hdl)  & 
    379371    ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    381     , domain_src, 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 ) 
     372    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     373    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     374    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     375    ) 
    384376 
    385377    IMPLICIT NONE 
    … …  
    397389      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni 
    398390      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj 
    399       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    400391      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 
    401392      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src 
    … …  
    425416      CALL xios(get_domaingroup_attr_hdl_)  & 
    426417      ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    428       , domain_src, 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 ) 
     418      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     419      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     420      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     421      ) 
    431422 
    432423  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
    … …  
    434425  SUBROUTINE xios(get_domaingroup_attr_hdl_)   & 
    435426    ( 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_ni_, data_nj_, domain_group_ref_  & 
    437     , domain_ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
     427    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  & 
     428    , domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
    438429    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    439430    , nvertex_, standard_name_, type_ ) 
    … …  
    453444      INTEGER  , OPTIONAL, INTENT(OUT) :: data_ni_ 
    454445      INTEGER  , OPTIONAL, INTENT(OUT) :: data_nj_ 
    455       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
    456446      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 
    457447      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_ 
    … …  
    527517      ENDIF 
    528518 
    529       IF (PRESENT(domain_group_ref_)) THEN 
    530         CALL cxios_get_domaingroup_domain_group_ref(domaingroup_hdl%daddr, domain_group_ref_, len(domain_group_ref_)) 
    531       ENDIF 
    532  
    533519      IF (PRESENT(domain_ref_)) THEN 
    534520        CALL cxios_get_domaingroup_domain_ref(domaingroup_hdl%daddr, domain_ref_, len(domain_ref_)) 
    … …  
    627613  SUBROUTINE xios(is_defined_domaingroup_attr)  & 
    628614    ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    630     , domain_src, 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 ) 
     615    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     616    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     617    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     618    ) 
    633619 
    634620    IMPLICIT NONE 
    … …  
    659645      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 
    660646      LOGICAL(KIND=C_BOOL) :: data_nj_tmp 
    661       LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 
    662       LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 
    663647      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 
    664648      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 
    … …  
    709693      CALL xios(is_defined_domaingroup_attr_hdl_)   & 
    710694      ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    712       , domain_src, 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 ) 
     695      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     696      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     697      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     698      ) 
    715699 
    716700  END SUBROUTINE xios(is_defined_domaingroup_attr) 
    … …  
    718702  SUBROUTINE xios(is_defined_domaingroup_attr_hdl)  & 
    719703    ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    721     , domain_src, 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 ) 
     704    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     705    , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     706    , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     707    ) 
    724708 
    725709    IMPLICIT NONE 
    … …  
    749733      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj 
    750734      LOGICAL(KIND=C_BOOL) :: data_nj_tmp 
    751       LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref 
    752       LOGICAL(KIND=C_BOOL) :: domain_group_ref_tmp 
    753735      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 
    754736      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 
    … …  
    798780      CALL xios(is_defined_domaingroup_attr_hdl_)  & 
    799781      ( 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_ni, data_nj, domain_group_ref, domain_ref  & 
    801       , domain_src, 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 ) 
     782      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_ref, domain_src  & 
     783      , group_ref, i_index, ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d  & 
     784      , lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type  & 
     785      ) 
    804786 
    805787  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
    … …  
    807789  SUBROUTINE xios(is_defined_domaingroup_attr_hdl_)   & 
    808790    ( 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_ni_, data_nj_, domain_group_ref_  & 
    810     , domain_ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
     791    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_ref_  & 
     792    , domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
    811793    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    812794    , nvertex_, standard_name_, type_ ) 
    … …  
    838820      LOGICAL, OPTIONAL, INTENT(OUT) :: data_nj_ 
    839821      LOGICAL(KIND=C_BOOL) :: data_nj__tmp 
    840       LOGICAL, OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
    841       LOGICAL(KIND=C_BOOL) :: domain_group_ref__tmp 
    842822      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 
    843823      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 
    … …  
    945925      ENDIF 
    946926 
    947       IF (PRESENT(domain_group_ref_)) THEN 
    948         domain_group_ref__tmp = cxios_is_defined_domaingroup_domain_group_ref(domaingroup_hdl%daddr) 
    949         domain_group_ref_ = domain_group_ref__tmp 
    950       ENDIF 
    951  
    952927      IF (PRESENT(domain_ref_)) THEN 
    953928        domain_ref__tmp = cxios_is_defined_domaingroup_domain_ref(domaingroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.