Ignore:
Timestamp:
10/14/20 11:38:20 (4 years ago)
Author:
oabramkina
Message:

dev_oa: adding interface to xios_send permitting sending a tile

Location:
XIOS/dev/dev_oa/src/interface/fortran
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/dev_oa/src/interface/fortran/idata.F90

    r1587 r1963  
    6060      END SUBROUTINE cxios_write_data_k80 
    6161 
    62       SUBROUTINE cxios_write_data_k81(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C) 
     62      SUBROUTINE cxios_write_data_k81(fieldid, fieldid_size, data_k8, data_Xsize, tileid) BIND(C) 
    6363         USE ISO_C_BINDING 
    6464         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    6666         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size 
    6767         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize 
     68         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    6869      END SUBROUTINE cxios_write_data_k81 
    6970 
    70       SUBROUTINE cxios_write_data_k82(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize) BIND(C) 
     71      SUBROUTINE cxios_write_data_k82(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, tileid) BIND(C) 
    7172         USE ISO_C_BINDING 
    7273         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    7475         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size 
    7576         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize 
     77         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    7678      END SUBROUTINE cxios_write_data_k82 
    7779 
    78       SUBROUTINE cxios_write_data_k83(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, data_Zsize) BIND(C) 
     80      SUBROUTINE cxios_write_data_k83(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, data_Zsize, & 
     81                                      tileid) BIND(C) 
    7982         USE ISO_C_BINDING 
    8083         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    8285         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size 
    8386         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize, data_Zsize 
     87         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    8488      END SUBROUTINE cxios_write_data_k83 
    8589 
    8690      SUBROUTINE cxios_write_data_k84(fieldid, fieldid_size, data_k8, & 
    8791                                      data_0size, data_1size, data_2size, & 
    88                                       data_3size) BIND(C) 
     92                                      data_3size, tileid) BIND(C) 
    8993         USE ISO_C_BINDING 
    9094         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    9397         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size 
    9498         INTEGER  (kind = C_INT)   , VALUE        :: data_3size 
     99         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    95100      END SUBROUTINE cxios_write_data_k84 
    96101 
    97102      SUBROUTINE cxios_write_data_k85(fieldid, fieldid_size, data_k8, & 
    98103                                      data_0size, data_1size, data_2size, & 
    99                                       data_3size, data_4size) BIND(C) 
     104                                      data_3size, data_4size, tileid) BIND(C) 
    100105         USE ISO_C_BINDING 
    101106         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    104109         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size 
    105110         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size 
     111         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    106112      END SUBROUTINE cxios_write_data_k85 
    107113 
    108114      SUBROUTINE cxios_write_data_k86(fieldid, fieldid_size, data_k8, & 
    109115                                      data_0size, data_1size, data_2size, & 
    110                                       data_3size, data_4size, data_5size) BIND(C) 
     116                                      data_3size, data_4size, data_5size, tileid) BIND(C) 
    111117         USE ISO_C_BINDING 
    112118         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    115121         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size 
    116122         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size 
     123         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    117124      END SUBROUTINE cxios_write_data_k86 
    118125 
    … …  
    120127                                      data_0size, data_1size, data_2size, & 
    121128                                      data_3size, data_4size, data_5size, & 
    122                                       data_6size) BIND(C) 
     129                                      data_6size, tileid) BIND(C) 
    123130         USE ISO_C_BINDING 
    124131         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    128135         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size 
    129136         INTEGER  (kind = C_INT)   , VALUE        :: data_6size 
     137         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    130138      END SUBROUTINE cxios_write_data_k87 
    131139 
    … …  
    138146      END SUBROUTINE cxios_write_data_k40 
    139147 
    140       SUBROUTINE cxios_write_data_k41(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C) 
     148      SUBROUTINE cxios_write_data_k41(fieldid, fieldid_size, data_k4, data_Xsize, tileid) BIND(C) 
    141149         USE ISO_C_BINDING 
    142150         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    144152         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size 
    145153         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize 
     154         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    146155      END SUBROUTINE cxios_write_data_k41 
    147156 
    148       SUBROUTINE cxios_write_data_k42(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize) BIND(C) 
     157      SUBROUTINE cxios_write_data_k42(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, tileid) BIND(C) 
    149158         USE ISO_C_BINDING 
    150159         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    152161         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size 
    153162         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize 
     163         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    154164      END SUBROUTINE cxios_write_data_k42 
    155165 
    156       SUBROUTINE cxios_write_data_k43(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, data_Zsize) BIND(C) 
     166      SUBROUTINE cxios_write_data_k43(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, data_Zsize, & 
     167                                      tileid) BIND(C) 
    157168         USE ISO_C_BINDING 
    158169         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    160171         INTEGER  (kind = C_INT)   , VALUE        :: fieldid_size 
    161172         INTEGER  (kind = C_INT)   , VALUE        :: data_Xsize, data_Ysize, data_Zsize 
     173         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    162174      END SUBROUTINE cxios_write_data_k43 
    163175 
    164176      SUBROUTINE cxios_write_data_k44(fieldid, fieldid_size, data_k4, & 
    165177                                      data_0size, data_1size, data_2size, & 
    166                                       data_3size) BIND(C) 
     178                                      data_3size, tileid) BIND(C) 
    167179         USE ISO_C_BINDING 
    168180         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    171183         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size 
    172184         INTEGER  (kind = C_INT)   , VALUE        :: data_3size 
     185         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    173186      END SUBROUTINE cxios_write_data_k44 
    174187 
    175188      SUBROUTINE cxios_write_data_k45(fieldid, fieldid_size, data_k4, & 
    176189                                      data_0size, data_1size, data_2size, & 
    177                                       data_3size, data_4size) BIND(C) 
     190                                      data_3size, data_4size, tileid) BIND(C) 
    178191         USE ISO_C_BINDING 
    179192         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    182195         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size 
    183196         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size 
     197         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    184198      END SUBROUTINE cxios_write_data_k45 
    185199 
    186200      SUBROUTINE cxios_write_data_k46(fieldid, fieldid_size, data_k4, & 
    187201                                      data_0size, data_1size, data_2size, & 
    188                                       data_3size, data_4size, data_5size) BIND(C) 
     202                                      data_3size, data_4size, data_5size, tileid) BIND(C) 
    189203         USE ISO_C_BINDING 
    190204         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    193207         INTEGER  (kind = C_INT)   , VALUE        :: data_0size, data_1size, data_2size 
    194208         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size 
     209         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    195210      END SUBROUTINE cxios_write_data_k46 
    196211 
    … …  
    198213                                      data_0size, data_1size, data_2size, & 
    199214                                      data_3size, data_4size, data_5size, & 
    200                                       data_6size) BIND(C) 
     215                                      data_6size, tileid) BIND(C) 
    201216         USE ISO_C_BINDING 
    202217         CHARACTER(kind = C_CHAR)  , DIMENSION(*) :: fieldid 
    … …  
    206221         INTEGER  (kind = C_INT)   , VALUE        :: data_3size, data_4size, data_5size 
    207222         INTEGER  (kind = C_INT)   , VALUE        :: data_6size 
     223         INTEGER  (kind = C_INT)   , VALUE        :: tileid 
    208224      END SUBROUTINE cxios_write_data_k47 
    209225 
    … …  
    545561      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    546562      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data1d_k8(:) 
    547       CALL cxios_write_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1)) 
     563      INTEGER, PARAMETER                            :: tileid = -1 
     564      CALL cxios_write_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1), tileid) 
    548565   END SUBROUTINE xios(send_field_r8_1d) 
    549566 
     567   SUBROUTINE xios(send_field_tiled_r8_1d)(fieldid, data1d_k8, tileid) 
     568   IMPLICIT NONE 
     569      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     570      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data1d_k8(:) 
     571      INTEGER                          , INTENT(IN) :: tileid 
     572      CALL cxios_write_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1), tileid) 
     573   END SUBROUTINE xios(send_field_tiled_r8_1d) 
     574 
    550575   SUBROUTINE  xios(send_field_r8_2d)(fieldid, data2d_k8) 
    551576   IMPLICIT NONE 
    552577      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    553578      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data2d_k8(:,:) 
    554       CALL cxios_write_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2)) 
     579      INTEGER, PARAMETER                            :: tileid = -1 
     580      CALL cxios_write_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), & 
     581                                size(data2d_k8, 2), tileid) 
    555582   END SUBROUTINE  xios(send_field_r8_2d) 
    556583 
     584   SUBROUTINE  xios(send_field_tiled_r8_2d)(fieldid, data2d_k8, tileid) 
     585   IMPLICIT NONE 
     586      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     587      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data2d_k8(:,:) 
     588      INTEGER                          , INTENT(IN) :: tileid 
     589      CALL cxios_write_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), & 
     590                                size(data2d_k8, 2), tileid) 
     591   END SUBROUTINE  xios(send_field_tiled_r8_2d) 
     592 
    557593   SUBROUTINE  xios(send_field_r8_3d)(fieldid, data3d_k8) 
    558594   IMPLICIT NONE 
    559595      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    560596      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data3d_k8(:,:,:) 
    561       CALL cxios_write_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3)) 
     597      INTEGER, PARAMETER                            :: tileid = -1 
     598      CALL cxios_write_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3), & 
     599                                tileid) 
    562600   END SUBROUTINE  xios(send_field_r8_3d) 
    563601 
     602   SUBROUTINE  xios(send_field_tiled_r8_3d)(fieldid, data3d_k8, tileid) 
     603   IMPLICIT NONE 
     604      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     605      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data3d_k8(:,:,:) 
     606      INTEGER                          , INTENT(IN) :: tileid 
     607      CALL cxios_write_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), & 
     608                                      size(data3d_k8, 2), size(data3d_k8, 3), tileid) 
     609   END SUBROUTINE  xios(send_field_tiled_r8_3d) 
     610 
    564611   SUBROUTINE  xios(send_field_r8_4d)(fieldid, data4d_k8) 
    565612   IMPLICIT NONE 
    566613      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    567614      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data4d_k8(:,:,:,:) 
     615      INTEGER, PARAMETER                            :: tileid = -1 
    568616      CALL cxios_write_data_k84(fieldid, len(fieldid), data4d_k8, & 
    569617                                size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), & 
    570                                 size(data4d_k8, 4)) 
     618                                size(data4d_k8, 4), tileid) 
    571619   END SUBROUTINE  xios(send_field_r8_4d) 
    572620 
     621   SUBROUTINE  xios(send_field_tiled_r8_4d)(fieldid, data4d_k8, tileid) 
     622   IMPLICIT NONE 
     623      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     624      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data4d_k8(:,:,:,:) 
     625      INTEGER                          , INTENT(IN) :: tileid 
     626      CALL cxios_write_data_k84(fieldid, len(fieldid), data4d_k8, & 
     627                                size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), & 
     628                                size(data4d_k8, 4), tileid) 
     629   END SUBROUTINE  xios(send_field_tiled_r8_4d) 
     630 
    573631   SUBROUTINE  xios(send_field_r8_5d)(fieldid, data5d_k8) 
    574632   IMPLICIT NONE 
    575633      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    576634      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data5d_k8(:,:,:,:,:) 
     635      INTEGER, PARAMETER                            :: tileid = -1 
    577636      CALL cxios_write_data_k85(fieldid, len(fieldid), data5d_k8, & 
    578637                                size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), & 
    579                                 size(data5d_k8, 4), size(data5d_k8, 5)) 
     638                                size(data5d_k8, 4), size(data5d_k8, 5), tileid) 
    580639   END SUBROUTINE  xios(send_field_r8_5d) 
    581640 
     641   SUBROUTINE  xios(send_field_tiled_r8_5d)(fieldid, data5d_k8, tileid) 
     642   IMPLICIT NONE 
     643      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     644      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data5d_k8(:,:,:,:,:) 
     645      INTEGER                          , INTENT(IN) :: tileid 
     646      CALL cxios_write_data_k85(fieldid, len(fieldid), data5d_k8, & 
     647                                size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), & 
     648                                size(data5d_k8, 4), size(data5d_k8, 5), tileid) 
     649   END SUBROUTINE  xios(send_field_tiled_r8_5d) 
     650 
    582651   SUBROUTINE  xios(send_field_r8_6d)(fieldid, data6d_k8) 
    583652   IMPLICIT NONE 
    584653      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    585654      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data6d_k8(:,:,:,:,:,:) 
     655      INTEGER, PARAMETER                            :: tileid = -1 
    586656      CALL cxios_write_data_k86(fieldid, len(fieldid), data6d_k8, & 
    587657                                size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), & 
    588                                 size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6)) 
     658                                size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6), tileid) 
    589659   END SUBROUTINE  xios(send_field_r8_6d) 
    590660 
     661   SUBROUTINE  xios(send_field_tiled_r8_6d)(fieldid, data6d_k8, tileid) 
     662   IMPLICIT NONE 
     663      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     664      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data6d_k8(:,:,:,:,:,:) 
     665      INTEGER                          , INTENT(IN) :: tileid 
     666      CALL cxios_write_data_k86(fieldid, len(fieldid), data6d_k8, & 
     667                                size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), & 
     668                                size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6), tileid) 
     669   END SUBROUTINE  xios(send_field_tiled_r8_6d) 
     670 
    591671   SUBROUTINE  xios(send_field_r8_7d)(fieldid, data7d_k8) 
    592672   IMPLICIT NONE 
    593673      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    594674      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data7d_k8(:,:,:,:,:,:,:) 
     675      INTEGER, PARAMETER                            :: tileid = -1 
    595676      CALL cxios_write_data_k87(fieldid, len(fieldid), data7d_k8, & 
    596677                                size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), & 
    597678                                size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), & 
    598                                 size(data7d_k8, 7)) 
     679                                size(data7d_k8, 7), tileid) 
    599680   END SUBROUTINE  xios(send_field_r8_7d) 
     681 
     682   SUBROUTINE  xios(send_field_tiled_r8_7d)(fieldid, data7d_k8, tileid) 
     683   IMPLICIT NONE 
     684      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     685      REAL     (kind = 8), DIMENSION(*), INTENT(IN) :: data7d_k8(:,:,:,:,:,:,:) 
     686      INTEGER                          , INTENT(IN) :: tileid 
     687      CALL cxios_write_data_k87(fieldid, len(fieldid), data7d_k8, & 
     688                                size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), & 
     689                                size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), & 
     690                                size(data7d_k8, 7), tileid) 
     691   END SUBROUTINE  xios(send_field_tiled_r8_7d) 
    600692 
    601693   SUBROUTINE xios(send_field_r4_0d)(fieldid, data_k4) 
    … …  
    610702      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    611703      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data1d_k4(:) 
    612       CALL cxios_write_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1)) 
     704      INTEGER, PARAMETER                            :: tileid = -1 
     705      CALL cxios_write_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1), tileid) 
    613706   END SUBROUTINE xios(send_field_r4_1d) 
    614707 
     708   SUBROUTINE xios(send_field_tiled_r4_1d)(fieldid, data1d_k4, tileid) 
     709   IMPLICIT NONE 
     710      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     711      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data1d_k4(:) 
     712      INTEGER                          , INTENT(IN) :: tileid 
     713      CALL cxios_write_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1), tileid) 
     714   END SUBROUTINE xios(send_field_tiled_r4_1d) 
     715 
    615716   SUBROUTINE xios(send_field_r4_2d)(fieldid, data2d_k4) 
    616717   IMPLICIT NONE 
    617718      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    618719      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data2d_k4(:,:) 
    619       CALL cxios_write_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2)) 
     720      INTEGER, PARAMETER                            :: tileid = -1 
     721      CALL cxios_write_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2), tileid) 
    620722   END SUBROUTINE xios(send_field_r4_2d) 
    621723 
     724   SUBROUTINE xios(send_field_tiled_r4_2d)(fieldid, data2d_k4, tileid) 
     725   IMPLICIT NONE 
     726      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     727      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data2d_k4(:,:) 
     728      INTEGER                          , INTENT(IN) :: tileid 
     729      CALL cxios_write_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2), tileid) 
     730   END SUBROUTINE xios(send_field_tiled_r4_2d) 
     731 
    622732   SUBROUTINE xios(send_field_r4_3d)(fieldid, data3d_k4) 
    623733   IMPLICIT NONE 
    624734      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    625735      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data3d_k4(:,:,:) 
    626       CALL cxios_write_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3)) 
     736      INTEGER, PARAMETER                            :: tileid = -1 
     737      CALL cxios_write_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3), & 
     738                                tileid) 
    627739   END SUBROUTINE xios(send_field_r4_3d) 
    628740 
     741   SUBROUTINE xios(send_field_tiled_r4_3d)(fieldid, data3d_k4, tileid) 
     742   IMPLICIT NONE 
     743      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     744      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data3d_k4(:,:,:) 
     745      INTEGER                          , INTENT(IN) :: tileid 
     746      CALL cxios_write_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3), & 
     747                                tileid) 
     748   END SUBROUTINE xios(send_field_tiled_r4_3d) 
     749 
    629750   SUBROUTINE  xios(send_field_r4_4d)(fieldid, data4d_k4) 
    630751   IMPLICIT NONE 
    631752      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    632753      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data4d_k4(:,:,:,:) 
     754      INTEGER, PARAMETER                            :: tileid = -1 
    633755      CALL cxios_write_data_k44(fieldid, len(fieldid), data4d_k4, & 
    634756                                size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), & 
    635                                 size(data4d_k4, 4)) 
     757                                size(data4d_k4, 4), tileid) 
    636758   END SUBROUTINE  xios(send_field_r4_4d) 
    637759 
     760   SUBROUTINE  xios(send_field_tiled_r4_4d)(fieldid, data4d_k4, tileid) 
     761   IMPLICIT NONE 
     762      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     763      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data4d_k4(:,:,:,:) 
     764      INTEGER                          , INTENT(IN) :: tileid 
     765      CALL cxios_write_data_k44(fieldid, len(fieldid), data4d_k4, & 
     766                                size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), & 
     767                                size(data4d_k4, 4), tileid) 
     768   END SUBROUTINE  xios(send_field_tiled_r4_4d) 
     769 
    638770   SUBROUTINE  xios(send_field_r4_5d)(fieldid, data5d_k4) 
    639771   IMPLICIT NONE 
    640772      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    641773      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data5d_k4(:,:,:,:,:) 
     774      INTEGER, PARAMETER                            :: tileid = -1 
    642775      CALL cxios_write_data_k45(fieldid, len(fieldid), data5d_k4, & 
    643776                                size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), & 
    644                                 size(data5d_k4, 4), size(data5d_k4, 5)) 
     777                                size(data5d_k4, 4), size(data5d_k4, 5), tileid) 
    645778   END SUBROUTINE  xios(send_field_r4_5d) 
    646779 
     780   SUBROUTINE  xios(send_field_tiled_r4_5d)(fieldid, data5d_k4, tileid) 
     781   IMPLICIT NONE 
     782      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     783      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data5d_k4(:,:,:,:,:) 
     784      INTEGER                          , INTENT(IN) :: tileid 
     785      CALL cxios_write_data_k45(fieldid, len(fieldid), data5d_k4, & 
     786                                size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), & 
     787                                size(data5d_k4, 4), size(data5d_k4, 5), tileid) 
     788   END SUBROUTINE  xios(send_field_tiled_r4_5d) 
     789 
    647790   SUBROUTINE  xios(send_field_r4_6d)(fieldid, data6d_k4) 
    648791   IMPLICIT NONE 
    649792      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    650793      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data6d_k4(:,:,:,:,:,:) 
     794      INTEGER, PARAMETER                            :: tileid = -1 
    651795      CALL cxios_write_data_k46(fieldid, len(fieldid), data6d_k4, & 
    652796                                size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), & 
    653                                 size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6)) 
     797                                size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6), tileid) 
    654798   END SUBROUTINE  xios(send_field_r4_6d) 
    655799 
     800   SUBROUTINE  xios(send_field_tiled_r4_6d)(fieldid, data6d_k4, tileid) 
     801   IMPLICIT NONE 
     802      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     803      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data6d_k4(:,:,:,:,:,:) 
     804      INTEGER                          , INTENT(IN) :: tileid 
     805      CALL cxios_write_data_k46(fieldid, len(fieldid), data6d_k4, & 
     806                                size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), & 
     807                                size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6), tileid) 
     808   END SUBROUTINE  xios(send_field_tiled_r4_6d) 
     809 
    656810   SUBROUTINE  xios(send_field_r4_7d)(fieldid, data7d_k4) 
    657811   IMPLICIT NONE 
    658812      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
    659813      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data7d_k4(:,:,:,:,:,:,:) 
     814      INTEGER, PARAMETER                            :: tileid = -1 
    660815      CALL cxios_write_data_k47(fieldid, len(fieldid), data7d_k4, & 
    661816                                size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), & 
    662817                                size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), & 
    663                                 size(data7d_k4, 7)) 
     818                                size(data7d_k4, 7), tileid) 
    664819   END SUBROUTINE  xios(send_field_r4_7d) 
     820 
     821   SUBROUTINE  xios(send_field_tiled_r4_7d)(fieldid, data7d_k4, tileid) 
     822   IMPLICIT NONE 
     823      CHARACTER(len = *)               , INTENT(IN) :: fieldid 
     824      REAL     (kind = 4), DIMENSION(*), INTENT(IN) :: data7d_k4(:,:,:,:,:,:,:) 
     825      INTEGER                          , INTENT(IN) :: tileid 
     826      CALL cxios_write_data_k47(fieldid, len(fieldid), data7d_k4, & 
     827                                size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), & 
     828                                size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), & 
     829                                size(data7d_k4, 7), tileid) 
     830   END SUBROUTINE  xios(send_field_tiled_r4_7d) 
    665831 
    666832   ! Receive field functions 

  • XIOS/dev/dev_oa/src/interface/fortran/ixios_interfaces.F90

    r981 r1963  
    1111                  xios(send_field_r4_0d), xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d), & 
    1212                  xios(send_field_r4_4d), xios(send_field_r4_5d), xios(send_field_r4_6d), xios(send_field_r4_7d), & 
     13                  xios(send_field_tiled_r8_1d), xios(send_field_tiled_r8_2d), & 
     14                  xios(send_field_tiled_r8_3d), xios(send_field_tiled_r8_4d), & 
     15                  xios(send_field_tiled_r8_5d), xios(send_field_tiled_r8_6d), xios(send_field_tiled_r8_7d), & 
     16                  xios(send_field_tiled_r4_1d), xios(send_field_tiled_r4_2d), & 
     17                  xios(send_field_tiled_r4_3d), xios(send_field_tiled_r4_4d), & 
     18                  xios(send_field_tiled_r4_5d), xios(send_field_tiled_r4_6d), xios(send_field_tiled_r4_7d), & 
    1319                  xios(recv_field_r8_0d), xios(recv_field_r8_1d), xios(recv_field_r8_2d), xios(recv_field_r8_3d), & 
    1420                  xios(recv_field_r8_4d), xios(recv_field_r8_5d), xios(recv_field_r8_6d), xios(recv_field_r8_7d), & 
    … …  
    239245                   xios(send_field_r8_4d), xios(send_field_r8_5d), xios(send_field_r8_6d), xios(send_field_r8_7d), & 
    240246                   xios(send_field_r4_0d), xios(send_field_r4_1d), xios(send_field_r4_2d), xios(send_field_r4_3d), & 
    241                    xios(send_field_r4_4d), xios(send_field_r4_5d), xios(send_field_r4_6d), xios(send_field_r4_7d) 
     247                   xios(send_field_r4_4d), xios(send_field_r4_5d), xios(send_field_r4_6d), xios(send_field_r4_7d), & 
     248                   xios(send_field_tiled_r8_1d), xios(send_field_tiled_r8_2d), & 
     249                   xios(send_field_tiled_r8_3d), xios(send_field_tiled_r8_4d), & 
     250                   xios(send_field_tiled_r8_5d), xios(send_field_tiled_r8_6d), xios(send_field_tiled_r8_7d), & 
     251                   xios(send_field_tiled_r4_1d), xios(send_field_tiled_r4_2d), & 
     252                   xios(send_field_tiled_r4_3d), xios(send_field_tiled_r4_4d), & 
     253                   xios(send_field_tiled_r4_5d), xios(send_field_tiled_r4_6d), xios(send_field_tiled_r4_7d) 
    242254END INTERFACE xios(send_field) 
    243255 
Note: See TracChangeset for help on using the changeset viewer.