Changeset 50 for XMLIO_SERVER

Timestamp:

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

Author:

ymipsl

Message:

Ajout de la définition du calendrier IOIPLS

YM

Location:

XMLIO_SERVER/trunk/src/IOSERVER

Files:

• mod_event_client.f90 (modified) (1 diff)
• mod_event_parameters.f90 (modified) (1 diff)
• mod_event_server.f90 (modified) (3 diffs)
• mod_interface_ioipsl.f90 (modified) (1 diff)
• mod_iomanager.f90 (modified) (1 diff)

XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90

@@ -165 +165 @@
 
 
+  SUBROUTINE event__set_calendar(str_calendar)
+  USE iomanager
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN) :: str_calendar
+        
+    IF (using_server) THEN
+      CALL create_request(event_id_set_calendar)
+      CALL pack(LEN(TRIM(str_calendar)))
+      CALL pack(TRIM(str_calendar))
+      CALL Finalize_request
+    ELSE
+     CALL iom__set_calendar(str_calendar)
+    ENDIF
+      
+  END SUBROUTINE event__set_calendar
+  
+  
   SUBROUTINE event__enable_field(varname)
   USE iomanager

XMLIO_SERVER/trunk/src/IOSERVER/mod_event_parameters.f90

@@ -17 +17 @@
   INTEGER, PARAMETER :: event_id_write_field1d         = 115
   INTEGER, PARAMETER :: event_id_set_attribut          = 116
+  INTEGER, PARAMETER :: event_id_set_calendar          = 117
   INTEGER, PARAMETER :: event_id_stop_ioserver         = 999
 END MODULE mod_event_parameters

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

XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

@@ -14 +14 @@
   END SUBROUTINE init_interface_ioipsl
 
-
+  SUBROUTINE set_calendar(str_calendar)
+  USE ioipsl
+    CHARACTER(LEN=*) :: str_calendar
+    
+    CALL ioconf_calendar(str_calendar)
+    
+  END SUBROUTINE set_calendar
+  
+  
   SUBROUTINE set_time_parameters(ini_timestep0,zjulian0,timestep0)
   USE xmlio

XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

@@ -159 +159 @@
     
   END SUBROUTINE iom__set_timestep
+
+  SUBROUTINE iom__set_calendar(str_calendar)
+  USE mod_interface_ioipsl
+  IMPLICIT NONE
+    CHARACTER(LEN=*) :: str_calendar
+    
+    IF (current_rank==nb_client) CALL set_calendar(str_calendar)
+    
+  END SUBROUTINE iom__set_calendar
 
   SUBROUTINE iom__enable_field(varname)