Changeset 961 for XIOS/trunk/src/interface/fortran/idata.F90
- Timestamp:
- 10/04/16 18:59:37 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran/idata.F90
r932 r961 206 206 207 207 ! Read data 208 SUBROUTINE cxios_read_data_k80(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C) 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_Xsize 214 END SUBROUTINE cxios_read_data_k80 215 208 216 SUBROUTINE cxios_read_data_k81(fieldid, fieldid_size, data_k8, data_Xsize) BIND(C) 209 217 USE ISO_C_BINDING … … 275 283 INTEGER (kind = C_INT) , VALUE :: data_6size 276 284 END SUBROUTINE cxios_read_data_k87 285 286 SUBROUTINE cxios_read_data_k40(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C) 287 USE ISO_C_BINDING 288 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid 289 REAL (kind = C_FLOAT) , DIMENSION(*) :: data_k4 290 INTEGER (kind = C_INT) , VALUE :: fieldid_size 291 INTEGER (kind = C_INT) , VALUE :: data_Xsize 292 END SUBROUTINE cxios_read_data_k40 277 293 278 294 SUBROUTINE cxios_read_data_k41(fieldid, fieldid_size, data_k4, data_Xsize) BIND(C) … … 640 656 641 657 ! Receive field functions 658 SUBROUTINE xios(recv_field_r8_0d)(fieldid, data1d_k8) 659 IMPLICIT NONE 660 CHARACTER(len = *) , INTENT(IN) :: fieldid 661 REAL (kind = 8), DIMENSION(*), INTENT(OUT) :: data1d_k8(:) 662 CALL cxios_read_data_k80(fieldid, len(fieldid), data1d_k8, size(data1d_k8, 1)) 663 END SUBROUTINE xios(recv_field_r8_0d) 664 642 665 SUBROUTINE xios(recv_field_r8_1d)(fieldid, data1d_k8) 643 666 IMPLICIT NONE … … 698 721 END SUBROUTINE xios(recv_field_r8_7d) 699 722 723 SUBROUTINE xios(recv_field_r4_0d)(fieldid, data0d_k4) 724 IMPLICIT NONE 725 CHARACTER(len = *) , INTENT(IN) :: fieldid 726 REAL (kind = 4), DIMENSION(*), INTENT(OUT) :: data0d_k4(:) 727 CALL cxios_read_data_k40(fieldid, len(fieldid), data0d_k4, size(data0d_k4, 1)) 728 END SUBROUTINE xios(recv_field_r4_0d) 729 700 730 SUBROUTINE xios(recv_field_r4_1d)(fieldid, data1d_k4) 701 731 IMPLICIT NONE
Note: See TracChangeset
for help on using the changeset viewer.