Changeset 690


Ignore:
Timestamp:
09/15/15 17:31:19 (9 years ago)
Author:
mhnguyen
Message:

Updating some fortran interface

Test
+) On Curie
+) All tests pass

Location:
XIOS/trunk/src
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/filter/spatial_transform_filter.cpp

    r688 r690  
    126126 
    127127    std::vector<MPI_Status> requestStatus(sendRequest.size()); 
    128     MPI_Wait(&sendRequest[0], &requestStatus[0]); 
     128    if (!sendRequest.empty()) MPI_Wait(&sendRequest[0], &requestStatus[0]); 
    129129    if (0 != sendBuffSize) delete [] sendBuff; 
    130130    if (0 != recvBuffSize) delete [] recvBuff; 

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

    • Property svn:executable set to *
    r674 r690  
    360360 
    361361 
    362   void cxios_set_domain_i_index(domain_Ptr domain_hdl, int* i_index, int* extent) 
     362  void cxios_set_domain_domain_src(domain_Ptr domain_hdl, const char * domain_src, int domain_src_size) 
     363  { 
     364    std::string domain_src_str; 
     365    if (!cstr2string(domain_src, domain_src_size, domain_src_str)) return; 
     366    CTimer::get("XIOS").resume(); 
     367    domain_hdl->domain_src.setValue(domain_src_str); 
     368    CTimer::get("XIOS").suspend(); 
     369  } 
     370 
     371  void cxios_get_domain_domain_src(domain_Ptr domain_hdl, char * domain_src, int domain_src_size) 
     372  { 
     373    CTimer::get("XIOS").resume(); 
     374    if (!string_copy(domain_hdl->domain_src.getInheritedValue(), domain_src, domain_src_size)) 
     375      ERROR("void cxios_get_domain_domain_src(domain_Ptr domain_hdl, char * domain_src, int domain_src_size)", << "Input string is too short"); 
     376    CTimer::get("XIOS").suspend(); 
     377  } 
     378 
     379  bool cxios_is_defined_domain_domain_src(domain_Ptr domain_hdl) 
     380  { 
     381     CTimer::get("XIOS").resume(); 
     382     bool isDefined = domain_hdl->domain_src.hasInheritedValue(); 
     383     CTimer::get("XIOS").suspend(); 
     384     return isDefined; 
     385  } 
     386 
     387 
     388  void cxios_set_domain_i_index(domain_Ptr domain_hdl, int* i_index, int extent1) 
    363389  { 
    364390    CTimer::get("XIOS").resume(); 

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

    r674 r690  
    360360 
    361361 
     362  void cxios_set_domaingroup_domain_src(domaingroup_Ptr domaingroup_hdl, const char * domain_src, int domain_src_size) 
     363  { 
     364    std::string domain_src_str; 
     365    if (!cstr2string(domain_src, domain_src_size, domain_src_str)) return; 
     366    CTimer::get("XIOS").resume(); 
     367    domaingroup_hdl->domain_src.setValue(domain_src_str); 
     368    CTimer::get("XIOS").suspend(); 
     369  } 
     370 
     371  void cxios_get_domaingroup_domain_src(domaingroup_Ptr domaingroup_hdl, char * domain_src, int domain_src_size) 
     372  { 
     373    CTimer::get("XIOS").resume(); 
     374    if (!string_copy(domaingroup_hdl->domain_src.getInheritedValue(), domain_src, domain_src_size)) 
     375      ERROR("void cxios_get_domaingroup_domain_src(domaingroup_Ptr domaingroup_hdl, char * domain_src, int domain_src_size)", << "Input string is too short"); 
     376    CTimer::get("XIOS").suspend(); 
     377  } 
     378 
     379  bool cxios_is_defined_domaingroup_domain_src(domaingroup_Ptr domaingroup_hdl) 
     380  { 
     381     CTimer::get("XIOS").resume(); 
     382     bool isDefined = domaingroup_hdl->domain_src.hasInheritedValue(); 
     383     CTimer::get("XIOS").suspend(); 
     384     return isDefined; 
     385  } 
     386 
     387 
    362388  void cxios_set_domaingroup_group_ref(domaingroup_Ptr domaingroup_hdl, const char * group_ref, int group_ref_size) 
    363389  { 

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

    • Property svn:executable set to *
    r674 r690  
    294294 
    295295 
    296     SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent) BIND(C) 
     296    SUBROUTINE cxios_set_domain_domain_src(domain_hdl, domain_src, domain_src_size) BIND(C) 
     297      USE ISO_C_BINDING 
     298      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     299      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_src 
     300      INTEGER  (kind = C_INT)     , VALUE        :: domain_src_size 
     301    END SUBROUTINE cxios_set_domain_domain_src 
     302 
     303    SUBROUTINE cxios_get_domain_domain_src(domain_hdl, domain_src, domain_src_size) BIND(C) 
     304      USE ISO_C_BINDING 
     305      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     306      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_src 
     307      INTEGER  (kind = C_INT)     , VALUE        :: domain_src_size 
     308    END SUBROUTINE cxios_get_domain_domain_src 
     309 
     310    FUNCTION cxios_is_defined_domain_domain_src(domain_hdl) BIND(C) 
     311      USE ISO_C_BINDING 
     312      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_domain_src 
     313      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     314    END FUNCTION cxios_is_defined_domain_domain_src 
     315 
     316 
     317    SUBROUTINE cxios_set_domain_i_index(domain_hdl, i_index, extent1) BIND(C) 
    297318      USE ISO_C_BINDING 
    298319      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 

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

    r674 r690  
    294294 
    295295 
     296    SUBROUTINE cxios_set_domaingroup_domain_src(domaingroup_hdl, domain_src, domain_src_size) BIND(C) 
     297      USE ISO_C_BINDING 
     298      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     299      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_src 
     300      INTEGER  (kind = C_INT)     , VALUE        :: domain_src_size 
     301    END SUBROUTINE cxios_set_domaingroup_domain_src 
     302 
     303    SUBROUTINE cxios_get_domaingroup_domain_src(domaingroup_hdl, domain_src, domain_src_size) BIND(C) 
     304      USE ISO_C_BINDING 
     305      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     306      CHARACTER(kind = C_CHAR)    , DIMENSION(*) :: domain_src 
     307      INTEGER  (kind = C_INT)     , VALUE        :: domain_src_size 
     308    END SUBROUTINE cxios_get_domaingroup_domain_src 
     309 
     310    FUNCTION cxios_is_defined_domaingroup_domain_src(domaingroup_hdl) BIND(C) 
     311      USE ISO_C_BINDING 
     312      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_domain_src 
     313      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     314    END FUNCTION cxios_is_defined_domaingroup_domain_src 
     315 
     316 
    296317    SUBROUTINE cxios_set_domaingroup_group_ref(domaingroup_hdl, group_ref, group_ref_size) BIND(C) 
    297318      USE ISO_C_BINDING 

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

    r674 r690  
    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, 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 ) 
     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 ) 
    1818 
    1919    IMPLICIT NONE 
    … …  
    3434      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    3535      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 
     36      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src 
    3637      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:) 
    3738      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
    … …  
    5960      CALL xios(set_domain_attr_hdl_)   & 
    6061      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    61       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    62       , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    63       , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    6465 
    6566  END SUBROUTINE xios(set_domain_attr) 
    … …  
    6768  SUBROUTINE xios(set_domain_attr_hdl)  & 
    6869    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    69     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    70     , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    71     , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    7273 
    7374    IMPLICIT NONE 
    … …  
    8788      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    8889      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 
     90      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src 
    8991      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:) 
    9092      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin 
    … …  
    111113      CALL xios(set_domain_attr_hdl_)  & 
    112114      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    113       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    114       , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    115       , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    116118 
    117119  END SUBROUTINE xios(set_domain_attr_hdl) 
    … …  
    120122    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    121123    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
    122     , domain_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_  & 
    123     , lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_  & 
    124     , standard_name_, type_ ) 
     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_ ) 
    125127 
    126128    IMPLICIT NONE 
    … …  
    140142      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    141143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 
     144      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_ 
    142145      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:) 
    143146      INTEGER  , OPTIONAL, INTENT(IN) :: ibegin_ 
    … …  
    218221      ENDIF 
    219222 
     223      IF (PRESENT(domain_src_)) THEN 
     224        CALL cxios_set_domain_domain_src(domain_hdl%daddr, domain_src_, len(domain_src_)) 
     225      ENDIF 
     226 
    220227      IF (PRESENT(i_index_)) THEN 
    221228        CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
    … …  
    302309  SUBROUTINE xios(get_domain_attr)  & 
    303310    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    304     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    305     , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    306     , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    307314 
    308315    IMPLICIT NONE 
    … …  
    323330      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    324331      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 
     332      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src 
    325333      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:) 
    326334      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
    … …  
    348356      CALL xios(get_domain_attr_hdl_)   & 
    349357      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    350       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    351       , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    352       , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    353361 
    354362  END SUBROUTINE xios(get_domain_attr) 
    … …  
    356364  SUBROUTINE xios(get_domain_attr_hdl)  & 
    357365    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    358     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    359     , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    360     , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    361369 
    362370    IMPLICIT NONE 
    … …  
    376384      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    377385      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 
     386      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src 
    378387      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:) 
    379388      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin 
    … …  
    400409      CALL xios(get_domain_attr_hdl_)  & 
    401410      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    402       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    403       , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    404       , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    405414 
    406415  END SUBROUTINE xios(get_domain_attr_hdl) 
    … …  
    409418    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    410419    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
    411     , domain_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_  & 
    412     , lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_  & 
    413     , standard_name_, type_ ) 
     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_ ) 
    414423 
    415424    IMPLICIT NONE 
    … …  
    429438      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
    430439      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 
     440      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_ 
    431441      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:) 
    432442      INTEGER  , OPTIONAL, INTENT(OUT) :: ibegin_ 
    … …  
    507517      ENDIF 
    508518 
     519      IF (PRESENT(domain_src_)) THEN 
     520        CALL cxios_get_domain_domain_src(domain_hdl%daddr, domain_src_, len(domain_src_)) 
     521      ENDIF 
     522 
    509523      IF (PRESENT(i_index_)) THEN 
    510524        CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
    … …  
    591605  SUBROUTINE xios(is_defined_domain_attr)  & 
    592606    ( domain_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    593     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    594     , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    595     , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    596610 
    597611    IMPLICIT NONE 
    … …  
    626640      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 
    627641      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 
     642      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src 
     643      LOGICAL(KIND=C_BOOL) :: domain_src_tmp 
    628644      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 
    629645      LOGICAL(KIND=C_BOOL) :: i_index_tmp 
    … …  
    668684      CALL xios(is_defined_domain_attr_hdl_)   & 
    669685      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    670       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    671       , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    672       , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    673689 
    674690  END SUBROUTINE xios(is_defined_domain_attr) 
    … …  
    676692  SUBROUTINE xios(is_defined_domain_attr_hdl)  & 
    677693    ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    678     , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    679     , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    680     , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    681697 
    682698    IMPLICIT NONE 
    … …  
    710726      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 
    711727      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 
     728      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src 
     729      LOGICAL(KIND=C_BOOL) :: domain_src_tmp 
    712730      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index 
    713731      LOGICAL(KIND=C_BOOL) :: i_index_tmp 
    … …  
    751769      CALL xios(is_defined_domain_attr_hdl_)  & 
    752770      ( domain_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim, data_i_index  & 
    753       , data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref, i_index  & 
    754       , ibegin, j_index, jbegin, latvalue_1d, latvalue_2d, long_name, lonvalue_1d, lonvalue_2d, mask_1d  & 
    755       , mask_2d, name, ni, ni_glo, nj, nj_glo, nvertex, standard_name, type ) 
     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 ) 
    756774 
    757775  END SUBROUTINE xios(is_defined_domain_attr_hdl) 
    … …  
    760778    ( domain_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    761779    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
    762     , domain_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_, long_name_  & 
    763     , lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_  & 
    764     , standard_name_, type_ ) 
     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_ ) 
    765783 
    766784    IMPLICIT NONE 
    … …  
    794812      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 
    795813      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 
     814      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src_ 
     815      LOGICAL(KIND=C_BOOL) :: domain_src__tmp 
    796816      LOGICAL, OPTIONAL, INTENT(OUT) :: i_index_ 
    797817      LOGICAL(KIND=C_BOOL) :: i_index__tmp 
    … …  
    903923      ENDIF 
    904924 
     925      IF (PRESENT(domain_src_)) THEN 
     926        domain_src__tmp = cxios_is_defined_domain_domain_src(domain_hdl%daddr) 
     927        domain_src_ = domain_src__tmp 
     928      ENDIF 
     929 
    905930      IF (PRESENT(i_index_)) THEN 
    906931        i_index__tmp = cxios_is_defined_domain_i_index(domain_hdl%daddr) 

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

    r674 r690  
    1414    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    1515    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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     ) 
     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 ) 
    1919 
    2020    IMPLICIT NONE 
    … …  
    3535      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    3636      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 
     37      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src 
    3738      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
    3839      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:) 
    … …  
    6263      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    6364      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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       ) 
     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 ) 
    6768 
    6869  END SUBROUTINE xios(set_domaingroup_attr) 
    … …  
    7172    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    7273    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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     ) 
     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 ) 
    7677 
    7778    IMPLICIT NONE 
    … …  
    9192      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref 
    9293      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref 
     94      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src 
    9395      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref 
    9496      INTEGER  , OPTIONAL, INTENT(IN) :: i_index(:) 
    … …  
    117119      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    118120      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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       ) 
     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 ) 
    122124 
    123125  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    … …  
    126128    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    127129    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
    128     , domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
     130    , domain_ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
    129131    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    130132    , nvertex_, standard_name_, type_ ) 
    … …  
    146148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_group_ref_ 
    147149      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_ref_ 
     150      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: domain_src_ 
    148151      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: group_ref_ 
    149152      INTEGER  , OPTIONAL, INTENT(IN) :: i_index_(:) 
    … …  
    225228      ENDIF 
    226229 
     230      IF (PRESENT(domain_src_)) THEN 
     231        CALL cxios_set_domaingroup_domain_src(domaingroup_hdl%daddr, domain_src_, len(domain_src_)) 
     232      ENDIF 
     233 
    227234      IF (PRESENT(group_ref_)) THEN 
    228235        CALL cxios_set_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 
    … …  
    314321    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    315322    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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     ) 
     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 ) 
    319326 
    320327    IMPLICIT NONE 
    … …  
    335342      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    336343      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 
     344      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src 
    337345      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
    338346      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:) 
    … …  
    362370      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    363371      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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       ) 
     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 ) 
    367375 
    368376  END SUBROUTINE xios(get_domaingroup_attr) 
    … …  
    371379    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    372380    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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     ) 
     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 ) 
    376384 
    377385    IMPLICIT NONE 
    … …  
    391399      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref 
    392400      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref 
     401      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src 
    393402      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref 
    394403      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index(:) 
    … …  
    417426      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    418427      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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       ) 
     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 ) 
    422431 
    423432  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
    … …  
    426435    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    427436    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
    428     , domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
     437    , domain_ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
    429438    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    430439    , nvertex_, standard_name_, type_ ) 
    … …  
    446455      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_group_ref_ 
    447456      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_ref_ 
     457      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: domain_src_ 
    448458      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: group_ref_ 
    449459      INTEGER  , OPTIONAL, INTENT(OUT) :: i_index_(:) 
    … …  
    525535      ENDIF 
    526536 
     537      IF (PRESENT(domain_src_)) THEN 
     538        CALL cxios_get_domaingroup_domain_src(domaingroup_hdl%daddr, domain_src_, len(domain_src_)) 
     539      ENDIF 
     540 
    527541      IF (PRESENT(group_ref_)) THEN 
    528542        CALL cxios_get_domaingroup_group_ref(domaingroup_hdl%daddr, group_ref_, len(group_ref_)) 
    … …  
    614628    ( domaingroup_id, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    615629    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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     ) 
     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 ) 
    619633 
    620634    IMPLICIT NONE 
    … …  
    649663      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 
    650664      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 
     665      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src 
     666      LOGICAL(KIND=C_BOOL) :: domain_src_tmp 
    651667      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    652668      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
    … …  
    694710      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    695711      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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       ) 
     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 ) 
    699715 
    700716  END SUBROUTINE xios(is_defined_domaingroup_attr) 
    … …  
    703719    ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    704720    , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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     ) 
     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 ) 
    708724 
    709725    IMPLICIT NONE 
    … …  
    737753      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref 
    738754      LOGICAL(KIND=C_BOOL) :: domain_ref_tmp 
     755      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src 
     756      LOGICAL(KIND=C_BOOL) :: domain_src_tmp 
    739757      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref 
    740758      LOGICAL(KIND=C_BOOL) :: group_ref_tmp 
    … …  
    781799      ( domaingroup_hdl, area, bounds_lat_1d, bounds_lat_2d, bounds_lon_1d, bounds_lon_2d, data_dim  & 
    782800      , data_i_index, data_ibegin, data_j_index, data_jbegin, data_ni, data_nj, domain_group_ref, domain_ref  & 
    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       ) 
     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 ) 
    786804 
    787805  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
    … …  
    790808    ( domaingroup_hdl, area_, bounds_lat_1d_, bounds_lat_2d_, bounds_lon_1d_, bounds_lon_2d_, data_dim_  & 
    791809    , data_i_index_, data_ibegin_, data_j_index_, data_jbegin_, data_ni_, data_nj_, domain_group_ref_  & 
    792     , domain_ref_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
     810    , domain_ref_, domain_src_, group_ref_, i_index_, ibegin_, j_index_, jbegin_, latvalue_1d_, latvalue_2d_  & 
    793811    , long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_  & 
    794812    , nvertex_, standard_name_, type_ ) 
    … …  
    824842      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_ref_ 
    825843      LOGICAL(KIND=C_BOOL) :: domain_ref__tmp 
     844      LOGICAL, OPTIONAL, INTENT(OUT) :: domain_src_ 
     845      LOGICAL(KIND=C_BOOL) :: domain_src__tmp 
    826846      LOGICAL, OPTIONAL, INTENT(OUT) :: group_ref_ 
    827847      LOGICAL(KIND=C_BOOL) :: group_ref__tmp 
    … …  
    935955      ENDIF 
    936956 
     957      IF (PRESENT(domain_src_)) THEN 
     958        domain_src__tmp = cxios_is_defined_domaingroup_domain_src(domaingroup_hdl%daddr) 
     959        domain_src_ = domain_src__tmp 
     960      ENDIF 
     961 
    937962      IF (PRESENT(group_ref_)) THEN 
    938963        group_ref__tmp = cxios_is_defined_domaingroup_group_ref(domaingroup_hdl%daddr) 
Note: See TracChangeset for help on using the changeset viewer.