Changeset 29 for XMLIO_SERVER/trunk/src/XMLIO/mod_dependency.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_dependency.f90 (modified) (10 diffs)

XMLIO_SERVER/trunk/src/XMLIO/mod_dependency.f90

@@ -5 +5 @@
 USE mod_axis
 USE mod_sorted_list
+USE mod_zoom
 
 TYPE file_dep
@@ -11 +12 @@
   TYPE(vector_field),POINTER   :: fields
   TYPE(vector_grid),POINTER    :: grids
+  TYPE(vector_zoom),POINTER    :: zooms
   TYPE(vector_axis),POINTER    :: axis
 END TYPE file_dep
@@ -26 +28 @@
   TYPE(axis),  POINTER  :: axis
   TYPE(grid),  POINTER  :: grid
+  TYPE(zoom),  POINTER  :: zoom
 END TYPE field_out
 
@@ -82 +85 @@
     TYPE (sorted_list),POINTER         :: sorted_axis
     TYPE (sorted_list),POINTER         :: sorted_grid
+    TYPE (sorted_list),POINTER         :: sorted_zoom
     INTEGER                            :: i
     INTEGER                            :: j
@@ -87 +91 @@
     ALLOCATE(sorted_axis)
     ALLOCATE(sorted_grid)
+    ALLOCATE(sorted_zoom)
     
     IF (PRESENT(Pt_file_group)) THEN
@@ -106 +111 @@
         ALLOCATE(Pt_file_dep%fields)
         ALLOCATE(Pt_file_dep%grids)
+        ALLOCATE(Pt_file_dep%zooms)
         ALLOCATE(Pt_file_dep%axis)
         pt_file_dep%file=>pt_file
@@ -111 +117 @@
         CALL vector_field__new(Pt_file_dep%fields)
         CALL vector_grid__new(Pt_file_dep%grids)
+        CALL vector_zoom__new(Pt_file_dep%zooms)
         CALL vector_axis__new(Pt_file_dep%axis)
         CALL sorted_list__new(sorted_axis)
         CALL sorted_list__new(sorted_grid)
+        CALL sorted_list__new(sorted_zoom)
         
         CALL Treat_field_group(pt_file%field_list)
@@ -119 +127 @@
         CALL sorted_list__delete(sorted_axis)
         CALL sorted_list__delete(sorted_grid)
+        CALL sorted_list__delete(sorted_zoom)
       ENDIF
     ENDDO
@@ -152 +161 @@
               CALL vector_grid__set_new(pt_file_dep%grids,Pt_field%grid,pos)
               CALL sorted_list__add(sorted_grid,hash(Pt_field%grid%id),pos)
+            ENDIF
+          ENDIF
+
+          IF (Pt_field%has_zoom) THEN
+            CALL sorted_list__find(sorted_zoom,hash(Pt_field%zoom%id),pos,found)
+            IF (.NOT. found) THEN 
+              CALL vector_zoom__set_new(pt_file_dep%zooms,Pt_field%zoom,pos)
+              CALL sorted_list__add(sorted_zoom,hash(Pt_field%zoom%id),pos)
             ENDIF
           ENDIF
@@ -185 +202 @@
         pt_field_out%axis=>pt_field_out%field%axis
         pt_field_out%grid=>pt_field_out%field%grid
+        pt_field_out%zoom=>pt_field_out%field%zoom
       ENDDO
     ENDDO