Changeset 965 for XIOS/trunk
- Timestamp:
- 10/04/16 20:03:38 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran/idata.F90
r961 r965 209 209 USE ISO_C_BINDING 210 210 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid 211 REAL (kind = C_DOUBLE) , DIMENSION(*):: data_k8211 REAL (kind = C_DOUBLE) :: data_k8 212 212 INTEGER (kind = C_INT) , VALUE :: fieldid_size 213 213 INTEGER (kind = C_INT) , VALUE :: data_Xsize … … 287 287 USE ISO_C_BINDING 288 288 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: fieldid 289 REAL (kind = C_FLOAT) , DIMENSION(*):: data_k4289 REAL (kind = C_FLOAT) :: data_k4 290 290 INTEGER (kind = C_INT) , VALUE :: fieldid_size 291 291 INTEGER (kind = C_INT) , VALUE :: data_Xsize … … 656 656 657 657 ! Receive field functions 658 SUBROUTINE xios(recv_field_r8_0d)(fieldid, data 1d_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), data 1d_k8, size(data1d_k8, 1))658 SUBROUTINE xios(recv_field_r8_0d)(fieldid, data0d_k8) 659 IMPLICIT NONE 660 CHARACTER(len = *) , INTENT(IN) :: fieldid 661 REAL (kind = 8) , INTENT(OUT):: data0d_k8 662 CALL cxios_read_data_k80(fieldid, len(fieldid), data0d_k8, 1) 663 663 END SUBROUTINE xios(recv_field_r8_0d) 664 664 … … 724 724 IMPLICIT NONE 725 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))726 REAL (kind = 4) , INTENT(OUT):: data0d_k4 727 CALL cxios_read_data_k40(fieldid, len(fieldid), data0d_k4, 1) 728 728 END SUBROUTINE xios(recv_field_r4_0d) 729 729
Note: See TracChangeset
for help on using the changeset viewer.