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

XMLIO_SERVER/trunk/src/XMLIO/mod_field_definition.f90

@@ -6 +6 @@
 CONTAINS
 
+  SUBROUTINE field_definition__swap_context(saved_field_definition)
+  IMPLICIT NONE
+    TYPE(field_group),POINTER :: saved_field_definition
+  
+    field_definition=>saved_field_definition
+
+  END SUBROUTINE field_definition__swap_context
+
+
   SUBROUTINE field_definition__Init
-  USE mod_field_group
   IMPLICIT NONE
   
-    ALLOCATE(field_definition)
-    CALL field_group__new(field_definition,"field_definition")
-    
+   CALL field_group__new(field_definition,"field_definition")
+
   END SUBROUTINE field_definition__Init
+  
         
 END MODULE mod_field_definition