Changeset 1952


Ignore:
Timestamp:
10/08/20 10:53:18 (4 years ago)
Author:
oabramkina
Message:

Adding tile attributes.

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

Legend:

Unmodified
Added
Removed

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

    r1615 r1952  
    6363DECLARE_ATTRIBUTE(StdString, domain_ref) 
    6464DECLARE_ATTRIBUTE(int,       prec) 
     65 
     66/* LOCAL */ 
     67DECLARE_ATTRIBUTE(int, ntiles, false) 
     68DECLARE_ARRAY(int, 1, tile_ni, false) 
     69DECLARE_ARRAY(int, 1, tile_nj, false) 
     70DECLARE_ARRAY(int, 1, tile_ibegin, false) 
     71DECLARE_ARRAY(int, 1, tile_jbegin, false) 
     72DECLARE_ARRAY(int, 1, tile_data_ibegin, false) 
     73DECLARE_ARRAY(int, 1, tile_data_jbegin, false) 

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

    r1626 r1952  
    905905 
    906906 
     907  void cxios_set_domain_ntiles(domain_Ptr domain_hdl, int ntiles) 
     908  { 
     909    CTimer::get("XIOS").resume(); 
     910    domain_hdl->ntiles.setValue(ntiles); 
     911    CTimer::get("XIOS").suspend(); 
     912  } 
     913 
     914  void cxios_get_domain_ntiles(domain_Ptr domain_hdl, int* ntiles) 
     915  { 
     916    CTimer::get("XIOS").resume(); 
     917    *ntiles = domain_hdl->ntiles.getInheritedValue(); 
     918    CTimer::get("XIOS").suspend(); 
     919  } 
     920 
     921  bool cxios_is_defined_domain_ntiles(domain_Ptr domain_hdl) 
     922  { 
     923     CTimer::get("XIOS").resume(); 
     924     bool isDefined = domain_hdl->ntiles.hasInheritedValue(); 
     925     CTimer::get("XIOS").suspend(); 
     926     return isDefined; 
     927  } 
     928 
     929 
    907930  void cxios_set_domain_nvertex(domain_Ptr domain_hdl, int nvertex) 
    908931  { 
    … …  
    10001023 
    10011024 
     1025  void cxios_set_domain_tile_data_ibegin(domain_Ptr domain_hdl, int* tile_data_ibegin, int* extent) 
     1026  { 
     1027    CTimer::get("XIOS").resume(); 
     1028    CArray<int,1> tmp(tile_data_ibegin, shape(extent[0]), neverDeleteData); 
     1029    domain_hdl->tile_data_ibegin.reference(tmp.copy()); 
     1030     CTimer::get("XIOS").suspend(); 
     1031  } 
     1032 
     1033  void cxios_get_domain_tile_data_ibegin(domain_Ptr domain_hdl, int* tile_data_ibegin, int* extent) 
     1034  { 
     1035    CTimer::get("XIOS").resume(); 
     1036    CArray<int,1> tmp(tile_data_ibegin, shape(extent[0]), neverDeleteData); 
     1037    tmp=domain_hdl->tile_data_ibegin.getInheritedValue(); 
     1038     CTimer::get("XIOS").suspend(); 
     1039  } 
     1040 
     1041  bool cxios_is_defined_domain_tile_data_ibegin(domain_Ptr domain_hdl) 
     1042  { 
     1043     CTimer::get("XIOS").resume(); 
     1044     bool isDefined = domain_hdl->tile_data_ibegin.hasInheritedValue(); 
     1045     CTimer::get("XIOS").suspend(); 
     1046     return isDefined; 
     1047  } 
     1048 
     1049 
     1050  void cxios_set_domain_tile_data_jbegin(domain_Ptr domain_hdl, int* tile_data_jbegin, int* extent) 
     1051  { 
     1052    CTimer::get("XIOS").resume(); 
     1053    CArray<int,1> tmp(tile_data_jbegin, shape(extent[0]), neverDeleteData); 
     1054    domain_hdl->tile_data_jbegin.reference(tmp.copy()); 
     1055     CTimer::get("XIOS").suspend(); 
     1056  } 
     1057 
     1058  void cxios_get_domain_tile_data_jbegin(domain_Ptr domain_hdl, int* tile_data_jbegin, int* extent) 
     1059  { 
     1060    CTimer::get("XIOS").resume(); 
     1061    CArray<int,1> tmp(tile_data_jbegin, shape(extent[0]), neverDeleteData); 
     1062    tmp=domain_hdl->tile_data_jbegin.getInheritedValue(); 
     1063     CTimer::get("XIOS").suspend(); 
     1064  } 
     1065 
     1066  bool cxios_is_defined_domain_tile_data_jbegin(domain_Ptr domain_hdl) 
     1067  { 
     1068     CTimer::get("XIOS").resume(); 
     1069     bool isDefined = domain_hdl->tile_data_jbegin.hasInheritedValue(); 
     1070     CTimer::get("XIOS").suspend(); 
     1071     return isDefined; 
     1072  } 
     1073 
     1074 
     1075  void cxios_set_domain_tile_ibegin(domain_Ptr domain_hdl, int* tile_ibegin, int* extent) 
     1076  { 
     1077    CTimer::get("XIOS").resume(); 
     1078    CArray<int,1> tmp(tile_ibegin, shape(extent[0]), neverDeleteData); 
     1079    domain_hdl->tile_ibegin.reference(tmp.copy()); 
     1080     CTimer::get("XIOS").suspend(); 
     1081  } 
     1082 
     1083  void cxios_get_domain_tile_ibegin(domain_Ptr domain_hdl, int* tile_ibegin, int* extent) 
     1084  { 
     1085    CTimer::get("XIOS").resume(); 
     1086    CArray<int,1> tmp(tile_ibegin, shape(extent[0]), neverDeleteData); 
     1087    tmp=domain_hdl->tile_ibegin.getInheritedValue(); 
     1088     CTimer::get("XIOS").suspend(); 
     1089  } 
     1090 
     1091  bool cxios_is_defined_domain_tile_ibegin(domain_Ptr domain_hdl) 
     1092  { 
     1093     CTimer::get("XIOS").resume(); 
     1094     bool isDefined = domain_hdl->tile_ibegin.hasInheritedValue(); 
     1095     CTimer::get("XIOS").suspend(); 
     1096     return isDefined; 
     1097  } 
     1098 
     1099 
     1100  void cxios_set_domain_tile_jbegin(domain_Ptr domain_hdl, int* tile_jbegin, int* extent) 
     1101  { 
     1102    CTimer::get("XIOS").resume(); 
     1103    CArray<int,1> tmp(tile_jbegin, shape(extent[0]), neverDeleteData); 
     1104    domain_hdl->tile_jbegin.reference(tmp.copy()); 
     1105     CTimer::get("XIOS").suspend(); 
     1106  } 
     1107 
     1108  void cxios_get_domain_tile_jbegin(domain_Ptr domain_hdl, int* tile_jbegin, int* extent) 
     1109  { 
     1110    CTimer::get("XIOS").resume(); 
     1111    CArray<int,1> tmp(tile_jbegin, shape(extent[0]), neverDeleteData); 
     1112    tmp=domain_hdl->tile_jbegin.getInheritedValue(); 
     1113     CTimer::get("XIOS").suspend(); 
     1114  } 
     1115 
     1116  bool cxios_is_defined_domain_tile_jbegin(domain_Ptr domain_hdl) 
     1117  { 
     1118     CTimer::get("XIOS").resume(); 
     1119     bool isDefined = domain_hdl->tile_jbegin.hasInheritedValue(); 
     1120     CTimer::get("XIOS").suspend(); 
     1121     return isDefined; 
     1122  } 
     1123 
     1124 
     1125  void cxios_set_domain_tile_ni(domain_Ptr domain_hdl, int* tile_ni, int* extent) 
     1126  { 
     1127    CTimer::get("XIOS").resume(); 
     1128    CArray<int,1> tmp(tile_ni, shape(extent[0]), neverDeleteData); 
     1129    domain_hdl->tile_ni.reference(tmp.copy()); 
     1130     CTimer::get("XIOS").suspend(); 
     1131  } 
     1132 
     1133  void cxios_get_domain_tile_ni(domain_Ptr domain_hdl, int* tile_ni, int* extent) 
     1134  { 
     1135    CTimer::get("XIOS").resume(); 
     1136    CArray<int,1> tmp(tile_ni, shape(extent[0]), neverDeleteData); 
     1137    tmp=domain_hdl->tile_ni.getInheritedValue(); 
     1138     CTimer::get("XIOS").suspend(); 
     1139  } 
     1140 
     1141  bool cxios_is_defined_domain_tile_ni(domain_Ptr domain_hdl) 
     1142  { 
     1143     CTimer::get("XIOS").resume(); 
     1144     bool isDefined = domain_hdl->tile_ni.hasInheritedValue(); 
     1145     CTimer::get("XIOS").suspend(); 
     1146     return isDefined; 
     1147  } 
     1148 
     1149 
     1150  void cxios_set_domain_tile_nj(domain_Ptr domain_hdl, int* tile_nj, int* extent) 
     1151  { 
     1152    CTimer::get("XIOS").resume(); 
     1153    CArray<int,1> tmp(tile_nj, shape(extent[0]), neverDeleteData); 
     1154    domain_hdl->tile_nj.reference(tmp.copy()); 
     1155     CTimer::get("XIOS").suspend(); 
     1156  } 
     1157 
     1158  void cxios_get_domain_tile_nj(domain_Ptr domain_hdl, int* tile_nj, int* extent) 
     1159  { 
     1160    CTimer::get("XIOS").resume(); 
     1161    CArray<int,1> tmp(tile_nj, shape(extent[0]), neverDeleteData); 
     1162    tmp=domain_hdl->tile_nj.getInheritedValue(); 
     1163     CTimer::get("XIOS").suspend(); 
     1164  } 
     1165 
     1166  bool cxios_is_defined_domain_tile_nj(domain_Ptr domain_hdl) 
     1167  { 
     1168     CTimer::get("XIOS").resume(); 
     1169     bool isDefined = domain_hdl->tile_nj.hasInheritedValue(); 
     1170     CTimer::get("XIOS").suspend(); 
     1171     return isDefined; 
     1172  } 
     1173 
     1174 
    10021175  void cxios_set_domain_type(domain_Ptr domain_hdl, const char * type, int type_size) 
    10031176  { 

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

    r1626 r1952  
    931931 
    932932 
     933  void cxios_set_domaingroup_ntiles(domaingroup_Ptr domaingroup_hdl, int ntiles) 
     934  { 
     935    CTimer::get("XIOS").resume(); 
     936    domaingroup_hdl->ntiles.setValue(ntiles); 
     937    CTimer::get("XIOS").suspend(); 
     938  } 
     939 
     940  void cxios_get_domaingroup_ntiles(domaingroup_Ptr domaingroup_hdl, int* ntiles) 
     941  { 
     942    CTimer::get("XIOS").resume(); 
     943    *ntiles = domaingroup_hdl->ntiles.getInheritedValue(); 
     944    CTimer::get("XIOS").suspend(); 
     945  } 
     946 
     947  bool cxios_is_defined_domaingroup_ntiles(domaingroup_Ptr domaingroup_hdl) 
     948  { 
     949     CTimer::get("XIOS").resume(); 
     950     bool isDefined = domaingroup_hdl->ntiles.hasInheritedValue(); 
     951     CTimer::get("XIOS").suspend(); 
     952     return isDefined; 
     953  } 
     954 
     955 
    933956  void cxios_set_domaingroup_nvertex(domaingroup_Ptr domaingroup_hdl, int nvertex) 
    934957  { 
    … …  
    10261049 
    10271050 
     1051  void cxios_set_domaingroup_tile_data_ibegin(domaingroup_Ptr domaingroup_hdl, int* tile_data_ibegin, int* extent) 
     1052  { 
     1053    CTimer::get("XIOS").resume(); 
     1054    CArray<int,1> tmp(tile_data_ibegin, shape(extent[0]), neverDeleteData); 
     1055    domaingroup_hdl->tile_data_ibegin.reference(tmp.copy()); 
     1056     CTimer::get("XIOS").suspend(); 
     1057  } 
     1058 
     1059  void cxios_get_domaingroup_tile_data_ibegin(domaingroup_Ptr domaingroup_hdl, int* tile_data_ibegin, int* extent) 
     1060  { 
     1061    CTimer::get("XIOS").resume(); 
     1062    CArray<int,1> tmp(tile_data_ibegin, shape(extent[0]), neverDeleteData); 
     1063    tmp=domaingroup_hdl->tile_data_ibegin.getInheritedValue(); 
     1064     CTimer::get("XIOS").suspend(); 
     1065  } 
     1066 
     1067  bool cxios_is_defined_domaingroup_tile_data_ibegin(domaingroup_Ptr domaingroup_hdl) 
     1068  { 
     1069     CTimer::get("XIOS").resume(); 
     1070     bool isDefined = domaingroup_hdl->tile_data_ibegin.hasInheritedValue(); 
     1071     CTimer::get("XIOS").suspend(); 
     1072     return isDefined; 
     1073  } 
     1074 
     1075 
     1076  void cxios_set_domaingroup_tile_data_jbegin(domaingroup_Ptr domaingroup_hdl, int* tile_data_jbegin, int* extent) 
     1077  { 
     1078    CTimer::get("XIOS").resume(); 
     1079    CArray<int,1> tmp(tile_data_jbegin, shape(extent[0]), neverDeleteData); 
     1080    domaingroup_hdl->tile_data_jbegin.reference(tmp.copy()); 
     1081     CTimer::get("XIOS").suspend(); 
     1082  } 
     1083 
     1084  void cxios_get_domaingroup_tile_data_jbegin(domaingroup_Ptr domaingroup_hdl, int* tile_data_jbegin, int* extent) 
     1085  { 
     1086    CTimer::get("XIOS").resume(); 
     1087    CArray<int,1> tmp(tile_data_jbegin, shape(extent[0]), neverDeleteData); 
     1088    tmp=domaingroup_hdl->tile_data_jbegin.getInheritedValue(); 
     1089     CTimer::get("XIOS").suspend(); 
     1090  } 
     1091 
     1092  bool cxios_is_defined_domaingroup_tile_data_jbegin(domaingroup_Ptr domaingroup_hdl) 
     1093  { 
     1094     CTimer::get("XIOS").resume(); 
     1095     bool isDefined = domaingroup_hdl->tile_data_jbegin.hasInheritedValue(); 
     1096     CTimer::get("XIOS").suspend(); 
     1097     return isDefined; 
     1098  } 
     1099 
     1100 
     1101  void cxios_set_domaingroup_tile_ibegin(domaingroup_Ptr domaingroup_hdl, int* tile_ibegin, int* extent) 
     1102  { 
     1103    CTimer::get("XIOS").resume(); 
     1104    CArray<int,1> tmp(tile_ibegin, shape(extent[0]), neverDeleteData); 
     1105    domaingroup_hdl->tile_ibegin.reference(tmp.copy()); 
     1106     CTimer::get("XIOS").suspend(); 
     1107  } 
     1108 
     1109  void cxios_get_domaingroup_tile_ibegin(domaingroup_Ptr domaingroup_hdl, int* tile_ibegin, int* extent) 
     1110  { 
     1111    CTimer::get("XIOS").resume(); 
     1112    CArray<int,1> tmp(tile_ibegin, shape(extent[0]), neverDeleteData); 
     1113    tmp=domaingroup_hdl->tile_ibegin.getInheritedValue(); 
     1114     CTimer::get("XIOS").suspend(); 
     1115  } 
     1116 
     1117  bool cxios_is_defined_domaingroup_tile_ibegin(domaingroup_Ptr domaingroup_hdl) 
     1118  { 
     1119     CTimer::get("XIOS").resume(); 
     1120     bool isDefined = domaingroup_hdl->tile_ibegin.hasInheritedValue(); 
     1121     CTimer::get("XIOS").suspend(); 
     1122     return isDefined; 
     1123  } 
     1124 
     1125 
     1126  void cxios_set_domaingroup_tile_jbegin(domaingroup_Ptr domaingroup_hdl, int* tile_jbegin, int* extent) 
     1127  { 
     1128    CTimer::get("XIOS").resume(); 
     1129    CArray<int,1> tmp(tile_jbegin, shape(extent[0]), neverDeleteData); 
     1130    domaingroup_hdl->tile_jbegin.reference(tmp.copy()); 
     1131     CTimer::get("XIOS").suspend(); 
     1132  } 
     1133 
     1134  void cxios_get_domaingroup_tile_jbegin(domaingroup_Ptr domaingroup_hdl, int* tile_jbegin, int* extent) 
     1135  { 
     1136    CTimer::get("XIOS").resume(); 
     1137    CArray<int,1> tmp(tile_jbegin, shape(extent[0]), neverDeleteData); 
     1138    tmp=domaingroup_hdl->tile_jbegin.getInheritedValue(); 
     1139     CTimer::get("XIOS").suspend(); 
     1140  } 
     1141 
     1142  bool cxios_is_defined_domaingroup_tile_jbegin(domaingroup_Ptr domaingroup_hdl) 
     1143  { 
     1144     CTimer::get("XIOS").resume(); 
     1145     bool isDefined = domaingroup_hdl->tile_jbegin.hasInheritedValue(); 
     1146     CTimer::get("XIOS").suspend(); 
     1147     return isDefined; 
     1148  } 
     1149 
     1150 
     1151  void cxios_set_domaingroup_tile_ni(domaingroup_Ptr domaingroup_hdl, int* tile_ni, int* extent) 
     1152  { 
     1153    CTimer::get("XIOS").resume(); 
     1154    CArray<int,1> tmp(tile_ni, shape(extent[0]), neverDeleteData); 
     1155    domaingroup_hdl->tile_ni.reference(tmp.copy()); 
     1156     CTimer::get("XIOS").suspend(); 
     1157  } 
     1158 
     1159  void cxios_get_domaingroup_tile_ni(domaingroup_Ptr domaingroup_hdl, int* tile_ni, int* extent) 
     1160  { 
     1161    CTimer::get("XIOS").resume(); 
     1162    CArray<int,1> tmp(tile_ni, shape(extent[0]), neverDeleteData); 
     1163    tmp=domaingroup_hdl->tile_ni.getInheritedValue(); 
     1164     CTimer::get("XIOS").suspend(); 
     1165  } 
     1166 
     1167  bool cxios_is_defined_domaingroup_tile_ni(domaingroup_Ptr domaingroup_hdl) 
     1168  { 
     1169     CTimer::get("XIOS").resume(); 
     1170     bool isDefined = domaingroup_hdl->tile_ni.hasInheritedValue(); 
     1171     CTimer::get("XIOS").suspend(); 
     1172     return isDefined; 
     1173  } 
     1174 
     1175 
     1176  void cxios_set_domaingroup_tile_nj(domaingroup_Ptr domaingroup_hdl, int* tile_nj, int* extent) 
     1177  { 
     1178    CTimer::get("XIOS").resume(); 
     1179    CArray<int,1> tmp(tile_nj, shape(extent[0]), neverDeleteData); 
     1180    domaingroup_hdl->tile_nj.reference(tmp.copy()); 
     1181     CTimer::get("XIOS").suspend(); 
     1182  } 
     1183 
     1184  void cxios_get_domaingroup_tile_nj(domaingroup_Ptr domaingroup_hdl, int* tile_nj, int* extent) 
     1185  { 
     1186    CTimer::get("XIOS").resume(); 
     1187    CArray<int,1> tmp(tile_nj, shape(extent[0]), neverDeleteData); 
     1188    tmp=domaingroup_hdl->tile_nj.getInheritedValue(); 
     1189     CTimer::get("XIOS").suspend(); 
     1190  } 
     1191 
     1192  bool cxios_is_defined_domaingroup_tile_nj(domaingroup_Ptr domaingroup_hdl) 
     1193  { 
     1194     CTimer::get("XIOS").resume(); 
     1195     bool isDefined = domaingroup_hdl->tile_nj.hasInheritedValue(); 
     1196     CTimer::get("XIOS").suspend(); 
     1197     return isDefined; 
     1198  } 
     1199 
     1200 
    10281201  void cxios_set_domaingroup_type(domaingroup_Ptr domaingroup_hdl, const char * type, int type_size) 
    10291202  { 

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

    r1626 r1952  
    744744 
    745745 
     746    SUBROUTINE cxios_set_domain_ntiles(domain_hdl, ntiles) BIND(C) 
     747      USE ISO_C_BINDING 
     748      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     749      INTEGER (KIND=C_INT)      , VALUE :: ntiles 
     750    END SUBROUTINE cxios_set_domain_ntiles 
     751 
     752    SUBROUTINE cxios_get_domain_ntiles(domain_hdl, ntiles) BIND(C) 
     753      USE ISO_C_BINDING 
     754      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     755      INTEGER (KIND=C_INT)             :: ntiles 
     756    END SUBROUTINE cxios_get_domain_ntiles 
     757 
     758    FUNCTION cxios_is_defined_domain_ntiles(domain_hdl) BIND(C) 
     759      USE ISO_C_BINDING 
     760      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_ntiles 
     761      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     762    END FUNCTION cxios_is_defined_domain_ntiles 
     763 
     764 
    746765    SUBROUTINE cxios_set_domain_nvertex(domain_hdl, nvertex) BIND(C) 
    747766      USE ISO_C_BINDING 
    … …  
    822841 
    823842 
     843    SUBROUTINE cxios_set_domain_tile_data_ibegin(domain_hdl, tile_data_ibegin, extent) BIND(C) 
     844      USE ISO_C_BINDING 
     845      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     846      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ibegin 
     847      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     848    END SUBROUTINE cxios_set_domain_tile_data_ibegin 
     849 
     850    SUBROUTINE cxios_get_domain_tile_data_ibegin(domain_hdl, tile_data_ibegin, extent) BIND(C) 
     851      USE ISO_C_BINDING 
     852      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     853      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ibegin 
     854      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     855    END SUBROUTINE cxios_get_domain_tile_data_ibegin 
     856 
     857    FUNCTION cxios_is_defined_domain_tile_data_ibegin(domain_hdl) BIND(C) 
     858      USE ISO_C_BINDING 
     859      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_ibegin 
     860      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     861    END FUNCTION cxios_is_defined_domain_tile_data_ibegin 
     862 
     863 
     864    SUBROUTINE cxios_set_domain_tile_data_jbegin(domain_hdl, tile_data_jbegin, extent) BIND(C) 
     865      USE ISO_C_BINDING 
     866      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     867      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_jbegin 
     868      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     869    END SUBROUTINE cxios_set_domain_tile_data_jbegin 
     870 
     871    SUBROUTINE cxios_get_domain_tile_data_jbegin(domain_hdl, tile_data_jbegin, extent) BIND(C) 
     872      USE ISO_C_BINDING 
     873      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     874      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_jbegin 
     875      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     876    END SUBROUTINE cxios_get_domain_tile_data_jbegin 
     877 
     878    FUNCTION cxios_is_defined_domain_tile_data_jbegin(domain_hdl) BIND(C) 
     879      USE ISO_C_BINDING 
     880      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_data_jbegin 
     881      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     882    END FUNCTION cxios_is_defined_domain_tile_data_jbegin 
     883 
     884 
     885    SUBROUTINE cxios_set_domain_tile_ibegin(domain_hdl, tile_ibegin, extent) BIND(C) 
     886      USE ISO_C_BINDING 
     887      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     888      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     889      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     890    END SUBROUTINE cxios_set_domain_tile_ibegin 
     891 
     892    SUBROUTINE cxios_get_domain_tile_ibegin(domain_hdl, tile_ibegin, extent) BIND(C) 
     893      USE ISO_C_BINDING 
     894      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     895      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     896      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     897    END SUBROUTINE cxios_get_domain_tile_ibegin 
     898 
     899    FUNCTION cxios_is_defined_domain_tile_ibegin(domain_hdl) BIND(C) 
     900      USE ISO_C_BINDING 
     901      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_ibegin 
     902      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     903    END FUNCTION cxios_is_defined_domain_tile_ibegin 
     904 
     905 
     906    SUBROUTINE cxios_set_domain_tile_jbegin(domain_hdl, tile_jbegin, extent) BIND(C) 
     907      USE ISO_C_BINDING 
     908      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     909      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     910      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     911    END SUBROUTINE cxios_set_domain_tile_jbegin 
     912 
     913    SUBROUTINE cxios_get_domain_tile_jbegin(domain_hdl, tile_jbegin, extent) BIND(C) 
     914      USE ISO_C_BINDING 
     915      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     916      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     917      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     918    END SUBROUTINE cxios_get_domain_tile_jbegin 
     919 
     920    FUNCTION cxios_is_defined_domain_tile_jbegin(domain_hdl) BIND(C) 
     921      USE ISO_C_BINDING 
     922      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_jbegin 
     923      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     924    END FUNCTION cxios_is_defined_domain_tile_jbegin 
     925 
     926 
     927    SUBROUTINE cxios_set_domain_tile_ni(domain_hdl, tile_ni, extent) BIND(C) 
     928      USE ISO_C_BINDING 
     929      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     930      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     931      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     932    END SUBROUTINE cxios_set_domain_tile_ni 
     933 
     934    SUBROUTINE cxios_get_domain_tile_ni(domain_hdl, tile_ni, extent) BIND(C) 
     935      USE ISO_C_BINDING 
     936      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     937      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     938      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     939    END SUBROUTINE cxios_get_domain_tile_ni 
     940 
     941    FUNCTION cxios_is_defined_domain_tile_ni(domain_hdl) BIND(C) 
     942      USE ISO_C_BINDING 
     943      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_ni 
     944      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     945    END FUNCTION cxios_is_defined_domain_tile_ni 
     946 
     947 
     948    SUBROUTINE cxios_set_domain_tile_nj(domain_hdl, tile_nj, extent) BIND(C) 
     949      USE ISO_C_BINDING 
     950      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     951      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     952      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     953    END SUBROUTINE cxios_set_domain_tile_nj 
     954 
     955    SUBROUTINE cxios_get_domain_tile_nj(domain_hdl, tile_nj, extent) BIND(C) 
     956      USE ISO_C_BINDING 
     957      INTEGER (kind = C_INTPTR_T), VALUE       :: domain_hdl 
     958      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     959      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     960    END SUBROUTINE cxios_get_domain_tile_nj 
     961 
     962    FUNCTION cxios_is_defined_domain_tile_nj(domain_hdl) BIND(C) 
     963      USE ISO_C_BINDING 
     964      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domain_tile_nj 
     965      INTEGER (kind = C_INTPTR_T), VALUE :: domain_hdl 
     966    END FUNCTION cxios_is_defined_domain_tile_nj 
     967 
     968 
    824969    SUBROUTINE cxios_set_domain_type(domain_hdl, type, type_size) BIND(C) 
    825970      USE ISO_C_BINDING 

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

    r1626 r1952  
    765765 
    766766 
     767    SUBROUTINE cxios_set_domaingroup_ntiles(domaingroup_hdl, ntiles) BIND(C) 
     768      USE ISO_C_BINDING 
     769      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     770      INTEGER (KIND=C_INT)      , VALUE :: ntiles 
     771    END SUBROUTINE cxios_set_domaingroup_ntiles 
     772 
     773    SUBROUTINE cxios_get_domaingroup_ntiles(domaingroup_hdl, ntiles) BIND(C) 
     774      USE ISO_C_BINDING 
     775      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     776      INTEGER (KIND=C_INT)             :: ntiles 
     777    END SUBROUTINE cxios_get_domaingroup_ntiles 
     778 
     779    FUNCTION cxios_is_defined_domaingroup_ntiles(domaingroup_hdl) BIND(C) 
     780      USE ISO_C_BINDING 
     781      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_ntiles 
     782      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     783    END FUNCTION cxios_is_defined_domaingroup_ntiles 
     784 
     785 
    767786    SUBROUTINE cxios_set_domaingroup_nvertex(domaingroup_hdl, nvertex) BIND(C) 
    768787      USE ISO_C_BINDING 
    … …  
    843862 
    844863 
     864    SUBROUTINE cxios_set_domaingroup_tile_data_ibegin(domaingroup_hdl, tile_data_ibegin, extent) BIND(C) 
     865      USE ISO_C_BINDING 
     866      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     867      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ibegin 
     868      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     869    END SUBROUTINE cxios_set_domaingroup_tile_data_ibegin 
     870 
     871    SUBROUTINE cxios_get_domaingroup_tile_data_ibegin(domaingroup_hdl, tile_data_ibegin, extent) BIND(C) 
     872      USE ISO_C_BINDING 
     873      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     874      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_ibegin 
     875      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     876    END SUBROUTINE cxios_get_domaingroup_tile_data_ibegin 
     877 
     878    FUNCTION cxios_is_defined_domaingroup_tile_data_ibegin(domaingroup_hdl) BIND(C) 
     879      USE ISO_C_BINDING 
     880      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_ibegin 
     881      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     882    END FUNCTION cxios_is_defined_domaingroup_tile_data_ibegin 
     883 
     884 
     885    SUBROUTINE cxios_set_domaingroup_tile_data_jbegin(domaingroup_hdl, tile_data_jbegin, extent) BIND(C) 
     886      USE ISO_C_BINDING 
     887      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     888      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_jbegin 
     889      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     890    END SUBROUTINE cxios_set_domaingroup_tile_data_jbegin 
     891 
     892    SUBROUTINE cxios_get_domaingroup_tile_data_jbegin(domaingroup_hdl, tile_data_jbegin, extent) BIND(C) 
     893      USE ISO_C_BINDING 
     894      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     895      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_data_jbegin 
     896      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     897    END SUBROUTINE cxios_get_domaingroup_tile_data_jbegin 
     898 
     899    FUNCTION cxios_is_defined_domaingroup_tile_data_jbegin(domaingroup_hdl) BIND(C) 
     900      USE ISO_C_BINDING 
     901      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_data_jbegin 
     902      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     903    END FUNCTION cxios_is_defined_domaingroup_tile_data_jbegin 
     904 
     905 
     906    SUBROUTINE cxios_set_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 
     907      USE ISO_C_BINDING 
     908      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     909      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     910      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     911    END SUBROUTINE cxios_set_domaingroup_tile_ibegin 
     912 
     913    SUBROUTINE cxios_get_domaingroup_tile_ibegin(domaingroup_hdl, tile_ibegin, extent) BIND(C) 
     914      USE ISO_C_BINDING 
     915      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     916      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ibegin 
     917      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     918    END SUBROUTINE cxios_get_domaingroup_tile_ibegin 
     919 
     920    FUNCTION cxios_is_defined_domaingroup_tile_ibegin(domaingroup_hdl) BIND(C) 
     921      USE ISO_C_BINDING 
     922      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_ibegin 
     923      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     924    END FUNCTION cxios_is_defined_domaingroup_tile_ibegin 
     925 
     926 
     927    SUBROUTINE cxios_set_domaingroup_tile_jbegin(domaingroup_hdl, tile_jbegin, extent) BIND(C) 
     928      USE ISO_C_BINDING 
     929      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     930      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     931      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     932    END SUBROUTINE cxios_set_domaingroup_tile_jbegin 
     933 
     934    SUBROUTINE cxios_get_domaingroup_tile_jbegin(domaingroup_hdl, tile_jbegin, extent) BIND(C) 
     935      USE ISO_C_BINDING 
     936      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     937      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_jbegin 
     938      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     939    END SUBROUTINE cxios_get_domaingroup_tile_jbegin 
     940 
     941    FUNCTION cxios_is_defined_domaingroup_tile_jbegin(domaingroup_hdl) BIND(C) 
     942      USE ISO_C_BINDING 
     943      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_jbegin 
     944      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     945    END FUNCTION cxios_is_defined_domaingroup_tile_jbegin 
     946 
     947 
     948    SUBROUTINE cxios_set_domaingroup_tile_ni(domaingroup_hdl, tile_ni, extent) BIND(C) 
     949      USE ISO_C_BINDING 
     950      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     951      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     952      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     953    END SUBROUTINE cxios_set_domaingroup_tile_ni 
     954 
     955    SUBROUTINE cxios_get_domaingroup_tile_ni(domaingroup_hdl, tile_ni, extent) BIND(C) 
     956      USE ISO_C_BINDING 
     957      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     958      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_ni 
     959      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     960    END SUBROUTINE cxios_get_domaingroup_tile_ni 
     961 
     962    FUNCTION cxios_is_defined_domaingroup_tile_ni(domaingroup_hdl) BIND(C) 
     963      USE ISO_C_BINDING 
     964      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_ni 
     965      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     966    END FUNCTION cxios_is_defined_domaingroup_tile_ni 
     967 
     968 
     969    SUBROUTINE cxios_set_domaingroup_tile_nj(domaingroup_hdl, tile_nj, extent) BIND(C) 
     970      USE ISO_C_BINDING 
     971      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     972      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     973      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     974    END SUBROUTINE cxios_set_domaingroup_tile_nj 
     975 
     976    SUBROUTINE cxios_get_domaingroup_tile_nj(domaingroup_hdl, tile_nj, extent) BIND(C) 
     977      USE ISO_C_BINDING 
     978      INTEGER (kind = C_INTPTR_T), VALUE       :: domaingroup_hdl 
     979      INTEGER (KIND=C_INT)     , DIMENSION(*) :: tile_nj 
     980      INTEGER (kind = C_INT), DIMENSION(*)     :: extent 
     981    END SUBROUTINE cxios_get_domaingroup_tile_nj 
     982 
     983    FUNCTION cxios_is_defined_domaingroup_tile_nj(domaingroup_hdl) BIND(C) 
     984      USE ISO_C_BINDING 
     985      LOGICAL(kind=C_BOOL) :: cxios_is_defined_domaingroup_tile_nj 
     986      INTEGER (kind = C_INTPTR_T), VALUE :: domaingroup_hdl 
     987    END FUNCTION cxios_is_defined_domaingroup_tile_nj 
     988 
     989 
    845990    SUBROUTINE cxios_set_domaingroup_type(domaingroup_hdl, type, type_size) BIND(C) 
    846991      USE ISO_C_BINDING 

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

    r1626 r1952  
    1616    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    1717    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    18     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     18    , 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 ) 
    1920 
    2021    IMPLICIT NONE 
    … …  
    5960      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    6061      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
     62      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles 
    6163      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    6264      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    6365      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    6466      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
     67      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
     68      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     69      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
     70      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
     71      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:) 
     72      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:) 
    6573      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    6674 
    … …  
    7280      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    7381      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    74       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     82      , 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 ) 
    7584 
    7685  END SUBROUTINE xios(set_domain_attr) 
    … …  
    8190    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    8291    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    83     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     92    , 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 ) 
    8494 
    8595    IMPLICIT NONE 
    … …  
    123133      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    124134      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
     135      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles 
    125136      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    126137      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    127138      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    128139      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
     140      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
     141      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     142      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
     143      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
     144      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:) 
     145      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:) 
    129146      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    130147 
    … …  
    134151      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    135152      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    136       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     153      , 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 ) 
    137155 
    138156  END SUBROUTINE xios(set_domain_attr_hdl) 
    … …  
    143161    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    144162    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    145     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
     163    , 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_  & 
    146165     ) 
    147166 
    … …  
    186205      INTEGER  , OPTIONAL, INTENT(IN) :: nj_ 
    187206      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_ 
     207      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles_ 
    188208      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_ 
    189209      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    190210      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 
    191211      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
     212      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 
     213      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 
     214      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 
     215      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) 
     216      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni_(:) 
     217      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj_(:) 
    192218      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    193219 
    … …  
    376402      ENDIF 
    377403 
     404      IF (PRESENT(ntiles_)) THEN 
     405        CALL cxios_set_domain_ntiles & 
     406      (domain_hdl%daddr, ntiles_) 
     407      ENDIF 
     408 
    378409      IF (PRESENT(nvertex_)) THEN 
    379410        CALL cxios_set_domain_nvertex & 
    … …  
    394425        CALL cxios_set_domain_standard_name & 
    395426      (domain_hdl%daddr, standard_name_, len(standard_name_)) 
     427      ENDIF 
     428 
     429      IF (PRESENT(tile_data_ibegin_)) THEN 
     430        CALL cxios_set_domain_tile_data_ibegin & 
     431      (domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 
     432      ENDIF 
     433 
     434      IF (PRESENT(tile_data_jbegin_)) THEN 
     435        CALL cxios_set_domain_tile_data_jbegin & 
     436      (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     437      ENDIF 
     438 
     439      IF (PRESENT(tile_ibegin_)) THEN 
     440        CALL cxios_set_domain_tile_ibegin & 
     441      (domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 
     442      ENDIF 
     443 
     444      IF (PRESENT(tile_jbegin_)) THEN 
     445        CALL cxios_set_domain_tile_jbegin & 
     446      (domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 
     447      ENDIF 
     448 
     449      IF (PRESENT(tile_ni_)) THEN 
     450        CALL cxios_set_domain_tile_ni & 
     451      (domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 
     452      ENDIF 
     453 
     454      IF (PRESENT(tile_nj_)) THEN 
     455        CALL cxios_set_domain_tile_nj & 
     456      (domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 
    396457      ENDIF 
    397458 
    … …  
    408469    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    409470    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    410     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     471    , 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 ) 
    411473 
    412474    IMPLICIT NONE 
    … …  
    451513      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    452514      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
     515      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles 
    453516      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    454517      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    455518      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    456519      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
     520      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
     521      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     522      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
     523      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
     524      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:) 
     525      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:) 
    457526      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    458527 
    … …  
    464533      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    465534      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    466       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     535      , 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 ) 
    467537 
    468538  END SUBROUTINE xios(get_domain_attr) 
    … …  
    473543    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    474544    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    475     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     545    , 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 ) 
    476547 
    477548    IMPLICIT NONE 
    … …  
    515586      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    516587      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
     588      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles 
    517589      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    518590      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    519591      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    520592      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
     593      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
     594      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     595      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
     596      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
     597      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:) 
     598      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:) 
    521599      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    522600 
    … …  
    526604      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    527605      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    528       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     606      , 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 ) 
    529608 
    530609  END SUBROUTINE xios(get_domain_attr_hdl) 
    … …  
    535614    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    536615    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    537     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
     616    , 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_  & 
    538618     ) 
    539619 
    … …  
    578658      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_ 
    579659      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_ 
     660      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles_ 
    580661      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_ 
    581662      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    582663      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 
    583664      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
     665      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 
     666      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 
     667      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 
     668      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) 
     669      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni_(:) 
     670      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj_(:) 
    584671      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    585672 
    … …  
    768855      ENDIF 
    769856 
     857      IF (PRESENT(ntiles_)) THEN 
     858        CALL cxios_get_domain_ntiles & 
     859      (domain_hdl%daddr, ntiles_) 
     860      ENDIF 
     861 
    770862      IF (PRESENT(nvertex_)) THEN 
    771863        CALL cxios_get_domain_nvertex & 
    … …  
    786878        CALL cxios_get_domain_standard_name & 
    787879      (domain_hdl%daddr, standard_name_, len(standard_name_)) 
     880      ENDIF 
     881 
     882      IF (PRESENT(tile_data_ibegin_)) THEN 
     883        CALL cxios_get_domain_tile_data_ibegin & 
     884      (domain_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 
     885      ENDIF 
     886 
     887      IF (PRESENT(tile_data_jbegin_)) THEN 
     888        CALL cxios_get_domain_tile_data_jbegin & 
     889      (domain_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     890      ENDIF 
     891 
     892      IF (PRESENT(tile_ibegin_)) THEN 
     893        CALL cxios_get_domain_tile_ibegin & 
     894      (domain_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 
     895      ENDIF 
     896 
     897      IF (PRESENT(tile_jbegin_)) THEN 
     898        CALL cxios_get_domain_tile_jbegin & 
     899      (domain_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 
     900      ENDIF 
     901 
     902      IF (PRESENT(tile_ni_)) THEN 
     903        CALL cxios_get_domain_tile_ni & 
     904      (domain_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 
     905      ENDIF 
     906 
     907      IF (PRESENT(tile_nj_)) THEN 
     908        CALL cxios_get_domain_tile_nj & 
     909      (domain_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 
    788910      ENDIF 
    789911 
    … …  
    800922    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    801923    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    802     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     924    , 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 ) 
    803926 
    804927    IMPLICIT NONE 
    … …  
    8771000      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
    8781001      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     1002      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 
     1003      LOGICAL(KIND=C_BOOL) :: ntiles_tmp 
    8791004      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    8801005      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
    … …  
    8851010      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    8861011      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     1012      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 
     1013      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 
     1014      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
     1015      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1016      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
     1017      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
     1018      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 
     1019      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 
     1020      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 
     1021      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 
     1022      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 
     1023      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 
    8871024      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    8881025      LOGICAL(KIND=C_BOOL) :: type_tmp 
    … …  
    8951032      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    8961033      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    897       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1034      , 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 ) 
    8981036 
    8991037  END SUBROUTINE xios(is_defined_domain_attr) 
    … …  
    9041042    , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    9051043    , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    906     , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1044    , 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 ) 
    9071046 
    9081047    IMPLICIT NONE 
    … …  
    9801119      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
    9811120      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     1121      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 
     1122      LOGICAL(KIND=C_BOOL) :: ntiles_tmp 
    9821123      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    9831124      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
    … …  
    9881129      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    9891130      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     1131      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 
     1132      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 
     1133      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
     1134      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1135      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
     1136      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
     1137      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 
     1138      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 
     1139      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 
     1140      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 
     1141      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 
     1142      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 
    9901143      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    9911144      LOGICAL(KIND=C_BOOL) :: type_tmp 
    … …  
    9961149      , data_nj, dim_i_name, dim_j_name, domain_ref, i_index, ibegin, j_index, jbegin, lat_name, latvalue_1d  & 
    9971150      , latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d, name, ni, ni_glo  & 
    998       , nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1151      , 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 ) 
    9991153 
    10001154  END SUBROUTINE xios(is_defined_domain_attr_hdl) 
    … …  
    10051159    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, i_index_, ibegin_, j_index_, jbegin_  & 
    10061160    , lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_, mask_1d_  & 
    1007     , mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_, type_  & 
     1161    , 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_  & 
    10081163     ) 
    10091164 
    … …  
    10821237      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 
    10831238      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 
     1239      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_ 
     1240      LOGICAL(KIND=C_BOOL) :: ntiles__tmp 
    10841241      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 
    10851242      LOGICAL(KIND=C_BOOL) :: nvertex__tmp 
    … …  
    10901247      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
    10911248      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
     1249      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_ 
     1250      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp 
     1251      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 
     1252      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 
     1253      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 
     1254      LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp 
     1255      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_ 
     1256      LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp 
     1257      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_ 
     1258      LOGICAL(KIND=C_BOOL) :: tile_ni__tmp 
     1259      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_ 
     1260      LOGICAL(KIND=C_BOOL) :: tile_nj__tmp 
    10921261      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    10931262      LOGICAL(KIND=C_BOOL) :: type__tmp 
    … …  
    13091478      ENDIF 
    13101479 
     1480      IF (PRESENT(ntiles_)) THEN 
     1481        ntiles__tmp = cxios_is_defined_domain_ntiles & 
     1482      (domain_hdl%daddr) 
     1483        ntiles_ = ntiles__tmp 
     1484      ENDIF 
     1485 
    13111486      IF (PRESENT(nvertex_)) THEN 
    13121487        nvertex__tmp = cxios_is_defined_domain_nvertex & 
    … …  
    13331508      ENDIF 
    13341509 
     1510      IF (PRESENT(tile_data_ibegin_)) THEN 
     1511        tile_data_ibegin__tmp = cxios_is_defined_domain_tile_data_ibegin & 
     1512      (domain_hdl%daddr) 
     1513        tile_data_ibegin_ = tile_data_ibegin__tmp 
     1514      ENDIF 
     1515 
     1516      IF (PRESENT(tile_data_jbegin_)) THEN 
     1517        tile_data_jbegin__tmp = cxios_is_defined_domain_tile_data_jbegin & 
     1518      (domain_hdl%daddr) 
     1519        tile_data_jbegin_ = tile_data_jbegin__tmp 
     1520      ENDIF 
     1521 
     1522      IF (PRESENT(tile_ibegin_)) THEN 
     1523        tile_ibegin__tmp = cxios_is_defined_domain_tile_ibegin & 
     1524      (domain_hdl%daddr) 
     1525        tile_ibegin_ = tile_ibegin__tmp 
     1526      ENDIF 
     1527 
     1528      IF (PRESENT(tile_jbegin_)) THEN 
     1529        tile_jbegin__tmp = cxios_is_defined_domain_tile_jbegin & 
     1530      (domain_hdl%daddr) 
     1531        tile_jbegin_ = tile_jbegin__tmp 
     1532      ENDIF 
     1533 
     1534      IF (PRESENT(tile_ni_)) THEN 
     1535        tile_ni__tmp = cxios_is_defined_domain_tile_ni & 
     1536      (domain_hdl%daddr) 
     1537        tile_ni_ = tile_ni__tmp 
     1538      ENDIF 
     1539 
     1540      IF (PRESENT(tile_nj_)) THEN 
     1541        tile_nj__tmp = cxios_is_defined_domain_tile_nj & 
     1542      (domain_hdl%daddr) 
     1543        tile_nj_ = tile_nj__tmp 
     1544      ENDIF 
     1545 
    13351546      IF (PRESENT(type_)) THEN 
    13361547        type__tmp = cxios_is_defined_domain_type & 

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

    r1626 r1952  
    1616    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    1717    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    18     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     18    , 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 ) 
    1920 
    2021    IMPLICIT NONE 
    … …  
    6061      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    6162      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
     63      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles 
    6264      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    6365      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    6466      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    6567      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
     68      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
     69      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     70      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
     71      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
     72      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:) 
     73      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:) 
    6674      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    6775 
    … …  
    7381      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    7482      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    75       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     83      , 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 ) 
    7685 
    7786  END SUBROUTINE xios(set_domaingroup_attr) 
    … …  
    8291    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    8392    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    84     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     93    , 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 ) 
    8595 
    8696    IMPLICIT NONE 
    … …  
    125135      INTEGER  , OPTIONAL, INTENT(IN) :: nj 
    126136      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo 
     137      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles 
    127138      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex 
    128139      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    129140      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius 
    130141      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
     142      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin(:) 
     143      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin(:) 
     144      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin(:) 
     145      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin(:) 
     146      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni(:) 
     147      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj(:) 
    131148      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    132149 
    … …  
    136153      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    137154      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    138       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     155      , 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 ) 
    139157 
    140158  END SUBROUTINE xios(set_domaingroup_attr_hdl) 
    … …  
    145163    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    146164    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    147     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
    148     , type_ ) 
     165    , 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     ) 
    149168 
    150169    IMPLICIT NONE 
    … …  
    189208      INTEGER  , OPTIONAL, INTENT(IN) :: nj_ 
    190209      INTEGER  , OPTIONAL, INTENT(IN) :: nj_glo_ 
     210      INTEGER  , OPTIONAL, INTENT(IN) :: ntiles_ 
    191211      INTEGER  , OPTIONAL, INTENT(IN) :: nvertex_ 
    192212      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    193213      REAL (KIND=8) , OPTIONAL, INTENT(IN) :: radius_ 
    194214      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
     215      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_ibegin_(:) 
     216      INTEGER  , OPTIONAL, INTENT(IN) :: tile_data_jbegin_(:) 
     217      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ibegin_(:) 
     218      INTEGER  , OPTIONAL, INTENT(IN) :: tile_jbegin_(:) 
     219      INTEGER  , OPTIONAL, INTENT(IN) :: tile_ni_(:) 
     220      INTEGER  , OPTIONAL, INTENT(IN) :: tile_nj_(:) 
    195221      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    196222 
    … …  
    384410      ENDIF 
    385411 
     412      IF (PRESENT(ntiles_)) THEN 
     413        CALL cxios_set_domaingroup_ntiles & 
     414      (domaingroup_hdl%daddr, ntiles_) 
     415      ENDIF 
     416 
    386417      IF (PRESENT(nvertex_)) THEN 
    387418        CALL cxios_set_domaingroup_nvertex & 
    … …  
    402433        CALL cxios_set_domaingroup_standard_name & 
    403434      (domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
     435      ENDIF 
     436 
     437      IF (PRESENT(tile_data_ibegin_)) THEN 
     438        CALL cxios_set_domaingroup_tile_data_ibegin & 
     439      (domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 
     440      ENDIF 
     441 
     442      IF (PRESENT(tile_data_jbegin_)) THEN 
     443        CALL cxios_set_domaingroup_tile_data_jbegin & 
     444      (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     445      ENDIF 
     446 
     447      IF (PRESENT(tile_ibegin_)) THEN 
     448        CALL cxios_set_domaingroup_tile_ibegin & 
     449      (domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 
     450      ENDIF 
     451 
     452      IF (PRESENT(tile_jbegin_)) THEN 
     453        CALL cxios_set_domaingroup_tile_jbegin & 
     454      (domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 
     455      ENDIF 
     456 
     457      IF (PRESENT(tile_ni_)) THEN 
     458        CALL cxios_set_domaingroup_tile_ni & 
     459      (domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 
     460      ENDIF 
     461 
     462      IF (PRESENT(tile_nj_)) THEN 
     463        CALL cxios_set_domaingroup_tile_nj & 
     464      (domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 
    404465      ENDIF 
    405466 
    … …  
    416477    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    417478    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    418     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     479    , 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 ) 
    419481 
    420482    IMPLICIT NONE 
    … …  
    460522      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    461523      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
     524      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles 
    462525      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    463526      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    464527      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    465528      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
     529      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
     530      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     531      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
     532      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
     533      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:) 
     534      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:) 
    466535      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    467536 
    … …  
    473542      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    474543      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    475       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     544      , 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 ) 
    476546 
    477547  END SUBROUTINE xios(get_domaingroup_attr) 
    … …  
    482552    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    483553    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    484     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     554    , 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 ) 
    485556 
    486557    IMPLICIT NONE 
    … …  
    525596      INTEGER  , OPTIONAL, INTENT(OUT) :: nj 
    526597      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo 
     598      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles 
    527599      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex 
    528600      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    529601      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius 
    530602      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
     603      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin(:) 
     604      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin(:) 
     605      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin(:) 
     606      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin(:) 
     607      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni(:) 
     608      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj(:) 
    531609      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    532610 
    … …  
    536614      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    537615      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    538       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     616      , 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 ) 
    539618 
    540619  END SUBROUTINE xios(get_domaingroup_attr_hdl) 
    … …  
    545624    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    546625    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    547     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
    548     , type_ ) 
     626    , 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     ) 
    549629 
    550630    IMPLICIT NONE 
    … …  
    589669      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_ 
    590670      INTEGER  , OPTIONAL, INTENT(OUT) :: nj_glo_ 
     671      INTEGER  , OPTIONAL, INTENT(OUT) :: ntiles_ 
    591672      INTEGER  , OPTIONAL, INTENT(OUT) :: nvertex_ 
    592673      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    593674      REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: radius_ 
    594675      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
     676      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_ibegin_(:) 
     677      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_data_jbegin_(:) 
     678      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ibegin_(:) 
     679      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_jbegin_(:) 
     680      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_ni_(:) 
     681      INTEGER  , OPTIONAL, INTENT(OUT) :: tile_nj_(:) 
    595682      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    596683 
    … …  
    784871      ENDIF 
    785872 
     873      IF (PRESENT(ntiles_)) THEN 
     874        CALL cxios_get_domaingroup_ntiles & 
     875      (domaingroup_hdl%daddr, ntiles_) 
     876      ENDIF 
     877 
    786878      IF (PRESENT(nvertex_)) THEN 
    787879        CALL cxios_get_domaingroup_nvertex & 
    … …  
    802894        CALL cxios_get_domaingroup_standard_name & 
    803895      (domaingroup_hdl%daddr, standard_name_, len(standard_name_)) 
     896      ENDIF 
     897 
     898      IF (PRESENT(tile_data_ibegin_)) THEN 
     899        CALL cxios_get_domaingroup_tile_data_ibegin & 
     900      (domaingroup_hdl%daddr, tile_data_ibegin_, SHAPE(tile_data_ibegin_)) 
     901      ENDIF 
     902 
     903      IF (PRESENT(tile_data_jbegin_)) THEN 
     904        CALL cxios_get_domaingroup_tile_data_jbegin & 
     905      (domaingroup_hdl%daddr, tile_data_jbegin_, SHAPE(tile_data_jbegin_)) 
     906      ENDIF 
     907 
     908      IF (PRESENT(tile_ibegin_)) THEN 
     909        CALL cxios_get_domaingroup_tile_ibegin & 
     910      (domaingroup_hdl%daddr, tile_ibegin_, SHAPE(tile_ibegin_)) 
     911      ENDIF 
     912 
     913      IF (PRESENT(tile_jbegin_)) THEN 
     914        CALL cxios_get_domaingroup_tile_jbegin & 
     915      (domaingroup_hdl%daddr, tile_jbegin_, SHAPE(tile_jbegin_)) 
     916      ENDIF 
     917 
     918      IF (PRESENT(tile_ni_)) THEN 
     919        CALL cxios_get_domaingroup_tile_ni & 
     920      (domaingroup_hdl%daddr, tile_ni_, SHAPE(tile_ni_)) 
     921      ENDIF 
     922 
     923      IF (PRESENT(tile_nj_)) THEN 
     924        CALL cxios_get_domaingroup_tile_nj & 
     925      (domaingroup_hdl%daddr, tile_nj_, SHAPE(tile_nj_)) 
    804926      ENDIF 
    805927 
    … …  
    816938    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    817939    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    818     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     940    , 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 ) 
    819942 
    820943    IMPLICIT NONE 
    … …  
    8951018      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
    8961019      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     1020      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 
     1021      LOGICAL(KIND=C_BOOL) :: ntiles_tmp 
    8971022      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    8981023      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
    … …  
    9031028      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    9041029      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     1030      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 
     1031      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 
     1032      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
     1033      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1034      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
     1035      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
     1036      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 
     1037      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 
     1038      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 
     1039      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 
     1040      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 
     1041      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 
    9051042      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    9061043      LOGICAL(KIND=C_BOOL) :: type_tmp 
    … …  
    9131050      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    9141051      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    915       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1052      , 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 ) 
    9161054 
    9171055  END SUBROUTINE xios(is_defined_domaingroup_attr) 
    … …  
    9221060    , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    9231061    , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    924     , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1062    , 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 ) 
    9251064 
    9261065    IMPLICIT NONE 
    … …  
    10001139      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo 
    10011140      LOGICAL(KIND=C_BOOL) :: nj_glo_tmp 
     1141      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles 
     1142      LOGICAL(KIND=C_BOOL) :: ntiles_tmp 
    10021143      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex 
    10031144      LOGICAL(KIND=C_BOOL) :: nvertex_tmp 
    … …  
    10081149      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    10091150      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
     1151      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin 
     1152      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin_tmp 
     1153      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin 
     1154      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin_tmp 
     1155      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin 
     1156      LOGICAL(KIND=C_BOOL) :: tile_ibegin_tmp 
     1157      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin 
     1158      LOGICAL(KIND=C_BOOL) :: tile_jbegin_tmp 
     1159      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni 
     1160      LOGICAL(KIND=C_BOOL) :: tile_ni_tmp 
     1161      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj 
     1162      LOGICAL(KIND=C_BOOL) :: tile_nj_tmp 
    10101163      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    10111164      LOGICAL(KIND=C_BOOL) :: type_tmp 
    … …  
    10161169      , data_nj, dim_i_name, dim_j_name, domain_ref, group_ref, i_index, ibegin, j_index, jbegin, lat_name  & 
    10171170      , latvalue_1d, latvalue_2d, lon_name, long_name, lonvalue_1d, lonvalue_2d, mask_1d, mask_2d  & 
    1018       , name, ni, ni_glo, nj, nj_glo, nvertex, prec, radius, standard_name, type ) 
     1171      , 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 ) 
    10191173 
    10201174  END SUBROUTINE xios(is_defined_domaingroup_attr_hdl) 
    … …  
    10251179    , data_ni_, data_nj_, dim_i_name_, dim_j_name_, domain_ref_, group_ref_, i_index_, ibegin_, j_index_  & 
    10261180    , jbegin_, lat_name_, latvalue_1d_, latvalue_2d_, lon_name_, long_name_, lonvalue_1d_, lonvalue_2d_  & 
    1027     , mask_1d_, mask_2d_, name_, ni_, ni_glo_, nj_, nj_glo_, nvertex_, prec_, radius_, standard_name_  & 
    1028     , type_ ) 
     1181    , 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     ) 
    10291184 
    10301185    IMPLICIT NONE 
    … …  
    11041259      LOGICAL, OPTIONAL, INTENT(OUT) :: nj_glo_ 
    11051260      LOGICAL(KIND=C_BOOL) :: nj_glo__tmp 
     1261      LOGICAL, OPTIONAL, INTENT(OUT) :: ntiles_ 
     1262      LOGICAL(KIND=C_BOOL) :: ntiles__tmp 
    11061263      LOGICAL, OPTIONAL, INTENT(OUT) :: nvertex_ 
    11071264      LOGICAL(KIND=C_BOOL) :: nvertex__tmp 
    … …  
    11121269      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
    11131270      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
     1271      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_ibegin_ 
     1272      LOGICAL(KIND=C_BOOL) :: tile_data_ibegin__tmp 
     1273      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_data_jbegin_ 
     1274      LOGICAL(KIND=C_BOOL) :: tile_data_jbegin__tmp 
     1275      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ibegin_ 
     1276      LOGICAL(KIND=C_BOOL) :: tile_ibegin__tmp 
     1277      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_jbegin_ 
     1278      LOGICAL(KIND=C_BOOL) :: tile_jbegin__tmp 
     1279      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_ni_ 
     1280      LOGICAL(KIND=C_BOOL) :: tile_ni__tmp 
     1281      LOGICAL, OPTIONAL, INTENT(OUT) :: tile_nj_ 
     1282      LOGICAL(KIND=C_BOOL) :: tile_nj__tmp 
    11141283      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    11151284      LOGICAL(KIND=C_BOOL) :: type__tmp 
    … …  
    13371506      ENDIF 
    13381507 
     1508      IF (PRESENT(ntiles_)) THEN 
     1509        ntiles__tmp = cxios_is_defined_domaingroup_ntiles & 
     1510      (domaingroup_hdl%daddr) 
     1511        ntiles_ = ntiles__tmp 
     1512      ENDIF 
     1513 
    13391514      IF (PRESENT(nvertex_)) THEN 
    13401515        nvertex__tmp = cxios_is_defined_domaingroup_nvertex & 
    … …  
    13611536      ENDIF 
    13621537 
     1538      IF (PRESENT(tile_data_ibegin_)) THEN 
     1539        tile_data_ibegin__tmp = cxios_is_defined_domaingroup_tile_data_ibegin & 
     1540      (domaingroup_hdl%daddr) 
     1541        tile_data_ibegin_ = tile_data_ibegin__tmp 
     1542      ENDIF 
     1543 
     1544      IF (PRESENT(tile_data_jbegin_)) THEN 
     1545        tile_data_jbegin__tmp = cxios_is_defined_domaingroup_tile_data_jbegin & 
     1546      (domaingroup_hdl%daddr) 
     1547        tile_data_jbegin_ = tile_data_jbegin__tmp 
     1548      ENDIF 
     1549 
     1550      IF (PRESENT(tile_ibegin_)) THEN 
     1551        tile_ibegin__tmp = cxios_is_defined_domaingroup_tile_ibegin & 
     1552      (domaingroup_hdl%daddr) 
     1553        tile_ibegin_ = tile_ibegin__tmp 
     1554      ENDIF 
     1555 
     1556      IF (PRESENT(tile_jbegin_)) THEN 
     1557        tile_jbegin__tmp = cxios_is_defined_domaingroup_tile_jbegin & 
     1558      (domaingroup_hdl%daddr) 
     1559        tile_jbegin_ = tile_jbegin__tmp 
     1560      ENDIF 
     1561 
     1562      IF (PRESENT(tile_ni_)) THEN 
     1563        tile_ni__tmp = cxios_is_defined_domaingroup_tile_ni & 
     1564      (domaingroup_hdl%daddr) 
     1565        tile_ni_ = tile_ni__tmp 
     1566      ENDIF 
     1567 
     1568      IF (PRESENT(tile_nj_)) THEN 
     1569        tile_nj__tmp = cxios_is_defined_domaingroup_tile_nj & 
     1570      (domaingroup_hdl%daddr) 
     1571        tile_nj_ = tile_nj__tmp 
     1572      ENDIF 
     1573 
    13631574      IF (PRESENT(type_)) THEN 
    13641575        type__tmp = cxios_is_defined_domaingroup_type & 
Note: See TracChangeset for help on using the changeset viewer.