Changeset 537 for XIOS/trunk/src/interface/fortran_attr
- Timestamp:
- 12/11/14 14:32:37 (10 years ago)
- Location:
- XIOS/trunk/src/interface/fortran_attr
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/context_interface_attr.F90
r532 r537 56 56 USE IDATE 57 57 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 58 TYPE( xios_date), VALUE :: start_date58 TYPE(txios(date)), VALUE :: start_date 59 59 END SUBROUTINE cxios_set_context_start_date 60 60 … … 77 77 USE IDATE 78 78 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 79 TYPE( xios_date), VALUE :: time_origin79 TYPE(txios(date)), VALUE :: time_origin 80 80 END SUBROUTINE cxios_set_context_time_origin 81 81 … … 94 94 95 95 96 SUBROUTINE cxios_set_context_timestep(context_hdl, timestep , timestep_size) BIND(C)96 SUBROUTINE cxios_set_context_timestep(context_hdl, timestep) BIND(C) 97 97 USE ISO_C_BINDING 98 USE IDATE 98 99 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 99 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: timestep 100 INTEGER (kind = C_INT) , VALUE :: timestep_size 100 TYPE(txios(duration)), VALUE :: timestep 101 101 END SUBROUTINE cxios_set_context_timestep 102 102 103 SUBROUTINE cxios_get_context_timestep(context_hdl, timestep , timestep_size) BIND(C)103 SUBROUTINE cxios_get_context_timestep(context_hdl, timestep) BIND(C) 104 104 USE ISO_C_BINDING 105 USE IDATE 105 106 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 106 CHARACTER(kind = C_CHAR) , DIMENSION(*) :: timestep 107 INTEGER (kind = C_INT) , VALUE :: timestep_size 107 TYPE(txios(duration)) :: timestep 108 108 END SUBROUTINE cxios_get_context_timestep 109 109 -
XIOS/trunk/src/interface/fortran_attr/icontext_attr.F90
r532 r537 21 21 TYPE(txios(date)) , OPTIONAL, INTENT(IN) :: start_date 22 22 TYPE(txios(date)) , OPTIONAL, INTENT(IN) :: time_origin 23 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: timestep23 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: timestep 24 24 25 25 CALL xios(get_context_handle)(context_id,context_hdl) … … 38 38 TYPE(txios(date)) , OPTIONAL, INTENT(IN) :: start_date 39 39 TYPE(txios(date)) , OPTIONAL, INTENT(IN) :: time_origin 40 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: timestep40 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: timestep 41 41 42 42 CALL xios(set_context_attr_hdl_) & … … 54 54 TYPE(txios(date)) , OPTIONAL, INTENT(IN) :: start_date_ 55 55 TYPE(txios(date)) , OPTIONAL, INTENT(IN) :: time_origin_ 56 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: timestep_56 TYPE(txios(duration)) , OPTIONAL, INTENT(IN) :: timestep_ 57 57 58 58 IF (PRESENT(calendar_type_)) THEN … … 73 73 74 74 IF (PRESENT(timestep_)) THEN 75 CALL cxios_set_context_timestep(context_hdl%daddr, timestep_ , len(timestep_))75 CALL cxios_set_context_timestep(context_hdl%daddr, timestep_) 76 76 ENDIF 77 77 … … 90 90 TYPE(txios(date)) , OPTIONAL, INTENT(OUT) :: start_date 91 91 TYPE(txios(date)) , OPTIONAL, INTENT(OUT) :: time_origin 92 CHARACTER(len = *), OPTIONAL, INTENT(OUT) :: timestep92 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: timestep 93 93 94 94 CALL xios(get_context_handle)(context_id,context_hdl) … … 107 107 TYPE(txios(date)) , OPTIONAL, INTENT(OUT) :: start_date 108 108 TYPE(txios(date)) , OPTIONAL, INTENT(OUT) :: time_origin 109 CHARACTER(len = *), OPTIONAL, INTENT(OUT) :: timestep109 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: timestep 110 110 111 111 CALL xios(get_context_attr_hdl_) & … … 123 123 TYPE(txios(date)) , OPTIONAL, INTENT(OUT) :: start_date_ 124 124 TYPE(txios(date)) , OPTIONAL, INTENT(OUT) :: time_origin_ 125 CHARACTER(len = *), OPTIONAL, INTENT(OUT) :: timestep_125 TYPE(txios(duration)) , OPTIONAL, INTENT(OUT) :: timestep_ 126 126 127 127 IF (PRESENT(calendar_type_)) THEN … … 142 142 143 143 IF (PRESENT(timestep_)) THEN 144 CALL cxios_get_context_timestep(context_hdl%daddr, timestep_ , len(timestep_))144 CALL cxios_get_context_timestep(context_hdl%daddr, timestep_) 145 145 ENDIF 146 146
Note: See TracChangeset
for help on using the changeset viewer.