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

    r966 r1158  
    1212 
    1313  SUBROUTINE xios(set_scalargroup_attr)  & 
    14     ( scalargroup_id, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     14    ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    1515 
    1616    IMPLICIT NONE 
    … …  
    2020      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    2121      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
     22      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    2223      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref 
    2324      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    … …  
    2829      (scalargroup_id,scalargroup_hdl) 
    2930      CALL xios(set_scalargroup_attr_hdl_)   & 
    30       ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     31      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
     32       ) 
    3133 
    3234  END SUBROUTINE xios(set_scalargroup_attr) 
    3335 
    3436  SUBROUTINE xios(set_scalargroup_attr_hdl)  & 
    35     ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     37    ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
     38     ) 
    3639 
    3740    IMPLICIT NONE 
    … …  
    4043      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 
    4144      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
     45      INTEGER  , OPTIONAL, INTENT(IN) :: prec 
    4246      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref 
    4347      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name 
    … …  
    4650 
    4751      CALL xios(set_scalargroup_attr_hdl_)  & 
    48       ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     52      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
     53       ) 
    4954 
    5055  END SUBROUTINE xios(set_scalargroup_attr_hdl) 
    5156 
    5257  SUBROUTINE xios(set_scalargroup_attr_hdl_)   & 
    53     ( scalargroup_hdl, group_ref_, long_name_, name_, scalar_ref_, standard_name_, unit_, value_  & 
    54     ) 
     58    ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_  & 
     59    , value_ ) 
    5560 
    5661    IMPLICIT NONE 
    … …  
    5964      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 
    6065      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
     66      INTEGER  , OPTIONAL, INTENT(IN) :: prec_ 
    6167      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: scalar_ref_ 
    6268      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: standard_name_ 
    … …  
    7985      ENDIF 
    8086 
     87      IF (PRESENT(prec_)) THEN 
     88        CALL cxios_set_scalargroup_prec & 
     89      (scalargroup_hdl%daddr, prec_) 
     90      ENDIF 
     91 
    8192      IF (PRESENT(scalar_ref_)) THEN 
    8293        CALL cxios_set_scalargroup_scalar_ref & 
    … …  
    102113 
    103114  SUBROUTINE xios(get_scalargroup_attr)  & 
    104     ( scalargroup_id, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     115    ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    105116 
    106117    IMPLICIT NONE 
    … …  
    110121      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    111122      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
     123      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    112124      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref 
    113125      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    … …  
    118130      (scalargroup_id,scalargroup_hdl) 
    119131      CALL xios(get_scalargroup_attr_hdl_)   & 
    120       ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     132      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
     133       ) 
    121134 
    122135  END SUBROUTINE xios(get_scalargroup_attr) 
    123136 
    124137  SUBROUTINE xios(get_scalargroup_attr_hdl)  & 
    125     ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     138    ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
     139     ) 
    126140 
    127141    IMPLICIT NONE 
    … …  
    130144      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 
    131145      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
     146      INTEGER  , OPTIONAL, INTENT(OUT) :: prec 
    132147      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref 
    133148      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name 
    … …  
    136151 
    137152      CALL xios(get_scalargroup_attr_hdl_)  & 
    138       ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     153      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
     154       ) 
    139155 
    140156  END SUBROUTINE xios(get_scalargroup_attr_hdl) 
    141157 
    142158  SUBROUTINE xios(get_scalargroup_attr_hdl_)   & 
    143     ( scalargroup_hdl, group_ref_, long_name_, name_, scalar_ref_, standard_name_, unit_, value_  & 
    144     ) 
     159    ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_  & 
     160    , value_ ) 
    145161 
    146162    IMPLICIT NONE 
    … …  
    149165      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 
    150166      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
     167      INTEGER  , OPTIONAL, INTENT(OUT) :: prec_ 
    151168      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: scalar_ref_ 
    152169      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: standard_name_ 
    … …  
    169186      ENDIF 
    170187 
     188      IF (PRESENT(prec_)) THEN 
     189        CALL cxios_get_scalargroup_prec & 
     190      (scalargroup_hdl%daddr, prec_) 
     191      ENDIF 
     192 
    171193      IF (PRESENT(scalar_ref_)) THEN 
    172194        CALL cxios_get_scalargroup_scalar_ref & 
    … …  
    192214 
    193215  SUBROUTINE xios(is_defined_scalargroup_attr)  & 
    194     ( scalargroup_id, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     216    ( scalargroup_id, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value ) 
    195217 
    196218    IMPLICIT NONE 
    … …  
    203225      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    204226      LOGICAL(KIND=C_BOOL) :: name_tmp 
     227      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
     228      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    205229      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref 
    206230      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp 
    … …  
    215239      (scalargroup_id,scalargroup_hdl) 
    216240      CALL xios(is_defined_scalargroup_attr_hdl_)   & 
    217       ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     241      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
     242       ) 
    218243 
    219244  END SUBROUTINE xios(is_defined_scalargroup_attr) 
    220245 
    221246  SUBROUTINE xios(is_defined_scalargroup_attr_hdl)  & 
    222     ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     247    ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
     248     ) 
    223249 
    224250    IMPLICIT NONE 
    … …  
    230256      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    231257      LOGICAL(KIND=C_BOOL) :: name_tmp 
     258      LOGICAL, OPTIONAL, INTENT(OUT) :: prec 
     259      LOGICAL(KIND=C_BOOL) :: prec_tmp 
    232260      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref 
    233261      LOGICAL(KIND=C_BOOL) :: scalar_ref_tmp 
    … …  
    240268 
    241269      CALL xios(is_defined_scalargroup_attr_hdl_)  & 
    242       ( scalargroup_hdl, group_ref, long_name, name, scalar_ref, standard_name, unit, value ) 
     270      ( scalargroup_hdl, group_ref, long_name, name, prec, scalar_ref, standard_name, unit, value  & 
     271       ) 
    243272 
    244273  END SUBROUTINE xios(is_defined_scalargroup_attr_hdl) 
    245274 
    246275  SUBROUTINE xios(is_defined_scalargroup_attr_hdl_)   & 
    247     ( scalargroup_hdl, group_ref_, long_name_, name_, scalar_ref_, standard_name_, unit_, value_  & 
    248     ) 
     276    ( scalargroup_hdl, group_ref_, long_name_, name_, prec_, scalar_ref_, standard_name_, unit_  & 
     277    , value_ ) 
    249278 
    250279    IMPLICIT NONE 
    … …  
    256285      LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 
    257286      LOGICAL(KIND=C_BOOL) :: name__tmp 
     287      LOGICAL, OPTIONAL, INTENT(OUT) :: prec_ 
     288      LOGICAL(KIND=C_BOOL) :: prec__tmp 
    258289      LOGICAL, OPTIONAL, INTENT(OUT) :: scalar_ref_ 
    259290      LOGICAL(KIND=C_BOOL) :: scalar_ref__tmp 
    … …  
    283314      ENDIF 
    284315 
     316      IF (PRESENT(prec_)) THEN 
     317        prec__tmp = cxios_is_defined_scalargroup_prec & 
     318      (scalargroup_hdl%daddr) 
     319        prec_ = prec__tmp 
     320      ENDIF 
     321 
    285322      IF (PRESENT(scalar_ref_)) THEN 
    286323        scalar_ref__tmp = cxios_is_defined_scalargroup_scalar_ref & 
Note: See TracChangeset for help on using the changeset viewer.