Changeset 966 for XIOS/trunk/src/interface/fortran_attr/ivariable_attr.F90
- Timestamp:
- 10/10/16 16:01:11 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/ivariable_attr.F90
r581 r966 20 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 21 21 22 CALL xios(get_variable_handle)(variable_id,variable_hdl) 22 CALL xios(get_variable_handle) & 23 (variable_id,variable_hdl) 23 24 CALL xios(set_variable_attr_hdl_) & 24 25 ( variable_hdl, name, type ) … … 48 49 49 50 IF (PRESENT(name_)) THEN 50 CALL cxios_set_variable_name(variable_hdl%daddr, name_, len(name_)) 51 CALL cxios_set_variable_name & 52 (variable_hdl%daddr, name_, len(name_)) 51 53 ENDIF 52 54 53 55 IF (PRESENT(type_)) THEN 54 CALL cxios_set_variable_type(variable_hdl%daddr, type_, len(type_)) 56 CALL cxios_set_variable_type & 57 (variable_hdl%daddr, type_, len(type_)) 55 58 ENDIF 56 59 … … 66 69 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 67 70 68 CALL xios(get_variable_handle)(variable_id,variable_hdl) 71 CALL xios(get_variable_handle) & 72 (variable_id,variable_hdl) 69 73 CALL xios(get_variable_attr_hdl_) & 70 74 ( variable_hdl, name, type ) … … 94 98 95 99 IF (PRESENT(name_)) THEN 96 CALL cxios_get_variable_name(variable_hdl%daddr, name_, len(name_)) 100 CALL cxios_get_variable_name & 101 (variable_hdl%daddr, name_, len(name_)) 97 102 ENDIF 98 103 99 104 IF (PRESENT(type_)) THEN 100 CALL cxios_get_variable_type(variable_hdl%daddr, type_, len(type_)) 105 CALL cxios_get_variable_type & 106 (variable_hdl%daddr, type_, len(type_)) 101 107 ENDIF 102 108 … … 114 120 LOGICAL(KIND=C_BOOL) :: type_tmp 115 121 116 CALL xios(get_variable_handle)(variable_id,variable_hdl) 122 CALL xios(get_variable_handle) & 123 (variable_id,variable_hdl) 117 124 CALL xios(is_defined_variable_attr_hdl_) & 118 125 ( variable_hdl, name, type ) … … 146 153 147 154 IF (PRESENT(name_)) THEN 148 name__tmp = cxios_is_defined_variable_name(variable_hdl%daddr) 155 name__tmp = cxios_is_defined_variable_name & 156 (variable_hdl%daddr) 149 157 name_ = name__tmp 150 158 ENDIF 151 159 152 160 IF (PRESENT(type_)) THEN 153 type__tmp = cxios_is_defined_variable_type(variable_hdl%daddr) 161 type__tmp = cxios_is_defined_variable_type & 162 (variable_hdl%daddr) 154 163 type_ = type__tmp 155 164 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.