[786] | 1 | ! * ************************************************************************** * |
---|
| 2 | ! * Interface auto generated - do not modify * |
---|
| 3 | ! * ************************************************************************** * |
---|
| 4 | #include "xios_fortran_prefix.hpp" |
---|
| 5 | |
---|
| 6 | MODULE igenerate_rectilinear_domain_attr |
---|
| 7 | USE, INTRINSIC :: ISO_C_BINDING |
---|
| 8 | USE igenerate_rectilinear_domain |
---|
| 9 | USE generate_rectilinear_domain_interface_attr |
---|
| 10 | |
---|
| 11 | CONTAINS |
---|
| 12 | |
---|
| 13 | SUBROUTINE xios(set_generate_rectilinear_domain_attr) & |
---|
| 14 | ( generate_rectilinear_domain_id, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 15 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 16 | |
---|
| 17 | IMPLICIT NONE |
---|
| 18 | TYPE(txios(generate_rectilinear_domain)) :: generate_rectilinear_domain_hdl |
---|
| 19 | CHARACTER(LEN=*), INTENT(IN) ::generate_rectilinear_domain_id |
---|
| 20 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_end |
---|
| 21 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_start |
---|
| 22 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_end |
---|
| 23 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_start |
---|
| 24 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_end |
---|
| 25 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_start |
---|
| 26 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_end |
---|
| 27 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_start |
---|
| 28 | |
---|
[966] | 29 | CALL xios(get_generate_rectilinear_domain_handle) & |
---|
| 30 | (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) |
---|
[786] | 31 | CALL xios(set_generate_rectilinear_domain_attr_hdl_) & |
---|
| 32 | ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 33 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 34 | |
---|
| 35 | END SUBROUTINE xios(set_generate_rectilinear_domain_attr) |
---|
| 36 | |
---|
| 37 | SUBROUTINE xios(set_generate_rectilinear_domain_attr_hdl) & |
---|
| 38 | ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 39 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 40 | |
---|
| 41 | IMPLICIT NONE |
---|
| 42 | TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl |
---|
| 43 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_end |
---|
| 44 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_start |
---|
| 45 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_end |
---|
| 46 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_start |
---|
| 47 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_end |
---|
| 48 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_start |
---|
| 49 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_end |
---|
| 50 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_start |
---|
| 51 | |
---|
| 52 | CALL xios(set_generate_rectilinear_domain_attr_hdl_) & |
---|
| 53 | ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 54 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 55 | |
---|
| 56 | END SUBROUTINE xios(set_generate_rectilinear_domain_attr_hdl) |
---|
| 57 | |
---|
| 58 | SUBROUTINE xios(set_generate_rectilinear_domain_attr_hdl_) & |
---|
| 59 | ( generate_rectilinear_domain_hdl, bounds_lat_end_, bounds_lat_start_, bounds_lon_end_, bounds_lon_start_ & |
---|
| 60 | , lat_end_, lat_start_, lon_end_, lon_start_ ) |
---|
| 61 | |
---|
| 62 | IMPLICIT NONE |
---|
| 63 | TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl |
---|
| 64 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_end_ |
---|
| 65 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lat_start_ |
---|
| 66 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_end_ |
---|
| 67 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: bounds_lon_start_ |
---|
| 68 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_end_ |
---|
| 69 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lat_start_ |
---|
| 70 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_end_ |
---|
| 71 | REAL (KIND=8) , OPTIONAL, INTENT(IN) :: lon_start_ |
---|
| 72 | |
---|
| 73 | IF (PRESENT(bounds_lat_end_)) THEN |
---|
[966] | 74 | CALL cxios_set_generate_rectilinear_domain_bounds_lat_end & |
---|
| 75 | (generate_rectilinear_domain_hdl%daddr, bounds_lat_end_) |
---|
[786] | 76 | ENDIF |
---|
| 77 | |
---|
| 78 | IF (PRESENT(bounds_lat_start_)) THEN |
---|
[966] | 79 | CALL cxios_set_generate_rectilinear_domain_bounds_lat_start & |
---|
| 80 | (generate_rectilinear_domain_hdl%daddr, bounds_lat_start_) |
---|
[786] | 81 | ENDIF |
---|
| 82 | |
---|
| 83 | IF (PRESENT(bounds_lon_end_)) THEN |
---|
[966] | 84 | CALL cxios_set_generate_rectilinear_domain_bounds_lon_end & |
---|
| 85 | (generate_rectilinear_domain_hdl%daddr, bounds_lon_end_) |
---|
[786] | 86 | ENDIF |
---|
| 87 | |
---|
| 88 | IF (PRESENT(bounds_lon_start_)) THEN |
---|
[966] | 89 | CALL cxios_set_generate_rectilinear_domain_bounds_lon_start & |
---|
| 90 | (generate_rectilinear_domain_hdl%daddr, bounds_lon_start_) |
---|
[786] | 91 | ENDIF |
---|
| 92 | |
---|
| 93 | IF (PRESENT(lat_end_)) THEN |
---|
[966] | 94 | CALL cxios_set_generate_rectilinear_domain_lat_end & |
---|
| 95 | (generate_rectilinear_domain_hdl%daddr, lat_end_) |
---|
[786] | 96 | ENDIF |
---|
| 97 | |
---|
| 98 | IF (PRESENT(lat_start_)) THEN |
---|
[966] | 99 | CALL cxios_set_generate_rectilinear_domain_lat_start & |
---|
| 100 | (generate_rectilinear_domain_hdl%daddr, lat_start_) |
---|
[786] | 101 | ENDIF |
---|
| 102 | |
---|
| 103 | IF (PRESENT(lon_end_)) THEN |
---|
[966] | 104 | CALL cxios_set_generate_rectilinear_domain_lon_end & |
---|
| 105 | (generate_rectilinear_domain_hdl%daddr, lon_end_) |
---|
[786] | 106 | ENDIF |
---|
| 107 | |
---|
| 108 | IF (PRESENT(lon_start_)) THEN |
---|
[966] | 109 | CALL cxios_set_generate_rectilinear_domain_lon_start & |
---|
| 110 | (generate_rectilinear_domain_hdl%daddr, lon_start_) |
---|
[786] | 111 | ENDIF |
---|
| 112 | |
---|
| 113 | END SUBROUTINE xios(set_generate_rectilinear_domain_attr_hdl_) |
---|
| 114 | |
---|
| 115 | SUBROUTINE xios(get_generate_rectilinear_domain_attr) & |
---|
| 116 | ( generate_rectilinear_domain_id, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 117 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 118 | |
---|
| 119 | IMPLICIT NONE |
---|
| 120 | TYPE(txios(generate_rectilinear_domain)) :: generate_rectilinear_domain_hdl |
---|
| 121 | CHARACTER(LEN=*), INTENT(IN) ::generate_rectilinear_domain_id |
---|
| 122 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_end |
---|
| 123 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_start |
---|
| 124 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_end |
---|
| 125 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_start |
---|
| 126 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_end |
---|
| 127 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_start |
---|
| 128 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_end |
---|
| 129 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_start |
---|
| 130 | |
---|
[966] | 131 | CALL xios(get_generate_rectilinear_domain_handle) & |
---|
| 132 | (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) |
---|
[786] | 133 | CALL xios(get_generate_rectilinear_domain_attr_hdl_) & |
---|
| 134 | ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 135 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 136 | |
---|
| 137 | END SUBROUTINE xios(get_generate_rectilinear_domain_attr) |
---|
| 138 | |
---|
| 139 | SUBROUTINE xios(get_generate_rectilinear_domain_attr_hdl) & |
---|
| 140 | ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 141 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 142 | |
---|
| 143 | IMPLICIT NONE |
---|
| 144 | TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl |
---|
| 145 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_end |
---|
| 146 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_start |
---|
| 147 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_end |
---|
| 148 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_start |
---|
| 149 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_end |
---|
| 150 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_start |
---|
| 151 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_end |
---|
| 152 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_start |
---|
| 153 | |
---|
| 154 | CALL xios(get_generate_rectilinear_domain_attr_hdl_) & |
---|
| 155 | ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 156 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 157 | |
---|
| 158 | END SUBROUTINE xios(get_generate_rectilinear_domain_attr_hdl) |
---|
| 159 | |
---|
| 160 | SUBROUTINE xios(get_generate_rectilinear_domain_attr_hdl_) & |
---|
| 161 | ( generate_rectilinear_domain_hdl, bounds_lat_end_, bounds_lat_start_, bounds_lon_end_, bounds_lon_start_ & |
---|
| 162 | , lat_end_, lat_start_, lon_end_, lon_start_ ) |
---|
| 163 | |
---|
| 164 | IMPLICIT NONE |
---|
| 165 | TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl |
---|
| 166 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_end_ |
---|
| 167 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lat_start_ |
---|
| 168 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_end_ |
---|
| 169 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: bounds_lon_start_ |
---|
| 170 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_end_ |
---|
| 171 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lat_start_ |
---|
| 172 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_end_ |
---|
| 173 | REAL (KIND=8) , OPTIONAL, INTENT(OUT) :: lon_start_ |
---|
| 174 | |
---|
| 175 | IF (PRESENT(bounds_lat_end_)) THEN |
---|
[966] | 176 | CALL cxios_get_generate_rectilinear_domain_bounds_lat_end & |
---|
| 177 | (generate_rectilinear_domain_hdl%daddr, bounds_lat_end_) |
---|
[786] | 178 | ENDIF |
---|
| 179 | |
---|
| 180 | IF (PRESENT(bounds_lat_start_)) THEN |
---|
[966] | 181 | CALL cxios_get_generate_rectilinear_domain_bounds_lat_start & |
---|
| 182 | (generate_rectilinear_domain_hdl%daddr, bounds_lat_start_) |
---|
[786] | 183 | ENDIF |
---|
| 184 | |
---|
| 185 | IF (PRESENT(bounds_lon_end_)) THEN |
---|
[966] | 186 | CALL cxios_get_generate_rectilinear_domain_bounds_lon_end & |
---|
| 187 | (generate_rectilinear_domain_hdl%daddr, bounds_lon_end_) |
---|
[786] | 188 | ENDIF |
---|
| 189 | |
---|
| 190 | IF (PRESENT(bounds_lon_start_)) THEN |
---|
[966] | 191 | CALL cxios_get_generate_rectilinear_domain_bounds_lon_start & |
---|
| 192 | (generate_rectilinear_domain_hdl%daddr, bounds_lon_start_) |
---|
[786] | 193 | ENDIF |
---|
| 194 | |
---|
| 195 | IF (PRESENT(lat_end_)) THEN |
---|
[966] | 196 | CALL cxios_get_generate_rectilinear_domain_lat_end & |
---|
| 197 | (generate_rectilinear_domain_hdl%daddr, lat_end_) |
---|
[786] | 198 | ENDIF |
---|
| 199 | |
---|
| 200 | IF (PRESENT(lat_start_)) THEN |
---|
[966] | 201 | CALL cxios_get_generate_rectilinear_domain_lat_start & |
---|
| 202 | (generate_rectilinear_domain_hdl%daddr, lat_start_) |
---|
[786] | 203 | ENDIF |
---|
| 204 | |
---|
| 205 | IF (PRESENT(lon_end_)) THEN |
---|
[966] | 206 | CALL cxios_get_generate_rectilinear_domain_lon_end & |
---|
| 207 | (generate_rectilinear_domain_hdl%daddr, lon_end_) |
---|
[786] | 208 | ENDIF |
---|
| 209 | |
---|
| 210 | IF (PRESENT(lon_start_)) THEN |
---|
[966] | 211 | CALL cxios_get_generate_rectilinear_domain_lon_start & |
---|
| 212 | (generate_rectilinear_domain_hdl%daddr, lon_start_) |
---|
[786] | 213 | ENDIF |
---|
| 214 | |
---|
| 215 | END SUBROUTINE xios(get_generate_rectilinear_domain_attr_hdl_) |
---|
| 216 | |
---|
| 217 | SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr) & |
---|
| 218 | ( generate_rectilinear_domain_id, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 219 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 220 | |
---|
| 221 | IMPLICIT NONE |
---|
| 222 | TYPE(txios(generate_rectilinear_domain)) :: generate_rectilinear_domain_hdl |
---|
| 223 | CHARACTER(LEN=*), INTENT(IN) ::generate_rectilinear_domain_id |
---|
| 224 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_end |
---|
| 225 | LOGICAL(KIND=C_BOOL) :: bounds_lat_end_tmp |
---|
| 226 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_start |
---|
| 227 | LOGICAL(KIND=C_BOOL) :: bounds_lat_start_tmp |
---|
| 228 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_end |
---|
| 229 | LOGICAL(KIND=C_BOOL) :: bounds_lon_end_tmp |
---|
| 230 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_start |
---|
| 231 | LOGICAL(KIND=C_BOOL) :: bounds_lon_start_tmp |
---|
| 232 | LOGICAL, OPTIONAL, INTENT(OUT) :: lat_end |
---|
| 233 | LOGICAL(KIND=C_BOOL) :: lat_end_tmp |
---|
| 234 | LOGICAL, OPTIONAL, INTENT(OUT) :: lat_start |
---|
| 235 | LOGICAL(KIND=C_BOOL) :: lat_start_tmp |
---|
| 236 | LOGICAL, OPTIONAL, INTENT(OUT) :: lon_end |
---|
| 237 | LOGICAL(KIND=C_BOOL) :: lon_end_tmp |
---|
| 238 | LOGICAL, OPTIONAL, INTENT(OUT) :: lon_start |
---|
| 239 | LOGICAL(KIND=C_BOOL) :: lon_start_tmp |
---|
| 240 | |
---|
[966] | 241 | CALL xios(get_generate_rectilinear_domain_handle) & |
---|
| 242 | (generate_rectilinear_domain_id,generate_rectilinear_domain_hdl) |
---|
[786] | 243 | CALL xios(is_defined_generate_rectilinear_domain_attr_hdl_) & |
---|
| 244 | ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 245 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 246 | |
---|
| 247 | END SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr) |
---|
| 248 | |
---|
| 249 | SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr_hdl) & |
---|
| 250 | ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 251 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 252 | |
---|
| 253 | IMPLICIT NONE |
---|
| 254 | TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl |
---|
| 255 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_end |
---|
| 256 | LOGICAL(KIND=C_BOOL) :: bounds_lat_end_tmp |
---|
| 257 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_start |
---|
| 258 | LOGICAL(KIND=C_BOOL) :: bounds_lat_start_tmp |
---|
| 259 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_end |
---|
| 260 | LOGICAL(KIND=C_BOOL) :: bounds_lon_end_tmp |
---|
| 261 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_start |
---|
| 262 | LOGICAL(KIND=C_BOOL) :: bounds_lon_start_tmp |
---|
| 263 | LOGICAL, OPTIONAL, INTENT(OUT) :: lat_end |
---|
| 264 | LOGICAL(KIND=C_BOOL) :: lat_end_tmp |
---|
| 265 | LOGICAL, OPTIONAL, INTENT(OUT) :: lat_start |
---|
| 266 | LOGICAL(KIND=C_BOOL) :: lat_start_tmp |
---|
| 267 | LOGICAL, OPTIONAL, INTENT(OUT) :: lon_end |
---|
| 268 | LOGICAL(KIND=C_BOOL) :: lon_end_tmp |
---|
| 269 | LOGICAL, OPTIONAL, INTENT(OUT) :: lon_start |
---|
| 270 | LOGICAL(KIND=C_BOOL) :: lon_start_tmp |
---|
| 271 | |
---|
| 272 | CALL xios(is_defined_generate_rectilinear_domain_attr_hdl_) & |
---|
| 273 | ( generate_rectilinear_domain_hdl, bounds_lat_end, bounds_lat_start, bounds_lon_end, bounds_lon_start & |
---|
| 274 | , lat_end, lat_start, lon_end, lon_start ) |
---|
| 275 | |
---|
| 276 | END SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr_hdl) |
---|
| 277 | |
---|
| 278 | SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr_hdl_) & |
---|
| 279 | ( generate_rectilinear_domain_hdl, bounds_lat_end_, bounds_lat_start_, bounds_lon_end_, bounds_lon_start_ & |
---|
| 280 | , lat_end_, lat_start_, lon_end_, lon_start_ ) |
---|
| 281 | |
---|
| 282 | IMPLICIT NONE |
---|
| 283 | TYPE(txios(generate_rectilinear_domain)) , INTENT(IN) :: generate_rectilinear_domain_hdl |
---|
| 284 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_end_ |
---|
| 285 | LOGICAL(KIND=C_BOOL) :: bounds_lat_end__tmp |
---|
| 286 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lat_start_ |
---|
| 287 | LOGICAL(KIND=C_BOOL) :: bounds_lat_start__tmp |
---|
| 288 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_end_ |
---|
| 289 | LOGICAL(KIND=C_BOOL) :: bounds_lon_end__tmp |
---|
| 290 | LOGICAL, OPTIONAL, INTENT(OUT) :: bounds_lon_start_ |
---|
| 291 | LOGICAL(KIND=C_BOOL) :: bounds_lon_start__tmp |
---|
| 292 | LOGICAL, OPTIONAL, INTENT(OUT) :: lat_end_ |
---|
| 293 | LOGICAL(KIND=C_BOOL) :: lat_end__tmp |
---|
| 294 | LOGICAL, OPTIONAL, INTENT(OUT) :: lat_start_ |
---|
| 295 | LOGICAL(KIND=C_BOOL) :: lat_start__tmp |
---|
| 296 | LOGICAL, OPTIONAL, INTENT(OUT) :: lon_end_ |
---|
| 297 | LOGICAL(KIND=C_BOOL) :: lon_end__tmp |
---|
| 298 | LOGICAL, OPTIONAL, INTENT(OUT) :: lon_start_ |
---|
| 299 | LOGICAL(KIND=C_BOOL) :: lon_start__tmp |
---|
| 300 | |
---|
| 301 | IF (PRESENT(bounds_lat_end_)) THEN |
---|
[966] | 302 | bounds_lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_end & |
---|
| 303 | (generate_rectilinear_domain_hdl%daddr) |
---|
[786] | 304 | bounds_lat_end_ = bounds_lat_end__tmp |
---|
| 305 | ENDIF |
---|
| 306 | |
---|
| 307 | IF (PRESENT(bounds_lat_start_)) THEN |
---|
[966] | 308 | bounds_lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lat_start & |
---|
| 309 | (generate_rectilinear_domain_hdl%daddr) |
---|
[786] | 310 | bounds_lat_start_ = bounds_lat_start__tmp |
---|
| 311 | ENDIF |
---|
| 312 | |
---|
| 313 | IF (PRESENT(bounds_lon_end_)) THEN |
---|
[966] | 314 | bounds_lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_end & |
---|
| 315 | (generate_rectilinear_domain_hdl%daddr) |
---|
[786] | 316 | bounds_lon_end_ = bounds_lon_end__tmp |
---|
| 317 | ENDIF |
---|
| 318 | |
---|
| 319 | IF (PRESENT(bounds_lon_start_)) THEN |
---|
[966] | 320 | bounds_lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_bounds_lon_start & |
---|
| 321 | (generate_rectilinear_domain_hdl%daddr) |
---|
[786] | 322 | bounds_lon_start_ = bounds_lon_start__tmp |
---|
| 323 | ENDIF |
---|
| 324 | |
---|
| 325 | IF (PRESENT(lat_end_)) THEN |
---|
[966] | 326 | lat_end__tmp = cxios_is_defined_generate_rectilinear_domain_lat_end & |
---|
| 327 | (generate_rectilinear_domain_hdl%daddr) |
---|
[786] | 328 | lat_end_ = lat_end__tmp |
---|
| 329 | ENDIF |
---|
| 330 | |
---|
| 331 | IF (PRESENT(lat_start_)) THEN |
---|
[966] | 332 | lat_start__tmp = cxios_is_defined_generate_rectilinear_domain_lat_start & |
---|
| 333 | (generate_rectilinear_domain_hdl%daddr) |
---|
[786] | 334 | lat_start_ = lat_start__tmp |
---|
| 335 | ENDIF |
---|
| 336 | |
---|
| 337 | IF (PRESENT(lon_end_)) THEN |
---|
[966] | 338 | lon_end__tmp = cxios_is_defined_generate_rectilinear_domain_lon_end & |
---|
| 339 | (generate_rectilinear_domain_hdl%daddr) |
---|
[786] | 340 | lon_end_ = lon_end__tmp |
---|
| 341 | ENDIF |
---|
| 342 | |
---|
| 343 | IF (PRESENT(lon_start_)) THEN |
---|
[966] | 344 | lon_start__tmp = cxios_is_defined_generate_rectilinear_domain_lon_start & |
---|
| 345 | (generate_rectilinear_domain_hdl%daddr) |
---|
[786] | 346 | lon_start_ = lon_start__tmp |
---|
| 347 | ENDIF |
---|
| 348 | |
---|
| 349 | END SUBROUTINE xios(is_defined_generate_rectilinear_domain_attr_hdl_) |
---|
| 350 | |
---|
| 351 | END MODULE igenerate_rectilinear_domain_attr |
---|