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/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 
Note: See TracChangeset for help on using the changeset viewer.