Changeset 42 for XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

Timestamp:

10/30/09 16:29:39 (15 years ago)

Author:

ymipsl

Message:

Correction bug sur les ids des file_group
+ possibilité de fixer les attributs des groupes à partir de l'ioserver

File:

• XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90 (modified) (1 diff)

XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

@@ -389 +389 @@
   USE mod_object
   USE mod_field
+  USE mod_field_group
   USE mod_file
+  USE mod_file_group
   USE mod_axis
+  USE mod_axis_group
   USE mod_grid
+  USE mod_grid_group
   USE mod_zoom
   IMPLICIT NONE
     CHARACTER(LEN=*) :: id
     TYPE(attribut)   :: attrib  
-
+    LOGICAL          :: success
     IF (current_rank==nb_client) THEN
     
       SELECT CASE(attrib%object)
         CASE(field_object)
-          CALL field__set_attribut(id,attrib)
+          CALL field_group__set_attribut(id,attrib,success)
+          IF (.NOT. success) CALL field__set_attribut(id,attrib)         
         CASE(file_object)
-          CALL file__set_attribut(id,attrib)
+          CALL file_group__set_attribut(id,attrib,success)
+          IF (.NOT. success) CALL file__set_attribut(id,attrib)         
         CASE(axis_object)
-          CALL axis__set_attribut(id,attrib)
+          CALL axis_group__set_attribut(id,attrib,success)
+          IF (.NOT. success) CALL axis__set_attribut(id,attrib)         
         CASE(grid_object)
-          CALL grid__set_attribut(id,attrib)
+          CALL grid_group__set_attribut(id,attrib,success)
+          IF (.NOT. success) CALL grid__set_attribut(id,attrib)         
         CASE(zoom_object)
           CALL zoom__set_attribut(id,attrib)