Changeset 28 for XMLIO_SERVER/trunk/src/XMLIO/mod_context.f90

Timestamp:

04/08/09 16:05:18 (15 years ago)

Author:

ymipsl

Message:

Feature : ajout des paramÚtres temporels dans les contexts

File:

• XMLIO_SERVER/trunk/src/XMLIO/mod_context.f90 (modified) (4 diffs)

XMLIO_SERVER/trunk/src/XMLIO/mod_context.f90

@@ -15 +15 @@
   USE mod_axis_definition
   USE mod_dependency
+  USE mod_time_parameters
 
 
@@ -48 +49 @@
     TYPE(vector_field_out),POINTER    :: dependency__field_enabled 
     TYPE(vector_field_dep),POINTER    :: dependency__field_id
-    TYPE(sorted_list),POINTER         :: dependency__sorted_id  
-  
+    TYPE(sorted_list),POINTER         :: dependency__sorted_id 
+    INTEGER,POINTER                   :: time_param__initial_timestep
+    REAL,POINTER                      :: time_param__initial_date
+    REAL,POINTER                      :: time_param__timestep_value 
+    INTEGER,POINTER                   :: time_param__timestep_number
+
   END TYPE context
   
@@ -132 +137 @@
         ALLOCATE(pt_context%dependency__field_id)
         ALLOCATE(pt_context%dependency__sorted_id)  
+        ALLOCATE(pt_context%time_param__initial_timestep)
+        ALLOCATE(pt_context%time_param__initial_date)
+        ALLOCATE(pt_context%time_param__timestep_value) 
+        ALLOCATE(pt_context%time_param__timestep_number)
 
         CALL context__swap(pt_context)
@@ -207 +216 @@
       CALL axis_definition__swap_context(pt_context%axis_definition__axis_definition)
       CALL dependency__swap_context(pt_context%dependency__file_enabled,pt_context%dependency__field_enabled,  &
-                                    pt_context%dependency__field_id,pt_context%dependency__sorted_id)  
+                                    pt_context%dependency__field_id,pt_context%dependency__sorted_id)
+      CALL time_parameters__swap_context(pt_context%time_param__initial_timestep,pt_context%time_param__initial_date,  &
+                                         pt_context%time_param__timestep_value,pt_context%time_param__timestep_number)
+                                    
     END SUBROUTINE context__swap_pt