Changeset 26 for XMLIO_SERVER/trunk/src/XMLIO/mod_axis_group.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_axis_group.f90 (modified) (1 diff)

XMLIO_SERVER/trunk/src/XMLIO/mod_axis_group.f90

@@ -22 +22 @@
   INCLUDE "vector_axis_group_contains.inc"
 
+  SUBROUTINE axis_group__swap_context(saved_axis_group_Ids,saved_ids)
+  IMPLICIT NONE
+  TYPE(vector_axis_group),POINTER       :: saved_axis_group_Ids
+  TYPE(sorted_list),POINTER             :: saved_Ids 
+   
+   axis_group_ids=>saved_axis_group_ids
+   ids=>saved_ids
+   
+  END SUBROUTINE axis_group__swap_context
+
   SUBROUTINE axis_group__init
   IMPLICIT NONE
-    
-    ALLOCATE(axis_group_Ids)
-    ALLOCATE(Ids)
     
     CALL vector_axis_group__new(axis_group_Ids)