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

XMLIO_SERVER/trunk/src/XMLIO/mod_grid.f90

@@ -29 +29 @@
   INCLUDE 'vector_grid_contains.inc'
 
+  SUBROUTINE grid__swap_context(saved_grid_Ids,saved_Ids)
+  IMPLICIT NONE
+    TYPE(vector_grid),POINTER          :: saved_grid_Ids
+    TYPE(sorted_list),POINTER          :: saved_Ids 
+    
+    grid_ids=>saved_grid_ids
+    ids=>saved_ids
+  END SUBROUTINE grid__swap_context
+  
+  
   SUBROUTINE grid__init
   IMPLICIT NONE
-    
-    ALLOCATE(grid_Ids)
-    ALLOCATE(Ids)
     
     CALL vector_grid__new(grid_Ids)