Changeset 17 for XMLIO_SERVER/trunk/src/XMLIO/mod_parse_xml.f90

Timestamp:

02/16/09 14:24:05 (15 years ago)

Author:

ymipsl

Message:

Correction de bugs pour portage sur Mercure

File:

• XMLIO_SERVER/trunk/src/XMLIO/mod_parse_xml.f90 (modified) (5 diffs)

XMLIO_SERVER/trunk/src/XMLIO/mod_parse_xml.f90

@@ -136 +136 @@
     ENDIF
       
-    CALL axis_group__get_default_attribut(pt_axis_group,attribute)
+    CALL axis_group__get_default_attrib(pt_axis_group,attribute)
     CALL parsing_axis_attribute(node,attribute)
     
@@ -212 +212 @@
       value =  getAttribute(node,"unit")
       CALL axis__set(pt_axis,unit=TRIM(value))
+    ENDIF
+
+    IF (is_attribute_exist(node,"size")) THEN
+      value =  getAttribute(node,"size")
+      CALL axis__set(pt_axis,a_size=string_to_integer(value))
     ENDIF
    
@@ -255 +260 @@
     ENDIF
       
-    CALL grid_group__get_default_attribut(pt_grid_group,attribute)
+    CALL grid_group__get_default_attrib(pt_grid_group,attribute)
     CALL parsing_grid_attribute(node,attribute)
     
@@ -368 +373 @@
     ENDIF
       
-    CALL field_group__get_default_attribut(pt_field_group,attribute)
+    CALL field_group__get_default_attrib(pt_field_group,attribute)
     CALL parsing_field_attribute(node,attribute)
     
@@ -525 +530 @@
     ENDIF
       
-    CALL file_group__get_default_attribut(pt_file_group,attribute)
+    CALL file_group__get_default_attrib(pt_file_group,attribute)
     CALL parsing_file_attribute(node,attribute)