Changeset 1965


Ignore:
Timestamp:
10/28/20 16:14:52 (3 years ago)
Author:
oabramkina
Message:

dev_oa: adding two more tile attribures

Location:
XIOS/dev/dev_oa/src
Files:
7 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_oa/src/config/domain_attribute.conf

    r1952 r1965  
    7272DECLARE_ARRAY(int, 1, tile_data_ibegin, false) 
    7373DECLARE_ARRAY(int, 1, tile_data_jbegin, false) 
     74DECLARE_ARRAY(int, 1, tile_data_ni, false) 
     75DECLARE_ARRAY(int, 1, tile_data_nj, false) 

  • XIOS/dev/dev_oa/src/interface/c_attr/icdomain_attr.cpp

    r1952 r1965  
    10731073 
    10741074 
     1075  void cxios_set_domain_tile_data_ni(domain_Ptr domain_hdl, int* tile_data_ni, int* extent) 
     1076  { 
     1077    CTimer::get("XIOS").resume(); 
     1078    CArray<int,1> tmp(tile_data_ni, shape(extent[0]), neverDeleteData); 
     1079    domain_hdl->tile_data_ni.reference(tmp.copy()); 
     1080     CTimer::get("XIOS").suspend(); 
     1081  } 
     1082 
     1083  void cxios_get_domain_tile_data_ni(domain_Ptr domain_hdl, int* tile_data_ni, int* extent) 
     1084  { 
     1085    CTimer::get("XIOS").resume(); 
     1086    CArray<int,1> tmp(tile_data_ni, shape(extent[0]), neverDeleteData); 
     1087    tmp=domain_hdl->tile_data_ni.getInheritedValue(); 
     1088     CTimer::get("XIOS").suspend(); 
     1089  } 
     1090 
     1091  bool cxios_is_defined_domain_tile_data_ni(domain_Ptr domain_hdl) 
     1092  { 
     1093     CTimer::get("XIOS").resume(); 
     1094     bool isDefined = domain_hdl->tile_data_ni.hasInheritedValue(); 
     1095     CTimer::get("XIOS").suspend(); 
     1096     return isDefined; 
     1097  } 
     1098 
     1099 
     1100  void cxios_set_domain_tile_data_nj(domain_Ptr domain_hdl, int* tile_data_nj, int* extent) 
     1101  { 
     1102    CTimer::get("XIOS").resume(); 
     1103    CArray<int,1> tmp(tile_data_nj, shape(extent[0]), neverDeleteData); 
     1104    domain_hdl->tile_data_nj.reference(tmp.copy()); 
     1105     CTimer::get("XIOS").suspend(); 
     1106  } 
     1107 
     1108  void cxios_get_domain_tile_data_nj(domain_Ptr domain_hdl, int* tile_data_nj, int* extent) 
     1109  { 
     1110    CTimer::get("XIOS").resume(); 
     1111    CArray<int,1> tmp(tile_data_nj, shape(extent[0]), neverDeleteData); 
     1112    tmp=domain_hdl->tile_data_nj.getInheritedValue(); 
     1113     CTimer::get("XIOS").suspend(); 
     1114  } 
     1115 
     1116  bool cxios_is_defined_domain_tile_data_nj(domain_Ptr domain_hdl) 
     1117  { 
     1118     CTimer::get("XIOS").resume(); 
     1119     bool isDefined = domain_hdl->tile_data_nj.hasInheritedValue(); 
     1120     CTimer::get("XIOS").suspend(); 
     1121     return isDefined; 
     1122  } 
     1123 
     1124 
    10751125  void cxios_set_domain_tile_ibegin(domain_Ptr domain_hdl, int* tile_ibegin, int* extent) 
    10761126  { 

  • XIOS/dev/dev_oa/src/interface/c_attr/icdomaingroup_attr.cpp

    r1952 r1965  
    10991099 
    11001100 
     1101  void cxios_set_domaingroup_tile_data_ni(domaingroup_Ptr domaingroup_hdl, int* tile_data_ni, int* extent) 
     1102  { 
     1103    CTimer::get("XIOS").resume(); 
     1104    CArray<int,1> tmp(tile_data_ni, shape(extent[0]), neverDeleteData); 
     1105    domaingroup_hdl->tile_data_ni.reference(tmp.copy()); 
     1106     CTimer::get("XIOS").suspend(); 
     1107  } 
     1108 
     1109  void cxios_get_domaingroup_tile_data_ni(domaingroup_Ptr domaingroup_hdl, int* tile_data_ni, int* extent) 
     1110  { 
     1111    CTimer::get("XIOS").resume(); 
     1112    CArray<int,1> tmp(tile_data_ni, shape(extent[0]), neverDeleteData); 
     1113    tmp=domaingroup_hdl->tile_data_ni.getInheritedValue(); 
     1114     CTimer::get("XIOS").suspend(); 
     1115  } 
     1116 
     1117  bool cxios_is_defined_domaingroup_tile_data_ni(domaingroup_Ptr domaingroup_hdl) 
     1118  { 
     1119     CTimer::get("XIOS").resume(); 
     1120     bool isDefined = domaingroup_hdl->tile_data_ni.hasInheritedValue(); 
     1121     CTimer::get("XIOS").suspend(); 
     1122     return isDefined; 
     1123  } 
     1124 
     1125 
     1126  void cxios_set_domaingroup_tile_data_nj(domaingroup_Ptr domaingroup_hdl, int* tile_data_nj, int* extent) 
     1127  { 
     1128    CTimer::get("XIOS").resume(); 
     1129    CArray<int,1> tmp(tile_data_nj, shape(extent[0]), neverDeleteData); 
     1130    domaingroup_hdl->tile_data_nj.reference(tmp.copy()); 
     1131     CTimer::get("XIOS").suspend(); 
     1132  } 
     1133 
     1134  void cxios_get_domaingroup_tile_data_nj(domaingroup_Ptr domaingroup_hdl, int* tile_data_nj, int* extent) 
     1135  { 
     1136    CTimer::get("XIOS").resume(); 
     1137    CArray<int,1> tmp(tile_data_nj, shape(extent[0]), neverDeleteData); 
     1138    tmp=domaingroup_hdl->tile_data_nj.getInheritedValue(); 
     1139     CTimer::get("XIOS").suspend(); 
     1140  } 
     1141 
     1142  bool cxios_is_defined_domaingroup_tile_data_nj(domaingroup_Ptr domaingroup_hdl) 
     1143  { 
     1144     CTimer::get("XIOS").resume(); 
     1145     bool isDefined = domaingroup_hdl->tile_data_nj.hasInheritedValue(); 
     1146     CTimer::get("XIOS").suspend(); 
     1147     return isDefined; 
     1148  } 
     1149 
     1150 
    11011151  void cxios_set_domaingroup_tile_ibegin(domaingroup_Ptr domaingroup_hdl, int* tile_ibegin, int* extent) 
    11021152  { 

  • XIOS/dev/dev_oa/src/interface/fortran_attr/domain_interface_attr.F90

    r1952 r1965  
    883883 
    884884 
     885    SUBROUTINE cxios_set_domain_tile_data_ni(domain_hdl, tile_data_ni, extent) BIND(C) 
     886      USE ISO_C_BINDING 
     887      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     888      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ni 
     889      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     890    END SUBROUTINE cxios_set_domain_tile_data_ni 
     891 
     892    SUBROUTINE cxios_get_domain_tile_data_ni(domain_hdl, tile_data_ni, extent) BIND(C) 
     893      USE ISO_C_BINDING 
     894      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     895      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ni 
     896      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     897    END SUBROUTINE cxios_get_domain_tile_data_ni 
     898 
     899    FUNCTION cxios_is_defined_domain_tile_data_ni(domain_hdl) BIND(C) 
     900      USE ISO_C_BINDING 
     901      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_ni 
     902      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     903    END FUNCTION cxios_is_defined_domain_tile_data_ni 
     904 
     905 
     906    SUBROUTINE cxios_set_domain_tile_data_nj(domain_hdl, tile_data_nj, extent) BIND(C) 
     907      USE ISO_C_BINDING 
     908      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     909      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_nj 
     910      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     911    END SUBROUTINE cxios_set_domain_tile_data_nj 
     912 
     913    SUBROUTINE cxios_get_domain_tile_data_nj(domain_hdl, tile_data_nj, extent) BIND(C) 
     914      USE ISO_C_BINDING 
     915      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     916      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_nj 
     917      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     918    END SUBROUTINE cxios_get_domain_tile_data_nj 
     919 
     920    FUNCTION cxios_is_defined_domain_tile_data_nj(domain_hdl) BIND(C) 
     921      USE ISO_C_BINDING 
     922      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_nj 
     923      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     924    END FUNCTION cxios_is_defined_domain_tile_data_nj 
     925 
     926 
    885927    SUBROUTINE cxios_set_domain_tile_ibegin(domain_hdl, tile_ibegin, extent) BIND(C) 
    886928      USE ISO_C_BINDING 

  • XIOS/dev/dev_oa/src/interface/fortran_attr/domaingroup_interface_attr.F90

    r1952 r1965  
    904904 
    905905 
     906    SUBROUTINE cxios_set_domaingroup_tile_data_ni(domaingroup_hdl, tile_data_ni, extent) BIND(C) 
     907      USE ISO_C_BINDING 
     908      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     909      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ni 
     910      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     911    END SUBROUTINE cxios_set_domaingroup_tile_data_ni 
     912 
     913    SUBROUTINE cxios_get_domaingroup_tile_data_ni(domaingroup_hdl, tile_data_ni, extent) BIND(C) 
     914      USE ISO_C_BINDING 
     915      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     916      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ni 
     917      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     918    END SUBROUTINE cxios_get_domaingroup_tile_data_ni 
     919 
     920    FUNCTION cxios_is_defined_domaingroup_tile_data_ni(domaingroup_hdl) BIND(C) 
     921      USE ISO_C_BINDING 
     922      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_ni 
     923      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     924    END FUNCTION cxios_is_defined_domaingroup_tile_data_ni 
     925 
     926 
     927    SUBROUTINE cxios_set_domaingroup_tile_data_nj(domaingroup_hdl, tile_data_nj, extent) BIND(C) 
     928      USE ISO_C_BINDING 
     929      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     930      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_nj 
     931      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     932    END SUBROUTINE cxios_set_domaingroup_tile_data_nj 
     933 
     934    SUBROUTINE cxios_get_domaingroup_tile_data_nj(domaingroup_hdl, tile_data_nj, extent) BIND(C) 
     935      USE ISO_C_BINDING 
     936      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     937      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_nj 
     938      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     939    END SUBROUTINE cxios_get_domaingroup_tile_data_nj 
     940 
     941    FUNCTION cxios_is_defined_domaingroup_tile_data_nj(domaingroup_hdl) BIND(C) 
     942      USE ISO_C_BINDING 
     943      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_nj 
     944      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     945    END FUNCTION cxios_is_defined_domaingroup_tile_data_nj 
     946 
     947 
    906948    SUBROUTINE cxios_set_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 
    907949      USE ISO_C_BINDING 

  • XIOS/dev/dev_oa/src/interface/fortran_attr/idomain_attr.F90

    r1952 r1965  
    1717    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    1818    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    19     , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     19    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    2020 
    2121    IMPLICIT NONE 
    … …  
    6767      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
    6868      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     69      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 
     70      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 
    6971      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
    7072      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
    … …  
    8183      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    8284      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    83       , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     85      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    8486 
    8587  END SUBROUTINE xios(set_domain_attr) 
    … …  
    9193    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    9294    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    93     , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     95    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    9496 
    9597    IMPLICIT NONE 
    … …  
    140142      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
    141143      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     144      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 
     145      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 
    142146      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
    143147      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
    … …  
    152156      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    153157      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    154       , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     158      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    155159 
    156160  END SUBROUTINE xios(set_domain_attr_hdl) 
    … …  
    162166    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    163167    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
    164     , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  & 
    165     ) 
     168    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     169    , tile_ni_, tile_nj_, type_ ) 
    166170 
    167171    IMPLICIT NONE 
    … …  
    212216      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 
    213217      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 
     218      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni_(:) 
     219      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj_(:) 
    214220      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 
    215221      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) 
    … …  
    435441        CALL cxios_set_domain_tile_data_jbegin & 
    436442      (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     443      ENDIF 
     444 
     445      IF (PRESENT(tile_data_ni_)) THEN 
     446        CALL cxios_set_domain_tile_data_ni & 
     447      (domain_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 
     448      ENDIF 
     449 
     450      IF (PRESENT(tile_data_nj_)) THEN 
     451        CALL cxios_set_domain_tile_data_nj & 
     452      (domain_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 
    437453      ENDIF 
    438454 
    … …  
    470486    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    471487    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    472     , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     488    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    473489 
    474490    IMPLICIT NONE 
    … …  
    520536      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
    521537      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     538      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 
     539      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 
    522540      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
    523541      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
    … …  
    534552      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    535553      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    536       , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     554      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    537555 
    538556  END SUBROUTINE xios(get_domain_attr) 
    … …  
    544562    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    545563    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    546     , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     564    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    547565 
    548566    IMPLICIT NONE 
    … …  
    593611      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
    594612      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     613      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 
     614      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 
    595615      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
    596616      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
    … …  
    605625      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    606626      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    607       , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     627      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    608628 
    609629  END SUBROUTINE xios(get_domain_attr_hdl) 
    … …  
    615635    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    616636    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
    617     , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  & 
    618     ) 
     637    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     638    , tile_ni_, tile_nj_, type_ ) 
    619639 
    620640    IMPLICIT NONE 
    … …  
    665685      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 
    666686      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 
     687      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni_(:) 
     688      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj_(:) 
    667689      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 
    668690      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) 
    … …  
    888910        CALL cxios_get_domain_tile_data_jbegin & 
    889911      (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     912      ENDIF 
     913 
     914      IF (PRESENT(tile_data_ni_)) THEN 
     915        CALL cxios_get_domain_tile_data_ni & 
     916      (domain_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 
     917      ENDIF 
     918 
     919      IF (PRESENT(tile_data_nj_)) THEN 
     920        CALL cxios_get_domain_tile_data_nj & 
     921      (domain_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 
    890922      ENDIF 
    891923 
    … …  
    923955    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    924956    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    925     , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     957    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    926958 
    927959    IMPLICIT NONE 
    … …  
    10141046      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
    10151047      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1048      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 
     1049      LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 
     1050      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 
     1051      LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 
    10161052      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
    10171053      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
    … …  
    10331069      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    10341070      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    1035       , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     1071      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    10361072 
    10371073  END SUBROUTINE xios(is_defined_domain_attr) 
    … …  
    10431079    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    10441080    , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    1045     , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     1081    , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    10461082 
    10471083    IMPLICIT NONE 
    … …  
    11331169      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
    11341170      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1171      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 
     1172      LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 
     1173      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 
     1174      LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 
    11351175      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
    11361176      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
    … …  
    11501190      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    11511191      , nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin, tile_data_jbegin  & 
    1152       , tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     1192      , tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
    11531193 
    11541194  END SUBROUTINE xios(is_defined_domain_attr_hdl) 
    … …  
    11601200    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    11611201    , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
    1162     , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  & 
    1163     ) 
     1202    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     1203    , tile_ni_, tile_nj_, type_ ) 
    11641204 
    11651205    IMPLICIT NONE 
    … …  
    12511291      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 
    12521292      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 
     1293      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni_ 
     1294      LOGICAL(KIND=C_BOOL) :: tile_data_ni__tmp 
     1295      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj_ 
     1296      LOGICAL(KIND=C_BOOL) :: tile_data_nj__tmp 
    12531297      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 
    12541298      LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp 
    … …  
    15201564      ENDIF 
    15211565 
     1566      IF (PRESENT(tile_data_ni_)) THEN 
     1567        tile_data_ni__tmp = cxios_is_defined_domain_tile_data_ni & 
     1568      (domain_hdl%daddr) 
     1569        tile_data_ni_ = tile_data_ni__tmp 
     1570      ENDIF 
     1571 
     1572      IF (PRESENT(tile_data_nj_)) THEN 
     1573        tile_data_nj__tmp = cxios_is_defined_domain_tile_data_nj & 
     1574      (domain_hdl%daddr) 
     1575        tile_data_nj_ = tile_data_nj__tmp 
     1576      ENDIF 
     1577 
    15221578      IF (PRESENT(tile_ibegin_)) THEN 
    15231579        tile_ibegin__tmp = cxios_is_defined_domain_tile_ibegin & 

  • XIOS/dev/dev_oa/src/interface/fortran_attr/idomaingroup_attr.F90

    r1952 r1965  
    1717    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    1818    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    19     , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     19    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     20     ) 
    2021 
    2122    IMPLICIT NONE 
    … …  
    6869      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
    6970      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     71      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 
     72      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 
    7073      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
    7174      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
    … …  
    8285      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    8386      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    84       , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     87      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     88       ) 
    8589 
    8690  END SUBROUTINE xios(set_domaingroup_attr) 
    … …  
    9296    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    9397    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    94     , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     98    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     99     ) 
    95100 
    96101    IMPLICIT NONE 
    … …  
    142147      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
    143148      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     149      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni(:) 
     150      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj(:) 
    144151      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
    145152      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
    … …  
    154161      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    155162      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    156       , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     163      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     164       ) 
    157165 
    158166  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    … …  
    164172    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    165173    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
    166     , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  & 
    167     ) 
     174    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     175    , tile_ni_, tile_nj_, type_ ) 
    168176 
    169177    IMPLICIT NONE 
    … …  
    215223      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 
    216224      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 
     225      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ni_(:) 
     226      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_nj_(:) 
    217227      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 
    218228      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) 
    … …  
    443453        CALL cxios_set_domaingroup_tile_data_jbegin & 
    444454      (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     455      ENDIF 
     456 
     457      IF (PRESENT(tile_data_ni_)) THEN 
     458        CALL cxios_set_domaingroup_tile_data_ni & 
     459      (domaingroup_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 
     460      ENDIF 
     461 
     462      IF (PRESENT(tile_data_nj_)) THEN 
     463        CALL cxios_set_domaingroup_tile_data_nj & 
     464      (domaingroup_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 
    445465      ENDIF 
    446466 
    … …  
    478498    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    479499    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    480     , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     500    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     501     ) 
    481502 
    482503    IMPLICIT NONE 
    … …  
    529550      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
    530551      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     552      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 
     553      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 
    531554      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
    532555      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
    … …  
    543566      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    544567      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    545       , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     568      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     569       ) 
    546570 
    547571  END SUBROUTINE xios(get_domaingroup_attr) 
    … …  
    553577    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    554578    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    555     , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     579    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     580     ) 
    556581 
    557582    IMPLICIT NONE 
    … …  
    603628      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
    604629      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     630      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni(:) 
     631      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj(:) 
    605632      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
    606633      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
    … …  
    615642      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    616643      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    617       , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     644      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     645       ) 
    618646 
    619647  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
    … …  
    625653    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    626654    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
    627     , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  & 
    628     ) 
     655    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     656    , tile_ni_, tile_nj_, type_ ) 
    629657 
    630658    IMPLICIT NONE 
    … …  
    676704      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 
    677705      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 
     706      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ni_(:) 
     707      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_nj_(:) 
    678708      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 
    679709      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) 
    … …  
    904934        CALL cxios_get_domaingroup_tile_data_jbegin & 
    905935      (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     936      ENDIF 
     937 
     938      IF (PRESENT(tile_data_ni_)) THEN 
     939        CALL cxios_get_domaingroup_tile_data_ni & 
     940      (domaingroup_hdl%daddr, tile_data_ni_, SHAPE(tile_data_ni_)) 
     941      ENDIF 
     942 
     943      IF (PRESENT(tile_data_nj_)) THEN 
     944        CALL cxios_get_domaingroup_tile_data_nj & 
     945      (domaingroup_hdl%daddr, tile_data_nj_, SHAPE(tile_data_nj_)) 
    906946      ENDIF 
    907947 
    … …  
    939979    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    940980    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    941     , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     981    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     982     ) 
    942983 
    943984    IMPLICIT NONE 
    … …  
    10321073      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
    10331074      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1075      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 
     1076      LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 
     1077      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 
     1078      LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 
    10341079      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
    10351080      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
    … …  
    10511096      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    10521097      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    1053       , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     1098      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     1099       ) 
    10541100 
    10551101  END SUBROUTINE xios(is_defined_domaingroup_attr) 
    … …  
    10611107    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    10621108    , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    1063     , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     1109    , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     1110     ) 
    10641111 
    10651112    IMPLICIT NONE 
    … …  
    11531200      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
    11541201      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1202      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni 
     1203      LOGICAL(KIND=C_BOOL) :: tile_data_ni_tmp 
     1204      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj 
     1205      LOGICAL(KIND=C_BOOL) :: tile_data_nj_tmp 
    11551206      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
    11561207      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
    … …  
    11701221      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    11711222      , name, ni, ni_glo, nj, nj_glo, ntiles, nvertex, prec, radius, standard_name, tile_data_ibegin  & 
    1172       , tile_data_jbegin, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type ) 
     1223      , tile_data_jbegin, tile_data_ni, tile_data_nj, tile_ibegin, tile_jbegin, tile_ni, tile_nj, type  & 
     1224       ) 
    11731225 
    11741226  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
    … …  
    11801232    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    11811233    , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, ntiles_, nvertex_, prec_, radius_, standard_name_  & 
    1182     , tile_data_ibegin_, tile_data_jbegin_, tile_ibegin_, tile_jbegin_, tile_ni_, tile_nj_, type_  & 
    1183     ) 
     1234    , tile_data_ibegin_, tile_data_jbegin_, tile_data_ni_, tile_data_nj_, tile_ibegin_, tile_jbegin_  & 
     1235    , tile_ni_, tile_nj_, type_ ) 
    11841236 
    11851237    IMPLICIT NONE 
    … …  
    12731325      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 
    12741326      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 
     1327      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ni_ 
     1328      LOGICAL(KIND=C_BOOL) :: tile_data_ni__tmp 
     1329      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_nj_ 
     1330      LOGICAL(KIND=C_BOOL) :: tile_data_nj__tmp 
    12751331      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 
    12761332      LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp 
    … …  
    15481604      ENDIF 
    15491605 
     1606      IF (PRESENT(tile_data_ni_)) THEN 
     1607        tile_data_ni__tmp = cxios_is_defined_domaingroup_tile_data_ni & 
     1608      (domaingroup_hdl%daddr) 
     1609        tile_data_ni_ = tile_data_ni__tmp 
     1610      ENDIF 
     1611 
     1612      IF (PRESENT(tile_data_nj_)) THEN 
     1613        tile_data_nj__tmp = cxios_is_defined_domaingroup_tile_data_nj & 
     1614      (domaingroup_hdl%daddr) 
     1615        tile_data_nj_ = tile_data_nj__tmp 
     1616      ENDIF 
     1617 
    15501618      IF (PRESENT(tile_ibegin_)) THEN 
    15511619        tile_ibegin__tmp = cxios_is_defined_domaingroup_tile_ibegin & 
Note: See TracChangeset for help on using the changeset viewer.