- Timestamp:
- 09/24/20 12:16:22 (4 years ago)
- Location:
- XIOS/dev/dev_ym/XIOS_COUPLING/src/interface
- Files:
-
- 1 added
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/c_attr/iccontext_attr.cpp
r1626 r1941 16 16 { 17 17 typedef xios::CContext* context_Ptr; 18 19 void cxios_set_context_attached_mode(context_Ptr context_hdl, bool attached_mode) 20 { 21 CTimer::get("XIOS").resume(); 22 context_hdl->attached_mode.setValue(attached_mode); 23 CTimer::get("XIOS").suspend(); 24 } 25 26 void cxios_get_context_attached_mode(context_Ptr context_hdl, bool* attached_mode) 27 { 28 CTimer::get("XIOS").resume(); 29 *attached_mode = context_hdl->attached_mode.getInheritedValue(); 30 CTimer::get("XIOS").suspend(); 31 } 32 33 bool cxios_is_defined_context_attached_mode(context_Ptr context_hdl) 34 { 35 CTimer::get("XIOS").resume(); 36 bool isDefined = context_hdl->attached_mode.hasInheritedValue(); 37 CTimer::get("XIOS").suspend(); 38 return isDefined; 39 } 40 18 41 19 42 void cxios_set_context_output_dir(context_Ptr context_hdl, const char * output_dir, int output_dir_size) -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/c_attr/icscalar_attr.cpp
r1626 r1941 172 172 173 173 174 void cxios_set_scalar_mask(scalar_Ptr scalar_hdl, bool mask) 175 { 176 CTimer::get("XIOS").resume(); 177 scalar_hdl->mask.setValue(mask); 178 CTimer::get("XIOS").suspend(); 179 } 180 181 void cxios_get_scalar_mask(scalar_Ptr scalar_hdl, bool* mask) 182 { 183 CTimer::get("XIOS").resume(); 184 *mask = scalar_hdl->mask.getInheritedValue(); 185 CTimer::get("XIOS").suspend(); 186 } 187 188 bool cxios_is_defined_scalar_mask(scalar_Ptr scalar_hdl) 189 { 190 CTimer::get("XIOS").resume(); 191 bool isDefined = scalar_hdl->mask.hasInheritedValue(); 192 CTimer::get("XIOS").suspend(); 193 return isDefined; 194 } 195 196 174 197 void cxios_set_scalar_name(scalar_Ptr scalar_hdl, const char * name, int name_size) 175 198 { -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/c_attr/icscalargroup_attr.cpp
r1626 r1941 198 198 199 199 200 void cxios_set_scalargroup_mask(scalargroup_Ptr scalargroup_hdl, bool mask) 201 { 202 CTimer::get("XIOS").resume(); 203 scalargroup_hdl->mask.setValue(mask); 204 CTimer::get("XIOS").suspend(); 205 } 206 207 void cxios_get_scalargroup_mask(scalargroup_Ptr scalargroup_hdl, bool* mask) 208 { 209 CTimer::get("XIOS").resume(); 210 *mask = scalargroup_hdl->mask.getInheritedValue(); 211 CTimer::get("XIOS").suspend(); 212 } 213 214 bool cxios_is_defined_scalargroup_mask(scalargroup_Ptr scalargroup_hdl) 215 { 216 CTimer::get("XIOS").resume(); 217 bool isDefined = scalargroup_hdl->mask.hasInheritedValue(); 218 CTimer::get("XIOS").suspend(); 219 return isDefined; 220 } 221 222 200 223 void cxios_set_scalargroup_name(scalargroup_Ptr scalargroup_hdl, const char * name, int name_size) 201 224 { -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/context_interface_attr.F90
r581 r1941 9 9 INTERFACE 10 10 ! Do not call directly / interface FORTRAN 2003 <-> C99 11 12 SUBROUTINE cxios_set_context_attached_mode(context_hdl, attached_mode) BIND(C) 13 USE ISO_C_BINDING 14 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 15 LOGICAL (KIND=C_BOOL) , VALUE :: attached_mode 16 END SUBROUTINE cxios_set_context_attached_mode 17 18 SUBROUTINE cxios_get_context_attached_mode(context_hdl, attached_mode) BIND(C) 19 USE ISO_C_BINDING 20 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 21 LOGICAL (KIND=C_BOOL) :: attached_mode 22 END SUBROUTINE cxios_get_context_attached_mode 23 24 FUNCTION cxios_is_defined_context_attached_mode(context_hdl) BIND(C) 25 USE ISO_C_BINDING 26 LOGICAL(kind=C_BOOL) :: cxios_is_defined_context_attached_mode 27 INTEGER (kind = C_INTPTR_T), VALUE :: context_hdl 28 END FUNCTION cxios_is_defined_context_attached_mode 29 11 30 12 31 SUBROUTINE cxios_set_context_output_dir(context_hdl, output_dir, output_dir_size) BIND(C) -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/icontext_attr.F90
r966 r1941 12 12 13 13 SUBROUTINE xios(set_context_attr) & 14 ( context_id, output_dir )14 ( context_id, attached_mode, output_dir ) 15 15 16 16 IMPLICIT NONE 17 17 TYPE(txios(context)) :: context_hdl 18 18 CHARACTER(LEN=*), INTENT(IN) ::context_id 19 LOGICAL , OPTIONAL, INTENT(IN) :: attached_mode 20 LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 19 21 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 20 22 … … 22 24 (context_id,context_hdl) 23 25 CALL xios(set_context_attr_hdl_) & 24 ( context_hdl, output_dir )26 ( context_hdl, attached_mode, output_dir ) 25 27 26 28 END SUBROUTINE xios(set_context_attr) 27 29 28 30 SUBROUTINE xios(set_context_attr_hdl) & 29 ( context_hdl, output_dir )31 ( context_hdl, attached_mode, output_dir ) 30 32 31 33 IMPLICIT NONE 32 34 TYPE(txios(context)) , INTENT(IN) :: context_hdl 35 LOGICAL , OPTIONAL, INTENT(IN) :: attached_mode 36 LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 33 37 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir 34 38 35 39 CALL xios(set_context_attr_hdl_) & 36 ( context_hdl, output_dir )40 ( context_hdl, attached_mode, output_dir ) 37 41 38 42 END SUBROUTINE xios(set_context_attr_hdl) 39 43 40 44 SUBROUTINE xios(set_context_attr_hdl_) & 41 ( context_hdl, output_dir_ )45 ( context_hdl, attached_mode_, output_dir_ ) 42 46 43 47 IMPLICIT NONE 44 48 TYPE(txios(context)) , INTENT(IN) :: context_hdl 49 LOGICAL , OPTIONAL, INTENT(IN) :: attached_mode_ 50 LOGICAL (KIND=C_BOOL) :: attached_mode__tmp 45 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_dir_ 52 53 IF (PRESENT(attached_mode_)) THEN 54 attached_mode__tmp = attached_mode_ 55 CALL cxios_set_context_attached_mode & 56 (context_hdl%daddr, attached_mode__tmp) 57 ENDIF 46 58 47 59 IF (PRESENT(output_dir_)) THEN … … 53 65 54 66 SUBROUTINE xios(get_context_attr) & 55 ( context_id, output_dir )67 ( context_id, attached_mode, output_dir ) 56 68 57 69 IMPLICIT NONE 58 70 TYPE(txios(context)) :: context_hdl 59 71 CHARACTER(LEN=*), INTENT(IN) ::context_id 72 LOGICAL , OPTIONAL, INTENT(OUT) :: attached_mode 73 LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 60 74 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 61 75 … … 63 77 (context_id,context_hdl) 64 78 CALL xios(get_context_attr_hdl_) & 65 ( context_hdl, output_dir )79 ( context_hdl, attached_mode, output_dir ) 66 80 67 81 END SUBROUTINE xios(get_context_attr) 68 82 69 83 SUBROUTINE xios(get_context_attr_hdl) & 70 ( context_hdl, output_dir )84 ( context_hdl, attached_mode, output_dir ) 71 85 72 86 IMPLICIT NONE 73 87 TYPE(txios(context)) , INTENT(IN) :: context_hdl 88 LOGICAL , OPTIONAL, INTENT(OUT) :: attached_mode 89 LOGICAL (KIND=C_BOOL) :: attached_mode_tmp 74 90 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir 75 91 76 92 CALL xios(get_context_attr_hdl_) & 77 ( context_hdl, output_dir )93 ( context_hdl, attached_mode, output_dir ) 78 94 79 95 END SUBROUTINE xios(get_context_attr_hdl) 80 96 81 97 SUBROUTINE xios(get_context_attr_hdl_) & 82 ( context_hdl, output_dir_ )98 ( context_hdl, attached_mode_, output_dir_ ) 83 99 84 100 IMPLICIT NONE 85 101 TYPE(txios(context)) , INTENT(IN) :: context_hdl 102 LOGICAL , OPTIONAL, INTENT(OUT) :: attached_mode_ 103 LOGICAL (KIND=C_BOOL) :: attached_mode__tmp 86 104 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_dir_ 105 106 IF (PRESENT(attached_mode_)) THEN 107 CALL cxios_get_context_attached_mode & 108 (context_hdl%daddr, attached_mode__tmp) 109 attached_mode_ = attached_mode__tmp 110 ENDIF 87 111 88 112 IF (PRESENT(output_dir_)) THEN … … 94 118 95 119 SUBROUTINE xios(is_defined_context_attr) & 96 ( context_id, output_dir )120 ( context_id, attached_mode, output_dir ) 97 121 98 122 IMPLICIT NONE 99 123 TYPE(txios(context)) :: context_hdl 100 124 CHARACTER(LEN=*), INTENT(IN) ::context_id 125 LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode 126 LOGICAL(KIND=C_BOOL) :: attached_mode_tmp 101 127 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 102 128 LOGICAL(KIND=C_BOOL) :: output_dir_tmp … … 105 131 (context_id,context_hdl) 106 132 CALL xios(is_defined_context_attr_hdl_) & 107 ( context_hdl, output_dir )133 ( context_hdl, attached_mode, output_dir ) 108 134 109 135 END SUBROUTINE xios(is_defined_context_attr) 110 136 111 137 SUBROUTINE xios(is_defined_context_attr_hdl) & 112 ( context_hdl, output_dir )138 ( context_hdl, attached_mode, output_dir ) 113 139 114 140 IMPLICIT NONE 115 141 TYPE(txios(context)) , INTENT(IN) :: context_hdl 142 LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode 143 LOGICAL(KIND=C_BOOL) :: attached_mode_tmp 116 144 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir 117 145 LOGICAL(KIND=C_BOOL) :: output_dir_tmp 118 146 119 147 CALL xios(is_defined_context_attr_hdl_) & 120 ( context_hdl, output_dir )148 ( context_hdl, attached_mode, output_dir ) 121 149 122 150 END SUBROUTINE xios(is_defined_context_attr_hdl) 123 151 124 152 SUBROUTINE xios(is_defined_context_attr_hdl_) & 125 ( context_hdl, output_dir_ )153 ( context_hdl, attached_mode_, output_dir_ ) 126 154 127 155 IMPLICIT NONE 128 156 TYPE(txios(context)) , INTENT(IN) :: context_hdl 157 LOGICAL, OPTIONAL, INTENT(OUT) :: attached_mode_ 158 LOGICAL(KIND=C_BOOL) :: attached_mode__tmp 129 159 LOGICAL, OPTIONAL, INTENT(OUT) :: output_dir_ 130 160 LOGICAL(KIND=C_BOOL) :: output_dir__tmp 161 162 IF (PRESENT(attached_mode_)) THEN 163 attached_mode__tmp = cxios_is_defined_context_attached_mode & 164 (context_hdl%daddr) 165 attached_mode_ = attached_mode__tmp 166 ENDIF 131 167 132 168 IF (PRESENT(output_dir_)) THEN -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iscalar_attr.F90
r1492 r1941 12 12 13 13 SUBROUTINE xios(set_scalar_attr) & 14 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&15 , scalar_ref, standard_name, unit, value )14 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 15 , prec, scalar_ref, standard_name, unit, value ) 16 16 17 17 IMPLICIT NONE … … 24 24 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label 25 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 26 LOGICAL , OPTIONAL, INTENT(IN) :: mask 27 LOGICAL (KIND=C_BOOL) :: mask_tmp 26 28 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 27 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive … … 35 37 (scalar_id,scalar_hdl) 36 38 CALL xios(set_scalar_attr_hdl_) & 37 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&38 , scalar_ref, standard_name, unit, value )39 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 40 , prec, scalar_ref, standard_name, unit, value ) 39 41 40 42 END SUBROUTINE xios(set_scalar_attr) 41 43 42 44 SUBROUTINE xios(set_scalar_attr_hdl) & 43 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&44 , scalar_ref, standard_name, unit, value )45 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 46 , prec, scalar_ref, standard_name, unit, value ) 45 47 46 48 IMPLICIT NONE … … 52 54 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label 53 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 56 LOGICAL , OPTIONAL, INTENT(IN) :: mask 57 LOGICAL (KIND=C_BOOL) :: mask_tmp 54 58 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 55 59 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive … … 61 65 62 66 CALL xios(set_scalar_attr_hdl_) & 63 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&64 , scalar_ref, standard_name, unit, value )67 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 68 , prec, scalar_ref, standard_name, unit, value ) 65 69 66 70 END SUBROUTINE xios(set_scalar_attr_hdl) 67 71 68 72 SUBROUTINE xios(set_scalar_attr_hdl_) & 69 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, name_, positive_ &70 , p rec_, scalar_ref_, standard_name_, unit_, value_ )73 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, name_ & 74 , positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 71 75 72 76 IMPLICIT NONE … … 78 82 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label_ 79 83 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 84 LOGICAL , OPTIONAL, INTENT(IN) :: mask_ 85 LOGICAL (KIND=C_BOOL) :: mask__tmp 80 86 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 81 87 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ … … 116 122 ENDIF 117 123 124 IF (PRESENT(mask_)) THEN 125 mask__tmp = mask_ 126 CALL cxios_set_scalar_mask & 127 (scalar_hdl%daddr, mask__tmp) 128 ENDIF 129 118 130 IF (PRESENT(name_)) THEN 119 131 CALL cxios_set_scalar_name & … … 154 166 155 167 SUBROUTINE xios(get_scalar_attr) & 156 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&157 , scalar_ref, standard_name, unit, value )168 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 169 , prec, scalar_ref, standard_name, unit, value ) 158 170 159 171 IMPLICIT NONE … … 166 178 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label 167 179 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 180 LOGICAL , OPTIONAL, INTENT(OUT) :: mask 181 LOGICAL (KIND=C_BOOL) :: mask_tmp 168 182 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 169 183 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive … … 177 191 (scalar_id,scalar_hdl) 178 192 CALL xios(get_scalar_attr_hdl_) & 179 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&180 , scalar_ref, standard_name, unit, value )193 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 194 , prec, scalar_ref, standard_name, unit, value ) 181 195 182 196 END SUBROUTINE xios(get_scalar_attr) 183 197 184 198 SUBROUTINE xios(get_scalar_attr_hdl) & 185 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&186 , scalar_ref, standard_name, unit, value )199 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 200 , prec, scalar_ref, standard_name, unit, value ) 187 201 188 202 IMPLICIT NONE … … 194 208 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label 195 209 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 210 LOGICAL , OPTIONAL, INTENT(OUT) :: mask 211 LOGICAL (KIND=C_BOOL) :: mask_tmp 196 212 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 197 213 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive … … 203 219 204 220 CALL xios(get_scalar_attr_hdl_) & 205 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&206 , scalar_ref, standard_name, unit, value )221 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 222 , prec, scalar_ref, standard_name, unit, value ) 207 223 208 224 END SUBROUTINE xios(get_scalar_attr_hdl) 209 225 210 226 SUBROUTINE xios(get_scalar_attr_hdl_) & 211 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, name_, positive_ &212 , p rec_, scalar_ref_, standard_name_, unit_, value_ )227 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, name_ & 228 , positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 213 229 214 230 IMPLICIT NONE … … 220 236 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label_ 221 237 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 238 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_ 239 LOGICAL (KIND=C_BOOL) :: mask__tmp 222 240 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 223 241 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ … … 258 276 ENDIF 259 277 278 IF (PRESENT(mask_)) THEN 279 CALL cxios_get_scalar_mask & 280 (scalar_hdl%daddr, mask__tmp) 281 mask_ = mask__tmp 282 ENDIF 283 260 284 IF (PRESENT(name_)) THEN 261 285 CALL cxios_get_scalar_name & … … 296 320 297 321 SUBROUTINE xios(is_defined_scalar_attr) & 298 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&299 , scalar_ref, standard_name, unit, value )322 ( scalar_id, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 323 , prec, scalar_ref, standard_name, unit, value ) 300 324 301 325 IMPLICIT NONE … … 314 338 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 315 339 LOGICAL(KIND=C_BOOL) :: long_name_tmp 340 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 341 LOGICAL(KIND=C_BOOL) :: mask_tmp 316 342 LOGICAL, OPTIONAL, INTENT(OUT) :: name 317 343 LOGICAL(KIND=C_BOOL) :: name_tmp … … 332 358 (scalar_id,scalar_hdl) 333 359 CALL xios(is_defined_scalar_attr_hdl_) & 334 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&335 , scalar_ref, standard_name, unit, value )360 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 361 , prec, scalar_ref, standard_name, unit, value ) 336 362 337 363 END SUBROUTINE xios(is_defined_scalar_attr) 338 364 339 365 SUBROUTINE xios(is_defined_scalar_attr_hdl) & 340 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&341 , scalar_ref, standard_name, unit, value )366 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 367 , prec, scalar_ref, standard_name, unit, value ) 342 368 343 369 IMPLICIT NONE … … 355 381 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 356 382 LOGICAL(KIND=C_BOOL) :: long_name_tmp 383 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 384 LOGICAL(KIND=C_BOOL) :: mask_tmp 357 385 LOGICAL, OPTIONAL, INTENT(OUT) :: name 358 386 LOGICAL(KIND=C_BOOL) :: name_tmp … … 371 399 372 400 CALL xios(is_defined_scalar_attr_hdl_) & 373 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, name, positive, prec&374 , scalar_ref, standard_name, unit, value )401 ( scalar_hdl, axis_type, bounds, bounds_name, comment, label, long_name, mask, name, positive & 402 , prec, scalar_ref, standard_name, unit, value ) 375 403 376 404 END SUBROUTINE xios(is_defined_scalar_attr_hdl) 377 405 378 406 SUBROUTINE xios(is_defined_scalar_attr_hdl_) & 379 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, name_, positive_ &380 , p rec_, scalar_ref_, standard_name_, unit_, value_ )407 ( scalar_hdl, axis_type_, bounds_, bounds_name_, comment_, label_, long_name_, mask_, name_ & 408 , positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 381 409 382 410 IMPLICIT NONE … … 394 422 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 395 423 LOGICAL(KIND=C_BOOL) :: long_name__tmp 424 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 425 LOGICAL(KIND=C_BOOL) :: mask__tmp 396 426 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 397 427 LOGICAL(KIND=C_BOOL) :: name__tmp … … 445 475 ENDIF 446 476 477 IF (PRESENT(mask_)) THEN 478 mask__tmp = cxios_is_defined_scalar_mask & 479 (scalar_hdl%daddr) 480 mask_ = mask__tmp 481 ENDIF 482 447 483 IF (PRESENT(name_)) THEN 448 484 name__tmp = cxios_is_defined_scalar_name & -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/iscalargroup_attr.F90
r1492 r1941 12 12 13 13 SUBROUTINE xios(set_scalargroup_attr) & 14 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&15 , positive, prec, scalar_ref, standard_name, unit, value )14 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 15 , name, positive, prec, scalar_ref, standard_name, unit, value ) 16 16 17 17 IMPLICIT NONE … … 25 25 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label 26 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 27 LOGICAL , OPTIONAL, INTENT(IN) :: mask 28 LOGICAL (KIND=C_BOOL) :: mask_tmp 27 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 28 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive … … 36 38 (scalargroup_id,scalargroup_hdl) 37 39 CALL xios(set_scalargroup_attr_hdl_) & 38 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&39 , positive, prec, scalar_ref, standard_name, unit, value )40 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 41 , name, positive, prec, scalar_ref, standard_name, unit, value ) 40 42 41 43 END SUBROUTINE xios(set_scalargroup_attr) 42 44 43 45 SUBROUTINE xios(set_scalargroup_attr_hdl) & 44 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&45 , positive, prec, scalar_ref, standard_name, unit, value )46 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 47 , name, positive, prec, scalar_ref, standard_name, unit, value ) 46 48 47 49 IMPLICIT NONE … … 54 56 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label 55 57 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name 58 LOGICAL , OPTIONAL, INTENT(IN) :: mask 59 LOGICAL (KIND=C_BOOL) :: mask_tmp 56 60 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 57 61 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive … … 63 67 64 68 CALL xios(set_scalargroup_attr_hdl_) & 65 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&66 , positive, prec, scalar_ref, standard_name, unit, value )69 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 70 , name, positive, prec, scalar_ref, standard_name, unit, value ) 67 71 68 72 END SUBROUTINE xios(set_scalargroup_attr_hdl) … … 70 74 SUBROUTINE xios(set_scalargroup_attr_hdl_) & 71 75 ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ & 72 , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )76 , mask_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 73 77 74 78 IMPLICIT NONE … … 81 85 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: label_ 82 86 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: long_name_ 87 LOGICAL , OPTIONAL, INTENT(IN) :: mask_ 88 LOGICAL (KIND=C_BOOL) :: mask__tmp 83 89 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 84 90 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: positive_ … … 124 130 ENDIF 125 131 132 IF (PRESENT(mask_)) THEN 133 mask__tmp = mask_ 134 CALL cxios_set_scalargroup_mask & 135 (scalargroup_hdl%daddr, mask__tmp) 136 ENDIF 137 126 138 IF (PRESENT(name_)) THEN 127 139 CALL cxios_set_scalargroup_name & … … 162 174 163 175 SUBROUTINE xios(get_scalargroup_attr) & 164 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&165 , positive, prec, scalar_ref, standard_name, unit, value )176 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 177 , name, positive, prec, scalar_ref, standard_name, unit, value ) 166 178 167 179 IMPLICIT NONE … … 175 187 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label 176 188 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 189 LOGICAL , OPTIONAL, INTENT(OUT) :: mask 190 LOGICAL (KIND=C_BOOL) :: mask_tmp 177 191 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 178 192 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive … … 186 200 (scalargroup_id,scalargroup_hdl) 187 201 CALL xios(get_scalargroup_attr_hdl_) & 188 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&189 , positive, prec, scalar_ref, standard_name, unit, value )202 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 203 , name, positive, prec, scalar_ref, standard_name, unit, value ) 190 204 191 205 END SUBROUTINE xios(get_scalargroup_attr) 192 206 193 207 SUBROUTINE xios(get_scalargroup_attr_hdl) & 194 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&195 , positive, prec, scalar_ref, standard_name, unit, value )208 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 209 , name, positive, prec, scalar_ref, standard_name, unit, value ) 196 210 197 211 IMPLICIT NONE … … 204 218 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label 205 219 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name 220 LOGICAL , OPTIONAL, INTENT(OUT) :: mask 221 LOGICAL (KIND=C_BOOL) :: mask_tmp 206 222 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 207 223 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive … … 213 229 214 230 CALL xios(get_scalargroup_attr_hdl_) & 215 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&216 , positive, prec, scalar_ref, standard_name, unit, value )231 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 232 , name, positive, prec, scalar_ref, standard_name, unit, value ) 217 233 218 234 END SUBROUTINE xios(get_scalargroup_attr_hdl) … … 220 236 SUBROUTINE xios(get_scalargroup_attr_hdl_) & 221 237 ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ & 222 , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )238 , mask_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 223 239 224 240 IMPLICIT NONE … … 231 247 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: label_ 232 248 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: long_name_ 249 LOGICAL , OPTIONAL, INTENT(OUT) :: mask_ 250 LOGICAL (KIND=C_BOOL) :: mask__tmp 233 251 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 234 252 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: positive_ … … 274 292 ENDIF 275 293 294 IF (PRESENT(mask_)) THEN 295 CALL cxios_get_scalargroup_mask & 296 (scalargroup_hdl%daddr, mask__tmp) 297 mask_ = mask__tmp 298 ENDIF 299 276 300 IF (PRESENT(name_)) THEN 277 301 CALL cxios_get_scalargroup_name & … … 312 336 313 337 SUBROUTINE xios(is_defined_scalargroup_attr) & 314 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&315 , positive, prec, scalar_ref, standard_name, unit, value )338 ( scalargroup_id, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 339 , name, positive, prec, scalar_ref, standard_name, unit, value ) 316 340 317 341 IMPLICIT NONE … … 332 356 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 333 357 LOGICAL(KIND=C_BOOL) :: long_name_tmp 358 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 359 LOGICAL(KIND=C_BOOL) :: mask_tmp 334 360 LOGICAL, OPTIONAL, INTENT(OUT) :: name 335 361 LOGICAL(KIND=C_BOOL) :: name_tmp … … 350 376 (scalargroup_id,scalargroup_hdl) 351 377 CALL xios(is_defined_scalargroup_attr_hdl_) & 352 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&353 , positive, prec, scalar_ref, standard_name, unit, value )378 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 379 , name, positive, prec, scalar_ref, standard_name, unit, value ) 354 380 355 381 END SUBROUTINE xios(is_defined_scalargroup_attr) 356 382 357 383 SUBROUTINE xios(is_defined_scalargroup_attr_hdl) & 358 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&359 , positive, prec, scalar_ref, standard_name, unit, value )384 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 385 , name, positive, prec, scalar_ref, standard_name, unit, value ) 360 386 361 387 IMPLICIT NONE … … 375 401 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name 376 402 LOGICAL(KIND=C_BOOL) :: long_name_tmp 403 LOGICAL, OPTIONAL, INTENT(OUT) :: mask 404 LOGICAL(KIND=C_BOOL) :: mask_tmp 377 405 LOGICAL, OPTIONAL, INTENT(OUT) :: name 378 406 LOGICAL(KIND=C_BOOL) :: name_tmp … … 391 419 392 420 CALL xios(is_defined_scalargroup_attr_hdl_) & 393 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, name&394 , positive, prec, scalar_ref, standard_name, unit, value )421 ( scalargroup_hdl, axis_type, bounds, bounds_name, comment, group_ref, label, long_name, mask & 422 , name, positive, prec, scalar_ref, standard_name, unit, value ) 395 423 396 424 END SUBROUTINE xios(is_defined_scalargroup_attr_hdl) … … 398 426 SUBROUTINE xios(is_defined_scalargroup_attr_hdl_) & 399 427 ( scalargroup_hdl, axis_type_, bounds_, bounds_name_, comment_, group_ref_, label_, long_name_ & 400 , name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ )428 , mask_, name_, positive_, prec_, scalar_ref_, standard_name_, unit_, value_ ) 401 429 402 430 IMPLICIT NONE … … 416 444 LOGICAL, OPTIONAL, INTENT(OUT) :: long_name_ 417 445 LOGICAL(KIND=C_BOOL) :: long_name__tmp 446 LOGICAL, OPTIONAL, INTENT(OUT) :: mask_ 447 LOGICAL(KIND=C_BOOL) :: mask__tmp 418 448 LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 419 449 LOGICAL(KIND=C_BOOL) :: name__tmp … … 473 503 ENDIF 474 504 505 IF (PRESENT(mask_)) THEN 506 mask__tmp = cxios_is_defined_scalargroup_mask & 507 (scalargroup_hdl%daddr) 508 mask_ = mask__tmp 509 ENDIF 510 475 511 IF (PRESENT(name_)) THEN 476 512 name__tmp = cxios_is_defined_scalargroup_name & -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/scalar_interface_attr.F90
r1492 r1941 136 136 137 137 138 SUBROUTINE cxios_set_scalar_mask(scalar_hdl, mask) BIND(C) 139 USE ISO_C_BINDING 140 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 141 LOGICAL (KIND=C_BOOL) , VALUE :: mask 142 END SUBROUTINE cxios_set_scalar_mask 143 144 SUBROUTINE cxios_get_scalar_mask(scalar_hdl, mask) BIND(C) 145 USE ISO_C_BINDING 146 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 147 LOGICAL (KIND=C_BOOL) :: mask 148 END SUBROUTINE cxios_get_scalar_mask 149 150 FUNCTION cxios_is_defined_scalar_mask(scalar_hdl) BIND(C) 151 USE ISO_C_BINDING 152 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalar_mask 153 INTEGER (kind = C_INTPTR_T), VALUE :: scalar_hdl 154 END FUNCTION cxios_is_defined_scalar_mask 155 156 138 157 SUBROUTINE cxios_set_scalar_name(scalar_hdl, name, name_size) BIND(C) 139 158 USE ISO_C_BINDING -
XIOS/dev/dev_ym/XIOS_COUPLING/src/interface/fortran_attr/scalargroup_interface_attr.F90
r1492 r1941 157 157 158 158 159 SUBROUTINE cxios_set_scalargroup_mask(scalargroup_hdl, mask) BIND(C) 160 USE ISO_C_BINDING 161 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 162 LOGICAL (KIND=C_BOOL) , VALUE :: mask 163 END SUBROUTINE cxios_set_scalargroup_mask 164 165 SUBROUTINE cxios_get_scalargroup_mask(scalargroup_hdl, mask) BIND(C) 166 USE ISO_C_BINDING 167 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 168 LOGICAL (KIND=C_BOOL) :: mask 169 END SUBROUTINE cxios_get_scalargroup_mask 170 171 FUNCTION cxios_is_defined_scalargroup_mask(scalargroup_hdl) BIND(C) 172 USE ISO_C_BINDING 173 LOGICAL(kind=C_BOOL) :: cxios_is_defined_scalargroup_mask 174 INTEGER (kind = C_INTPTR_T), VALUE :: scalargroup_hdl 175 END FUNCTION cxios_is_defined_scalargroup_mask 176 177 159 178 SUBROUTINE cxios_set_scalargroup_name(scalargroup_hdl, name, name_size) BIND(C) 160 179 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.