Changeset 2131 for XIOS/trunk/src/interface/fortran/idata.F90
- Timestamp:
- 04/23/21 15:00:35 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran/idata.F90
r2099 r2131 68 68 END SUBROUTINE cxios_write_data_k80 69 69 70 SUBROUTINE cxios_write_data_k81_hdl(field_hdl, data_k8, data_Xsize ) BIND(C)70 SUBROUTINE cxios_write_data_k81_hdl(field_hdl, data_k8, data_Xsize, tileid) BIND(C) 71 71 USE ISO_C_BINDING 72 72 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 73 73 REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 74 74 INTEGER (kind = C_INT) , VALUE :: data_Xsize 75 INTEGER (kind = C_INT) , VALUE :: tileid 75 76 END SUBROUTINE cxios_write_data_k81_hdl 76 77 77 SUBROUTINE cxios_write_data_k81(fieldid, fieldid_size, data_k8, data_Xsize ) BIND(C)78 SUBROUTINE cxios_write_data_k81(fieldid, fieldid_size, data_k8, data_Xsize, tileid) BIND(C) 78 79 USE ISO_C_BINDING 79 80 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 81 82 INTEGER (kind = C_INT) , VALUE :: fieldid_size 82 83 INTEGER (kind = C_INT) , VALUE :: data_Xsize 84 INTEGER (kind = C_INT) , VALUE :: tileid 83 85 END SUBROUTINE cxios_write_data_k81 84 86 85 SUBROUTINE cxios_write_data_k82_hdl(field_hdl, data_k8, data_Xsize, data_Ysize ) BIND(C)87 SUBROUTINE cxios_write_data_k82_hdl(field_hdl, data_k8, data_Xsize, data_Ysize, tileid) BIND(C) 86 88 USE ISO_C_BINDING 87 89 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 88 90 REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 89 91 INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize 92 INTEGER (kind = C_INT) , VALUE :: tileid 90 93 END SUBROUTINE cxios_write_data_k82_hdl 91 94 92 SUBROUTINE cxios_write_data_k82(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize ) BIND(C)95 SUBROUTINE cxios_write_data_k82(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, tileid) BIND(C) 93 96 USE ISO_C_BINDING 94 97 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 96 99 INTEGER (kind = C_INT) , VALUE :: fieldid_size 97 100 INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize 101 INTEGER (kind = C_INT) , VALUE :: tileid 98 102 END SUBROUTINE cxios_write_data_k82 99 103 100 SUBROUTINE cxios_write_data_k83_hdl(field_hdl, data_k8, data_Xsize, data_Ysize, data_Zsize ) BIND(C)104 SUBROUTINE cxios_write_data_k83_hdl(field_hdl, data_k8, data_Xsize, data_Ysize, data_Zsize, tileid) BIND(C) 101 105 USE ISO_C_BINDING 102 106 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 103 107 REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 104 108 INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize 109 INTEGER (kind = C_INT) , VALUE :: tileid 105 110 END SUBROUTINE cxios_write_data_k83_hdl 106 111 107 SUBROUTINE cxios_write_data_k83(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, data_Zsize) BIND(C) 112 SUBROUTINE cxios_write_data_k83(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, data_Zsize, & 113 tileid) BIND(C) 108 114 USE ISO_C_BINDING 109 115 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 111 117 INTEGER (kind = C_INT) , VALUE :: fieldid_size 112 118 INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize 119 INTEGER (kind = C_INT) , VALUE :: tileid 113 120 END SUBROUTINE cxios_write_data_k83 114 121 115 122 SUBROUTINE cxios_write_data_k84_hdl(field_hdl, data_k8, & 116 123 data_0size, data_1size, data_2size, & 117 data_3size ) BIND(C)124 data_3size, tileid) BIND(C) 118 125 USE ISO_C_BINDING 119 126 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl … … 121 128 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 122 129 INTEGER (kind = C_INT) , VALUE :: data_3size 130 INTEGER (kind = C_INT) , VALUE :: tileid 123 131 END SUBROUTINE cxios_write_data_k84_hdl 124 132 125 133 SUBROUTINE cxios_write_data_k84(fieldid, fieldid_size, data_k8, & 126 134 data_0size, data_1size, data_2size, & 127 data_3size ) BIND(C)135 data_3size, tileid) BIND(C) 128 136 USE ISO_C_BINDING 129 137 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 132 140 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 133 141 INTEGER (kind = C_INT) , VALUE :: data_3size 142 INTEGER (kind = C_INT) , VALUE :: tileid 134 143 END SUBROUTINE cxios_write_data_k84 135 144 136 145 SUBROUTINE cxios_write_data_k85_hdl(field_hdl, data_k8, & 137 146 data_0size, data_1size, data_2size, & 138 data_3size, data_4size ) BIND(C)147 data_3size, data_4size, tileid) BIND(C) 139 148 USE ISO_C_BINDING 140 149 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl … … 142 151 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 143 152 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size 153 INTEGER (kind = C_INT) , VALUE :: tileid 144 154 END SUBROUTINE cxios_write_data_k85_hdl 145 155 146 156 SUBROUTINE cxios_write_data_k85(fieldid, fieldid_size, data_k8, & 147 157 data_0size, data_1size, data_2size, & 148 data_3size, data_4size ) BIND(C)158 data_3size, data_4size, tileid) BIND(C) 149 159 USE ISO_C_BINDING 150 160 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 153 163 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 154 164 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size 165 INTEGER (kind = C_INT) , VALUE :: tileid 155 166 END SUBROUTINE cxios_write_data_k85 156 167 157 168 SUBROUTINE cxios_write_data_k86_hdl(field_hdl, data_k8, & 158 169 data_0size, data_1size, data_2size, & 159 data_3size, data_4size, data_5size ) BIND(C)170 data_3size, data_4size, data_5size, tileid) BIND(C) 160 171 USE ISO_C_BINDING 161 172 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl … … 163 174 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 164 175 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size 176 INTEGER (kind = C_INT) , VALUE :: tileid 165 177 END SUBROUTINE cxios_write_data_k86_hdl 166 178 167 179 SUBROUTINE cxios_write_data_k86(fieldid, fieldid_size, data_k8, & 168 180 data_0size, data_1size, data_2size, & 169 data_3size, data_4size, data_5size ) BIND(C)181 data_3size, data_4size, data_5size, tileid) BIND(C) 170 182 USE ISO_C_BINDING 171 183 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 174 186 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 175 187 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size 188 INTEGER (kind = C_INT) , VALUE :: tileid 176 189 END SUBROUTINE cxios_write_data_k86 177 190 … … 179 192 data_0size, data_1size, data_2size, & 180 193 data_3size, data_4size, data_5size, & 181 data_6size ) BIND(C)194 data_6size, tileid) BIND(C) 182 195 USE ISO_C_BINDING 183 196 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl … … 186 199 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size 187 200 INTEGER (kind = C_INT) , VALUE :: data_6size 201 INTEGER (kind = C_INT) , VALUE :: tileid 188 202 END SUBROUTINE cxios_write_data_k87_hdl 189 203 … … 191 205 data_0size, data_1size, data_2size, & 192 206 data_3size, data_4size, data_5size, & 193 data_6size ) BIND(C)207 data_6size, tileid) BIND(C) 194 208 USE ISO_C_BINDING 195 209 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 199 213 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size 200 214 INTEGER (kind = C_INT) , VALUE :: data_6size 215 INTEGER (kind = C_INT) , VALUE :: tileid 201 216 END SUBROUTINE cxios_write_data_k87 202 217 … … 216 231 END SUBROUTINE cxios_write_data_k40 217 232 218 SUBROUTINE cxios_write_data_k41_hdl(field_hdl, data_k4, data_Xsize ) BIND(C)233 SUBROUTINE cxios_write_data_k41_hdl(field_hdl, data_k4, data_Xsize, tileid) BIND(C) 219 234 USE ISO_C_BINDING 220 235 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 221 236 REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 222 237 INTEGER (kind = C_INT) , VALUE :: data_Xsize 238 INTEGER (kind = C_INT) , VALUE :: tileid 223 239 END SUBROUTINE cxios_write_data_k41_hdl 224 240 225 SUBROUTINE cxios_write_data_k41(fieldid, fieldid_size, data_k4, data_Xsize ) BIND(C)241 SUBROUTINE cxios_write_data_k41(fieldid, fieldid_size, data_k4, data_Xsize, tileid) BIND(C) 226 242 USE ISO_C_BINDING 227 243 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 229 245 INTEGER (kind = C_INT) , VALUE :: fieldid_size 230 246 INTEGER (kind = C_INT) , VALUE :: data_Xsize 247 INTEGER (kind = C_INT) , VALUE :: tileid 231 248 END SUBROUTINE cxios_write_data_k41 232 249 233 SUBROUTINE cxios_write_data_k42_hdl(field_hdl, data_k4, data_Xsize, data_Ysize ) BIND(C)250 SUBROUTINE cxios_write_data_k42_hdl(field_hdl, data_k4, data_Xsize, data_Ysize, tileid) BIND(C) 234 251 USE ISO_C_BINDING 235 252 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 236 253 REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 237 254 INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize 255 INTEGER (kind = C_INT) , VALUE :: tileid 238 256 END SUBROUTINE cxios_write_data_k42_hdl 239 257 240 SUBROUTINE cxios_write_data_k42(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize ) BIND(C)258 SUBROUTINE cxios_write_data_k42(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, tileid) BIND(C) 241 259 USE ISO_C_BINDING 242 260 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 244 262 INTEGER (kind = C_INT) , VALUE :: fieldid_size 245 263 INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize 264 INTEGER (kind = C_INT) , VALUE :: tileid 246 265 END SUBROUTINE cxios_write_data_k42 247 266 248 SUBROUTINE cxios_write_data_k43_hdl(field_hdl, data_k4, data_Xsize, data_Ysize, data_Zsize ) BIND(C)267 SUBROUTINE cxios_write_data_k43_hdl(field_hdl, data_k4, data_Xsize, data_Ysize, data_Zsize, tileid) BIND(C) 249 268 USE ISO_C_BINDING 250 269 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl 251 270 REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 252 271 INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize 272 INTEGER (kind = C_INT) , VALUE :: tileid 253 273 END SUBROUTINE cxios_write_data_k43_hdl 254 274 255 SUBROUTINE cxios_write_data_k43(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, data_Zsize ) BIND(C)275 SUBROUTINE cxios_write_data_k43(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, data_Zsize, tileid) BIND(C) 256 276 USE ISO_C_BINDING 257 277 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 259 279 INTEGER (kind = C_INT) , VALUE :: fieldid_size 260 280 INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize 281 INTEGER (kind = C_INT) , VALUE :: tileid 261 282 END SUBROUTINE cxios_write_data_k43 262 283 263 284 SUBROUTINE cxios_write_data_k44_hdl(field_hdl, data_k4, & 264 285 data_0size, data_1size, data_2size, & 265 data_3size ) BIND(C)286 data_3size, tileid) BIND(C) 266 287 USE ISO_C_BINDING 267 288 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl … … 269 290 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 270 291 INTEGER (kind = C_INT) , VALUE :: data_3size 292 INTEGER (kind = C_INT) , VALUE :: tileid 271 293 END SUBROUTINE cxios_write_data_k44_hdl 272 294 273 295 SUBROUTINE cxios_write_data_k44(fieldid, fieldid_size, data_k4, & 274 296 data_0size, data_1size, data_2size, & 275 data_3size ) BIND(C)297 data_3size, tileid) BIND(C) 276 298 USE ISO_C_BINDING 277 299 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 280 302 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 281 303 INTEGER (kind = C_INT) , VALUE :: data_3size 304 INTEGER (kind = C_INT) , VALUE :: tileid 282 305 END SUBROUTINE cxios_write_data_k44 283 306 284 307 SUBROUTINE cxios_write_data_k45_hdl(field_hdl, data_k4, & 285 308 data_0size, data_1size, data_2size, & 286 data_3size, data_4size ) BIND(C)309 data_3size, data_4size, tileid) BIND(C) 287 310 USE ISO_C_BINDING 288 311 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl … … 290 313 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 291 314 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size 315 INTEGER (kind = C_INT) , VALUE :: tileid 292 316 END SUBROUTINE cxios_write_data_k45_hdl 293 317 294 318 SUBROUTINE cxios_write_data_k45(fieldid, fieldid_size, data_k4, & 295 319 data_0size, data_1size, data_2size, & 296 data_3size, data_4size ) BIND(C)320 data_3size, data_4size, tileid) BIND(C) 297 321 USE ISO_C_BINDING 298 322 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 301 325 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 302 326 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size 327 INTEGER (kind = C_INT) , VALUE :: tileid 303 328 END SUBROUTINE cxios_write_data_k45 304 329 305 330 SUBROUTINE cxios_write_data_k46_hdl(field_hdl, data_k4, & 306 331 data_0size, data_1size, data_2size, & 307 data_3size, data_4size, data_5size ) BIND(C)332 data_3size, data_4size, data_5size, tileid) BIND(C) 308 333 USE ISO_C_BINDING 309 334 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl … … 311 336 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 312 337 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size 338 INTEGER (kind = C_INT) , VALUE :: tileid 313 339 END SUBROUTINE cxios_write_data_k46_hdl 314 340 315 341 SUBROUTINE cxios_write_data_k46(fieldid, fieldid_size, data_k4, & 316 342 data_0size, data_1size, data_2size, & 317 data_3size, data_4size, data_5size ) BIND(C)343 data_3size, data_4size, data_5size, tileid) BIND(C) 318 344 USE ISO_C_BINDING 319 345 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 322 348 INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size 323 349 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size 350 INTEGER (kind = C_INT) , VALUE :: tileid 324 351 END SUBROUTINE cxios_write_data_k46 325 352 … … 327 354 data_0size, data_1size, data_2size, & 328 355 data_3size, data_4size, data_5size, & 329 data_6size ) BIND(C)356 data_6size, tileid) BIND(C) 330 357 USE ISO_C_BINDING 331 358 INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl … … 334 361 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size 335 362 INTEGER (kind = C_INT) , VALUE :: data_6size 363 INTEGER (kind = C_INT) , VALUE :: tileid 336 364 END SUBROUTINE cxios_write_data_k47_hdl 337 365 … … 339 367 data_0size, data_1size, data_2size, & 340 368 data_3size, data_4size, data_5size, & 341 data_6size ) BIND(C)369 data_6size, tileid) BIND(C) 342 370 USE ISO_C_BINDING 343 371 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid … … 347 375 INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size 348 376 INTEGER (kind = C_INT) , VALUE :: data_6size 377 INTEGER (kind = C_INT) , VALUE :: tileid 349 378 END SUBROUTINE cxios_write_data_k47 350 379 … … 834 863 TYPE(txios(field)) :: field_hdl 835 864 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data1d_k8(:) 836 CALL cxios_write_data_k81_hdl(field_hdl%daddr, data1d_k8, size(data1d_k8, 1)) 865 INTEGER, PARAMETER :: tileid = -1 866 CALL cxios_write_data_k81_hdl(field_hdl%daddr, data1d_k8, size(data1d_k8, 1), tileid) 837 867 END SUBROUTINE xios(send_field_r8_1d_hdl) 838 868 … … 841 871 CHARACTER(len = *) , INTENT(IN) :: fieldid 842 872 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data1d_k8(:) 843 CALL cxios_write_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1)) 873 INTEGER, PARAMETER :: tileid = -1 874 CALL cxios_write_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1), tileid) 844 875 END SUBROUTINE xios(send_field_r8_1d) 845 876 877 SUBROUTINE xios(send_field_tiled_r8_1d)(fieldid, data1d_k8, tileid) 878 IMPLICIT NONE 879 CHARACTER(len = *) , INTENT(IN) :: fieldid 880 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data1d_k8(:) 881 INTEGER , INTENT(IN) :: tileid 882 CALL cxios_write_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1), tileid) 883 END SUBROUTINE xios(send_field_tiled_r8_1d) 884 846 885 SUBROUTINE xios(send_field_r8_2d_hdl)(field_hdl, data2d_k8) 847 886 IMPLICIT NONE 848 887 TYPE(txios(field)) :: field_hdl 849 888 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data2d_k8(:,:) 850 CALL cxios_write_data_k82_hdl(field_hdl%daddr, data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2)) 889 INTEGER, PARAMETER :: tileid = -1 890 CALL cxios_write_data_k82_hdl(field_hdl%daddr, data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2), tileid) 851 891 END SUBROUTINE xios(send_field_r8_2d_hdl) 852 892 … … 855 895 CHARACTER(len = *) , INTENT(IN) :: fieldid 856 896 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data2d_k8(:,:) 857 CALL cxios_write_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2)) 897 INTEGER, PARAMETER :: tileid = -1 898 CALL cxios_write_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), & 899 size(data2d_k8, 2), tileid) 858 900 END SUBROUTINE xios(send_field_r8_2d) 859 901 902 SUBROUTINE xios(send_field_tiled_r8_2d)(fieldid, data2d_k8, tileid) 903 IMPLICIT NONE 904 CHARACTER(len = *) , INTENT(IN) :: fieldid 905 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data2d_k8(:,:) 906 INTEGER , INTENT(IN) :: tileid 907 CALL cxios_write_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), & 908 size(data2d_k8, 2), tileid) 909 END SUBROUTINE xios(send_field_tiled_r8_2d) 910 860 911 SUBROUTINE xios(send_field_r8_3d_hdl)(field_hdl, data3d_k8) 861 912 IMPLICIT NONE 862 913 TYPE(txios(field)) :: field_hdl 863 914 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data3d_k8(:,:,:) 864 CALL cxios_write_data_k83_hdl(field_hdl%daddr, data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3)) 915 INTEGER, PARAMETER :: tileid = -1 916 CALL cxios_write_data_k83_hdl(field_hdl%daddr, data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3), & 917 tileid) 865 918 END SUBROUTINE xios(send_field_r8_3d_hdl) 866 919 … … 869 922 CHARACTER(len = *) , INTENT(IN) :: fieldid 870 923 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data3d_k8(:,:,:) 871 CALL cxios_write_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3)) 924 INTEGER, PARAMETER :: tileid = -1 925 CALL cxios_write_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3), & 926 tileid) 872 927 END SUBROUTINE xios(send_field_r8_3d) 873 928 929 SUBROUTINE xios(send_field_tiled_r8_3d)(fieldid, data3d_k8, tileid) 930 IMPLICIT NONE 931 CHARACTER(len = *) , INTENT(IN) :: fieldid 932 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data3d_k8(:,:,:) 933 INTEGER , INTENT(IN) :: tileid 934 CALL cxios_write_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), & 935 size(data3d_k8, 2), size(data3d_k8, 3), tileid) 936 END SUBROUTINE xios(send_field_tiled_r8_3d) 937 874 938 SUBROUTINE xios(send_field_r8_4d_hdl)(field_hdl, data4d_k8) 875 939 IMPLICIT NONE 876 940 TYPE(txios(field)) :: field_hdl 877 941 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data4d_k8(:,:,:,:) 942 INTEGER, PARAMETER :: tileid = -1 878 943 CALL cxios_write_data_k84_hdl(field_hdl%daddr, data4d_k8, & 879 944 size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), & 880 size(data4d_k8, 4) )945 size(data4d_k8, 4), tileid) 881 946 END SUBROUTINE xios(send_field_r8_4d_hdl) 882 947 … … 885 950 CHARACTER(len = *) , INTENT(IN) :: fieldid 886 951 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data4d_k8(:,:,:,:) 952 INTEGER, PARAMETER :: tileid = -1 887 953 CALL cxios_write_data_k84(fieldid, len(fieldid), data4d_k8, & 888 954 size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), & 889 size(data4d_k8, 4) )955 size(data4d_k8, 4), tileid) 890 956 END SUBROUTINE xios(send_field_r8_4d) 891 957 958 SUBROUTINE xios(send_field_tiled_r8_4d)(fieldid, data4d_k8, tileid) 959 IMPLICIT NONE 960 CHARACTER(len = *) , INTENT(IN) :: fieldid 961 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data4d_k8(:,:,:,:) 962 INTEGER , INTENT(IN) :: tileid 963 CALL cxios_write_data_k84(fieldid, len(fieldid), data4d_k8, & 964 size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), & 965 size(data4d_k8, 4), tileid) 966 END SUBROUTINE xios(send_field_tiled_r8_4d) 967 892 968 SUBROUTINE xios(send_field_r8_5d_hdl)(field_hdl, data5d_k8) 893 969 IMPLICIT NONE 894 970 TYPE(txios(field)) :: field_hdl 895 971 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data5d_k8(:,:,:,:,:) 972 INTEGER, PARAMETER :: tileid = -1 896 973 CALL cxios_write_data_k85_hdl(field_hdl%daddr, data5d_k8, & 897 974 size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), & 898 size(data5d_k8, 4), size(data5d_k8, 5) )975 size(data5d_k8, 4), size(data5d_k8, 5), tileid) 899 976 END SUBROUTINE xios(send_field_r8_5d_hdl) 900 977 … … 903 980 CHARACTER(len = *) , INTENT(IN) :: fieldid 904 981 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data5d_k8(:,:,:,:,:) 982 INTEGER, PARAMETER :: tileid = -1 905 983 CALL cxios_write_data_k85(fieldid, len(fieldid), data5d_k8, & 906 984 size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), & 907 size(data5d_k8, 4), size(data5d_k8, 5) )985 size(data5d_k8, 4), size(data5d_k8, 5), tileid) 908 986 END SUBROUTINE xios(send_field_r8_5d) 909 987 988 SUBROUTINE xios(send_field_tiled_r8_5d)(fieldid, data5d_k8, tileid) 989 IMPLICIT NONE 990 CHARACTER(len = *) , INTENT(IN) :: fieldid 991 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data5d_k8(:,:,:,:,:) 992 INTEGER , INTENT(IN) :: tileid 993 CALL cxios_write_data_k85(fieldid, len(fieldid), data5d_k8, & 994 size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), & 995 size(data5d_k8, 4), size(data5d_k8, 5), tileid) 996 END SUBROUTINE xios(send_field_tiled_r8_5d) 997 910 998 SUBROUTINE xios(send_field_r8_6d_hdl)(field_hdl, data6d_k8) 911 999 IMPLICIT NONE 912 1000 TYPE(txios(field)) :: field_hdl 913 1001 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data6d_k8(:,:,:,:,:,:) 1002 INTEGER, PARAMETER :: tileid = -1 914 1003 CALL cxios_write_data_k86_hdl(field_hdl%daddr, data6d_k8, & 915 1004 size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), & 916 size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6) )1005 size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6), tileid) 917 1006 END SUBROUTINE xios(send_field_r8_6d_hdl) 918 1007 … … 921 1010 CHARACTER(len = *) , INTENT(IN) :: fieldid 922 1011 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data6d_k8(:,:,:,:,:,:) 1012 INTEGER, PARAMETER :: tileid = -1 923 1013 CALL cxios_write_data_k86(fieldid, len(fieldid), data6d_k8, & 924 1014 size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), & 925 size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6) )1015 size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6), tileid) 926 1016 END SUBROUTINE xios(send_field_r8_6d) 927 1017 1018 SUBROUTINE xios(send_field_tiled_r8_6d)(fieldid, data6d_k8, tileid) 1019 IMPLICIT NONE 1020 CHARACTER(len = *) , INTENT(IN) :: fieldid 1021 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data6d_k8(:,:,:,:,:,:) 1022 INTEGER , INTENT(IN) :: tileid 1023 CALL cxios_write_data_k86(fieldid, len(fieldid), data6d_k8, & 1024 size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), & 1025 size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6), tileid) 1026 END SUBROUTINE xios(send_field_tiled_r8_6d) 1027 928 1028 SUBROUTINE xios(send_field_r8_7d_hdl)(field_hdl, data7d_k8) 929 1029 IMPLICIT NONE 930 1030 TYPE(txios(field)) :: field_hdl 931 1031 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data7d_k8(:,:,:,:,:,:,:) 1032 INTEGER, PARAMETER :: tileid = -1 932 1033 CALL cxios_write_data_k87_hdl(field_hdl%daddr, data7d_k8, & 933 1034 size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), & 934 1035 size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), & 935 size(data7d_k8, 7) )1036 size(data7d_k8, 7), tileid) 936 1037 END SUBROUTINE xios(send_field_r8_7d_hdl) 937 1038 … … 940 1041 CHARACTER(len = *) , INTENT(IN) :: fieldid 941 1042 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data7d_k8(:,:,:,:,:,:,:) 1043 INTEGER, PARAMETER :: tileid = -1 942 1044 CALL cxios_write_data_k87(fieldid, len(fieldid), data7d_k8, & 943 1045 size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), & 944 1046 size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), & 945 size(data7d_k8, 7) )1047 size(data7d_k8, 7), tileid) 946 1048 END SUBROUTINE xios(send_field_r8_7d) 1049 1050 SUBROUTINE xios(send_field_tiled_r8_7d)(fieldid, data7d_k8, tileid) 1051 IMPLICIT NONE 1052 CHARACTER(len = *) , INTENT(IN) :: fieldid 1053 REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data7d_k8(:,:,:,:,:,:,:) 1054 INTEGER , INTENT(IN) :: tileid 1055 CALL cxios_write_data_k87(fieldid, len(fieldid), data7d_k8, & 1056 size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), & 1057 size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), & 1058 size(data7d_k8, 7), tileid) 1059 END SUBROUTINE xios(send_field_tiled_r8_7d) 947 1060 948 1061 SUBROUTINE xios(send_field_r4_0d_hdl)(field_hdl, data_k4) … … 964 1077 TYPE(txios(field)) :: field_hdl 965 1078 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data1d_k4(:) 966 CALL cxios_write_data_k41_hdl(field_hdl%daddr, data1d_k4, size(data1d_k4, 1)) 1079 INTEGER, PARAMETER :: tileid = -1 1080 CALL cxios_write_data_k41_hdl(field_hdl%daddr, data1d_k4, size(data1d_k4, 1), tileid) 967 1081 END SUBROUTINE xios(send_field_r4_1d_hdl) 968 1082 … … 971 1085 CHARACTER(len = *) , INTENT(IN) :: fieldid 972 1086 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data1d_k4(:) 973 CALL cxios_write_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1)) 1087 INTEGER, PARAMETER :: tileid = -1 1088 CALL cxios_write_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1), tileid) 974 1089 END SUBROUTINE xios(send_field_r4_1d) 975 1090 1091 SUBROUTINE xios(send_field_tiled_r4_1d)(fieldid, data1d_k4, tileid) 1092 IMPLICIT NONE 1093 CHARACTER(len = *) , INTENT(IN) :: fieldid 1094 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data1d_k4(:) 1095 INTEGER , INTENT(IN) :: tileid 1096 CALL cxios_write_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1), tileid) 1097 END SUBROUTINE xios(send_field_tiled_r4_1d) 1098 976 1099 SUBROUTINE xios(send_field_r4_2d_hdl)(field_hdl, data2d_k4) 977 1100 IMPLICIT NONE 978 1101 TYPE(txios(field)) :: field_hdl 979 1102 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data2d_k4(:,:) 980 CALL cxios_write_data_k42_hdl(field_hdl%daddr, data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2)) 1103 INTEGER, PARAMETER :: tileid = -1 1104 CALL cxios_write_data_k42_hdl(field_hdl%daddr, data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2), tileid) 981 1105 END SUBROUTINE xios(send_field_r4_2d_hdl) 982 1106 … … 985 1109 CHARACTER(len = *) , INTENT(IN) :: fieldid 986 1110 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data2d_k4(:,:) 987 CALL cxios_write_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2)) 1111 INTEGER, PARAMETER :: tileid = -1 1112 CALL cxios_write_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2), tileid) 988 1113 END SUBROUTINE xios(send_field_r4_2d) 989 1114 1115 SUBROUTINE xios(send_field_tiled_r4_2d)(fieldid, data2d_k4, tileid) 1116 IMPLICIT NONE 1117 CHARACTER(len = *) , INTENT(IN) :: fieldid 1118 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data2d_k4(:,:) 1119 INTEGER , INTENT(IN) :: tileid 1120 CALL cxios_write_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2), tileid) 1121 END SUBROUTINE xios(send_field_tiled_r4_2d) 1122 990 1123 SUBROUTINE xios(send_field_r4_3d_hdl)(field_hdl, data3d_k4) 991 1124 IMPLICIT NONE 992 1125 TYPE(txios(field)) :: field_hdl 993 1126 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data3d_k4(:,:,:) 994 CALL cxios_write_data_k43_hdl(field_hdl%daddr, data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3)) 1127 INTEGER, PARAMETER :: tileid = -1 1128 CALL cxios_write_data_k43_hdl(field_hdl%daddr, data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3), & 1129 tileid) 995 1130 END SUBROUTINE xios(send_field_r4_3d_hdl) 996 1131 … … 999 1134 CHARACTER(len = *) , INTENT(IN) :: fieldid 1000 1135 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data3d_k4(:,:,:) 1001 CALL cxios_write_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3)) 1136 INTEGER, PARAMETER :: tileid = -1 1137 CALL cxios_write_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3), & 1138 tileid) 1002 1139 END SUBROUTINE xios(send_field_r4_3d) 1003 1140 1141 SUBROUTINE xios(send_field_tiled_r4_3d)(fieldid, data3d_k4, tileid) 1142 IMPLICIT NONE 1143 CHARACTER(len = *) , INTENT(IN) :: fieldid 1144 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data3d_k4(:,:,:) 1145 INTEGER , INTENT(IN) :: tileid 1146 CALL cxios_write_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3), & 1147 tileid) 1148 END SUBROUTINE xios(send_field_tiled_r4_3d) 1149 1004 1150 SUBROUTINE xios(send_field_r4_4d_hdl)(field_hdl, data4d_k4) 1005 1151 IMPLICIT NONE 1006 1152 TYPE(txios(field)) :: field_hdl 1007 1153 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data4d_k4(:,:,:,:) 1154 INTEGER, PARAMETER :: tileid = -1 1008 1155 CALL cxios_write_data_k44_hdl(field_hdl%daddr, data4d_k4, & 1009 1156 size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), & 1010 size(data4d_k4, 4) )1157 size(data4d_k4, 4), tileid) 1011 1158 END SUBROUTINE xios(send_field_r4_4d_hdl) 1012 1159 1013 1160 SUBROUTINE xios(send_field_r4_4d)(fieldid, data4d_k4) 1014 1161 IMPLICIT NONE 1015 1162 CHARACTER(len = *) , INTENT(IN) :: fieldid 1016 1163 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data4d_k4(:,:,:,:) 1164 INTEGER, PARAMETER :: tileid = -1 1017 1165 CALL cxios_write_data_k44(fieldid, len(fieldid), data4d_k4, & 1018 1166 size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), & 1019 size(data4d_k4, 4) )1167 size(data4d_k4, 4), tileid) 1020 1168 END SUBROUTINE xios(send_field_r4_4d) 1021 1169 1170 SUBROUTINE xios(send_field_tiled_r4_4d)(fieldid, data4d_k4, tileid) 1171 IMPLICIT NONE 1172 CHARACTER(len = *) , INTENT(IN) :: fieldid 1173 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data4d_k4(:,:,:,:) 1174 INTEGER , INTENT(IN) :: tileid 1175 CALL cxios_write_data_k44(fieldid, len(fieldid), data4d_k4, & 1176 size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), & 1177 size(data4d_k4, 4), tileid) 1178 END SUBROUTINE xios(send_field_tiled_r4_4d) 1179 1022 1180 SUBROUTINE xios(send_field_r4_5d_hdl)(field_hdl, data5d_k4) 1023 1181 IMPLICIT NONE 1024 1182 TYPE(txios(field)) :: field_hdl 1025 1183 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data5d_k4(:,:,:,:,:) 1184 INTEGER, PARAMETER :: tileid = -1 1026 1185 CALL cxios_write_data_k45_hdl(field_hdl%daddr, data5d_k4, & 1027 1186 size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), & 1028 size(data5d_k4, 4), size(data5d_k4, 5) )1187 size(data5d_k4, 4), size(data5d_k4, 5), tileid) 1029 1188 END SUBROUTINE xios(send_field_r4_5d_hdl) 1030 1189 … … 1033 1192 CHARACTER(len = *) , INTENT(IN) :: fieldid 1034 1193 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data5d_k4(:,:,:,:,:) 1194 INTEGER, PARAMETER :: tileid = -1 1035 1195 CALL cxios_write_data_k45(fieldid, len(fieldid), data5d_k4, & 1036 1196 size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), & 1037 size(data5d_k4, 4), size(data5d_k4, 5) )1197 size(data5d_k4, 4), size(data5d_k4, 5), tileid) 1038 1198 END SUBROUTINE xios(send_field_r4_5d) 1039 1199 1200 SUBROUTINE xios(send_field_tiled_r4_5d)(fieldid, data5d_k4, tileid) 1201 IMPLICIT NONE 1202 CHARACTER(len = *) , INTENT(IN) :: fieldid 1203 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data5d_k4(:,:,:,:,:) 1204 INTEGER , INTENT(IN) :: tileid 1205 CALL cxios_write_data_k45(fieldid, len(fieldid), data5d_k4, & 1206 size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), & 1207 size(data5d_k4, 4), size(data5d_k4, 5), tileid) 1208 END SUBROUTINE xios(send_field_tiled_r4_5d) 1209 1040 1210 SUBROUTINE xios(send_field_r4_6d_hdl)(field_hdl, data6d_k4) 1041 1211 IMPLICIT NONE 1042 1212 TYPE(txios(field)) :: field_hdl 1043 1213 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data6d_k4(:,:,:,:,:,:) 1214 INTEGER, PARAMETER :: tileid = -1 1044 1215 CALL cxios_write_data_k46_hdl(field_hdl%daddr, data6d_k4, & 1045 1216 size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), & 1046 size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6) )1217 size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6), tileid) 1047 1218 END SUBROUTINE xios(send_field_r4_6d_hdl) 1048 1219 … … 1051 1222 CHARACTER(len = *) , INTENT(IN) :: fieldid 1052 1223 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data6d_k4(:,:,:,:,:,:) 1224 INTEGER, PARAMETER :: tileid = -1 1053 1225 CALL cxios_write_data_k46(fieldid, len(fieldid), data6d_k4, & 1054 1226 size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), & 1055 size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6) )1227 size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6), tileid) 1056 1228 END SUBROUTINE xios(send_field_r4_6d) 1057 1229 1230 SUBROUTINE xios(send_field_tiled_r4_6d)(fieldid, data6d_k4, tileid) 1231 IMPLICIT NONE 1232 CHARACTER(len = *) , INTENT(IN) :: fieldid 1233 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data6d_k4(:,:,:,:,:,:) 1234 INTEGER , INTENT(IN) :: tileid 1235 CALL cxios_write_data_k46(fieldid, len(fieldid), data6d_k4, & 1236 size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), & 1237 size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6), tileid) 1238 END SUBROUTINE xios(send_field_tiled_r4_6d) 1239 1058 1240 SUBROUTINE xios(send_field_r4_7d_hdl)(field_hdl, data7d_k4) 1059 1241 IMPLICIT NONE 1060 1242 TYPE(txios(field)) :: field_hdl 1061 1243 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data7d_k4(:,:,:,:,:,:,:) 1244 INTEGER, PARAMETER :: tileid = -1 1062 1245 CALL cxios_write_data_k47_hdl(field_hdl%daddr, data7d_k4, & 1063 1246 size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), & 1064 1247 size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), & 1065 size(data7d_k4, 7) )1248 size(data7d_k4, 7), tileid) 1066 1249 END SUBROUTINE xios(send_field_r4_7d_hdl) 1067 1250 … … 1070 1253 CHARACTER(len = *) , INTENT(IN) :: fieldid 1071 1254 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data7d_k4(:,:,:,:,:,:,:) 1255 INTEGER, PARAMETER :: tileid = -1 1072 1256 CALL cxios_write_data_k47(fieldid, len(fieldid), data7d_k4, & 1073 1257 size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), & 1074 1258 size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), & 1075 size(data7d_k4, 7) )1259 size(data7d_k4, 7), tileid) 1076 1260 END SUBROUTINE xios(send_field_r4_7d) 1261 1262 SUBROUTINE xios(send_field_tiled_r4_7d)(fieldid, data7d_k4, tileid) 1263 IMPLICIT NONE 1264 CHARACTER(len = *) , INTENT(IN) :: fieldid 1265 REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data7d_k4(:,:,:,:,:,:,:) 1266 INTEGER , INTENT(IN) :: tileid 1267 CALL cxios_write_data_k47(fieldid, len(fieldid), data7d_k4, & 1268 size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), & 1269 size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), & 1270 size(data7d_k4, 7), tileid) 1271 END SUBROUTINE xios(send_field_tiled_r4_7d) 1077 1272 1078 1273 ! Receive field functions
Note: See TracChangeset
for help on using the changeset viewer.