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

    r966 r1158  
    1212 
    1313  SUBROUTINE xios(set_scalar_attr)  & 
    14     ( scalar_id, long_name, name, scalar_ref, standard_name, unit, value ) 
     14    ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    1515 
    1616    IMPLICIT NONE 
    … …  
    1919      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    2020      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
     21      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    2122      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref 
    2223      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    … …  
    2728      (scalar_id,scalar_hdl) 
    2829      CALL xios(set_scalar_attr_hdl_)   & 
    29       ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
     30      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    3031 
    3132  END SUBROUTINE xios(set_scalar_attr) 
    3233 
    3334  SUBROUTINE xios(set_scalar_attr_hdl)  & 
    34     ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
     35    ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    3536 
    3637    IMPLICIT NONE 
    … …  
    3839      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    3940      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
     41      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    4042      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref 
    4143      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    … …  
    4446 
    4547      CALL xios(set_scalar_attr_hdl_)  & 
    46       ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
     48      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    4749 
    4850  END SUBROUTINE xios(set_scalar_attr_hdl) 
    4951 
    5052  SUBROUTINE xios(set_scalar_attr_hdl_)   & 
    51     ( scalar_hdl, long_name_, name_, scalar_ref_, standard_name_, unit_, value_ ) 
     53    ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
    5254 
    5355    IMPLICIT NONE 
    … …  
    5557      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 
    5658      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
     59      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    5760      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_ 
    5861      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
    … …  
    7073      ENDIF 
    7174 
     75      IF (PRESENT(prec_)) THEN 
     76        CALL cxios_set_scalar_prec & 
     77      (scalar_hdl%daddr, prec_) 
     78      ENDIF 
     79 
    7280      IF (PRESENT(scalar_ref_)) THEN 
    7381        CALL cxios_set_scalar_scalar_ref & 
    … …  
    93101 
    94102  SUBROUTINE xios(get_scalar_attr)  & 
    95     ( scalar_id, long_name, name, scalar_ref, standard_name, unit, value ) 
     103    ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    96104 
    97105    IMPLICIT NONE 
    … …  
    100108      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    101109      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
     110      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    102111      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref 
    103112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    … …  
    108117      (scalar_id,scalar_hdl) 
    109118      CALL xios(get_scalar_attr_hdl_)   & 
    110       ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
     119      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    111120 
    112121  END SUBROUTINE xios(get_scalar_attr) 
    113122 
    114123  SUBROUTINE xios(get_scalar_attr_hdl)  & 
    115     ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
     124    ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    116125 
    117126    IMPLICIT NONE 
    … …  
    119128      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    120129      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
     130      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    121131      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref 
    122132      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    … …  
    125135 
    126136      CALL xios(get_scalar_attr_hdl_)  & 
    127       ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
     137      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    128138 
    129139  END SUBROUTINE xios(get_scalar_attr_hdl) 
    130140 
    131141  SUBROUTINE xios(get_scalar_attr_hdl_)   & 
    132     ( scalar_hdl, long_name_, name_, scalar_ref_, standard_name_, unit_, value_ ) 
     142    ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
    133143 
    134144    IMPLICIT NONE 
    … …  
    136146      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 
    137147      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
     148      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    138149      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_ 
    139150      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
    … …  
    151162      ENDIF 
    152163 
     164      IF (PRESENT(prec_)) THEN 
     165        CALL cxios_get_scalar_prec & 
     166      (scalar_hdl%daddr, prec_) 
     167      ENDIF 
     168 
    153169      IF (PRESENT(scalar_ref_)) THEN 
    154170        CALL cxios_get_scalar_scalar_ref & 
    … …  
    174190 
    175191  SUBROUTINE xios(is_defined_scalar_attr)  & 
    176     ( scalar_id, long_name, name, scalar_ref, standard_name, unit, value ) 
     192    ( scalar_id, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    177193 
    178194    IMPLICIT NONE 
    … …  
    183199      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    184200      LOGICAL(KIND=C_BOOL) :: name_tmp 
     201      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
     202      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    185203      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref 
    186204      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp 
    … …  
    195213      (scalar_id,scalar_hdl) 
    196214      CALL xios(is_defined_scalar_attr_hdl_)   & 
    197       ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
     215      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    198216 
    199217  END SUBROUTINE xios(is_defined_scalar_attr) 
    200218 
    201219  SUBROUTINE xios(is_defined_scalar_attr_hdl)  & 
    202     ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
     220    ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    203221 
    204222    IMPLICIT NONE 
    … …  
    208226      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    209227      LOGICAL(KIND=C_BOOL) :: name_tmp 
     228      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
     229      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    210230      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref 
    211231      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp 
    … …  
    218238 
    219239      CALL xios(is_defined_scalar_attr_hdl_)  & 
    220       ( scalar_hdl, long_name, name, scalar_ref, standard_name, unit, value ) 
     240      ( scalar_hdl, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    221241 
    222242  END SUBROUTINE xios(is_defined_scalar_attr_hdl) 
    223243 
    224244  SUBROUTINE xios(is_defined_scalar_attr_hdl_)   & 
    225     ( scalar_hdl, long_name_, name_, scalar_ref_, standard_name_, unit_, value_ ) 
     245    ( scalar_hdl, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
    226246 
    227247    IMPLICIT NONE 
    … …  
    231251      LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 
    232252      LOGICAL(KIND=C_BOOL) :: name__tmp 
     253      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 
     254      LOGICAL(KIND=C_BOOL) :: prec__tmp 
    233255      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_ 
    234256      LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp 
    … …  
    252274      ENDIF 
    253275 
     276      IF (PRESENT(prec_)) THEN 
     277        prec__tmp = cxios_is_defined_scalar_prec & 
     278      (scalar_hdl%daddr) 
     279        prec_ = prec__tmp 
     280      ENDIF 
     281 
    254282      IF (PRESENT(scalar_ref_)) THEN 
    255283        scalar_ref__tmp = cxios_is_defined_scalar_scalar_ref & 
Note: See TracChangeset for help on using the changeset viewer.