Changes in XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90 [26:8]

File:

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

XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90

@@ -3 +3 @@
   USE mod_mpi_buffer_client, ONLY : create_request, finalize_request
   USE mod_event_parameters 
-  USE mod_ioserver_namelist
+
+  LOGICAL, SAVE :: using_server
       
 CONTAINS
 
-  SUBROUTINE event__swap_context(id)
-  USE iomanager
-  IMPLICIT NONE
-    CHARACTER(LEN=*),INTENT(IN) :: id
-    
-    IF (using_server) THEN
-      CALL create_request(event_id_swap_context)
-      CALL pack(LEN(TRIM(id)))
-      CALL pack(TRIM(id))
-      CALL Finalize_request
-    ELSE
-      CALL iom__swap_context(TRIM(id))
-    ENDIF
-    
-  END SUBROUTINE  event__swap_context
-  
-  
   SUBROUTINE event__parse_xml_file(filename)
   USE iomanager
@@ -125 +109 @@
   END SUBROUTINE event__set_grid_type_nemo
   
-  SUBROUTINE event__set_grid_type_lmdz(name,nbp,offset)
-  USE iomanager
-  IMPLICIT NONE
-    CHARACTER(LEN=*),INTENT(IN) :: name
-    INTEGER,INTENT(IN)          :: nbp
-    INTEGER,INTENT(IN)          :: offset
-        
-    IF (using_server) THEN
-      CALL create_request(event_id_set_grid_type_lmdz)
-      CALL pack(LEN(TRIM(name)))
-      CALL pack(TRIM(name))
-      CALL pack(nbp)
-      CALL pack(offset)
-      CALL Finalize_request
-    ELSE
-     CALL iom__set_grid_type_lmdz(name,nbp,offset)
-    ENDIF
-      
-  END SUBROUTINE event__set_grid_type_lmdz
   
   SUBROUTINE event__set_time_parameters(itau0,zjulian,zdt)
@@ -197 +162 @@
   END SUBROUTINE event__disable_field
   
-  SUBROUTINE event__write_field1d(varname,var)
-  USE iomanager
-  IMPLICIT NONE
-    CHARACTER(len=*),INTENT(IN)     :: varname
-    REAL, DIMENSION(:),INTENT(IN) :: var
-
-    IF (using_server) THEN
-      CALL create_request(event_id_write_field1d)
-      CALL pack(len(varname))
-      CALL pack(size(var,1))
-      CALL pack(varname)
-      CALL pack_field(var)
-      CALL Finalize_request 
-    ELSE
-      CALL iom__write_field1d(varname,var)
-    ENDIF
-    
-  END SUBROUTINE event__write_field1d
-
   SUBROUTINE event__write_field2d(varname,var)
   USE iomanager