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

dev_oa: adding two more tile attribures

File:
1 edited

Legend:

Unmodified
Added
Removed

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

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