Changeset 1205 for XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/iinterpolate_domain_attr.F90
- Timestamp:
- 07/10/17 18:17:04 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/branch_yushan_merged/src/interface/fortran_attr/iinterpolate_domain_attr.F90
r1040 r1205 12 12 13 13 SUBROUTINE xios(set_interpolate_domain_attr) & 14 ( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )14 ( interpolate_domain_id, mode, order, quantity, renormalize, weight_filename, write_weight ) 15 15 16 16 IMPLICIT NONE … … 19 19 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode 20 20 INTEGER , OPTIONAL, INTENT(IN) :: order 21 LOGICAL , OPTIONAL, INTENT(IN) :: quantity 22 LOGICAL (KIND=C_BOOL) :: quantity_tmp 21 23 LOGICAL , OPTIONAL, INTENT(IN) :: renormalize 22 24 LOGICAL (KIND=C_BOOL) :: renormalize_tmp … … 28 30 (interpolate_domain_id,interpolate_domain_hdl) 29 31 CALL xios(set_interpolate_domain_attr_hdl_) & 30 ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight ) 32 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 33 ) 31 34 32 35 END SUBROUTINE xios(set_interpolate_domain_attr) 33 36 34 37 SUBROUTINE xios(set_interpolate_domain_attr_hdl) & 35 ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight ) 38 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 39 ) 36 40 37 41 IMPLICIT NONE … … 39 43 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode 40 44 INTEGER , OPTIONAL, INTENT(IN) :: order 45 LOGICAL , OPTIONAL, INTENT(IN) :: quantity 46 LOGICAL (KIND=C_BOOL) :: quantity_tmp 41 47 LOGICAL , OPTIONAL, INTENT(IN) :: renormalize 42 48 LOGICAL (KIND=C_BOOL) :: renormalize_tmp … … 46 52 47 53 CALL xios(set_interpolate_domain_attr_hdl_) & 48 ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight ) 54 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 55 ) 49 56 50 57 END SUBROUTINE xios(set_interpolate_domain_attr_hdl) 51 58 52 59 SUBROUTINE xios(set_interpolate_domain_attr_hdl_) & 53 ( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ ) 60 ( interpolate_domain_hdl, mode_, order_, quantity_, renormalize_, weight_filename_, write_weight_ & 61 ) 54 62 55 63 IMPLICIT NONE … … 57 65 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_ 58 66 INTEGER , OPTIONAL, INTENT(IN) :: order_ 67 LOGICAL , OPTIONAL, INTENT(IN) :: quantity_ 68 LOGICAL (KIND=C_BOOL) :: quantity__tmp 59 69 LOGICAL , OPTIONAL, INTENT(IN) :: renormalize_ 60 70 LOGICAL (KIND=C_BOOL) :: renormalize__tmp … … 73 83 ENDIF 74 84 85 IF (PRESENT(quantity_)) THEN 86 quantity__tmp = quantity_ 87 CALL cxios_set_interpolate_domain_quantity & 88 (interpolate_domain_hdl%daddr, quantity__tmp) 89 ENDIF 90 75 91 IF (PRESENT(renormalize_)) THEN 76 92 renormalize__tmp = renormalize_ … … 93 109 94 110 SUBROUTINE xios(get_interpolate_domain_attr) & 95 ( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )111 ( interpolate_domain_id, mode, order, quantity, renormalize, weight_filename, write_weight ) 96 112 97 113 IMPLICIT NONE … … 100 116 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode 101 117 INTEGER , OPTIONAL, INTENT(OUT) :: order 118 LOGICAL , OPTIONAL, INTENT(OUT) :: quantity 119 LOGICAL (KIND=C_BOOL) :: quantity_tmp 102 120 LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize 103 121 LOGICAL (KIND=C_BOOL) :: renormalize_tmp … … 109 127 (interpolate_domain_id,interpolate_domain_hdl) 110 128 CALL xios(get_interpolate_domain_attr_hdl_) & 111 ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight ) 129 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 130 ) 112 131 113 132 END SUBROUTINE xios(get_interpolate_domain_attr) 114 133 115 134 SUBROUTINE xios(get_interpolate_domain_attr_hdl) & 116 ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight ) 135 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 136 ) 117 137 118 138 IMPLICIT NONE … … 120 140 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode 121 141 INTEGER , OPTIONAL, INTENT(OUT) :: order 142 LOGICAL , OPTIONAL, INTENT(OUT) :: quantity 143 LOGICAL (KIND=C_BOOL) :: quantity_tmp 122 144 LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize 123 145 LOGICAL (KIND=C_BOOL) :: renormalize_tmp … … 127 149 128 150 CALL xios(get_interpolate_domain_attr_hdl_) & 129 ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight ) 151 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 152 ) 130 153 131 154 END SUBROUTINE xios(get_interpolate_domain_attr_hdl) 132 155 133 156 SUBROUTINE xios(get_interpolate_domain_attr_hdl_) & 134 ( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ ) 157 ( interpolate_domain_hdl, mode_, order_, quantity_, renormalize_, weight_filename_, write_weight_ & 158 ) 135 159 136 160 IMPLICIT NONE … … 138 162 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_ 139 163 INTEGER , OPTIONAL, INTENT(OUT) :: order_ 164 LOGICAL , OPTIONAL, INTENT(OUT) :: quantity_ 165 LOGICAL (KIND=C_BOOL) :: quantity__tmp 140 166 LOGICAL , OPTIONAL, INTENT(OUT) :: renormalize_ 141 167 LOGICAL (KIND=C_BOOL) :: renormalize__tmp … … 154 180 ENDIF 155 181 182 IF (PRESENT(quantity_)) THEN 183 CALL cxios_get_interpolate_domain_quantity & 184 (interpolate_domain_hdl%daddr, quantity__tmp) 185 quantity_ = quantity__tmp 186 ENDIF 187 156 188 IF (PRESENT(renormalize_)) THEN 157 189 CALL cxios_get_interpolate_domain_renormalize & … … 174 206 175 207 SUBROUTINE xios(is_defined_interpolate_domain_attr) & 176 ( interpolate_domain_id, mode, order, renormalize, weight_filename, write_weight )208 ( interpolate_domain_id, mode, order, quantity, renormalize, weight_filename, write_weight ) 177 209 178 210 IMPLICIT NONE … … 183 215 LOGICAL, OPTIONAL, INTENT(OUT) :: order 184 216 LOGICAL(KIND=C_BOOL) :: order_tmp 217 LOGICAL, OPTIONAL, INTENT(OUT) :: quantity 218 LOGICAL(KIND=C_BOOL) :: quantity_tmp 185 219 LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 186 220 LOGICAL(KIND=C_BOOL) :: renormalize_tmp … … 193 227 (interpolate_domain_id,interpolate_domain_hdl) 194 228 CALL xios(is_defined_interpolate_domain_attr_hdl_) & 195 ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight ) 229 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 230 ) 196 231 197 232 END SUBROUTINE xios(is_defined_interpolate_domain_attr) 198 233 199 234 SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) & 200 ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight ) 235 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 236 ) 201 237 202 238 IMPLICIT NONE … … 206 242 LOGICAL, OPTIONAL, INTENT(OUT) :: order 207 243 LOGICAL(KIND=C_BOOL) :: order_tmp 244 LOGICAL, OPTIONAL, INTENT(OUT) :: quantity 245 LOGICAL(KIND=C_BOOL) :: quantity_tmp 208 246 LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 209 247 LOGICAL(KIND=C_BOOL) :: renormalize_tmp … … 214 252 215 253 CALL xios(is_defined_interpolate_domain_attr_hdl_) & 216 ( interpolate_domain_hdl, mode, order, renormalize, weight_filename, write_weight ) 254 ( interpolate_domain_hdl, mode, order, quantity, renormalize, weight_filename, write_weight & 255 ) 217 256 218 257 END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) 219 258 220 259 SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_) & 221 ( interpolate_domain_hdl, mode_, order_, renormalize_, weight_filename_, write_weight_ ) 260 ( interpolate_domain_hdl, mode_, order_, quantity_, renormalize_, weight_filename_, write_weight_ & 261 ) 222 262 223 263 IMPLICIT NONE … … 227 267 LOGICAL, OPTIONAL, INTENT(OUT) :: order_ 228 268 LOGICAL(KIND=C_BOOL) :: order__tmp 269 LOGICAL, OPTIONAL, INTENT(OUT) :: quantity_ 270 LOGICAL(KIND=C_BOOL) :: quantity__tmp 229 271 LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_ 230 272 LOGICAL(KIND=C_BOOL) :: renormalize__tmp … … 246 288 ENDIF 247 289 290 IF (PRESENT(quantity_)) THEN 291 quantity__tmp = cxios_is_defined_interpolate_domain_quantity & 292 (interpolate_domain_hdl%daddr) 293 quantity_ = quantity__tmp 294 ENDIF 295 248 296 IF (PRESENT(renormalize_)) THEN 249 297 renormalize__tmp = cxios_is_defined_interpolate_domain_renormalize &
Note: See TracChangeset
for help on using the changeset viewer.