Ignore:
Timestamp:
06/28/22 11:44:19 (2 years ago)
Author:
jderouillat
Message:

Added extract_domain interface. Updated all interfaces, normalize some private attributes names of domain

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iscalargroup_attr.F90

    r1941 r2338  
    1313  SUBROUTINE xios(set_scalargroup_attr)  & 
    1414    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    15     , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     15    , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    1616 
    1717    IMPLICIT NONE 
    … …  
    2727      LOGICAL  , OPTIONAL, INTENT(IN) :: mask 
    2828      LOGICAL (KIND=C_BOOL) :: mask_tmp 
     29      INTEGER  , OPTIONAL, INTENT(IN) :: n 
    2930      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    3031      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 
    … …  
    3940      CALL xios(set_scalargroup_attr_hdl_)   & 
    4041      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    41       , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     42      , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    4243 
    4344  END SUBROUTINE xios(set_scalargroup_attr) 
    … …  
    4546  SUBROUTINE xios(set_scalargroup_attr_hdl)  & 
    4647    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    47     , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     48    , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    4849 
    4950    IMPLICIT NONE 
    … …  
    5859      LOGICAL  , OPTIONAL, INTENT(IN) :: mask 
    5960      LOGICAL (KIND=C_BOOL) :: mask_tmp 
     61      INTEGER  , OPTIONAL, INTENT(IN) :: n 
    6062      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    6163      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive 
    … …  
    6870      CALL xios(set_scalargroup_attr_hdl_)  & 
    6971      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    70       , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     72      , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    7173 
    7274  END SUBROUTINE xios(set_scalargroup_attr_hdl) 
    … …  
    7476  SUBROUTINE xios(set_scalargroup_attr_hdl_)   & 
    7577    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  & 
    76     , mask_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
     78    , mask_, n_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
    7779 
    7880    IMPLICIT NONE 
    … …  
    8789      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_ 
    8890      LOGICAL (KIND=C_BOOL) :: mask__tmp 
     91      INTEGER  , OPTIONAL, INTENT(IN) :: n_ 
    8992      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
    9093      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ 
    … …  
    136139      ENDIF 
    137140 
     141      IF (PRESENT(n_)) THEN 
     142        CALL cxios_set_scalargroup_n & 
     143      (scalargroup_hdl%daddr, n_) 
     144      ENDIF 
     145 
    138146      IF (PRESENT(name_)) THEN 
    139147        CALL cxios_set_scalargroup_name & 
    … …  
    175183  SUBROUTINE xios(get_scalargroup_attr)  & 
    176184    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    177     , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     185    , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    178186 
    179187    IMPLICIT NONE 
    … …  
    189197      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask 
    190198      LOGICAL (KIND=C_BOOL) :: mask_tmp 
     199      INTEGER  , OPTIONAL, INTENT(OUT) :: n 
    191200      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    192201      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 
    … …  
    201210      CALL xios(get_scalargroup_attr_hdl_)   & 
    202211      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    203       , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     212      , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    204213 
    205214  END SUBROUTINE xios(get_scalargroup_attr) 
    … …  
    207216  SUBROUTINE xios(get_scalargroup_attr_hdl)  & 
    208217    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    209     , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     218    , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    210219 
    211220    IMPLICIT NONE 
    … …  
    220229      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask 
    221230      LOGICAL (KIND=C_BOOL) :: mask_tmp 
     231      INTEGER  , OPTIONAL, INTENT(OUT) :: n 
    222232      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    223233      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive 
    … …  
    230240      CALL xios(get_scalargroup_attr_hdl_)  & 
    231241      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    232       , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     242      , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    233243 
    234244  END SUBROUTINE xios(get_scalargroup_attr_hdl) 
    … …  
    236246  SUBROUTINE xios(get_scalargroup_attr_hdl_)   & 
    237247    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  & 
    238     , mask_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
     248    , mask_, n_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
    239249 
    240250    IMPLICIT NONE 
    … …  
    249259      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_ 
    250260      LOGICAL (KIND=C_BOOL) :: mask__tmp 
     261      INTEGER  , OPTIONAL, INTENT(OUT) :: n_ 
    251262      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
    252263      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ 
    … …  
    298309      ENDIF 
    299310 
     311      IF (PRESENT(n_)) THEN 
     312        CALL cxios_get_scalargroup_n & 
     313      (scalargroup_hdl%daddr, n_) 
     314      ENDIF 
     315 
    300316      IF (PRESENT(name_)) THEN 
    301317        CALL cxios_get_scalargroup_name & 
    … …  
    337353  SUBROUTINE xios(is_defined_scalargroup_attr)  & 
    338354    ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    339     , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     355    , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    340356 
    341357    IMPLICIT NONE 
    … …  
    358374      LOGICAL, OPTIONAL, INTENT(OUT) :: mask 
    359375      LOGICAL(KIND=C_BOOL) :: mask_tmp 
     376      LOGICAL, OPTIONAL, INTENT(OUT) :: n 
     377      LOGICAL(KIND=C_BOOL) :: n_tmp 
    360378      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    361379      LOGICAL(KIND=C_BOOL) :: name_tmp 
    … …  
    377395      CALL xios(is_defined_scalargroup_attr_hdl_)   & 
    378396      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    379       , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     397      , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    380398 
    381399  END SUBROUTINE xios(is_defined_scalargroup_attr) 
    … …  
    383401  SUBROUTINE xios(is_defined_scalargroup_attr_hdl)  & 
    384402    ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    385     , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     403    , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    386404 
    387405    IMPLICIT NONE 
    … …  
    403421      LOGICAL, OPTIONAL, INTENT(OUT) :: mask 
    404422      LOGICAL(KIND=C_BOOL) :: mask_tmp 
     423      LOGICAL, OPTIONAL, INTENT(OUT) :: n 
     424      LOGICAL(KIND=C_BOOL) :: n_tmp 
    405425      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    406426      LOGICAL(KIND=C_BOOL) :: name_tmp 
    … …  
    420440      CALL xios(is_defined_scalargroup_attr_hdl_)  & 
    421441      ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask  & 
    422       , name, positive, prec, scalar_ref, standard_name, unit, value ) 
     442      , n, name, positive, prec, scalar_ref, standard_name, unit, value ) 
    423443 
    424444  END SUBROUTINE xios(is_defined_scalargroup_attr_hdl) 
    … …  
    426446  SUBROUTINE xios(is_defined_scalargroup_attr_hdl_)   & 
    427447    ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_  & 
    428     , mask_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
     448    , mask_, n_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 
    429449 
    430450    IMPLICIT NONE 
    … …  
    446466      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 
    447467      LOGICAL(KIND=C_BOOL) :: mask__tmp 
     468      LOGICAL, OPTIONAL, INTENT(OUT) :: n_ 
     469      LOGICAL(KIND=C_BOOL) :: n__tmp 
    448470      LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 
    449471      LOGICAL(KIND=C_BOOL) :: name__tmp 
    … …  
    509531      ENDIF 
    510532 
     533      IF (PRESENT(n_)) THEN 
     534        n__tmp = cxios_is_defined_scalargroup_n & 
     535      (scalargroup_hdl%daddr) 
     536        n_ = n__tmp 
     537      ENDIF 
     538 
    511539      IF (PRESENT(name_)) THEN 
    512540        name__tmp = cxios_is_defined_scalargroup_name & 
Note: See TracChangeset for help on using the changeset viewer.