Changeset 29 for XMLIO_SERVER/trunk/src/XMLIO/mod_field_group.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_field_group.f90 (modified) (2 diffs)

XMLIO_SERVER/trunk/src/XMLIO/mod_field_group.f90

@@ -158 +158 @@
     CALL field_group__solve_axis_ref(Pt_fg)
     CALL field_group__solve_grid_ref(Pt_fg)
+    CALL field_group__solve_zoom_ref(Pt_fg)
 
   END SUBROUTINE  field_group__solve_ref
@@ -208 +209 @@
   
   END SUBROUTINE field_group__solve_grid_ref
+
+  RECURSIVE SUBROUTINE field_group__solve_zoom_ref(Pt_fg)
+  IMPLICIT NONE
+    TYPE(field_group),POINTER  :: Pt_fg
+     
+    INTEGER :: i
+ 
+    DO i=1,Pt_fg%groups%size
+      CALL field_group__solve_zoom_ref(Pt_fg%groups%at(i)%pt)
+    ENDDO
+       
+    DO i=1,Pt_fg%fields%size
+      CALL field__solve_zoom_ref(Pt_fg%fields%at(i)%pt)
+    ENDDO
+  
+  END SUBROUTINE field_group__solve_zoom_ref
   
   RECURSIVE SUBROUTINE field_group__print(Pt_fg)