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

XMLIO_SERVER/trunk/src/XMLIO/mod_field.f90

@@ -47 +47 @@
   INCLUDE 'vector_field_def.inc'
   
-  TYPE(vector_field),POINTER            :: field_Ids
-  TYPE(sorted_list),POINTER,PRIVATE     :: Ids 
+  TYPE(vector_field),POINTER,SAVE            :: field_Ids
+  TYPE(sorted_list),POINTER,SAVE,PRIVATE     :: Ids
+  
 
 CONTAINS
   INCLUDE 'vector_field_contains.inc'
-  
+
+  SUBROUTINE field__swap_context(saved_field_ids,saved_ids)
+  IMPLICIT NONE
+    TYPE(vector_field),POINTER :: saved_field_ids
+    TYPE(sorted_list),POINTER  :: saved_ids
+    
+    field_Ids=>saved_field_ids
+    Ids=>saved_Ids
+
+  END SUBROUTINE field__swap_context
+
   SUBROUTINE field__init
   IMPLICIT NONE
-    
-    ALLOCATE(field_Ids)
-    ALLOCATE(Ids)
     
     CALL vector_field__new(field_Ids)