Changeset 318 for XIOS/trunk/src/fortran_attr_interface/ifilegroup_attr.F90
- Timestamp:
- 02/21/12 15:34:27 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/fortran_attr_interface/ifilegroup_attr.F90
r314 r318 13 13 SUBROUTINE xios(set_filegroup_attr) & 14 14 ( filegroup_id, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 15 , type )15 , 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) :: split_freq 29 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 28 30 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 29 31 … … 31 33 CALL xios(set_filegroup_attr_hdl_) & 32 34 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 33 , type )35 , split_freq, sync_freq, type ) 34 36 35 37 END SUBROUTINE xios(set_filegroup_attr) … … 37 39 SUBROUTINE xios(set_filegroup_attr_hdl) & 38 40 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 39 , type )41 , split_freq, sync_freq, type ) 40 42 41 43 IMPLICIT NONE … … 49 51 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq 50 52 INTEGER , OPTIONAL, INTENT(IN) :: output_level 53 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq 54 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq 51 55 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type 52 56 53 57 CALL xios(set_filegroup_attr_hdl_) & 54 58 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 55 , type )59 , split_freq, sync_freq, type ) 56 60 57 61 END SUBROUTINE xios(set_filegroup_attr_hdl) … … 59 63 SUBROUTINE xios(set_filegroup_attr_hdl_) & 60 64 ( filegroup_hdl, description_, enabled_, group_ref_, name_, name_suffix_, output_freq_, output_level_ & 61 , type_ )65 , split_freq_, sync_freq_, type_ ) 62 66 63 67 IMPLICIT NONE … … 71 75 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: output_freq_ 72 76 INTEGER , OPTIONAL, INTENT(IN) :: output_level_ 77 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: split_freq_ 78 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: sync_freq_ 73 79 CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: type_ 74 80 … … 102 108 ENDIF 103 109 110 IF (PRESENT(split_freq_)) THEN 111 CALL cxios_set_filegroup_split_freq(filegroup_hdl%daddr, split_freq_, len(split_freq_)) 112 ENDIF 113 114 IF (PRESENT(sync_freq_)) THEN 115 CALL cxios_set_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_)) 116 ENDIF 117 104 118 IF (PRESENT(type_)) THEN 105 119 CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_)) … … 112 126 SUBROUTINE xios(get_filegroup_attr) & 113 127 ( filegroup_id, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 114 , type )128 , split_freq, sync_freq, type ) 115 129 116 130 IMPLICIT NONE … … 125 139 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq 126 140 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 141 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 142 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 127 143 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 128 144 … … 130 146 CALL xios(get_filegroup_attr_hdl_) & 131 147 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 132 , type )148 , split_freq, sync_freq, type ) 133 149 134 150 END SUBROUTINE xios(get_filegroup_attr) … … 136 152 SUBROUTINE xios(get_filegroup_attr_hdl) & 137 153 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 138 , type )154 , split_freq, sync_freq, type ) 139 155 140 156 IMPLICIT NONE … … 148 164 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq 149 165 INTEGER , OPTIONAL, INTENT(OUT) :: output_level 166 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq 167 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq 150 168 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type 151 169 152 170 CALL xios(get_filegroup_attr_hdl_) & 153 171 ( filegroup_hdl, description, enabled, group_ref, name, name_suffix, output_freq, output_level & 154 , type )172 , split_freq, sync_freq, type ) 155 173 156 174 END SUBROUTINE xios(get_filegroup_attr_hdl) … … 158 176 SUBROUTINE xios(get_filegroup_attr_hdl_) & 159 177 ( filegroup_hdl, description_, enabled_, group_ref_, name_, name_suffix_, output_freq_, output_level_ & 160 , type_ )178 , split_freq_, sync_freq_, type_ ) 161 179 162 180 IMPLICIT NONE … … 170 188 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: output_freq_ 171 189 INTEGER , OPTIONAL, INTENT(OUT) :: output_level_ 190 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: split_freq_ 191 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: sync_freq_ 172 192 CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: type_ 173 193 … … 201 221 ENDIF 202 222 223 IF (PRESENT(split_freq_)) THEN 224 CALL cxios_get_filegroup_split_freq(filegroup_hdl%daddr, split_freq_, len(split_freq_)) 225 ENDIF 226 227 IF (PRESENT(sync_freq_)) THEN 228 CALL cxios_get_filegroup_sync_freq(filegroup_hdl%daddr, sync_freq_, len(sync_freq_)) 229 ENDIF 230 203 231 IF (PRESENT(type_)) THEN 204 232 CALL cxios_get_filegroup_type(filegroup_hdl%daddr, type_, len(type_))
Note: See TracChangeset
for help on using the changeset viewer.