- Timestamp:
- 07/05/16 15:59:23 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/iinterpolate_axis_attr.F90
r786 r891 12 12 13 13 SUBROUTINE xios(set_interpolate_axis_attr) & 14 ( interpolate_axis_id, order, type )14 ( interpolate_axis_id, coordinate, order, type ) 15 15 16 16 IMPLICIT NONE 17 17 TYPE(txios(interpolate_axis)) :: interpolate_axis_hdl 18 18 CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id 19 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate 19 20 INTEGER , OPTIONAL, INTENT(IN) :: order 20 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type … … 22 23 CALL xios(get_interpolate_axis_handle)(interpolate_axis_id,interpolate_axis_hdl) 23 24 CALL xios(set_interpolate_axis_attr_hdl_) & 24 ( interpolate_axis_hdl, order, type )25 ( interpolate_axis_hdl, coordinate, order, type ) 25 26 26 27 END SUBROUTINE xios(set_interpolate_axis_attr) 27 28 28 29 SUBROUTINE xios(set_interpolate_axis_attr_hdl) & 29 ( interpolate_axis_hdl, order, type )30 ( interpolate_axis_hdl, coordinate, order, type ) 30 31 31 32 IMPLICIT NONE 32 33 TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl 34 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate 33 35 INTEGER , OPTIONAL, INTENT(IN) :: order 34 36 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 35 37 36 38 CALL xios(set_interpolate_axis_attr_hdl_) & 37 ( interpolate_axis_hdl, order, type )39 ( interpolate_axis_hdl, coordinate, order, type ) 38 40 39 41 END SUBROUTINE xios(set_interpolate_axis_attr_hdl) 40 42 41 43 SUBROUTINE xios(set_interpolate_axis_attr_hdl_) & 42 ( interpolate_axis_hdl, order_, type_ )44 ( interpolate_axis_hdl, coordinate_, order_, type_ ) 43 45 44 46 IMPLICIT NONE 45 47 TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl 48 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: coordinate_ 46 49 INTEGER , OPTIONAL, INTENT(IN) :: order_ 47 50 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 51 52 IF (PRESENT(coordinate_)) THEN 53 CALL cxios_set_interpolate_axis_coordinate(interpolate_axis_hdl%daddr, coordinate_, len(coordinate_)) 54 ENDIF 48 55 49 56 IF (PRESENT(order_)) THEN … … 58 65 59 66 SUBROUTINE xios(get_interpolate_axis_attr) & 60 ( interpolate_axis_id, order, type )67 ( interpolate_axis_id, coordinate, order, type ) 61 68 62 69 IMPLICIT NONE 63 70 TYPE(txios(interpolate_axis)) :: interpolate_axis_hdl 64 71 CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id 72 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate 65 73 INTEGER , OPTIONAL, INTENT(OUT) :: order 66 74 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type … … 68 76 CALL xios(get_interpolate_axis_handle)(interpolate_axis_id,interpolate_axis_hdl) 69 77 CALL xios(get_interpolate_axis_attr_hdl_) & 70 ( interpolate_axis_hdl, order, type )78 ( interpolate_axis_hdl, coordinate, order, type ) 71 79 72 80 END SUBROUTINE xios(get_interpolate_axis_attr) 73 81 74 82 SUBROUTINE xios(get_interpolate_axis_attr_hdl) & 75 ( interpolate_axis_hdl, order, type )83 ( interpolate_axis_hdl, coordinate, order, type ) 76 84 77 85 IMPLICIT NONE 78 86 TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl 87 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate 79 88 INTEGER , OPTIONAL, INTENT(OUT) :: order 80 89 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 81 90 82 91 CALL xios(get_interpolate_axis_attr_hdl_) & 83 ( interpolate_axis_hdl, order, type )92 ( interpolate_axis_hdl, coordinate, order, type ) 84 93 85 94 END SUBROUTINE xios(get_interpolate_axis_attr_hdl) 86 95 87 96 SUBROUTINE xios(get_interpolate_axis_attr_hdl_) & 88 ( interpolate_axis_hdl, order_, type_ )97 ( interpolate_axis_hdl, coordinate_, order_, type_ ) 89 98 90 99 IMPLICIT NONE 91 100 TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl 101 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: coordinate_ 92 102 INTEGER , OPTIONAL, INTENT(OUT) :: order_ 93 103 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 104 105 IF (PRESENT(coordinate_)) THEN 106 CALL cxios_get_interpolate_axis_coordinate(interpolate_axis_hdl%daddr, coordinate_, len(coordinate_)) 107 ENDIF 94 108 95 109 IF (PRESENT(order_)) THEN … … 104 118 105 119 SUBROUTINE xios(is_defined_interpolate_axis_attr) & 106 ( interpolate_axis_id, order, type )120 ( interpolate_axis_id, coordinate, order, type ) 107 121 108 122 IMPLICIT NONE 109 123 TYPE(txios(interpolate_axis)) :: interpolate_axis_hdl 110 124 CHARACTER(LEN=*), INTENT(IN) ::interpolate_axis_id 125 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate 126 LOGICAL(KIND=C_BOOL) :: coordinate_tmp 111 127 LOGICAL, OPTIONAL, INTENT(OUT) :: order 112 128 LOGICAL(KIND=C_BOOL) :: order_tmp … … 116 132 CALL xios(get_interpolate_axis_handle)(interpolate_axis_id,interpolate_axis_hdl) 117 133 CALL xios(is_defined_interpolate_axis_attr_hdl_) & 118 ( interpolate_axis_hdl, order, type )134 ( interpolate_axis_hdl, coordinate, order, type ) 119 135 120 136 END SUBROUTINE xios(is_defined_interpolate_axis_attr) 121 137 122 138 SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl) & 123 ( interpolate_axis_hdl, order, type )139 ( interpolate_axis_hdl, coordinate, order, type ) 124 140 125 141 IMPLICIT NONE 126 142 TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl 143 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate 144 LOGICAL(KIND=C_BOOL) :: coordinate_tmp 127 145 LOGICAL, OPTIONAL, INTENT(OUT) :: order 128 146 LOGICAL(KIND=C_BOOL) :: order_tmp … … 131 149 132 150 CALL xios(is_defined_interpolate_axis_attr_hdl_) & 133 ( interpolate_axis_hdl, order, type )151 ( interpolate_axis_hdl, coordinate, order, type ) 134 152 135 153 END SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl) 136 154 137 155 SUBROUTINE xios(is_defined_interpolate_axis_attr_hdl_) & 138 ( interpolate_axis_hdl, order_, type_ )156 ( interpolate_axis_hdl, coordinate_, order_, type_ ) 139 157 140 158 IMPLICIT NONE 141 159 TYPE(txios(interpolate_axis)) , INTENT(IN) :: interpolate_axis_hdl 160 LOGICAL, OPTIONAL, INTENT(OUT) :: coordinate_ 161 LOGICAL(KIND=C_BOOL) :: coordinate__tmp 142 162 LOGICAL, OPTIONAL, INTENT(OUT) :: order_ 143 163 LOGICAL(KIND=C_BOOL) :: order__tmp 144 164 LOGICAL, OPTIONAL, INTENT(OUT) :: type_ 145 165 LOGICAL(KIND=C_BOOL) :: type__tmp 166 167 IF (PRESENT(coordinate_)) THEN 168 coordinate__tmp = cxios_is_defined_interpolate_axis_coordinate(interpolate_axis_hdl%daddr) 169 coordinate_ = coordinate__tmp 170 ENDIF 146 171 147 172 IF (PRESENT(order_)) THEN
Note: See TracChangeset
for help on using the changeset viewer.