Changeset 279
- Timestamp:
- 09/21/11 10:23:19 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_V2/dev/common/src/xmlio/fortran/ifield.f90
r275 r279 74 74 REAL(kind=8) , OPTIONAL, INTENT(IN) :: default_value_ 75 75 76 enabled__ = enabled_77 76 IF (PRESENT(name_)) THEN 78 77 CALL xios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_)) … … 100 99 END IF 101 100 IF (PRESENT(enabled_)) THEN 101 enabled__ = enabled_ 102 102 CALL xios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__) 103 103 END IF … … 170 170 REAL(kind=8) , OPTIONAL, INTENT(IN) :: default_value_ 171 171 172 enabled__ = enabled_173 172 IF (PRESENT(name_)) THEN 174 173 CALL xios_set_field_name(field_hdl%daddr, name_, len(name_)) … … 196 195 END IF 197 196 IF (PRESENT(enabled_)) THEN 197 enabled__ = enabled_ 198 198 CALL xios_set_field_enabled(field_hdl%daddr, enabled__) 199 199 END IF
Note: See TracChangeset
for help on using the changeset viewer.