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

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