Changeset 966 for XIOS/trunk/src/interface/fortran_attr/igrid_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/igrid_attr.F90
r932 r966 35 35 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 36 36 37 CALL xios(get_grid_handle)(grid_id,grid_hdl) 37 CALL xios(get_grid_handle) & 38 (grid_id,grid_hdl) 38 39 CALL xios(set_grid_attr_hdl_) & 39 40 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name & … … 95 96 96 97 IF (PRESENT(description_)) THEN 97 CALL cxios_set_grid_description(grid_hdl%daddr, description_, len(description_)) 98 CALL cxios_set_grid_description & 99 (grid_hdl%daddr, description_, len(description_)) 98 100 ENDIF 99 101 … … 101 103 ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 102 104 mask_1d__tmp = mask_1d_ 103 CALL cxios_set_grid_mask_1d(grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 105 CALL cxios_set_grid_mask_1d & 106 (grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 104 107 ENDIF 105 108 … … 107 110 ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 108 111 mask_2d__tmp = mask_2d_ 109 CALL cxios_set_grid_mask_2d(grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 112 CALL cxios_set_grid_mask_2d & 113 (grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 110 114 ENDIF 111 115 … … 113 117 ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3))) 114 118 mask_3d__tmp = mask_3d_ 115 CALL cxios_set_grid_mask_3d(grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 119 CALL cxios_set_grid_mask_3d & 120 (grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 116 121 ENDIF 117 122 118 123 IF (PRESENT(mask_4d_)) THEN 119 ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), SIZE(mask_4d_,4))) 124 ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), & 125 SIZE(mask_4d_,4))) 120 126 mask_4d__tmp = mask_4d_ 121 CALL cxios_set_grid_mask_4d(grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 127 CALL cxios_set_grid_mask_4d & 128 (grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 122 129 ENDIF 123 130 124 131 IF (PRESENT(mask_5d_)) THEN 125 ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 132 ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), & 133 SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 126 134 mask_5d__tmp = mask_5d_ 127 CALL cxios_set_grid_mask_5d(grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 135 CALL cxios_set_grid_mask_5d & 136 (grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 128 137 ENDIF 129 138 130 139 IF (PRESENT(mask_6d_)) THEN 131 ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 140 ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), & 141 SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 132 142 mask_6d__tmp = mask_6d_ 133 CALL cxios_set_grid_mask_6d(grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 143 CALL cxios_set_grid_mask_6d & 144 (grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 134 145 ENDIF 135 146 136 147 IF (PRESENT(mask_7d_)) THEN 137 ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), SIZE(mask_7d_,7))) 148 ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), & 149 SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), & 150 SIZE(mask_7d_,7))) 138 151 mask_7d__tmp = mask_7d_ 139 CALL cxios_set_grid_mask_7d(grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 152 CALL cxios_set_grid_mask_7d & 153 (grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 140 154 ENDIF 141 155 142 156 IF (PRESENT(name_)) THEN 143 CALL cxios_set_grid_name(grid_hdl%daddr, name_, len(name_)) 157 CALL cxios_set_grid_name & 158 (grid_hdl%daddr, name_, len(name_)) 144 159 ENDIF 145 160 … … 170 185 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 171 186 172 CALL xios(get_grid_handle)(grid_id,grid_hdl) 187 CALL xios(get_grid_handle) & 188 (grid_id,grid_hdl) 173 189 CALL xios(get_grid_attr_hdl_) & 174 190 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name & … … 230 246 231 247 IF (PRESENT(description_)) THEN 232 CALL cxios_get_grid_description(grid_hdl%daddr, description_, len(description_)) 248 CALL cxios_get_grid_description & 249 (grid_hdl%daddr, description_, len(description_)) 233 250 ENDIF 234 251 235 252 IF (PRESENT(mask_1d_)) THEN 236 253 ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 237 CALL cxios_get_grid_mask_1d(grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 254 CALL cxios_get_grid_mask_1d & 255 (grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 238 256 mask_1d_ = mask_1d__tmp 239 257 ENDIF … … 241 259 IF (PRESENT(mask_2d_)) THEN 242 260 ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 243 CALL cxios_get_grid_mask_2d(grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 261 CALL cxios_get_grid_mask_2d & 262 (grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 244 263 mask_2d_ = mask_2d__tmp 245 264 ENDIF … … 247 266 IF (PRESENT(mask_3d_)) THEN 248 267 ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3))) 249 CALL cxios_get_grid_mask_3d(grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 268 CALL cxios_get_grid_mask_3d & 269 (grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 250 270 mask_3d_ = mask_3d__tmp 251 271 ENDIF 252 272 253 273 IF (PRESENT(mask_4d_)) THEN 254 ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), SIZE(mask_4d_,4))) 255 CALL cxios_get_grid_mask_4d(grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 274 ALLOCATE(mask_4d__tmp(SIZE(mask_4d_,1), SIZE(mask_4d_,2), SIZE(mask_4d_,3), & 275 SIZE(mask_4d_,4))) 276 CALL cxios_get_grid_mask_4d & 277 (grid_hdl%daddr, mask_4d__tmp, SHAPE(mask_4d_)) 256 278 mask_4d_ = mask_4d__tmp 257 279 ENDIF 258 280 259 281 IF (PRESENT(mask_5d_)) THEN 260 ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 261 CALL cxios_get_grid_mask_5d(grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 282 ALLOCATE(mask_5d__tmp(SIZE(mask_5d_,1), SIZE(mask_5d_,2), SIZE(mask_5d_,3), & 283 SIZE(mask_5d_,4), SIZE(mask_5d_,5))) 284 CALL cxios_get_grid_mask_5d & 285 (grid_hdl%daddr, mask_5d__tmp, SHAPE(mask_5d_)) 262 286 mask_5d_ = mask_5d__tmp 263 287 ENDIF 264 288 265 289 IF (PRESENT(mask_6d_)) THEN 266 ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 267 CALL cxios_get_grid_mask_6d(grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 290 ALLOCATE(mask_6d__tmp(SIZE(mask_6d_,1), SIZE(mask_6d_,2), SIZE(mask_6d_,3), & 291 SIZE(mask_6d_,4), SIZE(mask_6d_,5), SIZE(mask_6d_,6))) 292 CALL cxios_get_grid_mask_6d & 293 (grid_hdl%daddr, mask_6d__tmp, SHAPE(mask_6d_)) 268 294 mask_6d_ = mask_6d__tmp 269 295 ENDIF 270 296 271 297 IF (PRESENT(mask_7d_)) THEN 272 ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), SIZE(mask_7d_,7))) 273 CALL cxios_get_grid_mask_7d(grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 298 ALLOCATE(mask_7d__tmp(SIZE(mask_7d_,1), SIZE(mask_7d_,2), SIZE(mask_7d_,3), & 299 SIZE(mask_7d_,4), SIZE(mask_7d_,5), SIZE(mask_7d_,6), & 300 SIZE(mask_7d_,7))) 301 CALL cxios_get_grid_mask_7d & 302 (grid_hdl%daddr, mask_7d__tmp, SHAPE(mask_7d_)) 274 303 mask_7d_ = mask_7d__tmp 275 304 ENDIF 276 305 277 306 IF (PRESENT(name_)) THEN 278 CALL cxios_get_grid_name(grid_hdl%daddr, name_, len(name_)) 307 CALL cxios_get_grid_name & 308 (grid_hdl%daddr, name_, len(name_)) 279 309 ENDIF 280 310 … … 307 337 LOGICAL(KIND=C_BOOL) :: name_tmp 308 338 309 CALL xios(get_grid_handle)(grid_id,grid_hdl) 339 CALL xios(get_grid_handle) & 340 (grid_id,grid_hdl) 310 341 CALL xios(is_defined_grid_attr_hdl_) & 311 342 ( grid_hdl, description, mask_1d, mask_2d, mask_3d, mask_4d, mask_5d, mask_6d, mask_7d, name & … … 371 402 372 403 IF (PRESENT(description_)) THEN 373 description__tmp = cxios_is_defined_grid_description(grid_hdl%daddr) 404 description__tmp = cxios_is_defined_grid_description & 405 (grid_hdl%daddr) 374 406 description_ = description__tmp 375 407 ENDIF 376 408 377 409 IF (PRESENT(mask_1d_)) THEN 378 mask_1d__tmp = cxios_is_defined_grid_mask_1d(grid_hdl%daddr) 410 mask_1d__tmp = cxios_is_defined_grid_mask_1d & 411 (grid_hdl%daddr) 379 412 mask_1d_ = mask_1d__tmp 380 413 ENDIF 381 414 382 415 IF (PRESENT(mask_2d_)) THEN 383 mask_2d__tmp = cxios_is_defined_grid_mask_2d(grid_hdl%daddr) 416 mask_2d__tmp = cxios_is_defined_grid_mask_2d & 417 (grid_hdl%daddr) 384 418 mask_2d_ = mask_2d__tmp 385 419 ENDIF 386 420 387 421 IF (PRESENT(mask_3d_)) THEN 388 mask_3d__tmp = cxios_is_defined_grid_mask_3d(grid_hdl%daddr) 422 mask_3d__tmp = cxios_is_defined_grid_mask_3d & 423 (grid_hdl%daddr) 389 424 mask_3d_ = mask_3d__tmp 390 425 ENDIF 391 426 392 427 IF (PRESENT(mask_4d_)) THEN 393 mask_4d__tmp = cxios_is_defined_grid_mask_4d(grid_hdl%daddr) 428 mask_4d__tmp = cxios_is_defined_grid_mask_4d & 429 (grid_hdl%daddr) 394 430 mask_4d_ = mask_4d__tmp 395 431 ENDIF 396 432 397 433 IF (PRESENT(mask_5d_)) THEN 398 mask_5d__tmp = cxios_is_defined_grid_mask_5d(grid_hdl%daddr) 434 mask_5d__tmp = cxios_is_defined_grid_mask_5d & 435 (grid_hdl%daddr) 399 436 mask_5d_ = mask_5d__tmp 400 437 ENDIF 401 438 402 439 IF (PRESENT(mask_6d_)) THEN 403 mask_6d__tmp = cxios_is_defined_grid_mask_6d(grid_hdl%daddr) 440 mask_6d__tmp = cxios_is_defined_grid_mask_6d & 441 (grid_hdl%daddr) 404 442 mask_6d_ = mask_6d__tmp 405 443 ENDIF 406 444 407 445 IF (PRESENT(mask_7d_)) THEN 408 mask_7d__tmp = cxios_is_defined_grid_mask_7d(grid_hdl%daddr) 446 mask_7d__tmp = cxios_is_defined_grid_mask_7d & 447 (grid_hdl%daddr) 409 448 mask_7d_ = mask_7d__tmp 410 449 ENDIF 411 450 412 451 IF (PRESENT(name_)) THEN 413 name__tmp = cxios_is_defined_grid_name(grid_hdl%daddr) 452 name__tmp = cxios_is_defined_grid_name & 453 (grid_hdl%daddr) 414 454 name_ = name__tmp 415 455 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.