Changeset 26 for XMLIO_SERVER/trunk/src/XMLIO/mod_dependency.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_dependency.f90 (modified) (5 diffs)

XMLIO_SERVER/trunk/src/XMLIO/mod_dependency.f90

@@ -32 +32 @@
 INCLUDE 'vector_field_out_def.inc'
 
-TYPE(vector_file_dep),POINTER      :: file_enabled
-TYPE(vector_field_out),POINTER     :: field_enabled 
-TYPE(vector_field_dep),POINTER     :: field_id
+TYPE(vector_file_dep),POINTER,SAVE      :: file_enabled
+TYPE(vector_field_out),POINTER,SAVE     :: field_enabled 
+TYPE(vector_field_dep),POINTER,SAVE     :: field_id
 
  
-TYPE(sorted_list),POINTER :: sorted_id
+TYPE(sorted_list),POINTER,SAVE :: sorted_id
 
 CONTAINS
@@ -45 +45 @@
 INCLUDE 'vector_field_out_contains.inc'
 
+  
+  SUBROUTINE dependency__swap_context(saved_file_enabled,saved_field_enabled,save_field_id,saved_sorted_id)  
+  IMPLICIT NONE
+    TYPE(vector_file_dep),POINTER      :: saved_file_enabled
+    TYPE(vector_field_out),POINTER     :: saved_field_enabled 
+    TYPE(vector_field_dep),POINTER     :: save_field_id
+    TYPE(sorted_list),POINTER          :: saved_sorted_id  
+    
+    file_enabled=>saved_file_enabled   
+    field_enabled=>saved_field_enabled
+    field_id=>save_field_id
+    sorted_id=>saved_sorted_id
+      
+  END SUBROUTINE dependency__swap_context
+  
   SUBROUTINE set_dependency
   IMPLICIT NONE
@@ -76 +91 @@
       Pt_fg=>Pt_file_group
     ELSE
-      ALLOCATE(file_enabled)
       CALL vector_file_dep__new(file_enabled)
       Pt_fg=>file_definition
@@ -161 +175 @@
   INTEGER                  :: j
   
-    ALLOCATE(field_enabled)
     CALL vector_field_out__new(field_enabled)
     
@@ -189 +202 @@
   INTEGER :: i
   
-    ALLOCATE(field_id)
     CALL vector_field_dep__new(field_id)
-
-    ALLOCATE(sorted_id)
     CALL sorted_list__new(sorted_id)