Changeset 50 for XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90

Timestamp:

11/12/09 14:35:37 (15 years ago)

Author:

ymipsl

Message:

Ajout de la définition du calendrier IOIPLS

YM

File:

• XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90 (modified) (3 diffs)

XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90

@@ -50 +50 @@
         CALL event__set_timestep
 
+      CASE (event_id_set_calendar)
+        CALL event__set_calendar
+
       CASE (event_id_enable_field)
         CALL event__enable_field
@@ -71 +74 @@
         is_terminated=.TRUE.  
         PRINT *,"TERMINATE_EVENT RECEIVED"
+        
 
       CASE DEFAULT 
@@ -410 +414 @@
   END SUBROUTINE event__set_timestep
     
+
+  SUBROUTINE event__set_calendar
+  IMPLICIT NONE
+    INTEGER :: lenc
+      
+    CALL unpack(lenc)
+    CALL sub_internal(lenc)
+  
+  CONTAINS
+    SUBROUTINE sub_internal(lenc)
+    IMPLICIT NONE
+      INTEGER :: lenc
+      CHARACTER(len=lenc) :: str_calendar
+      
+      CALL unpack(str_calendar)
+      
+      CALL iom__set_calendar(str_calendar)
+
+    END SUBROUTINE sub_internal
+  END SUBROUTINE event__set_calendar
+  
     
   SUBROUTINE event__close_io_definition