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

    r966 r2338  
    1212 
    1313  SUBROUTINE xios(set_reduce_axis_to_scalar_attr)  & 
    14     ( reduce_axis_to_scalar_id, operation ) 
     14    ( reduce_axis_to_scalar_id, local, operation ) 
    1515 
    1616    IMPLICIT NONE 
    1717      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl 
    1818      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id 
     19      LOGICAL  , OPTIONAL, INTENT(IN) :: local 
     20      LOGICAL (KIND=C_BOOL) :: local_tmp 
    1921      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation 
    2022 
    … …  
    2224      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 
    2325      CALL xios(set_reduce_axis_to_scalar_attr_hdl_)   & 
    24       ( reduce_axis_to_scalar_hdl, operation ) 
     26      ( reduce_axis_to_scalar_hdl, local, operation ) 
    2527 
    2628  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr) 
    2729 
    2830  SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl)  & 
    29     ( reduce_axis_to_scalar_hdl, operation ) 
     31    ( reduce_axis_to_scalar_hdl, local, operation ) 
    3032 
    3133    IMPLICIT NONE 
    3234      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 
     35      LOGICAL  , OPTIONAL, INTENT(IN) :: local 
     36      LOGICAL (KIND=C_BOOL) :: local_tmp 
    3337      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation 
    3438 
    3539      CALL xios(set_reduce_axis_to_scalar_attr_hdl_)  & 
    36       ( reduce_axis_to_scalar_hdl, operation ) 
     40      ( reduce_axis_to_scalar_hdl, local, operation ) 
    3741 
    3842  END SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl) 
    3943 
    4044  SUBROUTINE xios(set_reduce_axis_to_scalar_attr_hdl_)   & 
    41     ( reduce_axis_to_scalar_hdl, operation_ ) 
     45    ( reduce_axis_to_scalar_hdl, local_, operation_ ) 
    4246 
    4347    IMPLICIT NONE 
    4448      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 
     49      LOGICAL  , OPTIONAL, INTENT(IN) :: local_ 
     50      LOGICAL (KIND=C_BOOL) :: local__tmp 
    4551      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: operation_ 
     52 
     53      IF (PRESENT(local_)) THEN 
     54        local__tmp = local_ 
     55        CALL cxios_set_reduce_axis_to_scalar_local & 
     56      (reduce_axis_to_scalar_hdl%daddr, local__tmp) 
     57      ENDIF 
    4658 
    4759      IF (PRESENT(operation_)) THEN 
    … …  
    5365 
    5466  SUBROUTINE xios(get_reduce_axis_to_scalar_attr)  & 
    55     ( reduce_axis_to_scalar_id, operation ) 
     67    ( reduce_axis_to_scalar_id, local, operation ) 
    5668 
    5769    IMPLICIT NONE 
    5870      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl 
    5971      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id 
     72      LOGICAL  , OPTIONAL, INTENT(OUT) :: local 
     73      LOGICAL (KIND=C_BOOL) :: local_tmp 
    6074      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation 
    6175 
    … …  
    6377      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 
    6478      CALL xios(get_reduce_axis_to_scalar_attr_hdl_)   & 
    65       ( reduce_axis_to_scalar_hdl, operation ) 
     79      ( reduce_axis_to_scalar_hdl, local, operation ) 
    6680 
    6781  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr) 
    6882 
    6983  SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl)  & 
    70     ( reduce_axis_to_scalar_hdl, operation ) 
     84    ( reduce_axis_to_scalar_hdl, local, operation ) 
    7185 
    7286    IMPLICIT NONE 
    7387      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 
     88      LOGICAL  , OPTIONAL, INTENT(OUT) :: local 
     89      LOGICAL (KIND=C_BOOL) :: local_tmp 
    7490      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation 
    7591 
    7692      CALL xios(get_reduce_axis_to_scalar_attr_hdl_)  & 
    77       ( reduce_axis_to_scalar_hdl, operation ) 
     93      ( reduce_axis_to_scalar_hdl, local, operation ) 
    7894 
    7995  END SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl) 
    8096 
    8197  SUBROUTINE xios(get_reduce_axis_to_scalar_attr_hdl_)   & 
    82     ( reduce_axis_to_scalar_hdl, operation_ ) 
     98    ( reduce_axis_to_scalar_hdl, local_, operation_ ) 
    8399 
    84100    IMPLICIT NONE 
    85101      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 
     102      LOGICAL  , OPTIONAL, INTENT(OUT) :: local_ 
     103      LOGICAL (KIND=C_BOOL) :: local__tmp 
    86104      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: operation_ 
     105 
     106      IF (PRESENT(local_)) THEN 
     107        CALL cxios_get_reduce_axis_to_scalar_local & 
     108      (reduce_axis_to_scalar_hdl%daddr, local__tmp) 
     109        local_ = local__tmp 
     110      ENDIF 
    87111 
    88112      IF (PRESENT(operation_)) THEN 
    … …  
    94118 
    95119  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr)  & 
    96     ( reduce_axis_to_scalar_id, operation ) 
     120    ( reduce_axis_to_scalar_id, local, operation ) 
    97121 
    98122    IMPLICIT NONE 
    99123      TYPE(txios(reduce_axis_to_scalar))  :: reduce_axis_to_scalar_hdl 
    100124      CHARACTER(LEN=*), INTENT(IN) ::reduce_axis_to_scalar_id 
     125      LOGICAL, OPTIONAL, INTENT(OUT) :: local 
     126      LOGICAL(KIND=C_BOOL) :: local_tmp 
    101127      LOGICAL, OPTIONAL, INTENT(OUT) :: operation 
    102128      LOGICAL(KIND=C_BOOL) :: operation_tmp 
    … …  
    105131      (reduce_axis_to_scalar_id,reduce_axis_to_scalar_hdl) 
    106132      CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_)   & 
    107       ( reduce_axis_to_scalar_hdl, operation ) 
     133      ( reduce_axis_to_scalar_hdl, local, operation ) 
    108134 
    109135  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr) 
    110136 
    111137  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl)  & 
    112     ( reduce_axis_to_scalar_hdl, operation ) 
     138    ( reduce_axis_to_scalar_hdl, local, operation ) 
    113139 
    114140    IMPLICIT NONE 
    115141      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 
     142      LOGICAL, OPTIONAL, INTENT(OUT) :: local 
     143      LOGICAL(KIND=C_BOOL) :: local_tmp 
    116144      LOGICAL, OPTIONAL, INTENT(OUT) :: operation 
    117145      LOGICAL(KIND=C_BOOL) :: operation_tmp 
    118146 
    119147      CALL xios(is_defined_reduce_axis_to_scalar_attr_hdl_)  & 
    120       ( reduce_axis_to_scalar_hdl, operation ) 
     148      ( reduce_axis_to_scalar_hdl, local, operation ) 
    121149 
    122150  END SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl) 
    123151 
    124152  SUBROUTINE xios(is_defined_reduce_axis_to_scalar_attr_hdl_)   & 
    125     ( reduce_axis_to_scalar_hdl, operation_ ) 
     153    ( reduce_axis_to_scalar_hdl, local_, operation_ ) 
    126154 
    127155    IMPLICIT NONE 
    128156      TYPE(txios(reduce_axis_to_scalar)) , INTENT(IN) :: reduce_axis_to_scalar_hdl 
     157      LOGICAL, OPTIONAL, INTENT(OUT) :: local_ 
     158      LOGICAL(KIND=C_BOOL) :: local__tmp 
    129159      LOGICAL, OPTIONAL, INTENT(OUT) :: operation_ 
    130160      LOGICAL(KIND=C_BOOL) :: operation__tmp 
     161 
     162      IF (PRESENT(local_)) THEN 
     163        local__tmp = cxios_is_defined_reduce_axis_to_scalar_local & 
     164      (reduce_axis_to_scalar_hdl%daddr) 
     165        local_ = local__tmp 
     166      ENDIF 
    131167 
    132168      IF (PRESENT(operation_)) THEN 
Note: See TracChangeset for help on using the changeset viewer.