Ignore:
Timestamp:
06/06/17 17:58:16 (7 years ago)
Author:
oabramkina
Message:

Two server levels: merging with trunk r1137.
There are bugs.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_olga/src/interface/fortran_attr/iaxis_attr.F90

    r966 r1158  
    1212 
    1313  SUBROUTINE xios(set_axis_attr)  & 
    14     ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n  & 
    15     , n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     14    ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     15    , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     16     ) 
    1617 
    1718    IMPLICIT NONE 
    … …  
    2526      INTEGER  , OPTIONAL, INTENT(IN) :: data_n 
    2627      INTEGER  , OPTIONAL, INTENT(IN) :: index(:) 
     28      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:) 
    2729      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    2830      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:) 
    … …  
    3335      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    3436      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 
     37      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    3538      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    3639      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit 
    … …  
    4043      (axis_id,axis_hdl) 
    4144      CALL xios(set_axis_attr_hdl_)   & 
    42       ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    43       , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     45      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     46      , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     47       ) 
    4448 
    4549  END SUBROUTINE xios(set_axis_attr) 
    4650 
    4751  SUBROUTINE xios(set_axis_attr_hdl)  & 
    48     ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    49     , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     52    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     53    , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     54     ) 
    5055 
    5156    IMPLICIT NONE 
    … …  
    5863      INTEGER  , OPTIONAL, INTENT(IN) :: data_n 
    5964      INTEGER  , OPTIONAL, INTENT(IN) :: index(:) 
     65      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label(:) 
    6066      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    6167      LOGICAL  , OPTIONAL, INTENT(IN) :: mask(:) 
    … …  
    6672      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    6773      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 
     74      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    6875      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    6976      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit 
    … …  
    7178 
    7279      CALL xios(set_axis_attr_hdl_)  & 
    73       ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    74       , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     80      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     81      , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     82       ) 
    7583 
    7684  END SUBROUTINE xios(set_axis_attr_hdl) 
    7785 
    7886  SUBROUTINE xios(set_axis_attr_hdl_)   & 
    79     ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, long_name_  & 
    80     , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_  & 
    81     ) 
     87    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_  & 
     88    , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_  & 
     89    , value_ ) 
    8290 
    8391    IMPLICIT NONE 
    … …  
    9098      INTEGER  , OPTIONAL, INTENT(IN) :: data_n_ 
    9199      INTEGER  , OPTIONAL, INTENT(IN) :: index_(:) 
     100      CHARACTER(len=*) , OPTIONAL, INTENT(IN) :: label_(:) 
    92101      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 
    93102      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_(:) 
    … …  
    98107      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
    99108      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ 
     109      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    100110      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
    101111      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: unit_ 
    … …  
    135145        CALL cxios_set_axis_index & 
    136146      (axis_hdl%daddr, index_, SHAPE(index_)) 
     147      ENDIF 
     148 
     149      IF (PRESENT(label_)) THEN 
     150        CALL cxios_set_axis_label & 
     151      (axis_hdl%daddr, label_, LEN(label_), LEN_TRIM(label_), SHAPE(label_)) 
    137152      ENDIF 
    138153 
    … …  
    174189      ENDIF 
    175190 
     191      IF (PRESENT(prec_)) THEN 
     192        CALL cxios_set_axis_prec & 
     193      (axis_hdl%daddr, prec_) 
     194      ENDIF 
     195 
    176196      IF (PRESENT(standard_name_)) THEN 
    177197        CALL cxios_set_axis_standard_name & 
    … …  
    192212 
    193213  SUBROUTINE xios(get_axis_attr)  & 
    194     ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n  & 
    195     , n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     214    ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     215    , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     216     ) 
    196217 
    197218    IMPLICIT NONE 
    … …  
    205226      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n 
    206227      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:) 
     228      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:) 
    207229      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    208230      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:) 
    … …  
    213235      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    214236      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 
     237      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    215238      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    216239      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit 
    … …  
    220243      (axis_id,axis_hdl) 
    221244      CALL xios(get_axis_attr_hdl_)   & 
    222       ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    223       , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     245      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     246      , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     247       ) 
    224248 
    225249  END SUBROUTINE xios(get_axis_attr) 
    226250 
    227251  SUBROUTINE xios(get_axis_attr_hdl)  & 
    228     ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    229     , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     252    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     253    , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     254     ) 
    230255 
    231256    IMPLICIT NONE 
    … …  
    238263      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n 
    239264      INTEGER  , OPTIONAL, INTENT(OUT) :: index(:) 
     265      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label(:) 
    240266      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    241267      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask(:) 
    … …  
    246272      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    247273      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 
     274      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    248275      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    249276      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit 
    … …  
    251278 
    252279      CALL xios(get_axis_attr_hdl_)  & 
    253       ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    254       , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     280      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     281      , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     282       ) 
    255283 
    256284  END SUBROUTINE xios(get_axis_attr_hdl) 
    257285 
    258286  SUBROUTINE xios(get_axis_attr_hdl_)   & 
    259     ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, long_name_  & 
    260     , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_  & 
    261     ) 
     287    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_  & 
     288    , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_  & 
     289    , value_ ) 
    262290 
    263291    IMPLICIT NONE 
    … …  
    270298      INTEGER  , OPTIONAL, INTENT(OUT) :: data_n_ 
    271299      INTEGER  , OPTIONAL, INTENT(OUT) :: index_(:) 
     300      CHARACTER(len=*) , OPTIONAL, INTENT(OUT) :: label_(:) 
    272301      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 
    273302      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_(:) 
    … …  
    278307      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
    279308      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ 
     309      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    280310      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
    281311      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: unit_ 
    … …  
    315345        CALL cxios_get_axis_index & 
    316346      (axis_hdl%daddr, index_, SHAPE(index_)) 
     347      ENDIF 
     348 
     349      IF (PRESENT(label_)) THEN 
     350        CALL cxios_get_axis_label & 
     351      (axis_hdl%daddr, label_, LEN(label_), SHAPE(label_)) 
    317352      ENDIF 
    318353 
    … …  
    354389      ENDIF 
    355390 
     391      IF (PRESENT(prec_)) THEN 
     392        CALL cxios_get_axis_prec & 
     393      (axis_hdl%daddr, prec_) 
     394      ENDIF 
     395 
    356396      IF (PRESENT(standard_name_)) THEN 
    357397        CALL cxios_get_axis_standard_name & 
    … …  
    372412 
    373413  SUBROUTINE xios(is_defined_axis_attr)  & 
    374     ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask, n  & 
    375     , n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     414    ( axis_id, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     415    , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     416     ) 
    376417 
    377418    IMPLICIT NONE 
    … …  
    392433      LOGICAL, OPTIONAL, INTENT(OUT) :: index 
    393434      LOGICAL(KIND=C_BOOL) :: index_tmp 
     435      LOGICAL, OPTIONAL, INTENT(OUT) :: label 
     436      LOGICAL(KIND=C_BOOL) :: label_tmp 
    394437      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
    395438      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
    … …  
    406449      LOGICAL, OPTIONAL, INTENT(OUT) :: positive 
    407450      LOGICAL(KIND=C_BOOL) :: positive_tmp 
     451      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
     452      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    408453      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    409454      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
    … …  
    416461      (axis_id,axis_hdl) 
    417462      CALL xios(is_defined_axis_attr_hdl_)   & 
    418       ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    419       , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     463      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     464      , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     465       ) 
    420466 
    421467  END SUBROUTINE xios(is_defined_axis_attr) 
    422468 
    423469  SUBROUTINE xios(is_defined_axis_attr_hdl)  & 
    424     ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    425     , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     470    ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     471    , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     472     ) 
    426473 
    427474    IMPLICIT NONE 
    … …  
    441488      LOGICAL, OPTIONAL, INTENT(OUT) :: index 
    442489      LOGICAL(KIND=C_BOOL) :: index_tmp 
     490      LOGICAL, OPTIONAL, INTENT(OUT) :: label 
     491      LOGICAL(KIND=C_BOOL) :: label_tmp 
    443492      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 
    444493      LOGICAL(KIND=C_BOOL) :: long_name_tmp 
    … …  
    455504      LOGICAL, OPTIONAL, INTENT(OUT) :: positive 
    456505      LOGICAL(KIND=C_BOOL) :: positive_tmp 
     506      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
     507      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    457508      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name 
    458509      LOGICAL(KIND=C_BOOL) :: standard_name_tmp 
    … …  
    463514 
    464515      CALL xios(is_defined_axis_attr_hdl_)  & 
    465       ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, long_name, mask  & 
    466       , n, n_distributed_partition, n_glo, name, positive, standard_name, unit, value ) 
     516      ( axis_hdl, axis_ref, begin, bounds, data_begin, data_index, data_n, index, label, long_name  & 
     517      , mask, n, n_distributed_partition, n_glo, name, positive, prec, standard_name, unit, value  & 
     518       ) 
    467519 
    468520  END SUBROUTINE xios(is_defined_axis_attr_hdl) 
    469521 
    470522  SUBROUTINE xios(is_defined_axis_attr_hdl_)   & 
    471     ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, long_name_  & 
    472     , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, standard_name_, unit_, value_  & 
    473     ) 
     523    ( axis_hdl, axis_ref_, begin_, bounds_, data_begin_, data_index_, data_n_, index_, label_, long_name_  & 
     524    , mask_, n_, n_distributed_partition_, n_glo_, name_, positive_, prec_, standard_name_, unit_  & 
     525    , value_ ) 
    474526 
    475527    IMPLICIT NONE 
    … …  
    489541      LOGICAL, OPTIONAL, INTENT(OUT) :: index_ 
    490542      LOGICAL(KIND=C_BOOL) :: index__tmp 
     543      LOGICAL, OPTIONAL, INTENT(OUT) :: label_ 
     544      LOGICAL(KIND=C_BOOL) :: label__tmp 
    491545      LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 
    492546      LOGICAL(KIND=C_BOOL) :: long_name__tmp 
    … …  
    503557      LOGICAL, OPTIONAL, INTENT(OUT) :: positive_ 
    504558      LOGICAL(KIND=C_BOOL) :: positive__tmp 
     559      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 
     560      LOGICAL(KIND=C_BOOL) :: prec__tmp 
    505561      LOGICAL, OPTIONAL, INTENT(OUT) :: standard_name_ 
    506562      LOGICAL(KIND=C_BOOL) :: standard_name__tmp 
    … …  
    552608      ENDIF 
    553609 
     610      IF (PRESENT(label_)) THEN 
     611        label__tmp = cxios_is_defined_axis_label & 
     612      (axis_hdl%daddr) 
     613        label_ = label__tmp 
     614      ENDIF 
     615 
    554616      IF (PRESENT(long_name_)) THEN 
    555617        long_name__tmp = cxios_is_defined_axis_long_name & 
    … …  
    594656      ENDIF 
    595657 
     658      IF (PRESENT(prec_)) THEN 
     659        prec__tmp = cxios_is_defined_axis_prec & 
     660      (axis_hdl%daddr) 
     661        prec_ = prec__tmp 
     662      ENDIF 
     663 
    596664      IF (PRESENT(standard_name_)) THEN 
    597665        standard_name__tmp = cxios_is_defined_axis_standard_name & 
Note: See TracChangeset for help on using the changeset viewer.