Changeset 40 for XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.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_event_server.f90 (modified) (2 diffs)

XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90

@@ -64 +64 @@
       CASE (event_id_write_Field3d)
         CALL event__write_Field3d
+
+      CASE (event_id_set_attribut)
+        CALL event__set_attribut
 
       CASE (event_id_stop_ioserver)
@@ -414 +417 @@
     
   END SUBROUTINE event__close_io_definition
-    
-    
+  
+  SUBROUTINE event__set_attribut
+   USE mod_attribut
+   IMPLICIT NONE
+     TYPE(attribut) :: attrib
+     INTEGER        :: len_id
+     
+     CALL unpack(len_id)
+     CALL sub_internal
+   CONTAINS
+      
+     SUBROUTINE sub_internal
+       CHARACTER(LEN=len_id) :: id
+       
+       CALL unpack(id)
+       CALL unpack(attrib)
+       CALL iom__set_attribut(id,attrib)
+       CALL attr_deallocate(attrib)
+     END SUBROUTINE sub_internal
+  END SUBROUTINE event__set_attribut    
+
 END MODULE mod_event_server