Changeset 40 for XMLIO_SERVER/trunk/src/XMLIO/mod_parse_xml.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/XMLIO/mod_parse_xml.f90 (modified) (1 diff)

XMLIO_SERVER/trunk/src/XMLIO/mod_parse_xml.f90

@@ -750 +750 @@
     ENDIF
 
+    IF (is_attribute_exist(node,"name_suffix")) THEN
+      value =  getAttribute(node,"name_suffix")
+      CALL file__set(pt_file,name_suffix=TRIM(value))
+    ENDIF
+
     IF (is_attribute_exist(node,"description")) THEN
       value =  getAttribute(node,"description")