Changeset 26 for XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.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/IOSERVER/mod_event_server.f90 (modified) (6 diffs)

XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90

@@ -20 +20 @@
     SELECT CASE (event_id)
     
+      CASE (event_id_swap_context)
+        CALL event__swap_context
+        
       CASE (event_id_parse_xml_file)
         CALL event__parse_xml_file 
@@ -35 +38 @@
         CALL event__set_grid_type_nemo
 
+      CASE (event_id_set_grid_type_lmdz)
+        CALL event__set_grid_type_lmdz
+
       CASE (event_id_set_time_parameters)
         CALL event__set_time_parameters
@@ -49 +55 @@
       CASE (event_id_disable_field)
         CALL event__disable_field
+
+      CASE (event_id_write_Field1d)
+        CALL event__write_Field1d
 
       CASE (event_id_write_Field2d)
@@ -67 +76 @@
    END SUBROUTINE Process_event
    
+  SUBROUTINE event__swap_context
+  IMPLICIT NONE
+    INTEGER :: id_size
+   
+    CALL unpack(id_size)
+    CALL sub_internal(id_size)
+     
+  CONTAINS
+    
+    SUBROUTINE sub_internal(id_size)
+      INTEGER :: id_size
+      CHARACTER(LEN=id_size) :: id     
+     
+       CALL unpack(id)
+     
+       CALL iom__swap_context(id)
+       
+     END SUBROUTINE sub_internal
+  
+  END SUBROUTINE event__swap_context
+  
 
   SUBROUTINE event__parse_xml_file
@@ -172 +202 @@
   END SUBROUTINE event__set_grid_type_nemo   
 
+  SUBROUTINE event__set_grid_type_lmdz 
+  IMPLICIT NONE    
+    INTEGER :: name_size
+
+    CALL unpack(name_size)
+    CALL sub_internal(name_size)
+     
+  CONTAINS
+    
+    SUBROUTINE sub_internal(name_size)
+      INTEGER :: name_size
+      CHARACTER(LEN=name_size) :: name     
+      INTEGER                  :: nbp
+      INTEGER                  :: offset
+      
+       CALL unpack(name)
+       CALL unpack(nbp)
+       CALL unpack(offset)
+       CALL iom__set_grid_type_lmdz(name,nbp,offset)
+
+     END SUBROUTINE sub_internal
+   
+  END SUBROUTINE event__set_grid_type_lmdz   
 
   SUBROUTINE event__set_vert_axis
@@ -256 +309 @@
   
       
+  SUBROUTINE event__write_field1D
+  IMPLICIT NONE
+    INTEGER :: lenc
+    INTEGER :: dim1
+      
+    CALL unpack(lenc)
+    CALL unpack(dim1)
+    CALL sub_internal(lenc,dim1)
+  
+  CONTAINS
+    SUBROUTINE sub_internal(lenc,dim1)
+    IMPLICIT NONE
+      INTEGER :: lenc
+      INTEGER :: dim1
+      CHARACTER(len=lenc) :: varname
+      REAL                :: var(dim1)
+      
+      CALL unpack(varname)
+      CALL unpack_field(var)
+      
+      CALL iom__write_Field1d(varname,var)
+
+    END SUBROUTINE sub_internal
+  END SUBROUTINE event__write_field1d
+
   SUBROUTINE event__write_field2D
   IMPLICIT NONE