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

    r609 r666  
    3131 
    3232 
     33    SUBROUTINE cxios_set_axisgroup_begin(axisgroup_hdl, begin) BIND(C) 
     34      USE ISO_C_BINDING 
     35      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     36      INTEGER (KIND=C_INT)      , VALUE :: begin 
     37    END SUBROUTINE cxios_set_axisgroup_begin 
     38 
     39    SUBROUTINE cxios_get_axisgroup_begin(axisgroup_hdl, begin) BIND(C) 
     40      USE ISO_C_BINDING 
     41      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     42      INTEGER (KIND=C_INT)             :: begin 
     43    END SUBROUTINE cxios_get_axisgroup_begin 
     44 
     45    FUNCTION cxios_is_defined_axisgroup_begin(axisgroup_hdl) BIND(C) 
     46      USE ISO_C_BINDING 
     47      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_begin 
     48      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     49    END FUNCTION cxios_is_defined_axisgroup_begin 
     50 
     51 
    3352    SUBROUTINE cxios_set_axisgroup_bounds(axisgroup_hdl, bounds, extent1, extent2) BIND(C) 
    3453      USE ISO_C_BINDING 
    … …  
    134153 
    135154 
    136     SUBROUTINE cxios_set_axisgroup_ibegin(axisgroup_hdl, ibegin) BIND(C) 
    137       USE ISO_C_BINDING 
    138       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    139       INTEGER (KIND=C_INT)      , VALUE :: ibegin 
    140     END SUBROUTINE cxios_set_axisgroup_ibegin 
    141  
    142     SUBROUTINE cxios_get_axisgroup_ibegin(axisgroup_hdl, ibegin) BIND(C) 
    143       USE ISO_C_BINDING 
    144       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    145       INTEGER (KIND=C_INT)             :: ibegin 
    146     END SUBROUTINE cxios_get_axisgroup_ibegin 
    147  
    148     FUNCTION cxios_is_defined_axisgroup_ibegin(axisgroup_hdl) BIND(C) 
    149       USE ISO_C_BINDING 
    150       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_ibegin 
    151       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    152     END FUNCTION cxios_is_defined_axisgroup_ibegin 
    153  
    154  
    155155    SUBROUTINE cxios_set_axisgroup_long_name(axisgroup_hdl, long_name, long_name_size) BIND(C) 
    156156      USE ISO_C_BINDING 
    … …  
    195195 
    196196 
     197    SUBROUTINE cxios_set_axisgroup_n(axisgroup_hdl, n) BIND(C) 
     198      USE ISO_C_BINDING 
     199      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     200      INTEGER (KIND=C_INT)      , VALUE :: n 
     201    END SUBROUTINE cxios_set_axisgroup_n 
     202 
     203    SUBROUTINE cxios_get_axisgroup_n(axisgroup_hdl, n) BIND(C) 
     204      USE ISO_C_BINDING 
     205      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     206      INTEGER (KIND=C_INT)             :: n 
     207    END SUBROUTINE cxios_get_axisgroup_n 
     208 
     209    FUNCTION cxios_is_defined_axisgroup_n(axisgroup_hdl) BIND(C) 
     210      USE ISO_C_BINDING 
     211      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n 
     212      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     213    END FUNCTION cxios_is_defined_axisgroup_n 
     214 
     215 
     216    SUBROUTINE cxios_set_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C) 
     217      USE ISO_C_BINDING 
     218      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     219      INTEGER (KIND=C_INT)      , VALUE :: n_glo 
     220    END SUBROUTINE cxios_set_axisgroup_n_glo 
     221 
     222    SUBROUTINE cxios_get_axisgroup_n_glo(axisgroup_hdl, n_glo) BIND(C) 
     223      USE ISO_C_BINDING 
     224      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     225      INTEGER (KIND=C_INT)             :: n_glo 
     226    END SUBROUTINE cxios_get_axisgroup_n_glo 
     227 
     228    FUNCTION cxios_is_defined_axisgroup_n_glo(axisgroup_hdl) BIND(C) 
     229      USE ISO_C_BINDING 
     230      LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_n_glo 
     231      INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
     232    END FUNCTION cxios_is_defined_axisgroup_n_glo 
     233 
     234 
    197235    SUBROUTINE cxios_set_axisgroup_name(axisgroup_hdl, name, name_size) BIND(C) 
    198236      USE ISO_C_BINDING 
    … …  
    216254 
    217255 
    218     SUBROUTINE cxios_set_axisgroup_ni(axisgroup_hdl, ni) BIND(C) 
    219       USE ISO_C_BINDING 
    220       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    221       INTEGER (KIND=C_INT)      , VALUE :: ni 
    222     END SUBROUTINE cxios_set_axisgroup_ni 
    223  
    224     SUBROUTINE cxios_get_axisgroup_ni(axisgroup_hdl, ni) BIND(C) 
    225       USE ISO_C_BINDING 
    226       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    227       INTEGER (KIND=C_INT)             :: ni 
    228     END SUBROUTINE cxios_get_axisgroup_ni 
    229  
    230     FUNCTION cxios_is_defined_axisgroup_ni(axisgroup_hdl) BIND(C) 
    231       USE ISO_C_BINDING 
    232       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_ni 
    233       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    234     END FUNCTION cxios_is_defined_axisgroup_ni 
    235  
    236  
    237256    SUBROUTINE cxios_set_axisgroup_positive(axisgroup_hdl, positive, positive_size) BIND(C) 
    238257      USE ISO_C_BINDING 
    … …  
    256275 
    257276 
    258     SUBROUTINE cxios_set_axisgroup_size(axisgroup_hdl, size) BIND(C) 
    259       USE ISO_C_BINDING 
    260       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    261       INTEGER (KIND=C_INT)      , VALUE :: size 
    262     END SUBROUTINE cxios_set_axisgroup_size 
    263  
    264     SUBROUTINE cxios_get_axisgroup_size(axisgroup_hdl, size) BIND(C) 
    265       USE ISO_C_BINDING 
    266       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    267       INTEGER (KIND=C_INT)             :: size 
    268     END SUBROUTINE cxios_get_axisgroup_size 
    269  
    270     FUNCTION cxios_is_defined_axisgroup_size(axisgroup_hdl) BIND(C) 
    271       USE ISO_C_BINDING 
    272       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_size 
    273       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    274     END FUNCTION cxios_is_defined_axisgroup_size 
    275  
    276  
    277277    SUBROUTINE cxios_set_axisgroup_standard_name(axisgroup_hdl, standard_name, standard_name_size) BIND(C) 
    278278      USE ISO_C_BINDING 
    … …  
    337337    END FUNCTION cxios_is_defined_axisgroup_value 
    338338 
    339  
    340     SUBROUTINE cxios_set_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C) 
    341       USE ISO_C_BINDING 
    342       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    343       INTEGER (KIND=C_INT)      , VALUE :: zoom_begin 
    344     END SUBROUTINE cxios_set_axisgroup_zoom_begin 
    345  
    346     SUBROUTINE cxios_get_axisgroup_zoom_begin(axisgroup_hdl, zoom_begin) BIND(C) 
    347       USE ISO_C_BINDING 
    348       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    349       INTEGER (KIND=C_INT)             :: zoom_begin 
    350     END SUBROUTINE cxios_get_axisgroup_zoom_begin 
    351  
    352     FUNCTION cxios_is_defined_axisgroup_zoom_begin(axisgroup_hdl) BIND(C) 
    353       USE ISO_C_BINDING 
    354       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_begin 
    355       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    356     END FUNCTION cxios_is_defined_axisgroup_zoom_begin 
    357  
    358  
    359     SUBROUTINE cxios_set_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C) 
    360       USE ISO_C_BINDING 
    361       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    362       INTEGER (KIND=C_INT)      , VALUE :: zoom_end 
    363     END SUBROUTINE cxios_set_axisgroup_zoom_end 
    364  
    365     SUBROUTINE cxios_get_axisgroup_zoom_end(axisgroup_hdl, zoom_end) BIND(C) 
    366       USE ISO_C_BINDING 
    367       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    368       INTEGER (KIND=C_INT)             :: zoom_end 
    369     END SUBROUTINE cxios_get_axisgroup_zoom_end 
    370  
    371     FUNCTION cxios_is_defined_axisgroup_zoom_end(axisgroup_hdl) BIND(C) 
    372       USE ISO_C_BINDING 
    373       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_end 
    374       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    375     END FUNCTION cxios_is_defined_axisgroup_zoom_end 
    376  
    377  
    378     SUBROUTINE cxios_set_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C) 
    379       USE ISO_C_BINDING 
    380       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    381       INTEGER (KIND=C_INT)      , VALUE :: zoom_size 
    382     END SUBROUTINE cxios_set_axisgroup_zoom_size 
    383  
    384     SUBROUTINE cxios_get_axisgroup_zoom_size(axisgroup_hdl, zoom_size) BIND(C) 
    385       USE ISO_C_BINDING 
    386       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    387       INTEGER (KIND=C_INT)             :: zoom_size 
    388     END SUBROUTINE cxios_get_axisgroup_zoom_size 
    389  
    390     FUNCTION cxios_is_defined_axisgroup_zoom_size(axisgroup_hdl) BIND(C) 
    391       USE ISO_C_BINDING 
    392       LOGICAL(kind=C_BOOL) :: cxios_is_defined_axisgroup_zoom_size 
    393       INTEGER (kind = C_INTPTR_T), VALUE :: axisgroup_hdl 
    394     END FUNCTION cxios_is_defined_axisgroup_zoom_size 
    395  
    396339  END INTERFACE 
    397340 
Note: See TracChangeset for help on using the changeset viewer.