Changeset 279


Ignore:
Timestamp:
09/21/11 10:23:19 (12 years ago)
Author:
hozdoba
Message:

Corrections

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_V2/dev/common/src/xmlio/fortran/ifield.f90

    r275 r279  
    7474      REAL(kind=8)           , OPTIONAL, INTENT(IN) :: default_value_ 
    7575       
    76       enabled__ = enabled_   
    7776      IF (PRESENT(name_))           THEN 
    7877         CALL xios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_)) 
     
    10099      END IF 
    101100      IF (PRESENT(enabled_))        THEN 
     101         enabled__ = enabled_   
    102102         CALL xios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__) 
    103103      END IF 
     
    170170      REAL(kind=8)           , OPTIONAL, INTENT(IN) :: default_value_ 
    171171       
    172       enabled__ = enabled_   
    173172      IF (PRESENT(name_))           THEN 
    174173         CALL xios_set_field_name(field_hdl%daddr, name_, len(name_)) 
     
    196195      END IF 
    197196      IF (PRESENT(enabled_))        THEN 
     197         enabled__ = enabled_   
    198198         CALL xios_set_field_enabled(field_hdl%daddr, enabled__) 
    199199      END IF 
Note: See TracChangeset for help on using the changeset viewer.