Changeset 369 for XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
- Timestamp:
- 10/16/12 13:04:44 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/interface/fortran_attr/ifilegroup_attr.F90
r326 r369 13 13 SUBROUTINE xios(set_filegroup_attr) & 14 14 ( filegroup_id, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 15 , split_freq, sync_freq, type )15 , par_access, split_freq, sync_freq, type ) 16 16 17 17 IMPLICIT NONE … … 26 26 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq 27 27 INTEGER , OPTIONAL, INTENT(IN) :: output_level 28 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 28 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 29 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq … … 33 34 CALL xios(set_filegroup_attr_hdl_) & 34 35 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 35 , split_freq, sync_freq, type )36 , par_access, split_freq, sync_freq, type ) 36 37 37 38 END SUBROUTINE xios(set_filegroup_attr) … … 39 40 SUBROUTINE xios(set_filegroup_attr_hdl) & 40 41 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 41 , split_freq, sync_freq, type )42 , par_access, split_freq, sync_freq, type ) 42 43 43 44 IMPLICIT NONE … … 51 52 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq 52 53 INTEGER , OPTIONAL, INTENT(IN) :: output_level 54 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access 53 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 54 56 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq … … 57 59 CALL xios(set_filegroup_attr_hdl_) & 58 60 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 59 , split_freq, sync_freq, type )61 , par_access, split_freq, sync_freq, type ) 60 62 61 63 END SUBROUTINE xios(set_filegroup_attr_hdl) … … 63 65 SUBROUTINE xios(set_filegroup_attr_hdl_) & 64 66 ( filegroup_hdl, description_, enabled_, group_ref_, name_, name_suffix_, output_freq_, output_level_ & 65 , split_freq_, sync_freq_, type_ )67 , par_access_, split_freq_, sync_freq_, type_ ) 66 68 67 69 IMPLICIT NONE … … 75 77 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq_ 76 78 INTEGER , OPTIONAL, INTENT(IN) :: output_level_ 79 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: par_access_ 77 80 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_ 78 81 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_ … … 108 111 ENDIF 109 112 113 IF (PRESENT(par_access_)) THEN 114 CALL cxios_set_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_)) 115 ENDIF 116 110 117 IF (PRESENT(split_freq_)) THEN 111 118 CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_, len(split_freq_)) … … 126 133 SUBROUTINE xios(get_filegroup_attr) & 127 134 ( filegroup_id, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 128 , split_freq, sync_freq, type )135 , par_access, split_freq, sync_freq, type ) 129 136 130 137 IMPLICIT NONE … … 139 146 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq 140 147 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 148 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 141 149 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 142 150 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq … … 146 154 CALL xios(get_filegroup_attr_hdl_) & 147 155 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 148 , split_freq, sync_freq, type )156 , par_access, split_freq, sync_freq, type ) 149 157 150 158 END SUBROUTINE xios(get_filegroup_attr) … … 152 160 SUBROUTINE xios(get_filegroup_attr_hdl) & 153 161 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 154 , split_freq, sync_freq, type )162 , par_access, split_freq, sync_freq, type ) 155 163 156 164 IMPLICIT NONE … … 164 172 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq 165 173 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 174 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access 166 175 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 167 176 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq … … 170 179 CALL xios(get_filegroup_attr_hdl_) & 171 180 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 172 , split_freq, sync_freq, type )181 , par_access, split_freq, sync_freq, type ) 173 182 174 183 END SUBROUTINE xios(get_filegroup_attr_hdl) … … 176 185 SUBROUTINE xios(get_filegroup_attr_hdl_) & 177 186 ( filegroup_hdl, description_, enabled_, group_ref_, name_, name_suffix_, output_freq_, output_level_ & 178 , split_freq_, sync_freq_, type_ )187 , par_access_, split_freq_, sync_freq_, type_ ) 179 188 180 189 IMPLICIT NONE … … 188 197 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq_ 189 198 INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ 199 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: par_access_ 190 200 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_ 191 201 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_ … … 221 231 ENDIF 222 232 233 IF (PRESENT(par_access_)) THEN 234 CALL cxios_get_filegroup_par_access(filegroup_hdl%daddr, par_access_, len(par_access_)) 235 ENDIF 236 223 237 IF (PRESENT(split_freq_)) THEN 224 238 CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_, len(split_freq_))
Note: See TracChangeset
for help on using the changeset viewer.