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/idomain_attr.F90

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