Changeset 546 for XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90
- Timestamp:
- 12/17/14 15:35:12 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/iaxis_attr.F90
r501 r546 12 12 13 13 SUBROUTINE xios(set_axis_attr) & 14 ( axis_id, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end&15 , zoom_ size )14 ( axis_id, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 15 , zoom_end, zoom_size ) 16 16 17 17 IMPLICIT NONE 18 18 TYPE(txios(axis)) :: axis_hdl 19 19 CHARACTER(LEN=*), INTENT(IN) ::axis_id 20 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 20 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 21 22 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name … … 31 32 CALL xios(get_axis_handle)(axis_id,axis_hdl) 32 33 CALL xios(set_axis_attr_hdl_) & 33 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end&34 , zoom_ size )34 ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 35 , zoom_end, zoom_size ) 35 36 36 37 END SUBROUTINE xios(set_axis_attr) 37 38 38 39 SUBROUTINE xios(set_axis_attr_hdl) & 39 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 40 , zoom_size ) 41 42 IMPLICIT NONE 43 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 40 ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 41 , zoom_end, zoom_size ) 42 43 IMPLICIT NONE 44 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 45 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref 44 46 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 45 47 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name … … 54 56 55 57 CALL xios(set_axis_attr_hdl_) & 56 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end&57 , zoom_ size )58 ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 59 , zoom_end, zoom_size ) 58 60 59 61 END SUBROUTINE xios(set_axis_attr_hdl) 60 62 61 63 SUBROUTINE xios(set_axis_attr_hdl_) & 62 ( axis_hdl, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_ &64 ( axis_hdl, axis_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_ & 63 65 , zoom_end_, zoom_size_ ) 64 66 65 67 IMPLICIT NONE 66 68 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 69 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: axis_ref_ 67 70 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 68 71 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ … … 76 79 INTEGER , OPTIONAL, INTENT(IN) :: zoom_size_ 77 80 81 IF (PRESENT(axis_ref_)) THEN 82 CALL cxios_set_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_)) 83 ENDIF 84 78 85 IF (PRESENT(long_name_)) THEN 79 86 CALL cxios_set_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_)) … … 121 128 122 129 SUBROUTINE xios(get_axis_attr) & 123 ( axis_id, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end&124 , zoom_ size )130 ( axis_id, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 131 , zoom_end, zoom_size ) 125 132 126 133 IMPLICIT NONE 127 134 TYPE(txios(axis)) :: axis_hdl 128 135 CHARACTER(LEN=*), INTENT(IN) ::axis_id 136 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 129 137 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 130 138 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name … … 140 148 CALL xios(get_axis_handle)(axis_id,axis_hdl) 141 149 CALL xios(get_axis_attr_hdl_) & 142 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end&143 , zoom_ size )150 ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 151 , zoom_end, zoom_size ) 144 152 145 153 END SUBROUTINE xios(get_axis_attr) 146 154 147 155 SUBROUTINE xios(get_axis_attr_hdl) & 148 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 149 , zoom_size ) 150 151 IMPLICIT NONE 152 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 156 ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 157 , zoom_end, zoom_size ) 158 159 IMPLICIT NONE 160 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 161 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref 153 162 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 154 163 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name … … 163 172 164 173 CALL xios(get_axis_attr_hdl_) & 165 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end&166 , zoom_ size )174 ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 175 , zoom_end, zoom_size ) 167 176 168 177 END SUBROUTINE xios(get_axis_attr_hdl) 169 178 170 179 SUBROUTINE xios(get_axis_attr_hdl_) & 171 ( axis_hdl, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_ &180 ( axis_hdl, axis_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_ & 172 181 , zoom_end_, zoom_size_ ) 173 182 174 183 IMPLICIT NONE 175 184 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 185 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: axis_ref_ 176 186 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 177 187 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ … … 185 195 INTEGER , OPTIONAL, INTENT(OUT) :: zoom_size_ 186 196 197 IF (PRESENT(axis_ref_)) THEN 198 CALL cxios_get_axis_axis_ref(axis_hdl%daddr, axis_ref_, len(axis_ref_)) 199 ENDIF 200 187 201 IF (PRESENT(long_name_)) THEN 188 202 CALL cxios_get_axis_long_name(axis_hdl%daddr, long_name_, len(long_name_)) … … 230 244 231 245 SUBROUTINE xios(is_defined_axis_attr) & 232 ( axis_id, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end&233 , zoom_ size )246 ( axis_id, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 247 , zoom_end, zoom_size ) 234 248 235 249 IMPLICIT NONE 236 250 TYPE(txios(axis)) :: axis_hdl 237 251 CHARACTER(LEN=*), INTENT(IN) ::axis_id 252 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 253 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 238 254 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 239 255 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 259 275 CALL xios(get_axis_handle)(axis_id,axis_hdl) 260 276 CALL xios(is_defined_axis_attr_hdl_) & 261 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end&262 , zoom_ size )277 ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 278 , zoom_end, zoom_size ) 263 279 264 280 END SUBROUTINE xios(is_defined_axis_attr) 265 281 266 282 SUBROUTINE xios(is_defined_axis_attr_hdl) & 267 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end & 268 , zoom_size ) 269 270 IMPLICIT NONE 271 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 283 ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 284 , zoom_end, zoom_size ) 285 286 IMPLICIT NONE 287 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 288 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref 289 LOGICAL(KIND=C_BOOL) :: axis_ref_tmp 272 290 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 273 291 LOGICAL(KIND=C_BOOL) :: long_name_tmp … … 292 310 293 311 CALL xios(is_defined_axis_attr_hdl_) & 294 ( axis_hdl, long_name, name, positive, size, standard_name, unit, value, zoom_begin, zoom_end&295 , zoom_ size )312 ( axis_hdl, axis_ref, long_name, name, positive, size, standard_name, unit, value, zoom_begin & 313 , zoom_end, zoom_size ) 296 314 297 315 END SUBROUTINE xios(is_defined_axis_attr_hdl) 298 316 299 317 SUBROUTINE xios(is_defined_axis_attr_hdl_) & 300 ( axis_hdl, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_ &318 ( axis_hdl, axis_ref_, long_name_, name_, positive_, size_, standard_name_, unit_, value_, zoom_begin_ & 301 319 , zoom_end_, zoom_size_ ) 302 320 303 321 IMPLICIT NONE 304 322 TYPE(txios(axis)) , INTENT(IN) :: axis_hdl 323 LOGICAL, OPTIONAL, INTENT(OUT) :: axis_ref_ 324 LOGICAL(KIND=C_BOOL) :: axis_ref__tmp 305 325 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 306 326 LOGICAL(KIND=C_BOOL) :: long_name__tmp … … 324 344 LOGICAL(KIND=C_BOOL) :: zoom_size__tmp 325 345 346 IF (PRESENT(axis_ref_)) THEN 347 axis_ref__tmp=cxios_is_defined_axis_axis_ref(axis_hdl%daddr) 348 axis_ref_=axis_ref__tmp 349 ENDIF 350 326 351 IF (PRESENT(long_name_)) THEN 327 352 long_name__tmp=cxios_is_defined_axis_long_name(axis_hdl%daddr)
Note: See TracChangeset
for help on using the changeset viewer.