Ignore:
Timestamp:
03/24/15 11:21:45 (9 years ago)
Author:
rlacroix
Message:

Fix the Fortran interface generation to avoid generating dead code that caused a timer not to be stopped.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r501 r581  
    88  USE ivariable 
    99  USE variable_interface_attr 
    10    
     10 
    1111CONTAINS 
    12    
     12 
    1313  SUBROUTINE xios(set_variable_attr)  & 
    1414    ( variable_id, name, type ) 
    15      
     15 
    1616    IMPLICIT NONE 
    1717      TYPE(txios(variable))  :: variable_hdl 
    … …  
    1919      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    2020      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    21        
     21 
    2222      CALL xios(get_variable_handle)(variable_id,variable_hdl) 
    2323      CALL xios(set_variable_attr_hdl_)   & 
    2424      ( variable_hdl, name, type ) 
    25      
     25 
    2626  END SUBROUTINE xios(set_variable_attr) 
    27    
     27 
    2828  SUBROUTINE xios(set_variable_attr_hdl)  & 
    2929    ( variable_hdl, name, type ) 
    30      
     30 
    3131    IMPLICIT NONE 
    3232      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl 
    3333      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    3434      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 
    35        
     35 
    3636      CALL xios(set_variable_attr_hdl_)  & 
    3737      ( variable_hdl, name, type ) 
    38      
     38 
    3939  END SUBROUTINE xios(set_variable_attr_hdl) 
    40    
     40 
    4141  SUBROUTINE xios(set_variable_attr_hdl_)   & 
    4242    ( variable_hdl, name_, type_ ) 
    43      
     43 
    4444    IMPLICIT NONE 
    4545      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl 
    4646      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
    4747      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 
    48        
     48 
    4949      IF (PRESENT(name_)) THEN 
    5050        CALL cxios_set_variable_name(variable_hdl%daddr, name_, len(name_)) 
    5151      ENDIF 
    52        
     52 
    5353      IF (PRESENT(type_)) THEN 
    5454        CALL cxios_set_variable_type(variable_hdl%daddr, type_, len(type_)) 
    5555      ENDIF 
    56        
    57        
    58      
     56 
    5957  END SUBROUTINE xios(set_variable_attr_hdl_) 
    60    
     58 
    6159  SUBROUTINE xios(get_variable_attr)  & 
    6260    ( variable_id, name, type ) 
    63      
     61 
    6462    IMPLICIT NONE 
    6563      TYPE(txios(variable))  :: variable_hdl 
    … …  
    6765      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    6866      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    69        
     67 
    7068      CALL xios(get_variable_handle)(variable_id,variable_hdl) 
    7169      CALL xios(get_variable_attr_hdl_)   & 
    7270      ( variable_hdl, name, type ) 
    73      
     71 
    7472  END SUBROUTINE xios(get_variable_attr) 
    75    
     73 
    7674  SUBROUTINE xios(get_variable_attr_hdl)  & 
    7775    ( variable_hdl, name, type ) 
    78      
     76 
    7977    IMPLICIT NONE 
    8078      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl 
    8179      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    8280      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 
    83        
     81 
    8482      CALL xios(get_variable_attr_hdl_)  & 
    8583      ( variable_hdl, name, type ) 
    86      
     84 
    8785  END SUBROUTINE xios(get_variable_attr_hdl) 
    88    
     86 
    8987  SUBROUTINE xios(get_variable_attr_hdl_)   & 
    9088    ( variable_hdl, name_, type_ ) 
    91      
     89 
    9290    IMPLICIT NONE 
    9391      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl 
    9492      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
    9593      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 
    96        
     94 
    9795      IF (PRESENT(name_)) THEN 
    9896        CALL cxios_get_variable_name(variable_hdl%daddr, name_, len(name_)) 
    9997      ENDIF 
    100        
     98 
    10199      IF (PRESENT(type_)) THEN 
    102100        CALL cxios_get_variable_type(variable_hdl%daddr, type_, len(type_)) 
    103101      ENDIF 
    104        
    105        
    106      
     102 
    107103  END SUBROUTINE xios(get_variable_attr_hdl_) 
    108    
     104 
    109105  SUBROUTINE xios(is_defined_variable_attr)  & 
    110106    ( variable_id, name, type ) 
    111      
     107 
    112108    IMPLICIT NONE 
    113109      TYPE(txios(variable))  :: variable_hdl 
    … …  
    117113      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    118114      LOGICAL(KIND=C_BOOL) :: type_tmp 
    119        
     115 
    120116      CALL xios(get_variable_handle)(variable_id,variable_hdl) 
    121117      CALL xios(is_defined_variable_attr_hdl_)   & 
    122118      ( variable_hdl, name, type ) 
    123      
     119 
    124120  END SUBROUTINE xios(is_defined_variable_attr) 
    125    
     121 
    126122  SUBROUTINE xios(is_defined_variable_attr_hdl)  & 
    127123    ( variable_hdl, name, type ) 
    128      
     124 
    129125    IMPLICIT NONE 
    130126      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl 
    … …  
    133129      LOGICAL, OPTIONAL, INTENT(OUT) :: type 
    134130      LOGICAL(KIND=C_BOOL) :: type_tmp 
    135        
     131 
    136132      CALL xios(is_defined_variable_attr_hdl_)  & 
    137133      ( variable_hdl, name, type ) 
    138      
     134 
    139135  END SUBROUTINE xios(is_defined_variable_attr_hdl) 
    140    
     136 
    141137  SUBROUTINE xios(is_defined_variable_attr_hdl_)   & 
    142138    ( variable_hdl, name_, type_ ) 
    143      
     139 
    144140    IMPLICIT NONE 
    145141      TYPE(txios(variable)) , INTENT(IN) :: variable_hdl 
    … …  
    148144      LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 
    149145      LOGICAL(KIND=C_BOOL) :: type__tmp 
    150        
     146 
    151147      IF (PRESENT(name_)) THEN 
    152         name__tmp=cxios_is_defined_variable_name(variable_hdl%daddr) 
    153         name_=name__tmp 
     148        name__tmp = cxios_is_defined_variable_name(variable_hdl%daddr) 
     149        name_ = name__tmp 
    154150      ENDIF 
    155        
     151 
    156152      IF (PRESENT(type_)) THEN 
    157         type__tmp=cxios_is_defined_variable_type(variable_hdl%daddr) 
    158         type_=type__tmp 
     153        type__tmp = cxios_is_defined_variable_type(variable_hdl%daddr) 
     154        type_ = type__tmp 
    159155      ENDIF 
    160        
    161        
    162      
     156 
    163157  END SUBROUTINE xios(is_defined_variable_attr_hdl_) 
    164    
     158 
    165159END MODULE ivariable_attr 
Note: See TracChangeset for help on using the changeset viewer.