Changeset 279

Timestamp:

09/21/11 10:23:19 (13 years ago)

Author:

hozdoba

Message:

Corrections

File:

• XMLIO_V2/dev/common/src/xmlio/fortran/ifield.f90 (modified) (4 diffs)

XMLIO_V2/dev/common/src/xmlio/fortran/ifield.f90

@@ -74 +74 @@
       REAL(kind=8)           , OPTIONAL, INTENT(IN) :: default_value_
       
-      enabled__ = enabled_  
       IF (PRESENT(name_))           THEN
          CALL xios_set_fieldgroup_name(fieldgroup_hdl%daddr, name_, len(name_))
@@ -100 +99 @@
       END IF
       IF (PRESENT(enabled_))        THEN
+         enabled__ = enabled_  
          CALL xios_set_fieldgroup_enabled(fieldgroup_hdl%daddr, enabled__)
       END IF
@@ -170 +170 @@
       REAL(kind=8)           , OPTIONAL, INTENT(IN) :: default_value_
       
-      enabled__ = enabled_  
       IF (PRESENT(name_))           THEN
          CALL xios_set_field_name(field_hdl%daddr, name_, len(name_))
@@ -196 +195 @@
       END IF
       IF (PRESENT(enabled_))        THEN
+         enabled__ = enabled_  
          CALL xios_set_field_enabled(field_hdl%daddr, enabled__)
       END IF