Ignore:
Timestamp:
08/25/15 10:50:21 (9 years ago)
Author:
rlacroix
Message:

Fix Fortran interface generation to avoid generating long lines.

Long lines can cause compilation issues with some compilers.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r666 r674  
    163163 
    164164      IF (PRESENT(area_)) THEN 
    165         CALL cxios_set_domain_area(domain_hdl%daddr, area_, size(area_,1), size(area_,2)) 
     165        CALL cxios_set_domain_area(domain_hdl%daddr, area_, SHAPE(area_)) 
    166166      ENDIF 
    167167 
    168168      IF (PRESENT(bounds_lat_1d_)) THEN 
    169         CALL cxios_set_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, size(bounds_lat_1d_,1), size(bounds_lat_1d_,2)) 
     169        CALL cxios_set_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
    170170      ENDIF 
    171171 
    172172      IF (PRESENT(bounds_lat_2d_)) THEN 
    173         CALL cxios_set_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, size(bounds_lat_2d_,1), size(bounds_lat_2d_,2), size(bounds_lat_2d_,3)) 
     173        CALL cxios_set_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
    174174      ENDIF 
    175175 
    176176      IF (PRESENT(bounds_lon_1d_)) THEN 
    177         CALL cxios_set_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, size(bounds_lon_1d_,1), size(bounds_lon_1d_,2)) 
     177        CALL cxios_set_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
    178178      ENDIF 
    179179 
    180180      IF (PRESENT(bounds_lon_2d_)) THEN 
    181         CALL cxios_set_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, size(bounds_lon_2d_,1), size(bounds_lon_2d_,2), size(bounds_lon_2d_,3)) 
     181        CALL cxios_set_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
    182182      ENDIF 
    183183 
    … …  
    187187 
    188188      IF (PRESENT(data_i_index_)) THEN 
    189         CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1)) 
     189        CALL cxios_set_domain_data_i_index(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
    190190      ENDIF 
    191191 
    … …  
    195195 
    196196      IF (PRESENT(data_j_index_)) THEN 
    197         CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1)) 
     197        CALL cxios_set_domain_data_j_index(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
    198198      ENDIF 
    199199 
    … …  
    219219 
    220220      IF (PRESENT(i_index_)) THEN 
    221         CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1)) 
     221        CALL cxios_set_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
    222222      ENDIF 
    223223 
    … …  
    227227 
    228228      IF (PRESENT(j_index_)) THEN 
    229         CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1)) 
     229        CALL cxios_set_domain_j_index(domain_hdl%daddr, j_index_, SHAPE(j_index_)) 
    230230      ENDIF 
    231231 
    … …  
    235235 
    236236      IF (PRESENT(latvalue_1d_)) THEN 
    237         CALL cxios_set_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, size(latvalue_1d_,1)) 
     237        CALL cxios_set_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
    238238      ENDIF 
    239239 
    240240      IF (PRESENT(latvalue_2d_)) THEN 
    241         CALL cxios_set_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, size(latvalue_2d_,1), size(latvalue_2d_,2)) 
     241        CALL cxios_set_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
    242242      ENDIF 
    243243 
    … …  
    247247 
    248248      IF (PRESENT(lonvalue_1d_)) THEN 
    249         CALL cxios_set_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, size(lonvalue_1d_,1)) 
     249        CALL cxios_set_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
    250250      ENDIF 
    251251 
    252252      IF (PRESENT(lonvalue_2d_)) THEN 
    253         CALL cxios_set_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, size(lonvalue_2d_,1), size(lonvalue_2d_,2)) 
     253        CALL cxios_set_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
    254254      ENDIF 
    255255 
    256256      IF (PRESENT(mask_1d_)) THEN 
    257         ALLOCATE(mask_1d__tmp(size(mask_1d_,1))) 
     257        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
    258258        mask_1d__tmp = mask_1d_ 
    259         CALL cxios_set_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, size(mask_1d_,1)) 
     259        CALL cxios_set_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    260260      ENDIF 
    261261 
    262262      IF (PRESENT(mask_2d_)) THEN 
    263         ALLOCATE(mask_2d__tmp(size(mask_2d_,1), size(mask_2d_,2))) 
     263        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
    264264        mask_2d__tmp = mask_2d_ 
    265         CALL cxios_set_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, size(mask_2d_,1), size(mask_2d_,2)) 
     265        CALL cxios_set_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    266266      ENDIF 
    267267 
    … …  
    452452 
    453453      IF (PRESENT(area_)) THEN 
    454         CALL cxios_get_domain_area(domain_hdl%daddr, area_, size(area_,1), size(area_,2)) 
     454        CALL cxios_get_domain_area(domain_hdl%daddr, area_, SHAPE(area_)) 
    455455      ENDIF 
    456456 
    457457      IF (PRESENT(bounds_lat_1d_)) THEN 
    458         CALL cxios_get_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, size(bounds_lat_1d_,1), size(bounds_lat_1d_,2)) 
     458        CALL cxios_get_domain_bounds_lat_1d(domain_hdl%daddr, bounds_lat_1d_, SHAPE(bounds_lat_1d_)) 
    459459      ENDIF 
    460460 
    461461      IF (PRESENT(bounds_lat_2d_)) THEN 
    462         CALL cxios_get_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, size(bounds_lat_2d_,1), size(bounds_lat_2d_,2), size(bounds_lat_2d_,3)) 
     462        CALL cxios_get_domain_bounds_lat_2d(domain_hdl%daddr, bounds_lat_2d_, SHAPE(bounds_lat_2d_)) 
    463463      ENDIF 
    464464 
    465465      IF (PRESENT(bounds_lon_1d_)) THEN 
    466         CALL cxios_get_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, size(bounds_lon_1d_,1), size(bounds_lon_1d_,2)) 
     466        CALL cxios_get_domain_bounds_lon_1d(domain_hdl%daddr, bounds_lon_1d_, SHAPE(bounds_lon_1d_)) 
    467467      ENDIF 
    468468 
    469469      IF (PRESENT(bounds_lon_2d_)) THEN 
    470         CALL cxios_get_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, size(bounds_lon_2d_,1), size(bounds_lon_2d_,2), size(bounds_lon_2d_,3)) 
     470        CALL cxios_get_domain_bounds_lon_2d(domain_hdl%daddr, bounds_lon_2d_, SHAPE(bounds_lon_2d_)) 
    471471      ENDIF 
    472472 
    … …  
    476476 
    477477      IF (PRESENT(data_i_index_)) THEN 
    478         CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, size(data_i_index_,1)) 
     478        CALL cxios_get_domain_data_i_index(domain_hdl%daddr, data_i_index_, SHAPE(data_i_index_)) 
    479479      ENDIF 
    480480 
    … …  
    484484 
    485485      IF (PRESENT(data_j_index_)) THEN 
    486         CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, size(data_j_index_,1)) 
     486        CALL cxios_get_domain_data_j_index(domain_hdl%daddr, data_j_index_, SHAPE(data_j_index_)) 
    487487      ENDIF 
    488488 
    … …  
    508508 
    509509      IF (PRESENT(i_index_)) THEN 
    510         CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, size(i_index_,1)) 
     510        CALL cxios_get_domain_i_index(domain_hdl%daddr, i_index_, SHAPE(i_index_)) 
    511511      ENDIF 
    512512 
    … …  
    516516 
    517517      IF (PRESENT(j_index_)) THEN 
    518         CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, size(j_index_,1)) 
     518        CALL cxios_get_domain_j_index(domain_hdl%daddr, j_index_, SHAPE(j_index_)) 
    519519      ENDIF 
    520520 
    … …  
    524524 
    525525      IF (PRESENT(latvalue_1d_)) THEN 
    526         CALL cxios_get_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, size(latvalue_1d_,1)) 
     526        CALL cxios_get_domain_latvalue_1d(domain_hdl%daddr, latvalue_1d_, SHAPE(latvalue_1d_)) 
    527527      ENDIF 
    528528 
    529529      IF (PRESENT(latvalue_2d_)) THEN 
    530         CALL cxios_get_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, size(latvalue_2d_,1), size(latvalue_2d_,2)) 
     530        CALL cxios_get_domain_latvalue_2d(domain_hdl%daddr, latvalue_2d_, SHAPE(latvalue_2d_)) 
    531531      ENDIF 
    532532 
    … …  
    536536 
    537537      IF (PRESENT(lonvalue_1d_)) THEN 
    538         CALL cxios_get_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, size(lonvalue_1d_,1)) 
     538        CALL cxios_get_domain_lonvalue_1d(domain_hdl%daddr, lonvalue_1d_, SHAPE(lonvalue_1d_)) 
    539539      ENDIF 
    540540 
    541541      IF (PRESENT(lonvalue_2d_)) THEN 
    542         CALL cxios_get_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, size(lonvalue_2d_,1), size(lonvalue_2d_,2)) 
     542        CALL cxios_get_domain_lonvalue_2d(domain_hdl%daddr, lonvalue_2d_, SHAPE(lonvalue_2d_)) 
    543543      ENDIF 
    544544 
    545545      IF (PRESENT(mask_1d_)) THEN 
    546         ALLOCATE(mask_1d__tmp(size(mask_1d_,1))) 
    547         CALL cxios_get_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, size(mask_1d_,1)) 
     546        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
     547        CALL cxios_get_domain_mask_1d(domain_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
    548548        mask_1d_ = mask_1d__tmp 
    549549      ENDIF 
    550550 
    551551      IF (PRESENT(mask_2d_)) THEN 
    552         ALLOCATE(mask_2d__tmp(size(mask_2d_,1), size(mask_2d_,2))) 
    553         CALL cxios_get_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, size(mask_2d_,1), size(mask_2d_,2)) 
     552        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
     553        CALL cxios_get_domain_mask_2d(domain_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
    554554        mask_2d_ = mask_2d__tmp 
    555555      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.