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

Adding tile attributes.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.