Changeset 313 for XIOS/trunk/src/fortran/ifile.F90
- Timestamp:
- 02/18/12 22:43:24 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/fortran/ifile.F90
r312 r313 5 5 USE FILE_INTERFACE 6 6 USE FILEGROUP_INTERFACE 7 ! USE IFILE_ATTR 8 ! USE IFILEGROUP_ATTR 7 9 8 10 TYPE txios(file) … … 15 17 16 18 CONTAINS ! Fonctions disponibles pour les utilisateurs. 17 18 19 SUBROUTINE xios(set_file_attr)(file_id, name , description, name_suffix, output_freq, output_level, enabled, type)20 IMPLICIT NONE21 TYPE(txios(file)) :: file_hdl22 CHARACTER(len = *) , INTENT(IN) :: file_id23 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name24 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description25 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix26 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq27 INTEGER , OPTIONAL, INTENT(IN) :: output_level28 LOGICAL , OPTIONAL, INTENT(IN) :: enabled29 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: type30 31 CALL xios(get_file_handle)(file_id,file_hdl)32 CALL xios(set_file_attr_hdl_)(file_hdl, name , description, name_suffix, output_freq, output_level, enabled, type)33 34 END SUBROUTINE xios(set_file_attr)35 36 37 SUBROUTINE xios(set_file_attr_hdl)(file_hdl, name , description, name_suffix, output_freq, output_level, enabled,type)38 TYPE(txios(file)) , INTENT(IN) :: file_hdl39 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name40 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description41 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix42 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq43 INTEGER , OPTIONAL, INTENT(IN) :: output_level44 LOGICAL , OPTIONAL, INTENT(IN) :: enabled45 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: type46 47 CALL xios(set_file_attr_hdl_)(file_hdl, name , description, name_suffix, output_freq, output_level, enabled, type)48 49 END SUBROUTINE xios(set_file_attr_hdl)50 51 SUBROUTINE xios(set_file_attr_hdl_)(file_hdl, name_ , description_, name_suffix_, output_freq_, output_level_, enabled_, type_)52 TYPE(txios(file)) , INTENT(IN) :: file_hdl53 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_54 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description_55 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix_56 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq_57 INTEGER , OPTIONAL, INTENT(IN) :: output_level_58 LOGICAL(kind = 1) :: enabled__59 LOGICAL , OPTIONAL, INTENT(IN) :: enabled_60 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: type_61 62 IF (PRESENT(name_)) THEN63 CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_))64 END IF65 IF (PRESENT(description_)) THEN66 CALL cxios_set_file_description(file_hdl%daddr, description_, len(description_))67 END IF68 IF (PRESENT(name_suffix_)) THEN69 CALL cxios_set_file_name_suffix(file_hdl%daddr, name_suffix_, len(name_suffix_))70 END IF71 IF (PRESENT(output_freq_)) THEN72 CALL cxios_set_file_output_freq(file_hdl%daddr, output_freq_, len(output_freq_))73 END IF74 IF (PRESENT(output_level_)) THEN75 CALL cxios_set_file_output_level(file_hdl%daddr, output_level_)76 END IF77 IF (PRESENT(enabled_)) THEN78 enabled__ = enabled_79 CALL cxios_set_file_enabled(file_hdl%daddr, enabled__)80 END IF81 82 IF (PRESENT(type_)) THEN83 CALL cxios_set_file_type(file_hdl%daddr, type_, len(type_))84 END IF85 86 END SUBROUTINE xios(set_file_attr_hdl_)87 88 89 90 SUBROUTINE xios(set_filegroup_attr)(filegroup_id, name , description, name_suffix, output_freq, output_level, enabled, type)91 IMPLICIT NONE92 TYPE(txios(filegroup)) :: filegroup_hdl93 CHARACTER(len = *) , INTENT(IN) :: filegroup_id94 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name95 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description96 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix97 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq98 INTEGER , OPTIONAL, INTENT(IN) :: output_level99 LOGICAL , OPTIONAL, INTENT(IN) :: enabled100 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: type101 102 CALL xios(get_filegroup_handle)(filegroup_id,filegroup_hdl)103 CALL xios(set_filegroup_attr_hdl_)(filegroup_hdl, name , description, name_suffix, output_freq, output_level, enabled, type)104 105 END SUBROUTINE xios(set_filegroup_attr)106 107 108 SUBROUTINE xios(set_filegroup_attr_hdl)(filegroup_hdl, name , description, name_suffix, output_freq, output_level, enabled, type)109 IMPLICIT NONE110 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl111 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name112 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description113 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix114 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq115 INTEGER , OPTIONAL, INTENT(IN) :: output_level116 LOGICAL , OPTIONAL, INTENT(IN) :: enabled117 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: type118 119 CALL xios(set_filegroup_attr_hdl_)(filegroup_hdl, name , description, name_suffix, output_freq, output_level, enabled, type)120 121 END SUBROUTINE xios(set_filegroup_attr_hdl)122 123 124 SUBROUTINE xios(set_filegroup_attr_hdl_)(filegroup_hdl, name_ , description_, name_suffix_, output_freq_, output_level_, &125 enabled_,type_)126 IMPLICIT NONE127 TYPE(txios(filegroup)) , INTENT(IN) :: filegroup_hdl128 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_129 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: description_130 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: name_suffix_131 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: output_freq_132 INTEGER , OPTIONAL, INTENT(IN) :: output_level_133 LOGICAL(kind = 1) :: enabled__134 LOGICAL , OPTIONAL, INTENT(IN) :: enabled_135 CHARACTER(len = *), OPTIONAL, INTENT(IN) :: type_136 137 IF (PRESENT(name_)) THEN138 CALL cxios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_))139 END IF140 IF (PRESENT(description_)) THEN141 CALL cxios_set_filegroup_description(filegroup_hdl%daddr, description_, len(description_))142 END IF143 IF (PRESENT(name_suffix_)) THEN144 CALL cxios_set_filegroup_name_suffix(filegroup_hdl%daddr, name_suffix_, len(name_suffix_))145 END IF146 IF (PRESENT(output_freq_)) THEN147 CALL cxios_set_filegroup_output_freq(filegroup_hdl%daddr, output_freq_, len(output_freq_))148 END IF149 IF (PRESENT(output_level_)) THEN150 CALL cxios_set_filegroup_output_level(filegroup_hdl%daddr, output_level_)151 END IF152 IF (PRESENT(enabled_)) THEN153 enabled__ = enabled_154 CALL cxios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__)155 END IF156 157 IF (PRESENT(type_)) THEN158 CALL cxios_set_filegroup_type(filegroup_hdl%daddr, type_, len(type_))159 END IF160 161 END SUBROUTINE xios(set_filegroup_attr_hdl_)162 163 19 164 20 SUBROUTINE xios(get_file_handle)( idt, ret)
Note: See TracChangeset
for help on using the changeset viewer.