Changeset 283

Timestamp:

09/21/11 14:58:28 (13 years ago)

Author:

ymipsl

Message:

correction attribut optionnels "enable" dans l'interface fortran

YM

File:

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

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

@@ -50 +50 @@
       LOGICAL           , OPTIONAL, INTENT(IN) :: enabled_
       
-      enabled__ = enabled_        
       IF (PRESENT(name_))         THEN
          CALL xios_set_file_name(file_hdl%daddr, name_, len(name_))
@@ -67 +66 @@
       END IF
       IF (PRESENT(enabled_))      THEN
+         enabled__ = enabled_        
          CALL xios_set_file_enabled(file_hdl%daddr, enabled__)
       END IF
@@ -99 +99 @@
       LOGICAL           , OPTIONAL, INTENT(IN) :: enabled_
       
-      enabled__ = enabled_         
       IF (PRESENT(name_))         THEN
          CALL xios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_))
@@ -116 +115 @@
       END IF
       IF (PRESENT(enabled_))      THEN
-         CALL xios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__)
+        enabled__ = enabled_ 
+        CALL xios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__)
       END IF