Changeset 29 for XMLIO_SERVER/trunk/src/XMLIO/mod_context.f90

Timestamp:

04/15/09 17:34:38 (15 years ago)

Author:

ymipsl

Message:

New Features :

• Les zoom sont maintenant utilisables.
• Lorsqu'un serveur ne sort pas de données dans un fichier, le fichier n'est pas crée.
• Lorsqu'un serveur est le seul a sortir un fichier, l'indexation par numero de process est supprimé.
• Les axes verticaux ont maintenant un attribut << positive [TRUE/FALSE]>>

File:

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

XMLIO_SERVER/trunk/src/XMLIO/mod_context.f90

@@ -9 +9 @@
   USE mod_file_definition
   USE mod_grid
+  USE mod_zoom
   USE mod_grid_group
   USE mod_grid_definition
@@ -38 +39 @@
     TYPE(vector_grid),POINTER         :: grid__grid_Ids
     TYPE(sorted_list),POINTER         :: grid__Ids 
+    TYPE(vector_zoom),POINTER         :: zoom__zoom_Ids
+    TYPE(sorted_list),POINTER         :: zoom__Ids 
     TYPE(vector_grid_group),POINTER   :: grid_group__grid_group_Ids
     TYPE(sorted_list),POINTER         :: grid_group__Ids 
@@ -125 +128 @@
         ALLOCATE(pt_context%grid__grid_Ids)
         ALLOCATE(pt_context%grid__Ids) 
+        ALLOCATE(pt_context%zoom__zoom_Ids)
+        ALLOCATE(pt_context%zoom__Ids) 
         ALLOCATE(pt_context%grid_group__grid_group_Ids)
         ALLOCATE(pt_context%grid_group__Ids) 
@@ -156 +161 @@
         CALL grid_definition__Init
 
+        CALL zoom__init
+
         CALL file__init
         CALL file_group__Init
@@ -210 +217 @@
       CALL file_definition__swap_context(Pt_context%file_definition__file_definition) 
       CALL grid__swap_context(pt_context%grid__grid_Ids,pt_context%grid__Ids) 
+      CALL zoom__swap_context(pt_context%zoom__zoom_Ids,pt_context%zoom__Ids) 
       CALL grid_group__swap_context(pt_context%grid_group__grid_group_Ids,pt_context%grid_group__Ids) 
       CALL grid_definition__swap_context(pt_context%grid_definition__grid_definition)