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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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.