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

Timestamp:

09/17/09 10:02:37 (15 years ago)

Author:

ymipsl

Message:

• Les attributs XML peuvent désormais être passer dynamiquement à travers l'interface du server IO.
• ajout d'un attribut name_suffix pour les fichiers

YM

File:

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

XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

@@ -383 +383 @@
     
   END SUBROUTINE iom__Finalize
- 
+
+
+  SUBROUTINE iom__set_attribut(id,attrib)
+  USE mod_attribut
+  USE mod_object
+  USE mod_field
+  USE mod_file
+  USE mod_axis
+  USE mod_grid
+  USE mod_zoom
+  IMPLICIT NONE
+    CHARACTER(LEN=*) :: id
+    TYPE(attribut)   :: attrib  
+
+    IF (current_rank==nb_client) THEN
+    
+      SELECT CASE(attrib%object)
+        CASE(field_object)
+          CALL field__set_attribut(id,attrib)
+        CASE(file_object)
+          CALL file__set_attribut(id,attrib)
+        CASE(axis_object)
+          CALL axis__set_attribut(id,attrib)
+        CASE(grid_object)
+          CALL grid__set_attribut(id,attrib)
+        CASE(zoom_object)
+          CALL zoom__set_attribut(id,attrib)
+      END SELECT
+    ENDIF
+    
+  END SUBROUTINE iom__set_attribut
+   
 END MODULE iomanager