[325] | 1 | #include "xios_fortran_prefix.hpp" |
---|
| 2 | |
---|
| 3 | MODULE IDATA |
---|
| 4 | USE, INTRINSIC :: ISO_C_BINDING |
---|
| 5 | USE ICONTEXT |
---|
[2025] | 6 | USE IFIELD |
---|
[2623] | 7 | USE LOGICAL_BOOL_CONVERSION |
---|
[489] | 8 | |
---|
[325] | 9 | INTERFACE ! Ne pas appeler directement/Interface FORTRAN 2003 <-> C99 |
---|
| 10 | |
---|
[1054] | 11 | SUBROUTINE cxios_init_server() BIND(C) |
---|
[325] | 12 | END SUBROUTINE cxios_init_server |
---|
| 13 | |
---|
| 14 | SUBROUTINE cxios_init_client(client_id, len_client_id, f_local_comm, f_return_comm) BIND(C) |
---|
| 15 | USE ISO_C_BINDING |
---|
| 16 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: client_id |
---|
| 17 | INTEGER (kind = C_INT) , VALUE :: len_client_id |
---|
| 18 | INTEGER (kind = C_INT) :: f_local_comm |
---|
| 19 | INTEGER (kind = C_INT) :: f_return_comm |
---|
| 20 | END SUBROUTINE cxios_init_client |
---|
[489] | 21 | |
---|
[325] | 22 | SUBROUTINE cxios_context_initialize(context_id,len_context_id,f_comm) BIND(C) |
---|
| 23 | USE ISO_C_BINDING |
---|
| 24 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: context_id |
---|
| 25 | INTEGER (kind = C_INT) , VALUE :: len_context_id |
---|
| 26 | INTEGER (kind = C_INT) :: f_comm |
---|
| 27 | END SUBROUTINE cxios_context_initialize |
---|
| 28 | |
---|
[461] | 29 | SUBROUTINE cxios_context_is_initialized(context_id,len_context_id,initialized) BIND(C) |
---|
| 30 | USE ISO_C_BINDING |
---|
| 31 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: context_id |
---|
| 32 | INTEGER (kind = C_INT) , VALUE :: len_context_id |
---|
| 33 | LOGICAL (kind = C_BOOL) :: initialized |
---|
| 34 | END SUBROUTINE cxios_context_is_initialized |
---|
[489] | 35 | |
---|
| 36 | |
---|
[325] | 37 | SUBROUTINE cxios_context_close_definition() BIND(C) |
---|
| 38 | USE ISO_C_BINDING |
---|
| 39 | END SUBROUTINE cxios_context_close_definition |
---|
| 40 | |
---|
[489] | 41 | |
---|
[325] | 42 | SUBROUTINE cxios_context_finalize() BIND(C) |
---|
| 43 | USE ISO_C_BINDING |
---|
| 44 | END SUBROUTINE cxios_context_finalize |
---|
[489] | 45 | |
---|
[1587] | 46 | SUBROUTINE cxios_oasis_enddef() BIND(C) |
---|
| 47 | USE ISO_C_BINDING |
---|
| 48 | END SUBROUTINE cxios_oasis_enddef |
---|
| 49 | |
---|
[325] | 50 | SUBROUTINE cxios_finalize() BIND(C) |
---|
| 51 | END SUBROUTINE cxios_finalize |
---|
| 52 | |
---|
[445] | 53 | SUBROUTINE cxios_solve_inheritance() BIND(C) |
---|
| 54 | END SUBROUTINE cxios_solve_inheritance |
---|
| 55 | |
---|
[2025] | 56 | SUBROUTINE cxios_write_data_k80_hdl(field_hdl, data_k8, data_Xsize) BIND(C) |
---|
| 57 | USE ISO_C_BINDING |
---|
| 58 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 59 | REAL (kind = C_DOUBLE) :: data_k8 |
---|
| 60 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 61 | END SUBROUTINE cxios_write_data_k80_hdl |
---|
| 62 | |
---|
[586] | 63 | SUBROUTINE cxios_write_data_k80(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C) |
---|
| 64 | USE ISO_C_BINDING |
---|
| 65 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 66 | REAL (kind = C_DOUBLE) :: data_k8 |
---|
| 67 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 68 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 69 | END SUBROUTINE cxios_write_data_k80 |
---|
[489] | 70 | |
---|
[2131] | 71 | SUBROUTINE cxios_write_data_k81_hdl(field_hdl, data_k8, data_Xsize, tileid) BIND(C) |
---|
[2025] | 72 | USE ISO_C_BINDING |
---|
| 73 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 74 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 75 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
[2131] | 76 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 77 | END SUBROUTINE cxios_write_data_k81_hdl |
---|
| 78 | |
---|
[2131] | 79 | SUBROUTINE cxios_write_data_k81(fieldid, fieldid_size, data_k8, data_Xsize, tileid) BIND(C) |
---|
[325] | 80 | USE ISO_C_BINDING |
---|
| 81 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 82 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 83 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 84 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
[2131] | 85 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[325] | 86 | END SUBROUTINE cxios_write_data_k81 |
---|
[489] | 87 | |
---|
[2131] | 88 | SUBROUTINE cxios_write_data_k82_hdl(field_hdl, data_k8, data_Xsize, data_Ysize, tileid) BIND(C) |
---|
[2025] | 89 | USE ISO_C_BINDING |
---|
| 90 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 91 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 92 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize |
---|
[2131] | 93 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 94 | END SUBROUTINE cxios_write_data_k82_hdl |
---|
| 95 | |
---|
[2131] | 96 | SUBROUTINE cxios_write_data_k82(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, tileid) BIND(C) |
---|
[325] | 97 | USE ISO_C_BINDING |
---|
| 98 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 99 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 100 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 101 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize |
---|
[2131] | 102 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[325] | 103 | END SUBROUTINE cxios_write_data_k82 |
---|
[489] | 104 | |
---|
[2131] | 105 | SUBROUTINE cxios_write_data_k83_hdl(field_hdl, data_k8, data_Xsize, data_Ysize, data_Zsize, tileid) BIND(C) |
---|
[2025] | 106 | USE ISO_C_BINDING |
---|
| 107 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 108 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 109 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize |
---|
[2131] | 110 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 111 | END SUBROUTINE cxios_write_data_k83_hdl |
---|
| 112 | |
---|
[2131] | 113 | SUBROUTINE cxios_write_data_k83(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, data_Zsize, & |
---|
| 114 | tileid) BIND(C) |
---|
[325] | 115 | USE ISO_C_BINDING |
---|
| 116 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 117 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 118 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 119 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize |
---|
[2131] | 120 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[325] | 121 | END SUBROUTINE cxios_write_data_k83 |
---|
[489] | 122 | |
---|
[2025] | 123 | SUBROUTINE cxios_write_data_k84_hdl(field_hdl, data_k8, & |
---|
| 124 | data_0size, data_1size, data_2size, & |
---|
[2131] | 125 | data_3size, tileid) BIND(C) |
---|
[2025] | 126 | USE ISO_C_BINDING |
---|
| 127 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 128 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 129 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 130 | INTEGER (kind = C_INT) , VALUE :: data_3size |
---|
[2131] | 131 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 132 | END SUBROUTINE cxios_write_data_k84_hdl |
---|
| 133 | |
---|
[932] | 134 | SUBROUTINE cxios_write_data_k84(fieldid, fieldid_size, data_k8, & |
---|
| 135 | data_0size, data_1size, data_2size, & |
---|
[2131] | 136 | data_3size, tileid) BIND(C) |
---|
[932] | 137 | USE ISO_C_BINDING |
---|
| 138 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 139 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 140 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 141 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 142 | INTEGER (kind = C_INT) , VALUE :: data_3size |
---|
[2131] | 143 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[932] | 144 | END SUBROUTINE cxios_write_data_k84 |
---|
| 145 | |
---|
[2025] | 146 | SUBROUTINE cxios_write_data_k85_hdl(field_hdl, data_k8, & |
---|
| 147 | data_0size, data_1size, data_2size, & |
---|
[2131] | 148 | data_3size, data_4size, tileid) BIND(C) |
---|
[2025] | 149 | USE ISO_C_BINDING |
---|
| 150 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 151 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 152 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 153 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size |
---|
[2131] | 154 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 155 | END SUBROUTINE cxios_write_data_k85_hdl |
---|
| 156 | |
---|
[932] | 157 | SUBROUTINE cxios_write_data_k85(fieldid, fieldid_size, data_k8, & |
---|
| 158 | data_0size, data_1size, data_2size, & |
---|
[2131] | 159 | data_3size, data_4size, tileid) BIND(C) |
---|
[932] | 160 | USE ISO_C_BINDING |
---|
| 161 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 162 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 163 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 164 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 165 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size |
---|
[2131] | 166 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[932] | 167 | END SUBROUTINE cxios_write_data_k85 |
---|
| 168 | |
---|
[2025] | 169 | SUBROUTINE cxios_write_data_k86_hdl(field_hdl, data_k8, & |
---|
| 170 | data_0size, data_1size, data_2size, & |
---|
[2131] | 171 | data_3size, data_4size, data_5size, tileid) BIND(C) |
---|
[2025] | 172 | USE ISO_C_BINDING |
---|
| 173 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 174 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 175 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 176 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
[2131] | 177 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 178 | END SUBROUTINE cxios_write_data_k86_hdl |
---|
| 179 | |
---|
[932] | 180 | SUBROUTINE cxios_write_data_k86(fieldid, fieldid_size, data_k8, & |
---|
| 181 | data_0size, data_1size, data_2size, & |
---|
[2131] | 182 | data_3size, data_4size, data_5size, tileid) BIND(C) |
---|
[932] | 183 | USE ISO_C_BINDING |
---|
| 184 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 185 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 186 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 187 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 188 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
[2131] | 189 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[932] | 190 | END SUBROUTINE cxios_write_data_k86 |
---|
| 191 | |
---|
[2025] | 192 | SUBROUTINE cxios_write_data_k87_hdl(field_hdl, data_k8, & |
---|
| 193 | data_0size, data_1size, data_2size, & |
---|
| 194 | data_3size, data_4size, data_5size, & |
---|
[2131] | 195 | data_6size, tileid) BIND(C) |
---|
[2025] | 196 | USE ISO_C_BINDING |
---|
| 197 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 198 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 199 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 200 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 201 | INTEGER (kind = C_INT) , VALUE :: data_6size |
---|
[2131] | 202 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 203 | END SUBROUTINE cxios_write_data_k87_hdl |
---|
| 204 | |
---|
[932] | 205 | SUBROUTINE cxios_write_data_k87(fieldid, fieldid_size, data_k8, & |
---|
| 206 | data_0size, data_1size, data_2size, & |
---|
| 207 | data_3size, data_4size, data_5size, & |
---|
[2131] | 208 | data_6size, tileid) BIND(C) |
---|
[932] | 209 | USE ISO_C_BINDING |
---|
| 210 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 211 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 212 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 213 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 214 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 215 | INTEGER (kind = C_INT) , VALUE :: data_6size |
---|
[2131] | 216 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[932] | 217 | END SUBROUTINE cxios_write_data_k87 |
---|
| 218 | |
---|
[2025] | 219 | SUBROUTINE cxios_write_data_k40_hdl(field_hdl, data_k4, data_Xsize) BIND(C) |
---|
| 220 | USE ISO_C_BINDING |
---|
| 221 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 222 | REAL (kind = C_FLOAT) :: data_k4 |
---|
| 223 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 224 | END SUBROUTINE cxios_write_data_k40_hdl |
---|
| 225 | |
---|
[932] | 226 | SUBROUTINE cxios_write_data_k40(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C) |
---|
| 227 | USE ISO_C_BINDING |
---|
| 228 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 229 | REAL (kind = C_FLOAT) :: data_k4 |
---|
| 230 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 231 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 232 | END SUBROUTINE cxios_write_data_k40 |
---|
| 233 | |
---|
[2131] | 234 | SUBROUTINE cxios_write_data_k41_hdl(field_hdl, data_k4, data_Xsize, tileid) BIND(C) |
---|
[2025] | 235 | USE ISO_C_BINDING |
---|
| 236 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 237 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 238 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
[2131] | 239 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 240 | END SUBROUTINE cxios_write_data_k41_hdl |
---|
| 241 | |
---|
[2131] | 242 | SUBROUTINE cxios_write_data_k41(fieldid, fieldid_size, data_k4, data_Xsize, tileid) BIND(C) |
---|
[325] | 243 | USE ISO_C_BINDING |
---|
| 244 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 245 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 246 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 247 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
[2131] | 248 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[325] | 249 | END SUBROUTINE cxios_write_data_k41 |
---|
[489] | 250 | |
---|
[2131] | 251 | SUBROUTINE cxios_write_data_k42_hdl(field_hdl, data_k4, data_Xsize, data_Ysize, tileid) BIND(C) |
---|
[2025] | 252 | USE ISO_C_BINDING |
---|
| 253 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 254 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 255 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize |
---|
[2131] | 256 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 257 | END SUBROUTINE cxios_write_data_k42_hdl |
---|
| 258 | |
---|
[2131] | 259 | SUBROUTINE cxios_write_data_k42(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, tileid) BIND(C) |
---|
[325] | 260 | USE ISO_C_BINDING |
---|
| 261 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 262 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 263 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 264 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize |
---|
[2131] | 265 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[325] | 266 | END SUBROUTINE cxios_write_data_k42 |
---|
[489] | 267 | |
---|
[2131] | 268 | SUBROUTINE cxios_write_data_k43_hdl(field_hdl, data_k4, data_Xsize, data_Ysize, data_Zsize, tileid) BIND(C) |
---|
[2025] | 269 | USE ISO_C_BINDING |
---|
| 270 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 271 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 272 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize |
---|
[2131] | 273 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 274 | END SUBROUTINE cxios_write_data_k43_hdl |
---|
| 275 | |
---|
[2131] | 276 | SUBROUTINE cxios_write_data_k43(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, data_Zsize, tileid) BIND(C) |
---|
[325] | 277 | USE ISO_C_BINDING |
---|
| 278 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 279 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 280 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 281 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize |
---|
[2131] | 282 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[325] | 283 | END SUBROUTINE cxios_write_data_k43 |
---|
[489] | 284 | |
---|
[2025] | 285 | SUBROUTINE cxios_write_data_k44_hdl(field_hdl, data_k4, & |
---|
| 286 | data_0size, data_1size, data_2size, & |
---|
[2131] | 287 | data_3size, tileid) BIND(C) |
---|
[2025] | 288 | USE ISO_C_BINDING |
---|
| 289 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 290 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 291 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 292 | INTEGER (kind = C_INT) , VALUE :: data_3size |
---|
[2131] | 293 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 294 | END SUBROUTINE cxios_write_data_k44_hdl |
---|
| 295 | |
---|
[932] | 296 | SUBROUTINE cxios_write_data_k44(fieldid, fieldid_size, data_k4, & |
---|
| 297 | data_0size, data_1size, data_2size, & |
---|
[2131] | 298 | data_3size, tileid) BIND(C) |
---|
[932] | 299 | USE ISO_C_BINDING |
---|
| 300 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 301 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 302 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 303 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 304 | INTEGER (kind = C_INT) , VALUE :: data_3size |
---|
[2131] | 305 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[932] | 306 | END SUBROUTINE cxios_write_data_k44 |
---|
| 307 | |
---|
[2025] | 308 | SUBROUTINE cxios_write_data_k45_hdl(field_hdl, data_k4, & |
---|
| 309 | data_0size, data_1size, data_2size, & |
---|
[2131] | 310 | data_3size, data_4size, tileid) BIND(C) |
---|
[2025] | 311 | USE ISO_C_BINDING |
---|
| 312 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 313 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 314 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 315 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size |
---|
[2131] | 316 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 317 | END SUBROUTINE cxios_write_data_k45_hdl |
---|
| 318 | |
---|
[932] | 319 | SUBROUTINE cxios_write_data_k45(fieldid, fieldid_size, data_k4, & |
---|
| 320 | data_0size, data_1size, data_2size, & |
---|
[2131] | 321 | data_3size, data_4size, tileid) BIND(C) |
---|
[932] | 322 | USE ISO_C_BINDING |
---|
| 323 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 324 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 325 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 326 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 327 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size |
---|
[2131] | 328 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[932] | 329 | END SUBROUTINE cxios_write_data_k45 |
---|
| 330 | |
---|
[2025] | 331 | SUBROUTINE cxios_write_data_k46_hdl(field_hdl, data_k4, & |
---|
| 332 | data_0size, data_1size, data_2size, & |
---|
[2131] | 333 | data_3size, data_4size, data_5size, tileid) BIND(C) |
---|
[2025] | 334 | USE ISO_C_BINDING |
---|
| 335 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 336 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 337 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 338 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
[2131] | 339 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 340 | END SUBROUTINE cxios_write_data_k46_hdl |
---|
| 341 | |
---|
[932] | 342 | SUBROUTINE cxios_write_data_k46(fieldid, fieldid_size, data_k4, & |
---|
| 343 | data_0size, data_1size, data_2size, & |
---|
[2131] | 344 | data_3size, data_4size, data_5size, tileid) BIND(C) |
---|
[932] | 345 | USE ISO_C_BINDING |
---|
| 346 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 347 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 348 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 349 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 350 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
[2131] | 351 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[932] | 352 | END SUBROUTINE cxios_write_data_k46 |
---|
| 353 | |
---|
[2025] | 354 | SUBROUTINE cxios_write_data_k47_hdl(field_hdl, data_k4, & |
---|
| 355 | data_0size, data_1size, data_2size, & |
---|
| 356 | data_3size, data_4size, data_5size, & |
---|
[2131] | 357 | data_6size, tileid) BIND(C) |
---|
[2025] | 358 | USE ISO_C_BINDING |
---|
| 359 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 360 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 361 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 362 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 363 | INTEGER (kind = C_INT) , VALUE :: data_6size |
---|
[2131] | 364 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[2025] | 365 | END SUBROUTINE cxios_write_data_k47_hdl |
---|
| 366 | |
---|
[932] | 367 | SUBROUTINE cxios_write_data_k47(fieldid, fieldid_size, data_k4, & |
---|
| 368 | data_0size, data_1size, data_2size, & |
---|
| 369 | data_3size, data_4size, data_5size, & |
---|
[2131] | 370 | data_6size, tileid) BIND(C) |
---|
[932] | 371 | USE ISO_C_BINDING |
---|
| 372 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 373 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 374 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 375 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 376 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 377 | INTEGER (kind = C_INT) , VALUE :: data_6size |
---|
[2131] | 378 | INTEGER (kind = C_INT) , VALUE :: tileid |
---|
[932] | 379 | END SUBROUTINE cxios_write_data_k47 |
---|
| 380 | |
---|
[2025] | 381 | |
---|
[932] | 382 | ! Read data |
---|
[2025] | 383 | SUBROUTINE cxios_read_data_k80_hdl(field_hdl, data_k8, data_Xsize) BIND(C) |
---|
| 384 | USE ISO_C_BINDING |
---|
| 385 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 386 | REAL (kind = C_DOUBLE) :: data_k8 |
---|
| 387 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 388 | END SUBROUTINE cxios_read_data_k80_hdl |
---|
| 389 | |
---|
[961] | 390 | SUBROUTINE cxios_read_data_k80(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C) |
---|
| 391 | USE ISO_C_BINDING |
---|
| 392 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
[965] | 393 | REAL (kind = C_DOUBLE) :: data_k8 |
---|
[961] | 394 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 395 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 396 | END SUBROUTINE cxios_read_data_k80 |
---|
| 397 | |
---|
[2025] | 398 | SUBROUTINE cxios_read_data_k81_hdl(field_hdl, data_k8, data_Xsize) BIND(C) |
---|
| 399 | USE ISO_C_BINDING |
---|
| 400 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 401 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 402 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 403 | END SUBROUTINE cxios_read_data_k81_hdl |
---|
| 404 | |
---|
[593] | 405 | SUBROUTINE cxios_read_data_k81(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C) |
---|
| 406 | USE ISO_C_BINDING |
---|
| 407 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 408 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 409 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 410 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 411 | END SUBROUTINE cxios_read_data_k81 |
---|
| 412 | |
---|
[2025] | 413 | SUBROUTINE cxios_read_data_k82_hdl(field_hdl, data_k8, data_Xsize, data_Ysize) BIND(C) |
---|
| 414 | USE ISO_C_BINDING |
---|
| 415 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 416 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 417 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize |
---|
| 418 | END SUBROUTINE cxios_read_data_k82_hdl |
---|
| 419 | |
---|
[593] | 420 | SUBROUTINE cxios_read_data_k82(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize) BIND(C) |
---|
| 421 | USE ISO_C_BINDING |
---|
| 422 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 423 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 424 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 425 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize |
---|
| 426 | END SUBROUTINE cxios_read_data_k82 |
---|
| 427 | |
---|
[2025] | 428 | SUBROUTINE cxios_read_data_k83_hdl(field_hdl, data_k8, data_Xsize, data_Ysize, data_Zsize) BIND(C) |
---|
[593] | 429 | USE ISO_C_BINDING |
---|
[2025] | 430 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 431 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 432 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize |
---|
| 433 | END SUBROUTINE cxios_read_data_k83_hdl |
---|
| 434 | |
---|
| 435 | SUBROUTINE cxios_read_data_k83(fieldid, fieldid_size, data_k8, data_Xsize, data_Ysize, data_Zsize) BIND(C) |
---|
| 436 | USE ISO_C_BINDING |
---|
[593] | 437 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 438 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 439 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 440 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize |
---|
| 441 | END SUBROUTINE cxios_read_data_k83 |
---|
| 442 | |
---|
[2025] | 443 | SUBROUTINE cxios_read_data_k84_hdl(field_hdl, data_k8, & |
---|
[932] | 444 | data_0size, data_1size, data_2size, & |
---|
| 445 | data_3size) BIND(C) |
---|
| 446 | USE ISO_C_BINDING |
---|
[2025] | 447 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 448 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 449 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 450 | INTEGER (kind = C_INT) , VALUE :: data_3size |
---|
| 451 | END SUBROUTINE cxios_read_data_k84_hdl |
---|
| 452 | |
---|
| 453 | SUBROUTINE cxios_read_data_k84(fieldid, fieldid_size, data_k8, & |
---|
| 454 | data_0size, data_1size, data_2size, & |
---|
| 455 | data_3size) BIND(C) |
---|
| 456 | USE ISO_C_BINDING |
---|
[932] | 457 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 458 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 459 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 460 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 461 | INTEGER (kind = C_INT) , VALUE :: data_3size |
---|
| 462 | END SUBROUTINE cxios_read_data_k84 |
---|
| 463 | |
---|
[2025] | 464 | SUBROUTINE cxios_read_data_k85_hdl(field_hdl, data_k8, & |
---|
| 465 | data_0size, data_1size, data_2size, & |
---|
| 466 | data_3size, data_4size) BIND(C) |
---|
| 467 | USE ISO_C_BINDING |
---|
| 468 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 469 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 470 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 471 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size |
---|
| 472 | END SUBROUTINE cxios_read_data_k85_hdl |
---|
| 473 | |
---|
[932] | 474 | SUBROUTINE cxios_read_data_k85(fieldid, fieldid_size, data_k8, & |
---|
| 475 | data_0size, data_1size, data_2size, & |
---|
| 476 | data_3size, data_4size) BIND(C) |
---|
| 477 | USE ISO_C_BINDING |
---|
| 478 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 479 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 480 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 481 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 482 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size |
---|
| 483 | END SUBROUTINE cxios_read_data_k85 |
---|
| 484 | |
---|
[2025] | 485 | SUBROUTINE cxios_read_data_k86_hdl(field_hdl, data_k8, & |
---|
| 486 | data_0size, data_1size, data_2size, & |
---|
| 487 | data_3size, data_4size, data_5size) BIND(C) |
---|
| 488 | USE ISO_C_BINDING |
---|
| 489 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 490 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 491 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 492 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 493 | END SUBROUTINE cxios_read_data_k86_hdl |
---|
| 494 | |
---|
[932] | 495 | SUBROUTINE cxios_read_data_k86(fieldid, fieldid_size, data_k8, & |
---|
| 496 | data_0size, data_1size, data_2size, & |
---|
| 497 | data_3size, data_4size, data_5size) BIND(C) |
---|
| 498 | USE ISO_C_BINDING |
---|
| 499 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 500 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 501 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 502 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 503 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 504 | END SUBROUTINE cxios_read_data_k86 |
---|
| 505 | |
---|
[2025] | 506 | SUBROUTINE cxios_read_data_k87_hdl(field_hdl, data_k8, & |
---|
| 507 | data_0size, data_1size, data_2size, & |
---|
| 508 | data_3size, data_4size, data_5size, & |
---|
| 509 | data_6size) BIND(C) |
---|
| 510 | USE ISO_C_BINDING |
---|
| 511 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 512 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 513 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 514 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 515 | INTEGER (kind = C_INT) , VALUE :: data_6size |
---|
| 516 | END SUBROUTINE cxios_read_data_k87_hdl |
---|
| 517 | |
---|
[932] | 518 | SUBROUTINE cxios_read_data_k87(fieldid, fieldid_size, data_k8, & |
---|
| 519 | data_0size, data_1size, data_2size, & |
---|
| 520 | data_3size, data_4size, data_5size, & |
---|
| 521 | data_6size) BIND(C) |
---|
| 522 | USE ISO_C_BINDING |
---|
| 523 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 524 | REAL (kind = C_DOUBLE), DIMENSION(*) :: data_k8 |
---|
| 525 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 526 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 527 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 528 | INTEGER (kind = C_INT) , VALUE :: data_6size |
---|
| 529 | END SUBROUTINE cxios_read_data_k87 |
---|
| 530 | |
---|
[2025] | 531 | SUBROUTINE cxios_read_data_k40_hdl(field_hdl, data_k4, data_Xsize) BIND(C) |
---|
| 532 | USE ISO_C_BINDING |
---|
| 533 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 534 | REAL (kind = C_FLOAT) :: data_k4 |
---|
| 535 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 536 | END SUBROUTINE cxios_read_data_k40_hdl |
---|
| 537 | |
---|
[961] | 538 | SUBROUTINE cxios_read_data_k40(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C) |
---|
| 539 | USE ISO_C_BINDING |
---|
| 540 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
[965] | 541 | REAL (kind = C_FLOAT) :: data_k4 |
---|
[961] | 542 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 543 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 544 | END SUBROUTINE cxios_read_data_k40 |
---|
| 545 | |
---|
[2025] | 546 | SUBROUTINE cxios_read_data_k41_hdl(field_hdl, data_k4, data_Xsize) BIND(C) |
---|
| 547 | USE ISO_C_BINDING |
---|
| 548 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 549 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 550 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 551 | END SUBROUTINE cxios_read_data_k41_hdl |
---|
| 552 | |
---|
[593] | 553 | SUBROUTINE cxios_read_data_k41(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C) |
---|
| 554 | USE ISO_C_BINDING |
---|
| 555 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 556 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 557 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 558 | INTEGER (kind = C_INT) , VALUE :: data_Xsize |
---|
| 559 | END SUBROUTINE cxios_read_data_k41 |
---|
| 560 | |
---|
[2025] | 561 | SUBROUTINE cxios_read_data_k42_hdl(field_hdl, data_k4, data_Xsize, data_Ysize) BIND(C) |
---|
| 562 | USE ISO_C_BINDING |
---|
| 563 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 564 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 565 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize |
---|
| 566 | END SUBROUTINE cxios_read_data_k42_hdl |
---|
| 567 | |
---|
[593] | 568 | SUBROUTINE cxios_read_data_k42(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize) BIND(C) |
---|
| 569 | USE ISO_C_BINDING |
---|
| 570 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 571 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 572 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 573 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize |
---|
| 574 | END SUBROUTINE cxios_read_data_k42 |
---|
| 575 | |
---|
[2025] | 576 | SUBROUTINE cxios_read_data_k43_hdl(field_hdl, data_k4, data_Xsize, data_Ysize, data_Zsize) BIND(C) |
---|
| 577 | USE ISO_C_BINDING |
---|
| 578 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 579 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 580 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize |
---|
| 581 | END SUBROUTINE cxios_read_data_k43_hdl |
---|
| 582 | |
---|
[593] | 583 | SUBROUTINE cxios_read_data_k43(fieldid, fieldid_size, data_k4, data_Xsize, data_Ysize, data_Zsize) BIND(C) |
---|
| 584 | USE ISO_C_BINDING |
---|
| 585 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 586 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 587 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 588 | INTEGER (kind = C_INT) , VALUE :: data_Xsize, data_Ysize, data_Zsize |
---|
| 589 | END SUBROUTINE cxios_read_data_k43 |
---|
| 590 | |
---|
[2025] | 591 | SUBROUTINE cxios_read_data_k44_hdl(field_hdl, data_k4, & |
---|
| 592 | data_0size, data_1size, data_2size, & |
---|
| 593 | data_3size) BIND(C) |
---|
| 594 | USE ISO_C_BINDING |
---|
| 595 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 596 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 597 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 598 | INTEGER (kind = C_INT) , VALUE :: data_3size |
---|
| 599 | END SUBROUTINE cxios_read_data_k44_hdl |
---|
| 600 | |
---|
[932] | 601 | SUBROUTINE cxios_read_data_k44(fieldid, fieldid_size, data_k4, & |
---|
| 602 | data_0size, data_1size, data_2size, & |
---|
| 603 | data_3size) BIND(C) |
---|
| 604 | USE ISO_C_BINDING |
---|
| 605 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 606 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 607 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 608 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 609 | INTEGER (kind = C_INT) , VALUE :: data_3size |
---|
| 610 | END SUBROUTINE cxios_read_data_k44 |
---|
| 611 | |
---|
[2025] | 612 | SUBROUTINE cxios_read_data_k45_hdl(field_hdl, data_k4, & |
---|
| 613 | data_0size, data_1size, data_2size, & |
---|
| 614 | data_3size, data_4size) BIND(C) |
---|
| 615 | USE ISO_C_BINDING |
---|
| 616 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 617 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 618 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 619 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size |
---|
| 620 | END SUBROUTINE cxios_read_data_k45_hdl |
---|
| 621 | |
---|
[932] | 622 | SUBROUTINE cxios_read_data_k45(fieldid, fieldid_size, data_k4, & |
---|
| 623 | data_0size, data_1size, data_2size, & |
---|
| 624 | data_3size, data_4size) BIND(C) |
---|
| 625 | USE ISO_C_BINDING |
---|
| 626 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 627 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 628 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 629 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 630 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size |
---|
| 631 | END SUBROUTINE cxios_read_data_k45 |
---|
| 632 | |
---|
[2025] | 633 | SUBROUTINE cxios_read_data_k46_hdl(field_hdl, data_k4, & |
---|
| 634 | data_0size, data_1size, data_2size, & |
---|
| 635 | data_3size, data_4size, data_5size) BIND(C) |
---|
| 636 | USE ISO_C_BINDING |
---|
| 637 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 638 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 639 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 640 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 641 | END SUBROUTINE cxios_read_data_k46_hdl |
---|
| 642 | |
---|
[932] | 643 | SUBROUTINE cxios_read_data_k46(fieldid, fieldid_size, data_k4, & |
---|
| 644 | data_0size, data_1size, data_2size, & |
---|
| 645 | data_3size, data_4size, data_5size) BIND(C) |
---|
| 646 | USE ISO_C_BINDING |
---|
| 647 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 648 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 649 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 650 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 651 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 652 | END SUBROUTINE cxios_read_data_k46 |
---|
| 653 | |
---|
[2025] | 654 | SUBROUTINE cxios_read_data_k47_hdl(field_hdl, data_k4, & |
---|
| 655 | data_0size, data_1size, data_2size, & |
---|
| 656 | data_3size, data_4size, data_5size, & |
---|
| 657 | data_6size) BIND(C) |
---|
| 658 | USE ISO_C_BINDING |
---|
| 659 | INTEGER (kind = C_INTPTR_T), VALUE :: field_hdl |
---|
| 660 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 661 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 662 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 663 | INTEGER (kind = C_INT) , VALUE :: data_6size |
---|
| 664 | END SUBROUTINE cxios_read_data_k47_hdl |
---|
| 665 | |
---|
[932] | 666 | SUBROUTINE cxios_read_data_k47(fieldid, fieldid_size, data_k4, & |
---|
| 667 | data_0size, data_1size, data_2size, & |
---|
| 668 | data_3size, data_4size, data_5size, & |
---|
| 669 | data_6size) BIND(C) |
---|
| 670 | USE ISO_C_BINDING |
---|
| 671 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid |
---|
| 672 | REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 |
---|
| 673 | INTEGER (kind = C_INT) , VALUE :: fieldid_size |
---|
| 674 | INTEGER (kind = C_INT) , VALUE :: data_0size, data_1size, data_2size |
---|
| 675 | INTEGER (kind = C_INT) , VALUE :: data_3size, data_4size, data_5size |
---|
| 676 | INTEGER (kind = C_INT) , VALUE :: data_6size |
---|
| 677 | END SUBROUTINE cxios_read_data_k47 |
---|
| 678 | |
---|
[489] | 679 | ! Binding C and Fortran interface of get_variable (icdata.cpp) |
---|
| 680 | SUBROUTINE cxios_get_variable_data_k8(vardid, varid_size, data_k8, is_var_existed) BIND(C) |
---|
| 681 | USE ISO_C_BINDING |
---|
| 682 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid |
---|
| 683 | INTEGER (kind = C_INT) , VALUE :: varid_size |
---|
| 684 | REAL (kind = C_DOUBLE) :: data_k8 |
---|
| 685 | LOGICAL (kind = C_BOOL) :: is_var_existed |
---|
| 686 | END SUBROUTINE cxios_get_variable_data_k8 |
---|
| 687 | |
---|
| 688 | SUBROUTINE cxios_get_variable_data_k4(vardid, varid_size, data_k4, is_var_existed) BIND(C) |
---|
| 689 | USE ISO_C_BINDING |
---|
| 690 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid |
---|
| 691 | INTEGER (kind = C_INT) , VALUE :: varid_size |
---|
| 692 | REAL (kind = C_FLOAT) :: data_k4 |
---|
| 693 | LOGICAL (kind = C_BOOL) :: is_var_existed |
---|
| 694 | END SUBROUTINE cxios_get_variable_data_k4 |
---|
| 695 | |
---|
| 696 | SUBROUTINE cxios_get_variable_data_int(vardid, varid_size, data_int, is_var_existed) BIND(C) |
---|
| 697 | USE ISO_C_BINDING |
---|
| 698 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid |
---|
| 699 | INTEGER (kind = C_INT) , VALUE :: varid_size |
---|
| 700 | INTEGER (kind = C_INT) :: data_int |
---|
| 701 | LOGICAL (kind = C_BOOL) :: is_var_existed |
---|
| 702 | END SUBROUTINE cxios_get_variable_data_int |
---|
| 703 | |
---|
| 704 | SUBROUTINE cxios_get_variable_data_logic(vardid, varid_size, data_logic, is_var_existed) BIND(C) |
---|
| 705 | USE ISO_C_BINDING |
---|
| 706 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid |
---|
| 707 | INTEGER (kind = C_INT) , VALUE :: varid_size |
---|
[2099] | 708 | LOGICAL (kind = C_BOOL) :: data_logic |
---|
[489] | 709 | LOGICAL (kind = C_BOOL) :: is_var_existed |
---|
| 710 | END SUBROUTINE cxios_get_variable_data_logic |
---|
| 711 | |
---|
| 712 | SUBROUTINE cxios_get_variable_data_char(vardid, varid_size, data_char, data_size_in, is_var_existed) BIND(C) |
---|
| 713 | USE ISO_C_BINDING |
---|
| 714 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid |
---|
| 715 | INTEGER (kind = C_INT) , VALUE :: varid_size |
---|
| 716 | INTEGER (kind = C_INT) , VALUE :: data_size_in |
---|
| 717 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: data_char |
---|
| 718 | LOGICAL (kind = C_BOOL) :: is_var_existed |
---|
| 719 | END SUBROUTINE cxios_get_variable_data_char |
---|
| 720 | |
---|
| 721 | ! Binding C and Fortran interface of set_variable (icdata.cpp) |
---|
| 722 | SUBROUTINE cxios_set_variable_data_k8(vardid, varid_size, data_k8, is_var_existed) BIND(C) |
---|
| 723 | USE ISO_C_BINDING |
---|
| 724 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid |
---|
| 725 | INTEGER (kind = C_INT) , VALUE :: varid_size |
---|
| 726 | REAL (kind = C_DOUBLE), VALUE :: data_k8 |
---|
| 727 | LOGICAL (kind = C_BOOL) :: is_var_existed |
---|
| 728 | END SUBROUTINE cxios_set_variable_data_k8 |
---|
| 729 | |
---|
| 730 | SUBROUTINE cxios_set_variable_data_k4(vardid, varid_size, data_k4, is_var_existed) BIND(C) |
---|
| 731 | USE ISO_C_BINDING |
---|
| 732 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid |
---|
| 733 | INTEGER (kind = C_INT) , VALUE :: varid_size |
---|
| 734 | REAL (kind = C_FLOAT) , VALUE :: data_k4 |
---|
| 735 | LOGICAL (kind = C_BOOL) :: is_var_existed |
---|
| 736 | END SUBROUTINE cxios_set_variable_data_k4 |
---|
| 737 | |
---|
| 738 | SUBROUTINE cxios_set_variable_data_int(vardid, varid_size, data_int, is_var_existed) BIND(C) |
---|
| 739 | USE ISO_C_BINDING |
---|
| 740 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid |
---|
| 741 | INTEGER (kind = C_INT) , VALUE :: varid_size |
---|
| 742 | INTEGER (kind = C_INT) , VALUE :: data_int |
---|
| 743 | LOGICAL (kind = C_BOOL) :: is_var_existed |
---|
| 744 | END SUBROUTINE cxios_set_variable_data_int |
---|
| 745 | |
---|
| 746 | SUBROUTINE cxios_set_variable_data_logic(vardid, varid_size, data_logic, is_var_existed) BIND(C) |
---|
| 747 | USE ISO_C_BINDING |
---|
| 748 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid |
---|
| 749 | INTEGER (kind = C_INT) , VALUE :: varid_size |
---|
[2099] | 750 | LOGICAL (kind = C_BOOL) , VALUE :: data_logic |
---|
[489] | 751 | LOGICAL (kind = C_BOOL) :: is_var_existed |
---|
| 752 | END SUBROUTINE cxios_set_variable_data_logic |
---|
| 753 | |
---|
| 754 | SUBROUTINE cxios_set_variable_data_char(vardid, varid_size, data_char, data_size_in, is_var_existed) BIND(C) |
---|
| 755 | USE ISO_C_BINDING |
---|
| 756 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: vardid |
---|
| 757 | INTEGER (kind = C_INT) , VALUE :: varid_size |
---|
| 758 | INTEGER (kind = C_INT) , VALUE :: data_size_in |
---|
| 759 | CHARACTER(kind = C_CHAR) , DIMENSION(*) :: data_char |
---|
| 760 | LOGICAL (kind = C_BOOL) :: is_var_existed |
---|
| 761 | END SUBROUTINE cxios_set_variable_data_char |
---|
| 762 | |
---|
[325] | 763 | END INTERFACE |
---|
[489] | 764 | |
---|
| 765 | |
---|
[325] | 766 | CONTAINS ! Fonctions disponibles pour les utilisateurs. |
---|
| 767 | |
---|
[1054] | 768 | SUBROUTINE xios(init_server)() |
---|
[325] | 769 | IMPLICIT NONE |
---|
[1158] | 770 | CALL cxios_init_server() |
---|
[325] | 771 | END SUBROUTINE xios(init_server) |
---|
[489] | 772 | |
---|
[325] | 773 | SUBROUTINE xios(initialize)(client_id, local_comm, return_comm) |
---|
| 774 | IMPLICIT NONE |
---|
| 775 | INCLUDE 'mpif.h' |
---|
| 776 | CHARACTER(LEN=*),INTENT(IN) :: client_id |
---|
[489] | 777 | INTEGER,INTENT(IN),OPTIONAL :: local_comm |
---|
[325] | 778 | INTEGER,INTENT(OUT),OPTIONAL :: return_comm |
---|
| 779 | INTEGER :: f_local_comm |
---|
| 780 | INTEGER :: f_return_comm |
---|
[489] | 781 | |
---|
[325] | 782 | IF (PRESENT(local_comm)) THEN |
---|
[489] | 783 | f_local_comm=local_comm |
---|
[325] | 784 | ELSE |
---|
[489] | 785 | f_local_comm = MPI_COMM_NULL |
---|
[325] | 786 | ENDIF |
---|
[489] | 787 | |
---|
[325] | 788 | CALL cxios_init_client(client_id,LEN(client_id),f_local_comm,f_return_comm) |
---|
[489] | 789 | |
---|
[325] | 790 | IF (PRESENT(return_comm)) return_comm=f_return_comm |
---|
| 791 | |
---|
| 792 | END SUBROUTINE xios(initialize) |
---|
| 793 | |
---|
| 794 | |
---|
| 795 | SUBROUTINE xios(context_initialize)(context_id,comm) |
---|
| 796 | IMPLICIT NONE |
---|
| 797 | CHARACTER(LEN=*),INTENT(IN) :: context_id |
---|
| 798 | INTEGER, INTENT(IN) :: comm |
---|
[489] | 799 | |
---|
[325] | 800 | CALL cxios_context_initialize(context_id,LEN(context_id),comm) |
---|
[489] | 801 | |
---|
[325] | 802 | END SUBROUTINE xios(context_initialize) |
---|
[461] | 803 | |
---|
| 804 | |
---|
| 805 | LOGICAL FUNCTION xios(context_is_initialized)(context_id) |
---|
| 806 | USE ISO_C_BINDING |
---|
| 807 | IMPLICIT NONE |
---|
| 808 | CHARACTER(LEN=*),INTENT(IN) :: context_id |
---|
| 809 | LOGICAL(KIND=C_BOOL) :: is_init |
---|
[489] | 810 | |
---|
[461] | 811 | CALL cxios_context_is_initialized(context_id, LEN(context_id), is_init) |
---|
[2623] | 812 | CALL xios_bool_to_logical_0d(is_init) |
---|
[461] | 813 | xios(context_is_initialized) = is_init |
---|
| 814 | |
---|
[489] | 815 | END FUNCTION xios(context_is_initialized) |
---|
| 816 | |
---|
| 817 | |
---|
[325] | 818 | SUBROUTINE xios(finalize) |
---|
| 819 | IMPLICIT NONE |
---|
| 820 | |
---|
| 821 | CALL cxios_finalize |
---|
| 822 | |
---|
| 823 | END SUBROUTINE xios(finalize) |
---|
| 824 | |
---|
[1587] | 825 | SUBROUTINE xios(oasis_enddef) |
---|
| 826 | IMPLICIT NONE |
---|
[489] | 827 | |
---|
[1587] | 828 | CALL cxios_oasis_enddef |
---|
| 829 | |
---|
| 830 | END SUBROUTINE xios(oasis_enddef) |
---|
| 831 | |
---|
[325] | 832 | SUBROUTINE xios(close_context_definition)() |
---|
| 833 | IMPLICIT NONE |
---|
| 834 | CALL cxios_context_close_definition() |
---|
| 835 | END SUBROUTINE xios(close_context_definition) |
---|
| 836 | |
---|
[489] | 837 | |
---|
[325] | 838 | SUBROUTINE xios(context_finalize)() |
---|
| 839 | IMPLICIT NONE |
---|
| 840 | CALL cxios_context_finalize() |
---|
| 841 | END SUBROUTINE xios(context_finalize) |
---|
[489] | 842 | |
---|
[445] | 843 | SUBROUTINE xios(solve_inheritance)() |
---|
| 844 | IMPLICIT NONE |
---|
| 845 | CALL cxios_solve_inheritance() |
---|
| 846 | END SUBROUTINE xios(solve_inheritance) |
---|
[489] | 847 | |
---|
[593] | 848 | ! Send field functions |
---|
[2025] | 849 | SUBROUTINE xios(send_field_r8_0d_hdl)(field_hdl, data_k8) |
---|
| 850 | IMPLICIT NONE |
---|
| 851 | TYPE(txios(field)) :: field_hdl |
---|
| 852 | REAL (kind = 8), INTENT(IN) :: data_k8 |
---|
| 853 | CALL cxios_write_data_k80_hdl(field_hdl%daddr, data_k8, 1) |
---|
| 854 | END SUBROUTINE xios(send_field_r8_0d_hdl) |
---|
| 855 | |
---|
[886] | 856 | SUBROUTINE xios(send_field_r8_0d)(fieldid, data_k8) |
---|
[586] | 857 | IMPLICIT NONE |
---|
| 858 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 859 | REAL (kind = 8), INTENT(IN) :: data_k8 |
---|
| 860 | CALL cxios_write_data_k80(fieldid, len(fieldid), data_k8, 1) |
---|
[886] | 861 | END SUBROUTINE xios(send_field_r8_0d) |
---|
[586] | 862 | |
---|
[2025] | 863 | SUBROUTINE xios(send_field_r8_1d_hdl)(field_hdl, data1d_k8) |
---|
| 864 | IMPLICIT NONE |
---|
| 865 | TYPE(txios(field)) :: field_hdl |
---|
| 866 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data1d_k8(:) |
---|
[2131] | 867 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 868 | CALL cxios_write_data_k81_hdl(field_hdl%daddr, data1d_k8, size(data1d_k8, 1), tileid) |
---|
[2025] | 869 | END SUBROUTINE xios(send_field_r8_1d_hdl) |
---|
| 870 | |
---|
[325] | 871 | SUBROUTINE xios(send_field_r8_1d)(fieldid, data1d_k8) |
---|
| 872 | IMPLICIT NONE |
---|
| 873 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 874 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data1d_k8(:) |
---|
[2131] | 875 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 876 | CALL cxios_write_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1), tileid) |
---|
[325] | 877 | END SUBROUTINE xios(send_field_r8_1d) |
---|
[489] | 878 | |
---|
[2131] | 879 | SUBROUTINE xios(send_field_tiled_r8_1d)(fieldid, data1d_k8, tileid) |
---|
| 880 | IMPLICIT NONE |
---|
| 881 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 882 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data1d_k8(:) |
---|
| 883 | INTEGER , INTENT(IN) :: tileid |
---|
| 884 | CALL cxios_write_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1), tileid) |
---|
| 885 | END SUBROUTINE xios(send_field_tiled_r8_1d) |
---|
| 886 | |
---|
[2025] | 887 | SUBROUTINE xios(send_field_r8_2d_hdl)(field_hdl, data2d_k8) |
---|
| 888 | IMPLICIT NONE |
---|
| 889 | TYPE(txios(field)) :: field_hdl |
---|
| 890 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data2d_k8(:,:) |
---|
[2131] | 891 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 892 | CALL cxios_write_data_k82_hdl(field_hdl%daddr, data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2), tileid) |
---|
[2025] | 893 | END SUBROUTINE xios(send_field_r8_2d_hdl) |
---|
| 894 | |
---|
[325] | 895 | SUBROUTINE xios(send_field_r8_2d)(fieldid, data2d_k8) |
---|
| 896 | IMPLICIT NONE |
---|
| 897 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 898 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data2d_k8(:,:) |
---|
[2131] | 899 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 900 | CALL cxios_write_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), & |
---|
| 901 | size(data2d_k8, 2), tileid) |
---|
[325] | 902 | END SUBROUTINE xios(send_field_r8_2d) |
---|
[489] | 903 | |
---|
[2131] | 904 | SUBROUTINE xios(send_field_tiled_r8_2d)(fieldid, data2d_k8, tileid) |
---|
| 905 | IMPLICIT NONE |
---|
| 906 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 907 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data2d_k8(:,:) |
---|
| 908 | INTEGER , INTENT(IN) :: tileid |
---|
| 909 | CALL cxios_write_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), & |
---|
| 910 | size(data2d_k8, 2), tileid) |
---|
| 911 | END SUBROUTINE xios(send_field_tiled_r8_2d) |
---|
| 912 | |
---|
[2025] | 913 | SUBROUTINE xios(send_field_r8_3d_hdl)(field_hdl, data3d_k8) |
---|
| 914 | IMPLICIT NONE |
---|
| 915 | TYPE(txios(field)) :: field_hdl |
---|
| 916 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data3d_k8(:,:,:) |
---|
[2131] | 917 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 918 | CALL cxios_write_data_k83_hdl(field_hdl%daddr, data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3), & |
---|
| 919 | tileid) |
---|
[2025] | 920 | END SUBROUTINE xios(send_field_r8_3d_hdl) |
---|
| 921 | |
---|
[325] | 922 | SUBROUTINE xios(send_field_r8_3d)(fieldid, data3d_k8) |
---|
| 923 | IMPLICIT NONE |
---|
| 924 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 925 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data3d_k8(:,:,:) |
---|
[2131] | 926 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 927 | CALL cxios_write_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3), & |
---|
| 928 | tileid) |
---|
[325] | 929 | END SUBROUTINE xios(send_field_r8_3d) |
---|
[489] | 930 | |
---|
[2131] | 931 | SUBROUTINE xios(send_field_tiled_r8_3d)(fieldid, data3d_k8, tileid) |
---|
| 932 | IMPLICIT NONE |
---|
| 933 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 934 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data3d_k8(:,:,:) |
---|
| 935 | INTEGER , INTENT(IN) :: tileid |
---|
| 936 | CALL cxios_write_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), & |
---|
| 937 | size(data3d_k8, 2), size(data3d_k8, 3), tileid) |
---|
| 938 | END SUBROUTINE xios(send_field_tiled_r8_3d) |
---|
| 939 | |
---|
[2025] | 940 | SUBROUTINE xios(send_field_r8_4d_hdl)(field_hdl, data4d_k8) |
---|
| 941 | IMPLICIT NONE |
---|
| 942 | TYPE(txios(field)) :: field_hdl |
---|
| 943 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data4d_k8(:,:,:,:) |
---|
[2131] | 944 | INTEGER, PARAMETER :: tileid = -1 |
---|
[2025] | 945 | CALL cxios_write_data_k84_hdl(field_hdl%daddr, data4d_k8, & |
---|
| 946 | size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), & |
---|
[2131] | 947 | size(data4d_k8, 4), tileid) |
---|
[2025] | 948 | END SUBROUTINE xios(send_field_r8_4d_hdl) |
---|
| 949 | |
---|
[932] | 950 | SUBROUTINE xios(send_field_r8_4d)(fieldid, data4d_k8) |
---|
| 951 | IMPLICIT NONE |
---|
| 952 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 953 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data4d_k8(:,:,:,:) |
---|
[2131] | 954 | INTEGER, PARAMETER :: tileid = -1 |
---|
[932] | 955 | CALL cxios_write_data_k84(fieldid, len(fieldid), data4d_k8, & |
---|
| 956 | size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), & |
---|
[2131] | 957 | size(data4d_k8, 4), tileid) |
---|
[932] | 958 | END SUBROUTINE xios(send_field_r8_4d) |
---|
| 959 | |
---|
[2131] | 960 | SUBROUTINE xios(send_field_tiled_r8_4d)(fieldid, data4d_k8, tileid) |
---|
| 961 | IMPLICIT NONE |
---|
| 962 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 963 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data4d_k8(:,:,:,:) |
---|
| 964 | INTEGER , INTENT(IN) :: tileid |
---|
| 965 | CALL cxios_write_data_k84(fieldid, len(fieldid), data4d_k8, & |
---|
| 966 | size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), & |
---|
| 967 | size(data4d_k8, 4), tileid) |
---|
| 968 | END SUBROUTINE xios(send_field_tiled_r8_4d) |
---|
| 969 | |
---|
[2025] | 970 | SUBROUTINE xios(send_field_r8_5d_hdl)(field_hdl, data5d_k8) |
---|
| 971 | IMPLICIT NONE |
---|
| 972 | TYPE(txios(field)) :: field_hdl |
---|
| 973 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data5d_k8(:,:,:,:,:) |
---|
[2131] | 974 | INTEGER, PARAMETER :: tileid = -1 |
---|
[2025] | 975 | CALL cxios_write_data_k85_hdl(field_hdl%daddr, data5d_k8, & |
---|
| 976 | size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), & |
---|
[2131] | 977 | size(data5d_k8, 4), size(data5d_k8, 5), tileid) |
---|
[2025] | 978 | END SUBROUTINE xios(send_field_r8_5d_hdl) |
---|
| 979 | |
---|
[932] | 980 | SUBROUTINE xios(send_field_r8_5d)(fieldid, data5d_k8) |
---|
| 981 | IMPLICIT NONE |
---|
| 982 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 983 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data5d_k8(:,:,:,:,:) |
---|
[2131] | 984 | INTEGER, PARAMETER :: tileid = -1 |
---|
[932] | 985 | CALL cxios_write_data_k85(fieldid, len(fieldid), data5d_k8, & |
---|
| 986 | size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), & |
---|
[2131] | 987 | size(data5d_k8, 4), size(data5d_k8, 5), tileid) |
---|
[932] | 988 | END SUBROUTINE xios(send_field_r8_5d) |
---|
| 989 | |
---|
[2131] | 990 | SUBROUTINE xios(send_field_tiled_r8_5d)(fieldid, data5d_k8, tileid) |
---|
| 991 | IMPLICIT NONE |
---|
| 992 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 993 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data5d_k8(:,:,:,:,:) |
---|
| 994 | INTEGER , INTENT(IN) :: tileid |
---|
| 995 | CALL cxios_write_data_k85(fieldid, len(fieldid), data5d_k8, & |
---|
| 996 | size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), & |
---|
| 997 | size(data5d_k8, 4), size(data5d_k8, 5), tileid) |
---|
| 998 | END SUBROUTINE xios(send_field_tiled_r8_5d) |
---|
| 999 | |
---|
[2025] | 1000 | SUBROUTINE xios(send_field_r8_6d_hdl)(field_hdl, data6d_k8) |
---|
| 1001 | IMPLICIT NONE |
---|
| 1002 | TYPE(txios(field)) :: field_hdl |
---|
| 1003 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data6d_k8(:,:,:,:,:,:) |
---|
[2131] | 1004 | INTEGER, PARAMETER :: tileid = -1 |
---|
[2025] | 1005 | CALL cxios_write_data_k86_hdl(field_hdl%daddr, data6d_k8, & |
---|
| 1006 | size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), & |
---|
[2131] | 1007 | size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6), tileid) |
---|
[2025] | 1008 | END SUBROUTINE xios(send_field_r8_6d_hdl) |
---|
| 1009 | |
---|
[932] | 1010 | SUBROUTINE xios(send_field_r8_6d)(fieldid, data6d_k8) |
---|
| 1011 | IMPLICIT NONE |
---|
| 1012 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1013 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data6d_k8(:,:,:,:,:,:) |
---|
[2131] | 1014 | INTEGER, PARAMETER :: tileid = -1 |
---|
[932] | 1015 | CALL cxios_write_data_k86(fieldid, len(fieldid), data6d_k8, & |
---|
| 1016 | size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), & |
---|
[2131] | 1017 | size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6), tileid) |
---|
[932] | 1018 | END SUBROUTINE xios(send_field_r8_6d) |
---|
| 1019 | |
---|
[2131] | 1020 | SUBROUTINE xios(send_field_tiled_r8_6d)(fieldid, data6d_k8, tileid) |
---|
| 1021 | IMPLICIT NONE |
---|
| 1022 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1023 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data6d_k8(:,:,:,:,:,:) |
---|
| 1024 | INTEGER , INTENT(IN) :: tileid |
---|
| 1025 | CALL cxios_write_data_k86(fieldid, len(fieldid), data6d_k8, & |
---|
| 1026 | size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), & |
---|
| 1027 | size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6), tileid) |
---|
| 1028 | END SUBROUTINE xios(send_field_tiled_r8_6d) |
---|
| 1029 | |
---|
[2025] | 1030 | SUBROUTINE xios(send_field_r8_7d_hdl)(field_hdl, data7d_k8) |
---|
| 1031 | IMPLICIT NONE |
---|
| 1032 | TYPE(txios(field)) :: field_hdl |
---|
| 1033 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data7d_k8(:,:,:,:,:,:,:) |
---|
[2131] | 1034 | INTEGER, PARAMETER :: tileid = -1 |
---|
[2025] | 1035 | CALL cxios_write_data_k87_hdl(field_hdl%daddr, data7d_k8, & |
---|
| 1036 | size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), & |
---|
| 1037 | size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), & |
---|
[2131] | 1038 | size(data7d_k8, 7), tileid) |
---|
[2025] | 1039 | END SUBROUTINE xios(send_field_r8_7d_hdl) |
---|
| 1040 | |
---|
[932] | 1041 | SUBROUTINE xios(send_field_r8_7d)(fieldid, data7d_k8) |
---|
| 1042 | IMPLICIT NONE |
---|
| 1043 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1044 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data7d_k8(:,:,:,:,:,:,:) |
---|
[2131] | 1045 | INTEGER, PARAMETER :: tileid = -1 |
---|
[932] | 1046 | CALL cxios_write_data_k87(fieldid, len(fieldid), data7d_k8, & |
---|
| 1047 | size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), & |
---|
| 1048 | size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), & |
---|
[2131] | 1049 | size(data7d_k8, 7), tileid) |
---|
[932] | 1050 | END SUBROUTINE xios(send_field_r8_7d) |
---|
| 1051 | |
---|
[2131] | 1052 | SUBROUTINE xios(send_field_tiled_r8_7d)(fieldid, data7d_k8, tileid) |
---|
| 1053 | IMPLICIT NONE |
---|
| 1054 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1055 | REAL (kind = 8), DIMENSION(*), INTENT(IN) :: data7d_k8(:,:,:,:,:,:,:) |
---|
| 1056 | INTEGER , INTENT(IN) :: tileid |
---|
| 1057 | CALL cxios_write_data_k87(fieldid, len(fieldid), data7d_k8, & |
---|
| 1058 | size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), & |
---|
| 1059 | size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), & |
---|
| 1060 | size(data7d_k8, 7), tileid) |
---|
| 1061 | END SUBROUTINE xios(send_field_tiled_r8_7d) |
---|
| 1062 | |
---|
[2025] | 1063 | SUBROUTINE xios(send_field_r4_0d_hdl)(field_hdl, data_k4) |
---|
| 1064 | IMPLICIT NONE |
---|
| 1065 | TYPE(txios(field)) :: field_hdl |
---|
| 1066 | REAL (kind = 4), INTENT(IN) :: data_k4 |
---|
| 1067 | CALL cxios_write_data_k40_hdl(field_hdl%daddr, data_k4, 1) |
---|
| 1068 | END SUBROUTINE xios(send_field_r4_0d_hdl) |
---|
| 1069 | |
---|
[932] | 1070 | SUBROUTINE xios(send_field_r4_0d)(fieldid, data_k4) |
---|
| 1071 | IMPLICIT NONE |
---|
| 1072 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1073 | REAL (kind = 4), INTENT(IN) :: data_k4 |
---|
| 1074 | CALL cxios_write_data_k40(fieldid, len(fieldid), data_k4, 1) |
---|
| 1075 | END SUBROUTINE xios(send_field_r4_0d) |
---|
| 1076 | |
---|
[2025] | 1077 | SUBROUTINE xios(send_field_r4_1d_hdl)(field_hdl, data1d_k4) |
---|
| 1078 | IMPLICIT NONE |
---|
| 1079 | TYPE(txios(field)) :: field_hdl |
---|
| 1080 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data1d_k4(:) |
---|
[2131] | 1081 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 1082 | CALL cxios_write_data_k41_hdl(field_hdl%daddr, data1d_k4, size(data1d_k4, 1), tileid) |
---|
[2025] | 1083 | END SUBROUTINE xios(send_field_r4_1d_hdl) |
---|
| 1084 | |
---|
[325] | 1085 | SUBROUTINE xios(send_field_r4_1d)(fieldid, data1d_k4) |
---|
| 1086 | IMPLICIT NONE |
---|
| 1087 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1088 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data1d_k4(:) |
---|
[2131] | 1089 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 1090 | CALL cxios_write_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1), tileid) |
---|
[325] | 1091 | END SUBROUTINE xios(send_field_r4_1d) |
---|
[489] | 1092 | |
---|
[2131] | 1093 | SUBROUTINE xios(send_field_tiled_r4_1d)(fieldid, data1d_k4, tileid) |
---|
| 1094 | IMPLICIT NONE |
---|
| 1095 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1096 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data1d_k4(:) |
---|
| 1097 | INTEGER , INTENT(IN) :: tileid |
---|
| 1098 | CALL cxios_write_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1), tileid) |
---|
| 1099 | END SUBROUTINE xios(send_field_tiled_r4_1d) |
---|
| 1100 | |
---|
[2025] | 1101 | SUBROUTINE xios(send_field_r4_2d_hdl)(field_hdl, data2d_k4) |
---|
| 1102 | IMPLICIT NONE |
---|
| 1103 | TYPE(txios(field)) :: field_hdl |
---|
| 1104 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data2d_k4(:,:) |
---|
[2131] | 1105 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 1106 | CALL cxios_write_data_k42_hdl(field_hdl%daddr, data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2), tileid) |
---|
[2025] | 1107 | END SUBROUTINE xios(send_field_r4_2d_hdl) |
---|
| 1108 | |
---|
[325] | 1109 | SUBROUTINE xios(send_field_r4_2d)(fieldid, data2d_k4) |
---|
| 1110 | IMPLICIT NONE |
---|
| 1111 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1112 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data2d_k4(:,:) |
---|
[2131] | 1113 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 1114 | CALL cxios_write_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2), tileid) |
---|
[325] | 1115 | END SUBROUTINE xios(send_field_r4_2d) |
---|
[489] | 1116 | |
---|
[2131] | 1117 | SUBROUTINE xios(send_field_tiled_r4_2d)(fieldid, data2d_k4, tileid) |
---|
| 1118 | IMPLICIT NONE |
---|
| 1119 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1120 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data2d_k4(:,:) |
---|
| 1121 | INTEGER , INTENT(IN) :: tileid |
---|
| 1122 | CALL cxios_write_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2), tileid) |
---|
| 1123 | END SUBROUTINE xios(send_field_tiled_r4_2d) |
---|
| 1124 | |
---|
[2025] | 1125 | SUBROUTINE xios(send_field_r4_3d_hdl)(field_hdl, data3d_k4) |
---|
| 1126 | IMPLICIT NONE |
---|
| 1127 | TYPE(txios(field)) :: field_hdl |
---|
| 1128 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data3d_k4(:,:,:) |
---|
[2131] | 1129 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 1130 | CALL cxios_write_data_k43_hdl(field_hdl%daddr, data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3), & |
---|
| 1131 | tileid) |
---|
[2025] | 1132 | END SUBROUTINE xios(send_field_r4_3d_hdl) |
---|
| 1133 | |
---|
[325] | 1134 | SUBROUTINE xios(send_field_r4_3d)(fieldid, data3d_k4) |
---|
| 1135 | IMPLICIT NONE |
---|
| 1136 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1137 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data3d_k4(:,:,:) |
---|
[2131] | 1138 | INTEGER, PARAMETER :: tileid = -1 |
---|
| 1139 | CALL cxios_write_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3), & |
---|
| 1140 | tileid) |
---|
[325] | 1141 | END SUBROUTINE xios(send_field_r4_3d) |
---|
[489] | 1142 | |
---|
[2131] | 1143 | SUBROUTINE xios(send_field_tiled_r4_3d)(fieldid, data3d_k4, tileid) |
---|
| 1144 | IMPLICIT NONE |
---|
| 1145 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1146 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data3d_k4(:,:,:) |
---|
| 1147 | INTEGER , INTENT(IN) :: tileid |
---|
| 1148 | CALL cxios_write_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3), & |
---|
| 1149 | tileid) |
---|
| 1150 | END SUBROUTINE xios(send_field_tiled_r4_3d) |
---|
| 1151 | |
---|
[2025] | 1152 | SUBROUTINE xios(send_field_r4_4d_hdl)(field_hdl, data4d_k4) |
---|
| 1153 | IMPLICIT NONE |
---|
| 1154 | TYPE(txios(field)) :: field_hdl |
---|
| 1155 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data4d_k4(:,:,:,:) |
---|
[2131] | 1156 | INTEGER, PARAMETER :: tileid = -1 |
---|
[2025] | 1157 | CALL cxios_write_data_k44_hdl(field_hdl%daddr, data4d_k4, & |
---|
| 1158 | size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), & |
---|
[2131] | 1159 | size(data4d_k4, 4), tileid) |
---|
[2025] | 1160 | END SUBROUTINE xios(send_field_r4_4d_hdl) |
---|
[2131] | 1161 | |
---|
[932] | 1162 | SUBROUTINE xios(send_field_r4_4d)(fieldid, data4d_k4) |
---|
| 1163 | IMPLICIT NONE |
---|
| 1164 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1165 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data4d_k4(:,:,:,:) |
---|
[2131] | 1166 | INTEGER, PARAMETER :: tileid = -1 |
---|
[932] | 1167 | CALL cxios_write_data_k44(fieldid, len(fieldid), data4d_k4, & |
---|
| 1168 | size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), & |
---|
[2131] | 1169 | size(data4d_k4, 4), tileid) |
---|
[932] | 1170 | END SUBROUTINE xios(send_field_r4_4d) |
---|
| 1171 | |
---|
[2131] | 1172 | SUBROUTINE xios(send_field_tiled_r4_4d)(fieldid, data4d_k4, tileid) |
---|
| 1173 | IMPLICIT NONE |
---|
| 1174 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1175 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data4d_k4(:,:,:,:) |
---|
| 1176 | INTEGER , INTENT(IN) :: tileid |
---|
| 1177 | CALL cxios_write_data_k44(fieldid, len(fieldid), data4d_k4, & |
---|
| 1178 | size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), & |
---|
| 1179 | size(data4d_k4, 4), tileid) |
---|
| 1180 | END SUBROUTINE xios(send_field_tiled_r4_4d) |
---|
| 1181 | |
---|
[2025] | 1182 | SUBROUTINE xios(send_field_r4_5d_hdl)(field_hdl, data5d_k4) |
---|
| 1183 | IMPLICIT NONE |
---|
| 1184 | TYPE(txios(field)) :: field_hdl |
---|
| 1185 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data5d_k4(:,:,:,:,:) |
---|
[2131] | 1186 | INTEGER, PARAMETER :: tileid = -1 |
---|
[2025] | 1187 | CALL cxios_write_data_k45_hdl(field_hdl%daddr, data5d_k4, & |
---|
| 1188 | size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), & |
---|
[2131] | 1189 | size(data5d_k4, 4), size(data5d_k4, 5), tileid) |
---|
[2025] | 1190 | END SUBROUTINE xios(send_field_r4_5d_hdl) |
---|
| 1191 | |
---|
[932] | 1192 | SUBROUTINE xios(send_field_r4_5d)(fieldid, data5d_k4) |
---|
| 1193 | IMPLICIT NONE |
---|
| 1194 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1195 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data5d_k4(:,:,:,:,:) |
---|
[2131] | 1196 | INTEGER, PARAMETER :: tileid = -1 |
---|
[932] | 1197 | CALL cxios_write_data_k45(fieldid, len(fieldid), data5d_k4, & |
---|
| 1198 | size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), & |
---|
[2131] | 1199 | size(data5d_k4, 4), size(data5d_k4, 5), tileid) |
---|
[932] | 1200 | END SUBROUTINE xios(send_field_r4_5d) |
---|
| 1201 | |
---|
[2131] | 1202 | SUBROUTINE xios(send_field_tiled_r4_5d)(fieldid, data5d_k4, tileid) |
---|
| 1203 | IMPLICIT NONE |
---|
| 1204 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1205 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data5d_k4(:,:,:,:,:) |
---|
| 1206 | INTEGER , INTENT(IN) :: tileid |
---|
| 1207 | CALL cxios_write_data_k45(fieldid, len(fieldid), data5d_k4, & |
---|
| 1208 | size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), & |
---|
| 1209 | size(data5d_k4, 4), size(data5d_k4, 5), tileid) |
---|
| 1210 | END SUBROUTINE xios(send_field_tiled_r4_5d) |
---|
| 1211 | |
---|
[2025] | 1212 | SUBROUTINE xios(send_field_r4_6d_hdl)(field_hdl, data6d_k4) |
---|
| 1213 | IMPLICIT NONE |
---|
| 1214 | TYPE(txios(field)) :: field_hdl |
---|
| 1215 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data6d_k4(:,:,:,:,:,:) |
---|
[2131] | 1216 | INTEGER, PARAMETER :: tileid = -1 |
---|
[2025] | 1217 | CALL cxios_write_data_k46_hdl(field_hdl%daddr, data6d_k4, & |
---|
| 1218 | size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), & |
---|
[2131] | 1219 | size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6), tileid) |
---|
[2025] | 1220 | END SUBROUTINE xios(send_field_r4_6d_hdl) |
---|
| 1221 | |
---|
[932] | 1222 | SUBROUTINE xios(send_field_r4_6d)(fieldid, data6d_k4) |
---|
| 1223 | IMPLICIT NONE |
---|
| 1224 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1225 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data6d_k4(:,:,:,:,:,:) |
---|
[2131] | 1226 | INTEGER, PARAMETER :: tileid = -1 |
---|
[932] | 1227 | CALL cxios_write_data_k46(fieldid, len(fieldid), data6d_k4, & |
---|
| 1228 | size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), & |
---|
[2131] | 1229 | size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6), tileid) |
---|
[932] | 1230 | END SUBROUTINE xios(send_field_r4_6d) |
---|
| 1231 | |
---|
[2131] | 1232 | SUBROUTINE xios(send_field_tiled_r4_6d)(fieldid, data6d_k4, tileid) |
---|
| 1233 | IMPLICIT NONE |
---|
| 1234 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1235 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data6d_k4(:,:,:,:,:,:) |
---|
| 1236 | INTEGER , INTENT(IN) :: tileid |
---|
| 1237 | CALL cxios_write_data_k46(fieldid, len(fieldid), data6d_k4, & |
---|
| 1238 | size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), & |
---|
| 1239 | size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6), tileid) |
---|
| 1240 | END SUBROUTINE xios(send_field_tiled_r4_6d) |
---|
| 1241 | |
---|
[2025] | 1242 | SUBROUTINE xios(send_field_r4_7d_hdl)(field_hdl, data7d_k4) |
---|
| 1243 | IMPLICIT NONE |
---|
| 1244 | TYPE(txios(field)) :: field_hdl |
---|
| 1245 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data7d_k4(:,:,:,:,:,:,:) |
---|
[2131] | 1246 | INTEGER, PARAMETER :: tileid = -1 |
---|
[2025] | 1247 | CALL cxios_write_data_k47_hdl(field_hdl%daddr, data7d_k4, & |
---|
| 1248 | size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), & |
---|
| 1249 | size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), & |
---|
[2131] | 1250 | size(data7d_k4, 7), tileid) |
---|
[2025] | 1251 | END SUBROUTINE xios(send_field_r4_7d_hdl) |
---|
| 1252 | |
---|
[932] | 1253 | SUBROUTINE xios(send_field_r4_7d)(fieldid, data7d_k4) |
---|
| 1254 | IMPLICIT NONE |
---|
| 1255 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1256 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data7d_k4(:,:,:,:,:,:,:) |
---|
[2131] | 1257 | INTEGER, PARAMETER :: tileid = -1 |
---|
[932] | 1258 | CALL cxios_write_data_k47(fieldid, len(fieldid), data7d_k4, & |
---|
| 1259 | size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), & |
---|
| 1260 | size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), & |
---|
[2131] | 1261 | size(data7d_k4, 7), tileid) |
---|
[932] | 1262 | END SUBROUTINE xios(send_field_r4_7d) |
---|
| 1263 | |
---|
[2131] | 1264 | SUBROUTINE xios(send_field_tiled_r4_7d)(fieldid, data7d_k4, tileid) |
---|
| 1265 | IMPLICIT NONE |
---|
| 1266 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1267 | REAL (kind = 4), DIMENSION(*), INTENT(IN) :: data7d_k4(:,:,:,:,:,:,:) |
---|
| 1268 | INTEGER , INTENT(IN) :: tileid |
---|
| 1269 | CALL cxios_write_data_k47(fieldid, len(fieldid), data7d_k4, & |
---|
| 1270 | size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), & |
---|
| 1271 | size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), & |
---|
| 1272 | size(data7d_k4, 7), tileid) |
---|
| 1273 | END SUBROUTINE xios(send_field_tiled_r4_7d) |
---|
| 1274 | |
---|
[593] | 1275 | ! Receive field functions |
---|
[2025] | 1276 | SUBROUTINE xios(recv_field_r8_0d_hdl)(field_hdl, data0d_k8) |
---|
| 1277 | IMPLICIT NONE |
---|
| 1278 | TYPE(txios(field)) :: field_hdl |
---|
| 1279 | REAL (kind = 8) , INTENT(OUT):: data0d_k8 |
---|
| 1280 | CALL cxios_read_data_k80_hdl(field_hdl%daddr, data0d_k8, 1) |
---|
| 1281 | END SUBROUTINE xios(recv_field_r8_0d_hdl) |
---|
| 1282 | |
---|
[965] | 1283 | SUBROUTINE xios(recv_field_r8_0d)(fieldid, data0d_k8) |
---|
[961] | 1284 | IMPLICIT NONE |
---|
| 1285 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
[965] | 1286 | REAL (kind = 8) , INTENT(OUT):: data0d_k8 |
---|
| 1287 | CALL cxios_read_data_k80(fieldid, len(fieldid), data0d_k8, 1) |
---|
[961] | 1288 | END SUBROUTINE xios(recv_field_r8_0d) |
---|
| 1289 | |
---|
[2025] | 1290 | SUBROUTINE xios(recv_field_r8_1d_hdl)(field_hdl, data1d_k8) |
---|
| 1291 | IMPLICIT NONE |
---|
| 1292 | TYPE(txios(field)) :: field_hdl |
---|
| 1293 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data1d_k8(:) |
---|
| 1294 | CALL cxios_read_data_k81_hdl(field_hdl%daddr, data1d_k8, size(data1d_k8, 1)) |
---|
| 1295 | END SUBROUTINE xios(recv_field_r8_1d_hdl) |
---|
| 1296 | |
---|
[593] | 1297 | SUBROUTINE xios(recv_field_r8_1d)(fieldid, data1d_k8) |
---|
| 1298 | IMPLICIT NONE |
---|
| 1299 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1300 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data1d_k8(:) |
---|
| 1301 | CALL cxios_read_data_k81(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1)) |
---|
| 1302 | END SUBROUTINE xios(recv_field_r8_1d) |
---|
| 1303 | |
---|
[2025] | 1304 | SUBROUTINE xios(recv_field_r8_2d_hdl)(field_hdl, data2d_k8) |
---|
| 1305 | IMPLICIT NONE |
---|
| 1306 | TYPE(txios(field)) :: field_hdl |
---|
| 1307 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data2d_k8(:,:) |
---|
| 1308 | CALL cxios_read_data_k82_hdl(field_hdl%daddr, data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2)) |
---|
| 1309 | END SUBROUTINE xios(recv_field_r8_2d_hdl) |
---|
| 1310 | |
---|
[593] | 1311 | SUBROUTINE xios(recv_field_r8_2d)(fieldid, data2d_k8) |
---|
| 1312 | IMPLICIT NONE |
---|
| 1313 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1314 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data2d_k8(:,:) |
---|
| 1315 | CALL cxios_read_data_k82(fieldid, len(fieldid), data2d_k8, size(data2d_k8, 1), size(data2d_k8, 2)) |
---|
| 1316 | END SUBROUTINE xios(recv_field_r8_2d) |
---|
| 1317 | |
---|
[2025] | 1318 | SUBROUTINE xios(recv_field_r8_3d_hdl)(field_hdl, data3d_k8) |
---|
| 1319 | IMPLICIT NONE |
---|
| 1320 | TYPE(txios(field)) :: field_hdl |
---|
| 1321 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data3d_k8(:,:,:) |
---|
| 1322 | CALL cxios_read_data_k83_hdl(field_hdl%daddr, data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3)) |
---|
| 1323 | END SUBROUTINE xios(recv_field_r8_3d_hdl) |
---|
| 1324 | |
---|
[593] | 1325 | SUBROUTINE xios(recv_field_r8_3d)(fieldid, data3d_k8) |
---|
| 1326 | IMPLICIT NONE |
---|
| 1327 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1328 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data3d_k8(:,:,:) |
---|
| 1329 | CALL cxios_read_data_k83(fieldid, len(fieldid), data3d_k8, size(data3d_k8, 1), size(data3d_k8, 2), size(data3d_k8, 3)) |
---|
| 1330 | END SUBROUTINE xios(recv_field_r8_3d) |
---|
| 1331 | |
---|
[2025] | 1332 | SUBROUTINE xios(recv_field_r8_4d_hdl)(field_hdl, data4d_k8) |
---|
| 1333 | IMPLICIT NONE |
---|
| 1334 | TYPE(txios(field)) :: field_hdl |
---|
| 1335 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data4d_k8(:,:,:,:) |
---|
| 1336 | CALL cxios_read_data_k84_hdl(field_hdl%daddr, data4d_k8, & |
---|
| 1337 | size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), & |
---|
| 1338 | size(data4d_k8, 4)) |
---|
| 1339 | END SUBROUTINE xios(recv_field_r8_4d_hdl) |
---|
| 1340 | |
---|
[932] | 1341 | SUBROUTINE xios(recv_field_r8_4d)(fieldid, data4d_k8) |
---|
| 1342 | IMPLICIT NONE |
---|
| 1343 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1344 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data4d_k8(:,:,:,:) |
---|
| 1345 | CALL cxios_read_data_k84(fieldid, len(fieldid), data4d_k8, & |
---|
| 1346 | size(data4d_k8, 1), size(data4d_k8, 2), size(data4d_k8, 3), & |
---|
| 1347 | size(data4d_k8, 4)) |
---|
| 1348 | END SUBROUTINE xios(recv_field_r8_4d) |
---|
| 1349 | |
---|
[2025] | 1350 | SUBROUTINE xios(recv_field_r8_5d_hdl)(field_hdl, data5d_k8) |
---|
| 1351 | IMPLICIT NONE |
---|
| 1352 | TYPE(txios(field)) :: field_hdl |
---|
| 1353 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data5d_k8(:,:,:,:,:) |
---|
| 1354 | CALL cxios_read_data_k85_hdl(field_hdl%daddr, data5d_k8, & |
---|
| 1355 | size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), & |
---|
| 1356 | size(data5d_k8, 4), size(data5d_k8, 5)) |
---|
| 1357 | END SUBROUTINE xios(recv_field_r8_5d_hdl) |
---|
| 1358 | |
---|
[932] | 1359 | SUBROUTINE xios(recv_field_r8_5d)(fieldid, data5d_k8) |
---|
| 1360 | IMPLICIT NONE |
---|
| 1361 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1362 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data5d_k8(:,:,:,:,:) |
---|
| 1363 | CALL cxios_read_data_k85(fieldid, len(fieldid), data5d_k8, & |
---|
| 1364 | size(data5d_k8, 1), size(data5d_k8, 2), size(data5d_k8, 3), & |
---|
| 1365 | size(data5d_k8, 4), size(data5d_k8, 5)) |
---|
| 1366 | END SUBROUTINE xios(recv_field_r8_5d) |
---|
| 1367 | |
---|
[2025] | 1368 | SUBROUTINE xios(recv_field_r8_6d_hdl)(field_hdl, data6d_k8) |
---|
| 1369 | IMPLICIT NONE |
---|
| 1370 | TYPE(txios(field)) :: field_hdl |
---|
| 1371 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data6d_k8(:,:,:,:,:,:) |
---|
| 1372 | CALL cxios_read_data_k86_hdl(field_hdl%daddr, data6d_k8, & |
---|
| 1373 | size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), & |
---|
| 1374 | size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6)) |
---|
| 1375 | END SUBROUTINE xios(recv_field_r8_6d_hdl) |
---|
| 1376 | |
---|
[932] | 1377 | SUBROUTINE xios(recv_field_r8_6d)(fieldid, data6d_k8) |
---|
| 1378 | IMPLICIT NONE |
---|
| 1379 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1380 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data6d_k8(:,:,:,:,:,:) |
---|
| 1381 | CALL cxios_read_data_k86(fieldid, len(fieldid), data6d_k8, & |
---|
| 1382 | size(data6d_k8, 1), size(data6d_k8, 2), size(data6d_k8, 3), & |
---|
| 1383 | size(data6d_k8, 4), size(data6d_k8, 5), size(data6d_k8, 6)) |
---|
| 1384 | END SUBROUTINE xios(recv_field_r8_6d) |
---|
| 1385 | |
---|
[2025] | 1386 | SUBROUTINE xios(recv_field_r8_7d_hdl)(field_hdl, data7d_k8) |
---|
[932] | 1387 | IMPLICIT NONE |
---|
[2025] | 1388 | TYPE(txios(field)) :: field_hdl |
---|
| 1389 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data7d_k8(:,:,:,:,:,:,:) |
---|
| 1390 | CALL cxios_read_data_k87_hdl(field_hdl%daddr, data7d_k8, & |
---|
| 1391 | size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), & |
---|
| 1392 | size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), & |
---|
| 1393 | size(data7d_k8, 7)) |
---|
| 1394 | END SUBROUTINE xios(recv_field_r8_7d_hdl) |
---|
| 1395 | |
---|
| 1396 | SUBROUTINE xios(recv_field_r8_7d)(fieldid, data7d_k8) |
---|
| 1397 | IMPLICIT NONE |
---|
[932] | 1398 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1399 | REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data7d_k8(:,:,:,:,:,:,:) |
---|
| 1400 | CALL cxios_read_data_k87(fieldid, len(fieldid), data7d_k8, & |
---|
| 1401 | size(data7d_k8, 1), size(data7d_k8, 2), size(data7d_k8, 3), & |
---|
| 1402 | size(data7d_k8, 4), size(data7d_k8, 5), size(data7d_k8, 6), & |
---|
| 1403 | size(data7d_k8, 7)) |
---|
| 1404 | END SUBROUTINE xios(recv_field_r8_7d) |
---|
| 1405 | |
---|
[2025] | 1406 | SUBROUTINE xios(recv_field_r4_0d_hdl)(field_hdl, data0d_k4) |
---|
| 1407 | IMPLICIT NONE |
---|
| 1408 | TYPE(txios(field)) :: field_hdl |
---|
| 1409 | REAL (kind = 4) , INTENT(OUT):: data0d_k4 |
---|
| 1410 | CALL cxios_read_data_k40_hdl(field_hdl%daddr, data0d_k4, 1) |
---|
| 1411 | END SUBROUTINE xios(recv_field_r4_0d_hdl) |
---|
| 1412 | |
---|
[961] | 1413 | SUBROUTINE xios(recv_field_r4_0d)(fieldid, data0d_k4) |
---|
| 1414 | IMPLICIT NONE |
---|
| 1415 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
[965] | 1416 | REAL (kind = 4) , INTENT(OUT):: data0d_k4 |
---|
| 1417 | CALL cxios_read_data_k40(fieldid, len(fieldid), data0d_k4, 1) |
---|
[961] | 1418 | END SUBROUTINE xios(recv_field_r4_0d) |
---|
| 1419 | |
---|
[2025] | 1420 | SUBROUTINE xios(recv_field_r4_1d_hdl)(field_hdl, data1d_k4) |
---|
| 1421 | IMPLICIT NONE |
---|
| 1422 | TYPE(txios(field)) :: field_hdl |
---|
| 1423 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data1d_k4(:) |
---|
| 1424 | CALL cxios_read_data_k41_hdl(field_hdl%daddr, data1d_k4, size(data1d_k4, 1)) |
---|
| 1425 | END SUBROUTINE xios(recv_field_r4_1d_hdl) |
---|
| 1426 | |
---|
[593] | 1427 | SUBROUTINE xios(recv_field_r4_1d)(fieldid, data1d_k4) |
---|
| 1428 | IMPLICIT NONE |
---|
| 1429 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1430 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data1d_k4(:) |
---|
| 1431 | CALL cxios_read_data_k41(fieldid, len(fieldid), data1d_k4, size(data1d_k4, 1)) |
---|
| 1432 | END SUBROUTINE xios(recv_field_r4_1d) |
---|
| 1433 | |
---|
[2025] | 1434 | SUBROUTINE xios(recv_field_r4_2d_hdl)(field_hdl, data2d_k4) |
---|
| 1435 | IMPLICIT NONE |
---|
| 1436 | TYPE(txios(field)) :: field_hdl |
---|
| 1437 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data2d_k4(:,:) |
---|
| 1438 | CALL cxios_read_data_k42_hdl(field_hdl%daddr, data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2)) |
---|
| 1439 | END SUBROUTINE xios(recv_field_r4_2d_hdl) |
---|
| 1440 | |
---|
[593] | 1441 | SUBROUTINE xios(recv_field_r4_2d)(fieldid, data2d_k4) |
---|
| 1442 | IMPLICIT NONE |
---|
| 1443 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1444 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data2d_k4(:,:) |
---|
| 1445 | CALL cxios_read_data_k42(fieldid, len(fieldid), data2d_k4, size(data2d_k4, 1), size(data2d_k4, 2)) |
---|
| 1446 | END SUBROUTINE xios(recv_field_r4_2d) |
---|
| 1447 | |
---|
[2025] | 1448 | SUBROUTINE xios(recv_field_r4_3d_hdl)(field_hdl, data3d_k4) |
---|
| 1449 | IMPLICIT NONE |
---|
| 1450 | TYPE(txios(field)) :: field_hdl |
---|
| 1451 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data3d_k4(:,:,:) |
---|
| 1452 | CALL cxios_read_data_k43_hdl(field_hdl%daddr, data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3)) |
---|
| 1453 | END SUBROUTINE xios(recv_field_r4_3d_hdl) |
---|
| 1454 | |
---|
[593] | 1455 | SUBROUTINE xios(recv_field_r4_3d)(fieldid, data3d_k4) |
---|
| 1456 | IMPLICIT NONE |
---|
| 1457 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1458 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data3d_k4(:,:,:) |
---|
| 1459 | CALL cxios_read_data_k43(fieldid, len(fieldid), data3d_k4, size(data3d_k4, 1), size(data3d_k4, 2), size(data3d_k4, 3)) |
---|
| 1460 | END SUBROUTINE xios(recv_field_r4_3d) |
---|
| 1461 | |
---|
[2025] | 1462 | SUBROUTINE xios(recv_field_r4_4d_hdl)(field_hdl, data4d_k4) |
---|
| 1463 | IMPLICIT NONE |
---|
| 1464 | TYPE(txios(field)) :: field_hdl |
---|
| 1465 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data4d_k4(:,:,:,:) |
---|
| 1466 | CALL cxios_read_data_k44_hdl(field_hdl%daddr, data4d_k4, & |
---|
| 1467 | size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), & |
---|
| 1468 | size(data4d_k4, 4)) |
---|
| 1469 | END SUBROUTINE xios(recv_field_r4_4d_hdl) |
---|
| 1470 | |
---|
[932] | 1471 | SUBROUTINE xios(recv_field_r4_4d)(fieldid, data4d_k4) |
---|
| 1472 | IMPLICIT NONE |
---|
| 1473 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1474 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data4d_k4(:,:,:,:) |
---|
| 1475 | CALL cxios_read_data_k44(fieldid, len(fieldid), data4d_k4, & |
---|
| 1476 | size(data4d_k4, 1), size(data4d_k4, 2), size(data4d_k4, 3), & |
---|
| 1477 | size(data4d_k4, 4)) |
---|
| 1478 | END SUBROUTINE xios(recv_field_r4_4d) |
---|
| 1479 | |
---|
[2025] | 1480 | SUBROUTINE xios(recv_field_r4_5d_hdl)(field_hdl, data5d_k4) |
---|
| 1481 | IMPLICIT NONE |
---|
| 1482 | TYPE(txios(field)) :: field_hdl |
---|
| 1483 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data5d_k4(:,:,:,:,:) |
---|
| 1484 | CALL cxios_read_data_k45_hdl(field_hdl%daddr, data5d_k4, & |
---|
| 1485 | size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), & |
---|
| 1486 | size(data5d_k4, 4), size(data5d_k4, 5)) |
---|
| 1487 | END SUBROUTINE xios(recv_field_r4_5d_hdl) |
---|
| 1488 | |
---|
[932] | 1489 | SUBROUTINE xios(recv_field_r4_5d)(fieldid, data5d_k4) |
---|
| 1490 | IMPLICIT NONE |
---|
| 1491 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1492 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data5d_k4(:,:,:,:,:) |
---|
| 1493 | CALL cxios_read_data_k45(fieldid, len(fieldid), data5d_k4, & |
---|
| 1494 | size(data5d_k4, 1), size(data5d_k4, 2), size(data5d_k4, 3), & |
---|
| 1495 | size(data5d_k4, 4), size(data5d_k4, 5)) |
---|
| 1496 | END SUBROUTINE xios(recv_field_r4_5d) |
---|
| 1497 | |
---|
[2025] | 1498 | SUBROUTINE xios(recv_field_r4_6d_hdl)(field_hdl, data6d_k4) |
---|
| 1499 | IMPLICIT NONE |
---|
| 1500 | TYPE(txios(field)) :: field_hdl |
---|
| 1501 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data6d_k4(:,:,:,:,:,:) |
---|
| 1502 | CALL cxios_read_data_k46_hdl(field_hdl%daddr, data6d_k4, & |
---|
| 1503 | size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), & |
---|
| 1504 | size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6)) |
---|
| 1505 | END SUBROUTINE xios(recv_field_r4_6d_hdl) |
---|
| 1506 | |
---|
[932] | 1507 | SUBROUTINE xios(recv_field_r4_6d)(fieldid, data6d_k4) |
---|
| 1508 | IMPLICIT NONE |
---|
| 1509 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1510 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data6d_k4(:,:,:,:,:,:) |
---|
| 1511 | CALL cxios_read_data_k46(fieldid, len(fieldid), data6d_k4, & |
---|
| 1512 | size(data6d_k4, 1), size(data6d_k4, 2), size(data6d_k4, 3), & |
---|
| 1513 | size(data6d_k4, 4), size(data6d_k4, 5), size(data6d_k4, 6)) |
---|
| 1514 | END SUBROUTINE xios(recv_field_r4_6d) |
---|
| 1515 | |
---|
[2025] | 1516 | SUBROUTINE xios(recv_field_r4_7d_hdl)(field_hdl, data7d_k4) |
---|
| 1517 | IMPLICIT NONE |
---|
| 1518 | TYPE(txios(field)) :: field_hdl |
---|
| 1519 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data7d_k4(:,:,:,:,:,:,:) |
---|
| 1520 | CALL cxios_read_data_k47_hdl(field_hdl%daddr, data7d_k4, & |
---|
| 1521 | size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), & |
---|
| 1522 | size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), & |
---|
| 1523 | size(data7d_k4, 7)) |
---|
| 1524 | END SUBROUTINE xios(recv_field_r4_7d_hdl) |
---|
| 1525 | |
---|
[932] | 1526 | SUBROUTINE xios(recv_field_r4_7d)(fieldid, data7d_k4) |
---|
| 1527 | IMPLICIT NONE |
---|
| 1528 | CHARACTER(len = *) , INTENT(IN) :: fieldid |
---|
| 1529 | REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data7d_k4(:,:,:,:,:,:,:) |
---|
| 1530 | CALL cxios_read_data_k47(fieldid, len(fieldid), data7d_k4, & |
---|
| 1531 | size(data7d_k4, 1), size(data7d_k4, 2), size(data7d_k4, 3), & |
---|
| 1532 | size(data7d_k4, 4), size(data7d_k4, 5), size(data7d_k4, 6), & |
---|
| 1533 | size(data7d_k4, 7)) |
---|
| 1534 | END SUBROUTINE xios(recv_field_r4_7d) |
---|
| 1535 | |
---|
[489] | 1536 | ! Get variable functions |
---|
| 1537 | LOGICAL FUNCTION xios(getVar_k8)(varId, data_k8) |
---|
[2099] | 1538 | USE ISO_C_BINDING |
---|
[489] | 1539 | IMPLICIT NONE |
---|
[2099] | 1540 | LOGICAL (kind = C_BOOL) :: val |
---|
[489] | 1541 | CHARACTER(len = *) , INTENT(IN) :: varId |
---|
| 1542 | REAL (kind = 8) , INTENT(OUT):: data_k8 |
---|
| 1543 | |
---|
| 1544 | CALL cxios_get_variable_data_k8(varId, len(varId), data_k8, val) |
---|
| 1545 | |
---|
[2623] | 1546 | CALL xios_bool_to_logical_0d(val) |
---|
[489] | 1547 | xios(getVar_k8) = val |
---|
| 1548 | END FUNCTION xios(getVar_k8) |
---|
| 1549 | |
---|
| 1550 | LOGICAL FUNCTION xios(getVar_k4)(varId, data_k4) |
---|
[2099] | 1551 | USE ISO_C_BINDING |
---|
[489] | 1552 | IMPLICIT NONE |
---|
[2099] | 1553 | LOGICAL (kind = C_BOOL) :: val |
---|
[489] | 1554 | CHARACTER(len = *) , INTENT(IN) :: varId |
---|
| 1555 | REAL (kind = 4) , INTENT(OUT):: data_k4 |
---|
| 1556 | |
---|
| 1557 | CALL cxios_get_variable_data_k4(varId, len(varId), data_k4, val) |
---|
| 1558 | |
---|
[2623] | 1559 | CALL xios_bool_to_logical_0d(val) |
---|
[489] | 1560 | xios(getVar_k4) = val |
---|
| 1561 | END FUNCTION xios(getVar_k4) |
---|
| 1562 | |
---|
| 1563 | LOGICAL FUNCTION xios(getVar_int)(varId, data_int) |
---|
[2099] | 1564 | USE ISO_C_BINDING |
---|
[489] | 1565 | IMPLICIT NONE |
---|
[2099] | 1566 | LOGICAL (kind = C_BOOL) :: val |
---|
[489] | 1567 | CHARACTER(len = *) , INTENT(IN) :: varId |
---|
| 1568 | INTEGER , INTENT(OUT):: data_int |
---|
| 1569 | |
---|
| 1570 | CALL cxios_get_variable_data_int(varId, len(varId), data_int, val) |
---|
| 1571 | |
---|
[2623] | 1572 | CALL xios_bool_to_logical_0d(val) |
---|
[489] | 1573 | xios(getVar_int) = val |
---|
| 1574 | END FUNCTION xios(getVar_int) |
---|
| 1575 | |
---|
| 1576 | LOGICAL FUNCTION xios(getVar_logic)(varId, data_logic) |
---|
[2099] | 1577 | USE ISO_C_BINDING |
---|
[489] | 1578 | IMPLICIT NONE |
---|
[2099] | 1579 | LOGICAL (kind = C_BOOL) :: val |
---|
[489] | 1580 | CHARACTER(len = *) , INTENT(IN) :: varId |
---|
[2099] | 1581 | LOGICAL ,INTENT(OUT) :: data_logic |
---|
| 1582 | LOGICAL (C_BOOL) :: data_tmp |
---|
[489] | 1583 | |
---|
[2099] | 1584 | CALL cxios_get_variable_data_logic(varId, len(varId), data_tmp, val) |
---|
[2623] | 1585 | CALL xios_bool_to_logical_0d(val) |
---|
[489] | 1586 | xios(getVar_logic) = val |
---|
[2623] | 1587 | IF (val) THEN |
---|
| 1588 | CALL xios_bool_to_logical_0d(data_tmp) |
---|
| 1589 | data_logic = data_tmp |
---|
| 1590 | ENDIF |
---|
[489] | 1591 | END FUNCTION xios(getVar_logic) |
---|
| 1592 | |
---|
| 1593 | LOGICAL FUNCTION xios(getVar_char)(varId, data_char) |
---|
[2099] | 1594 | USE ISO_C_BINDING |
---|
[489] | 1595 | IMPLICIT NONE |
---|
[2099] | 1596 | LOGICAL (kind = C_BOOL) :: val |
---|
[489] | 1597 | CHARACTER(len = *) , INTENT(IN) :: varId |
---|
| 1598 | CHARACTER(len = *) , INTENT(OUT):: data_char |
---|
| 1599 | |
---|
| 1600 | CALL cxios_get_variable_data_char(varId, len(varId), data_char, len(data_char), val) |
---|
| 1601 | |
---|
[2623] | 1602 | CALL xios_bool_to_logical_0d(val) |
---|
[489] | 1603 | xios(getVar_char) = val |
---|
| 1604 | END FUNCTION xios(getVar_char) |
---|
| 1605 | |
---|
| 1606 | ! Set variable functions |
---|
| 1607 | LOGICAL FUNCTION xios(setVar_k8)(varId, data_k8) |
---|
[2099] | 1608 | USE ISO_C_BINDING |
---|
[489] | 1609 | IMPLICIT NONE |
---|
[2099] | 1610 | LOGICAL (kind = C_BOOL) :: val |
---|
[489] | 1611 | CHARACTER(len = *) , INTENT(IN) :: varId |
---|
| 1612 | REAL (kind = 8) , INTENT(IN) :: data_k8 |
---|
| 1613 | |
---|
| 1614 | CALL cxios_set_variable_data_k8(varId, len(varId), data_k8, val) |
---|
| 1615 | |
---|
[2623] | 1616 | CALL xios_bool_to_logical_0d(val) |
---|
[489] | 1617 | xios(setVar_k8) = val |
---|
| 1618 | END FUNCTION xios(setVar_k8) |
---|
| 1619 | |
---|
| 1620 | LOGICAL FUNCTION xios(setVar_k4)(varId, data_k4) |
---|
[2099] | 1621 | USE ISO_C_BINDING |
---|
[489] | 1622 | IMPLICIT NONE |
---|
[2099] | 1623 | LOGICAL (kind = C_BOOL) :: val |
---|
[489] | 1624 | CHARACTER(len = *) , INTENT(IN) :: varId |
---|
| 1625 | REAL (kind = 4) , INTENT(IN) :: data_k4 |
---|
| 1626 | |
---|
| 1627 | CALL cxios_set_variable_data_k4(varId, len(varId), data_k4, val) |
---|
| 1628 | |
---|
[2623] | 1629 | CALL xios_bool_to_logical_0d(val) |
---|
[489] | 1630 | xios(setVar_k4) = val |
---|
| 1631 | END FUNCTION xios(setVar_k4) |
---|
| 1632 | |
---|
| 1633 | LOGICAL FUNCTION xios(setVar_int)(varId, data_int) |
---|
[2099] | 1634 | USE ISO_C_BINDING |
---|
[489] | 1635 | IMPLICIT NONE |
---|
[2099] | 1636 | LOGICAL (kind = C_BOOL) :: val |
---|
[489] | 1637 | CHARACTER(len = *) , INTENT(IN) :: varId |
---|
| 1638 | INTEGER , INTENT(IN) :: data_int |
---|
| 1639 | |
---|
| 1640 | CALL cxios_set_variable_data_int(varId, len(varId), data_int, val) |
---|
| 1641 | |
---|
[2623] | 1642 | CALL xios_bool_to_logical_0d(val) |
---|
[489] | 1643 | xios(setVar_int) = val |
---|
| 1644 | END FUNCTION xios(setVar_int) |
---|
| 1645 | |
---|
| 1646 | LOGICAL FUNCTION xios(setVar_logic)(varId, data_logic) |
---|
[2099] | 1647 | USE ISO_C_BINDING |
---|
[489] | 1648 | IMPLICIT NONE |
---|
[2099] | 1649 | LOGICAL(kind = C_BOOL) :: val |
---|
[489] | 1650 | CHARACTER(len = *) , INTENT(IN) :: varId |
---|
[2099] | 1651 | LOGICAL , INTENT(IN) :: data_logic |
---|
| 1652 | LOGICAL (kind = C_BOOL) :: data_tmp |
---|
[489] | 1653 | |
---|
[2099] | 1654 | data_tmp = data_logic |
---|
[2623] | 1655 | CALL xios_logical_to_bool_0d(data_tmp) |
---|
[2099] | 1656 | CALL cxios_set_variable_data_logic(varId, len(varId), data_tmp, val) |
---|
[489] | 1657 | |
---|
[2623] | 1658 | CALL xios_bool_to_logical_0d(val) |
---|
[489] | 1659 | xios(setVar_logic) = val |
---|
| 1660 | END FUNCTION xios(setVar_logic) |
---|
| 1661 | |
---|
| 1662 | LOGICAL FUNCTION xios(setVar_char)(varId, data_char) |
---|
[2099] | 1663 | USE ISO_C_BINDING |
---|
[489] | 1664 | IMPLICIT NONE |
---|
[2099] | 1665 | LOGICAL (kind = C_BOOL) :: val |
---|
[489] | 1666 | CHARACTER(len = *) , INTENT(IN) :: varId |
---|
| 1667 | CHARACTER(len = *) , INTENT(IN) :: data_char |
---|
| 1668 | |
---|
| 1669 | CALL cxios_set_variable_data_char(varId, len(varId), data_char, len(data_char), val) |
---|
| 1670 | |
---|
[2623] | 1671 | CALL xios_bool_to_logical_0d(val) |
---|
[489] | 1672 | xios(setVar_char) = val |
---|
| 1673 | END FUNCTION xios(setVar_char) |
---|
| 1674 | |
---|
[325] | 1675 | END MODULE IDATA |
---|