- Timestamp:
- 09/21/16 14:35:03 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/grid_interface_attr.F90
r817 r932 94 94 95 95 96 SUBROUTINE cxios_set_grid_mask_4d(grid_hdl, mask_4d, extent) BIND(C) 97 USE ISO_C_BINDING 98 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 99 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_4d 100 INTEGER (kind = C_INT), DIMENSION(*) :: extent 101 END SUBROUTINE cxios_set_grid_mask_4d 102 103 SUBROUTINE cxios_get_grid_mask_4d(grid_hdl, mask_4d, extent) BIND(C) 104 USE ISO_C_BINDING 105 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 106 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_4d 107 INTEGER (kind = C_INT), DIMENSION(*) :: extent 108 END SUBROUTINE cxios_get_grid_mask_4d 109 110 FUNCTION cxios_is_defined_grid_mask_4d(grid_hdl) BIND(C) 111 USE ISO_C_BINDING 112 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask_4d 113 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 114 END FUNCTION cxios_is_defined_grid_mask_4d 115 116 117 SUBROUTINE cxios_set_grid_mask_5d(grid_hdl, mask_5d, extent) BIND(C) 118 USE ISO_C_BINDING 119 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 120 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_5d 121 INTEGER (kind = C_INT), DIMENSION(*) :: extent 122 END SUBROUTINE cxios_set_grid_mask_5d 123 124 SUBROUTINE cxios_get_grid_mask_5d(grid_hdl, mask_5d, extent) BIND(C) 125 USE ISO_C_BINDING 126 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 127 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_5d 128 INTEGER (kind = C_INT), DIMENSION(*) :: extent 129 END SUBROUTINE cxios_get_grid_mask_5d 130 131 FUNCTION cxios_is_defined_grid_mask_5d(grid_hdl) BIND(C) 132 USE ISO_C_BINDING 133 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask_5d 134 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 135 END FUNCTION cxios_is_defined_grid_mask_5d 136 137 138 SUBROUTINE cxios_set_grid_mask_6d(grid_hdl, mask_6d, extent) BIND(C) 139 USE ISO_C_BINDING 140 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 141 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_6d 142 INTEGER (kind = C_INT), DIMENSION(*) :: extent 143 END SUBROUTINE cxios_set_grid_mask_6d 144 145 SUBROUTINE cxios_get_grid_mask_6d(grid_hdl, mask_6d, extent) BIND(C) 146 USE ISO_C_BINDING 147 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 148 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_6d 149 INTEGER (kind = C_INT), DIMENSION(*) :: extent 150 END SUBROUTINE cxios_get_grid_mask_6d 151 152 FUNCTION cxios_is_defined_grid_mask_6d(grid_hdl) BIND(C) 153 USE ISO_C_BINDING 154 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask_6d 155 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 156 END FUNCTION cxios_is_defined_grid_mask_6d 157 158 159 SUBROUTINE cxios_set_grid_mask_7d(grid_hdl, mask_7d, extent) BIND(C) 160 USE ISO_C_BINDING 161 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 162 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_7d 163 INTEGER (kind = C_INT), DIMENSION(*) :: extent 164 END SUBROUTINE cxios_set_grid_mask_7d 165 166 SUBROUTINE cxios_get_grid_mask_7d(grid_hdl, mask_7d, extent) BIND(C) 167 USE ISO_C_BINDING 168 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 169 LOGICAL (KIND=C_BOOL) , DIMENSION(*) :: mask_7d 170 INTEGER (kind = C_INT), DIMENSION(*) :: extent 171 END SUBROUTINE cxios_get_grid_mask_7d 172 173 FUNCTION cxios_is_defined_grid_mask_7d(grid_hdl) BIND(C) 174 USE ISO_C_BINDING 175 LOGICAL(kind=C_BOOL) :: cxios_is_defined_grid_mask_7d 176 INTEGER (kind = C_INTPTR_T), VALUE :: grid_hdl 177 END FUNCTION cxios_is_defined_grid_mask_7d 178 179 96 180 SUBROUTINE cxios_set_grid_name(grid_hdl, name, name_size) BIND(C) 97 181 USE ISO_C_BINDING
Note: See TracChangeset
for help on using the changeset viewer.