Ignore:
Timestamp:
07/05/16 15:59:23 (8 years ago)
Author:
mhnguyen
Message:

Adding Fortran interface for reduce_axis_to_scalar

Test
+) On Curie
+) Only compilation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/iinterpolate_domain_attr.F90

    r786 r891  
    1212 
    1313  SUBROUTINE xios(set_interpolate_domain_attr)  & 
    14     ( interpolate_domain_id, file, order ) 
     14    ( interpolate_domain_id, file, order, renormalize ) 
    1515 
    1616    IMPLICIT NONE 
    … …  
    1919      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file 
    2020      INTEGER  , OPTIONAL, INTENT(IN) :: order 
     21      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize 
     22      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
    2123 
    2224      CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl) 
    2325      CALL xios(set_interpolate_domain_attr_hdl_)   & 
    24       ( interpolate_domain_hdl, file, order ) 
     26      ( interpolate_domain_hdl, file, order, renormalize ) 
    2527 
    2628  END SUBROUTINE xios(set_interpolate_domain_attr) 
    2729 
    2830  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  & 
    29     ( interpolate_domain_hdl, file, order ) 
     31    ( interpolate_domain_hdl, file, order, renormalize ) 
    3032 
    3133    IMPLICIT NONE 
    … …  
    3335      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file 
    3436      INTEGER  , OPTIONAL, INTENT(IN) :: order 
     37      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize 
     38      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
    3539 
    3640      CALL xios(set_interpolate_domain_attr_hdl_)  & 
    37       ( interpolate_domain_hdl, file, order ) 
     41      ( interpolate_domain_hdl, file, order, renormalize ) 
    3842 
    3943  END SUBROUTINE xios(set_interpolate_domain_attr_hdl) 
    4044 
    4145  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   & 
    42     ( interpolate_domain_hdl, file_, order_ ) 
     46    ( interpolate_domain_hdl, file_, order_, renormalize_ ) 
    4347 
    4448    IMPLICIT NONE 
    … …  
    4650      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file_ 
    4751      INTEGER  , OPTIONAL, INTENT(IN) :: order_ 
     52      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_ 
     53      LOGICAL (KIND=C_BOOL) :: renormalize__tmp 
    4854 
    4955      IF (PRESENT(file_)) THEN 
    … …  
    5561      ENDIF 
    5662 
     63      IF (PRESENT(renormalize_)) THEN 
     64        renormalize__tmp = renormalize_ 
     65        CALL cxios_set_interpolate_domain_renormalize(interpolate_domain_hdl%daddr, renormalize__tmp) 
     66      ENDIF 
     67 
    5768  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_) 
    5869 
    5970  SUBROUTINE xios(get_interpolate_domain_attr)  & 
    60     ( interpolate_domain_id, file, order ) 
     71    ( interpolate_domain_id, file, order, renormalize ) 
    6172 
    6273    IMPLICIT NONE 
    … …  
    6576      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file 
    6677      INTEGER  , OPTIONAL, INTENT(OUT) :: order 
     78      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize 
     79      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
    6780 
    6881      CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl) 
    6982      CALL xios(get_interpolate_domain_attr_hdl_)   & 
    70       ( interpolate_domain_hdl, file, order ) 
     83      ( interpolate_domain_hdl, file, order, renormalize ) 
    7184 
    7285  END SUBROUTINE xios(get_interpolate_domain_attr) 
    7386 
    7487  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  & 
    75     ( interpolate_domain_hdl, file, order ) 
     88    ( interpolate_domain_hdl, file, order, renormalize ) 
    7689 
    7790    IMPLICIT NONE 
    … …  
    7992      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file 
    8093      INTEGER  , OPTIONAL, INTENT(OUT) :: order 
     94      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize 
     95      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
    8196 
    8297      CALL xios(get_interpolate_domain_attr_hdl_)  & 
    83       ( interpolate_domain_hdl, file, order ) 
     98      ( interpolate_domain_hdl, file, order, renormalize ) 
    8499 
    85100  END SUBROUTINE xios(get_interpolate_domain_attr_hdl) 
    86101 
    87102  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   & 
    88     ( interpolate_domain_hdl, file_, order_ ) 
     103    ( interpolate_domain_hdl, file_, order_, renormalize_ ) 
    89104 
    90105    IMPLICIT NONE 
    … …  
    92107      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file_ 
    93108      INTEGER  , OPTIONAL, INTENT(OUT) :: order_ 
     109      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_ 
     110      LOGICAL (KIND=C_BOOL) :: renormalize__tmp 
    94111 
    95112      IF (PRESENT(file_)) THEN 
    … …  
    101118      ENDIF 
    102119 
     120      IF (PRESENT(renormalize_)) THEN 
     121        CALL cxios_get_interpolate_domain_renormalize(interpolate_domain_hdl%daddr, renormalize__tmp) 
     122        renormalize_ = renormalize__tmp 
     123      ENDIF 
     124 
    103125  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_) 
    104126 
    105127  SUBROUTINE xios(is_defined_interpolate_domain_attr)  & 
    106     ( interpolate_domain_id, file, order ) 
     128    ( interpolate_domain_id, file, order, renormalize ) 
    107129 
    108130    IMPLICIT NONE 
    … …  
    113135      LOGICAL, OPTIONAL, INTENT(OUT) :: order 
    114136      LOGICAL(KIND=C_BOOL) :: order_tmp 
     137      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 
     138      LOGICAL(KIND=C_BOOL) :: renormalize_tmp 
    115139 
    116140      CALL xios(get_interpolate_domain_handle)(interpolate_domain_id,interpolate_domain_hdl) 
    117141      CALL xios(is_defined_interpolate_domain_attr_hdl_)   & 
    118       ( interpolate_domain_hdl, file, order ) 
     142      ( interpolate_domain_hdl, file, order, renormalize ) 
    119143 
    120144  END SUBROUTINE xios(is_defined_interpolate_domain_attr) 
    121145 
    122146  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  & 
    123     ( interpolate_domain_hdl, file, order ) 
     147    ( interpolate_domain_hdl, file, order, renormalize ) 
    124148 
    125149    IMPLICIT NONE 
    … …  
    129153      LOGICAL, OPTIONAL, INTENT(OUT) :: order 
    130154      LOGICAL(KIND=C_BOOL) :: order_tmp 
     155      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 
     156      LOGICAL(KIND=C_BOOL) :: renormalize_tmp 
    131157 
    132158      CALL xios(is_defined_interpolate_domain_attr_hdl_)  & 
    133       ( interpolate_domain_hdl, file, order ) 
     159      ( interpolate_domain_hdl, file, order, renormalize ) 
    134160 
    135161  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) 
    136162 
    137163  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   & 
    138     ( interpolate_domain_hdl, file_, order_ ) 
     164    ( interpolate_domain_hdl, file_, order_, renormalize_ ) 
    139165 
    140166    IMPLICIT NONE 
    … …  
    144170      LOGICAL, OPTIONAL, INTENT(OUT) :: order_ 
    145171      LOGICAL(KIND=C_BOOL) :: order__tmp 
     172      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_ 
     173      LOGICAL(KIND=C_BOOL) :: renormalize__tmp 
    146174 
    147175      IF (PRESENT(file_)) THEN 
    … …  
    155183      ENDIF 
    156184 
     185      IF (PRESENT(renormalize_)) THEN 
     186        renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize(interpolate_domain_hdl%daddr) 
     187        renormalize_ = renormalize__tmp 
     188      ENDIF 
     189 
    157190  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_) 
    158191 
Note: See TracChangeset for help on using the changeset viewer.