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

XMLIO_SERVER/trunk/src/XMLIO/mod_grid_definition.f90

@@ -6 +6 @@
 CONTAINS
 
+  SUBROUTINE grid_definition__swap_context(saved_grid_definition)      
+  IMPLICIT NONE
+    TYPE(grid_group),POINTER :: saved_grid_definition
+    
+    grid_definition=>saved_grid_definition
+    
+  END SUBROUTINE grid_definition__swap_context 
+
   SUBROUTINE grid_definition__Init
   USE mod_grid_group
   IMPLICIT NONE
   
-    ALLOCATE(grid_definition)
     CALL grid_group__new(grid_definition,"grid_definition")
     
   END SUBROUTINE grid_definition__Init
-        
+ 
 END MODULE mod_grid_definition