Changeset 48 for XMLIO_SERVER

Timestamp:

11/04/09 14:49:53 (14 years ago)

Author:

ymipsl

Message:

La subroutine iomanger::set_attribut ne diagonostique plus les messages d'erreur (rustine demandé par S. Masson)

YM

File:

• XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90 (modified) (2 diffs)

XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

@@ -406 +406 @@
         CASE(field_object)
           CALL field_group__set_attribut(id,attrib,success)
-          IF (.NOT. success) CALL field__set_attribut(id,attrib)         
+          IF (.NOT. success) CALL field__set_attribut(id,attrib,success)         
         CASE(file_object)
           CALL file_group__set_attribut(id,attrib,success)
@@ -412 +412 @@
         CASE(axis_object)
           CALL axis_group__set_attribut(id,attrib,success)
-          IF (.NOT. success) CALL axis__set_attribut(id,attrib)         
+          IF (.NOT. success) CALL axis__set_attribut(id,attrib,success)         
         CASE(grid_object)
           CALL grid_group__set_attribut(id,attrib,success)
-          IF (.NOT. success) CALL grid__set_attribut(id,attrib)         
+          IF (.NOT. success) CALL grid__set_attribut(id,attrib,success)         
         CASE(zoom_object)
-          CALL zoom__set_attribut(id,attrib)
+          CALL zoom__set_attribut(id,attrib,success)
       END SELECT
     ENDIF