Changeset 283


Ignore:
Timestamp:
09/21/11 14:58:28 (12 years ago)
Author:
ymipsl
Message:

correction attribut optionnels "enable" dans l'interface fortran

YM

File:
1 edited

Legend:

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

    r280 r283  
    5050      LOGICAL           , OPTIONAL, INTENT(IN) :: enabled_ 
    5151       
    52       enabled__ = enabled_         
    5352      IF (PRESENT(name_))         THEN 
    5453         CALL xios_set_file_name(file_hdl%daddr, name_, len(name_)) 
     
    6766      END IF 
    6867      IF (PRESENT(enabled_))      THEN 
     68         enabled__ = enabled_         
    6969         CALL xios_set_file_enabled(file_hdl%daddr, enabled__) 
    7070      END IF 
     
    9999      LOGICAL           , OPTIONAL, INTENT(IN) :: enabled_ 
    100100       
    101       enabled__ = enabled_          
    102101      IF (PRESENT(name_))         THEN 
    103102         CALL xios_set_filegroup_name(filegroup_hdl%daddr, name_, len(name_)) 
     
    116115      END IF 
    117116      IF (PRESENT(enabled_))      THEN 
    118          CALL xios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__) 
     117        enabled__ = enabled_  
     118        CALL xios_set_filegroup_enabled(filegroup_hdl%daddr, enabled__) 
    119119      END IF 
    120120 
Note: See TracChangeset for help on using the changeset viewer.