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

Timestamp:

03/27/09 18:02:59 (15 years ago)

Author:

ymipsl

Message:

Mise à jour importante :

• ajout de la grille type LMDZ
• ajout des context
• ajout de namelist pour parametrer l'utilisation du server : avec/sans MPI, en utlisant ou pas OASIS

File:

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

XMLIO_SERVER/trunk/src/XMLIO/mod_parse_xml.f90

@@ -28 +28 @@
     CHARACTER(len=100) :: node_name
      
-     IF (hasChildNodes(root)) THEN
+    IF (hasChildNodes(root)) THEN
       child_list => getChildnodes(root)
 
@@ -38 +38 @@
           
            CASE ('simulation') 
-             CALL parsing_definition(child_node)
+             CALL parsing_simulation(child_node)
 
            CASE DEFAULT
@@ -45 +45 @@
                CALL Warning("mod_parse_xml:parsing_root")
              ENDIF
+        END SELECT
+      ENDDO
+    ENDIF
+             
+  END SUBROUTINE parsing_root
+
+  SUBROUTINE parsing_simulation(root)
+  IMPLICIT NONE
+    TYPE(fnode), POINTER :: root
+    TYPE(fnode), POINTER :: child_node
+    TYPE(fnodeList), POINTER :: child_list
+
+    INTEGER :: il
+    CHARACTER(len=100) :: node_name
+     
+     IF (hasChildNodes(root)) THEN
+      child_list => getChildnodes(root)
+
+      DO il=0,getLength(child_list)-1
+        child_node => item(child_list,il)
+        node_name=getNodename(child_node)
+          
+        SELECT CASE (TRIM(node_name)) 
+          
+           CASE ('context') 
+             CALL parsing_context(child_node)
+
+           CASE DEFAULT
+             IF (is_bad_node(node_name)) THEN
+               WRITE(message,*) 'Unknown node <<',TRIM(node_name),'>> while parsing simulation'
+               CALL Warning("mod_parse_xml:parsing_simulationt")
+             ENDIF
          END SELECT
        
@@ -50 +82 @@
     ENDIF
              
-  END SUBROUTINE parsing_root
-
-
-  SUBROUTINE parsing_definition(root)
+  END SUBROUTINE parsing_simulation
+
+  SUBROUTINE parsing_context(node)
+  USE mod_context
   USE mod_axis_definition
   USE mod_grid_definition
   USE mod_field_definition
   USE mod_file_definition
-  
-  IMPLICIT NONE
-    TYPE(fnode), POINTER :: root
-    TYPE(fnode), POINTER :: child_node
+  IMPLICIT NONE  
+    TYPE(fnode), POINTER         :: node
+    
+    TYPE(fnode), POINTER     :: child_node
     TYPE(fnodeList), POINTER :: child_list
-
-    INTEGER :: il
-    CHARACTER(len=100) :: node_name
-
-    IF (hasChildNodes(root)) THEN
-      child_list => getChildnodes(root)
+    TYPE(axis),POINTER       :: attribute
+    LOGICAL                  :: is_root
+    INTEGER :: il
+    CHARACTER(len=100) :: node_name
+    CHARACTER(len=100) :: value
+    
+    IF (is_attribute_exist(node,"id")) THEN
+      value=getAttribute(node,"id")
+      CALL context__create(TRIM(value))  
+      CALL context__swap(TRIM(value))
+    ENDIF
+    
+    IF (hasChildNodes(node)) THEN
+      child_list => getChildnodes(node)
+
       DO il=0,getLength(child_list)-1
         child_node => item(child_list,il)
         node_name=getNodename(child_node)
-          
+        
         SELECT CASE (TRIM(node_name)) 
           
@@ -89 +130 @@
            CASE DEFAULT
              IF (is_bad_node(node_name)) THEN
-               WRITE(message,*) 'Unknown node <<',TRIM(node_name),'>> while parsing definition'
-               CALL Warning("mod_parse_xml:parsing_definition")
+               WRITE(message,*) 'Unknown node <<',TRIM(node_name),'>> while parsing context'
+               CALL Warning("mod_parse_xml:parsing_context")
              ENDIF   
-         END SELECT
-       
-       ENDDO
-    ENDIF
-    
-  END SUBROUTINE parsing_definition
- 
-
-
-
-
-  
+        END SELECT
+      ENDDO
+
+    ENDIF
+
+  END SUBROUTINE parsing_context
+
+
   RECURSIVE SUBROUTINE parsing_axis_group(node,parent,root)
   USE mod_axis_definition
@@ -493 +530 @@
 
   END SUBROUTINE parsing_field_attribute 
-  
-  
-