Ignore:
Timestamp:
08/24/15 14:53:27 (9 years ago)
Author:
mhnguyen
Message:

Change name of several axis attributes and remove some redundant variable of domain

+) Change name of axis attributes to make them consistent with ones of domain
+) Remove zoom_client_* of domain

Test
+) On Curie
+) All tests pass and are correct

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/axis_interface_attr.F90

    r609 r666  
    3131 
    3232 
     33    SUBROUTINE cxios_set_axis_begin(axis_hdl, begin) BIND(C) 
     34      USE ISO_C_BINDING 
     35      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     36      INTEGER (KIND=C_INT)      , VALUE :: begin 
     37    END SUBROUTINE cxios_set_axis_begin 
     38 
     39    SUBROUTINE cxios_get_axis_begin(axis_hdl, begin) BIND(C) 
     40      USE ISO_C_BINDING 
     41      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     42      INTEGER (KIND=C_INT)             :: begin 
     43    END SUBROUTINE cxios_get_axis_begin 
     44 
     45    FUNCTION cxios_is_defined_axis_begin(axis_hdl) BIND(C) 
     46      USE ISO_C_BINDING 
     47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_begin 
     48      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     49    END FUNCTION cxios_is_defined_axis_begin 
     50 
     51 
    3352    SUBROUTINE cxios_set_axis_bounds(axis_hdl, bounds, extent1, extent2) BIND(C) 
    3453      USE ISO_C_BINDING 
    … …  
    111130      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    112131    END FUNCTION cxios_is_defined_axis_data_n 
    113  
    114  
    115     SUBROUTINE cxios_set_axis_ibegin(axis_hdl, ibegin) BIND(C) 
    116       USE ISO_C_BINDING 
    117       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    118       INTEGER (KIND=C_INT)      , VALUE :: ibegin 
    119     END SUBROUTINE cxios_set_axis_ibegin 
    120  
    121     SUBROUTINE cxios_get_axis_ibegin(axis_hdl, ibegin) BIND(C) 
    122       USE ISO_C_BINDING 
    123       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    124       INTEGER (KIND=C_INT)             :: ibegin 
    125     END SUBROUTINE cxios_get_axis_ibegin 
    126  
    127     FUNCTION cxios_is_defined_axis_ibegin(axis_hdl) BIND(C) 
    128       USE ISO_C_BINDING 
    129       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_ibegin 
    130       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    131     END FUNCTION cxios_is_defined_axis_ibegin 
    132132 
    133133 
    … …  
    174174 
    175175 
     176    SUBROUTINE cxios_set_axis_n(axis_hdl, n) BIND(C) 
     177      USE ISO_C_BINDING 
     178      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     179      INTEGER (KIND=C_INT)      , VALUE :: n 
     180    END SUBROUTINE cxios_set_axis_n 
     181 
     182    SUBROUTINE cxios_get_axis_n(axis_hdl, n) BIND(C) 
     183      USE ISO_C_BINDING 
     184      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     185      INTEGER (KIND=C_INT)             :: n 
     186    END SUBROUTINE cxios_get_axis_n 
     187 
     188    FUNCTION cxios_is_defined_axis_n(axis_hdl) BIND(C) 
     189      USE ISO_C_BINDING 
     190      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n 
     191      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     192    END FUNCTION cxios_is_defined_axis_n 
     193 
     194 
     195    SUBROUTINE cxios_set_axis_n_glo(axis_hdl, n_glo) BIND(C) 
     196      USE ISO_C_BINDING 
     197      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     198      INTEGER (KIND=C_INT)      , VALUE :: n_glo 
     199    END SUBROUTINE cxios_set_axis_n_glo 
     200 
     201    SUBROUTINE cxios_get_axis_n_glo(axis_hdl, n_glo) BIND(C) 
     202      USE ISO_C_BINDING 
     203      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     204      INTEGER (KIND=C_INT)             :: n_glo 
     205    END SUBROUTINE cxios_get_axis_n_glo 
     206 
     207    FUNCTION cxios_is_defined_axis_n_glo(axis_hdl) BIND(C) 
     208      USE ISO_C_BINDING 
     209      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_n_glo 
     210      INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
     211    END FUNCTION cxios_is_defined_axis_n_glo 
     212 
     213 
    176214    SUBROUTINE cxios_set_axis_name(axis_hdl, name, name_size) BIND(C) 
    177215      USE ISO_C_BINDING 
    … …  
    195233 
    196234 
    197     SUBROUTINE cxios_set_axis_ni(axis_hdl, ni) BIND(C) 
    198       USE ISO_C_BINDING 
    199       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    200       INTEGER (KIND=C_INT)      , VALUE :: ni 
    201     END SUBROUTINE cxios_set_axis_ni 
    202  
    203     SUBROUTINE cxios_get_axis_ni(axis_hdl, ni) BIND(C) 
    204       USE ISO_C_BINDING 
    205       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    206       INTEGER (KIND=C_INT)             :: ni 
    207     END SUBROUTINE cxios_get_axis_ni 
    208  
    209     FUNCTION cxios_is_defined_axis_ni(axis_hdl) BIND(C) 
    210       USE ISO_C_BINDING 
    211       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_ni 
    212       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    213     END FUNCTION cxios_is_defined_axis_ni 
    214  
    215  
    216235    SUBROUTINE cxios_set_axis_positive(axis_hdl, positive, positive_size) BIND(C) 
    217236      USE ISO_C_BINDING 
    … …  
    235254 
    236255 
    237     SUBROUTINE cxios_set_axis_size(axis_hdl, size) BIND(C) 
    238       USE ISO_C_BINDING 
    239       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    240       INTEGER (KIND=C_INT)      , VALUE :: size 
    241     END SUBROUTINE cxios_set_axis_size 
    242  
    243     SUBROUTINE cxios_get_axis_size(axis_hdl, size) BIND(C) 
    244       USE ISO_C_BINDING 
    245       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    246       INTEGER (KIND=C_INT)             :: size 
    247     END SUBROUTINE cxios_get_axis_size 
    248  
    249     FUNCTION cxios_is_defined_axis_size(axis_hdl) BIND(C) 
    250       USE ISO_C_BINDING 
    251       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_size 
    252       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    253     END FUNCTION cxios_is_defined_axis_size 
    254  
    255  
    256256    SUBROUTINE cxios_set_axis_standard_name(axis_hdl, standard_name, standard_name_size) BIND(C) 
    257257      USE ISO_C_BINDING 
    … …  
    316316    END FUNCTION cxios_is_defined_axis_value 
    317317 
    318  
    319     SUBROUTINE cxios_set_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C) 
    320       USE ISO_C_BINDING 
    321       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    322       INTEGER (KIND=C_INT)      , VALUE :: zoom_begin 
    323     END SUBROUTINE cxios_set_axis_zoom_begin 
    324  
    325     SUBROUTINE cxios_get_axis_zoom_begin(axis_hdl, zoom_begin) BIND(C) 
    326       USE ISO_C_BINDING 
    327       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    328       INTEGER (KIND=C_INT)             :: zoom_begin 
    329     END SUBROUTINE cxios_get_axis_zoom_begin 
    330  
    331     FUNCTION cxios_is_defined_axis_zoom_begin(axis_hdl) BIND(C) 
    332       USE ISO_C_BINDING 
    333       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_begin 
    334       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    335     END FUNCTION cxios_is_defined_axis_zoom_begin 
    336  
    337  
    338     SUBROUTINE cxios_set_axis_zoom_end(axis_hdl, zoom_end) BIND(C) 
    339       USE ISO_C_BINDING 
    340       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    341       INTEGER (KIND=C_INT)      , VALUE :: zoom_end 
    342     END SUBROUTINE cxios_set_axis_zoom_end 
    343  
    344     SUBROUTINE cxios_get_axis_zoom_end(axis_hdl, zoom_end) BIND(C) 
    345       USE ISO_C_BINDING 
    346       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    347       INTEGER (KIND=C_INT)             :: zoom_end 
    348     END SUBROUTINE cxios_get_axis_zoom_end 
    349  
    350     FUNCTION cxios_is_defined_axis_zoom_end(axis_hdl) BIND(C) 
    351       USE ISO_C_BINDING 
    352       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_end 
    353       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    354     END FUNCTION cxios_is_defined_axis_zoom_end 
    355  
    356  
    357     SUBROUTINE cxios_set_axis_zoom_size(axis_hdl, zoom_size) BIND(C) 
    358       USE ISO_C_BINDING 
    359       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    360       INTEGER (KIND=C_INT)      , VALUE :: zoom_size 
    361     END SUBROUTINE cxios_set_axis_zoom_size 
    362  
    363     SUBROUTINE cxios_get_axis_zoom_size(axis_hdl, zoom_size) BIND(C) 
    364       USE ISO_C_BINDING 
    365       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    366       INTEGER (KIND=C_INT)             :: zoom_size 
    367     END SUBROUTINE cxios_get_axis_zoom_size 
    368  
    369     FUNCTION cxios_is_defined_axis_zoom_size(axis_hdl) BIND(C) 
    370       USE ISO_C_BINDING 
    371       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axis_zoom_size 
    372       INTEGER (kind = C_INTPTR_T), VALUE :: axis_hdl 
    373     END FUNCTION cxios_is_defined_axis_zoom_size 
    374  
    375318  END INTERFACE 
    376319 
Note: See TracChangeset for help on using the changeset viewer.