Changeset 192 for XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90

Timestamp:

05/13/11 14:00:14 (13 years ago)

Author:

ymipsl

Message:

Correction : utilisation des noms d'intrinseques fortran pack/unpack
pack => pack_data
unpack => unpack_data

YM

File:

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

XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90

@@ -1 +1 @@
 MODULE mod_event_client
-  USE mod_pack, ONLY : pack, pack_field
+  USE mod_pack, ONLY : pack_data, pack_field
   USE mod_mpi_buffer_client, ONLY : create_request, finalize_request,is_last_request
   USE mod_event_parameters 
@@ -14 +14 @@
     IF (using_server) THEN
       CALL create_request(event_id_swap_context)
-      CALL pack(LEN(TRIM(id)))
-      CALL pack(TRIM(id))
+      CALL pack_data(LEN(TRIM(id)))
+      CALL pack_data(TRIM(id))
       CALL Finalize_request
     ELSE
@@ -31 +31 @@
     IF (using_server) THEN
       CALL create_request(event_id_parse_xml_file)
-      CALL pack(LEN(TRIM(filename)))
-      CALL pack(TRIM(filename))
+      CALL pack_data(LEN(TRIM(filename)))
+      CALL pack_data(TRIM(filename))
       CALL Finalize_request
     ELSE
@@ -49 +49 @@
     IF (using_server) THEN
       CALL create_request(event_id_set_vert_axis)
-      CALL pack(LEN(TRIM(vert_name)))
-      CALL pack(TRIM(vert_name))
-      CALL pack(SIZE(vert_value))
-      CALL pack(vert_value)
+      CALL pack_data(LEN(TRIM(vert_name)))
+      CALL pack_data(TRIM(vert_name))
+      CALL pack_data(SIZE(vert_value))
+      CALL pack_data(vert_value)
       CALL Finalize_request
     ELSE
@@ -69 +69 @@
     IF (using_server) THEN
       CALL create_request(event_id_set_grid_dimension)
-      CALL pack(LEN(TRIM(name)))
-      CALL pack(TRIM(name))
-      CALL pack(ni_glo)
-      CALL pack(nj_glo)
+      CALL pack_data(LEN(TRIM(name)))
+      CALL pack_data(TRIM(name))
+      CALL pack_data(ni_glo)
+      CALL pack_data(nj_glo)
       CALL Finalize_request
     ELSE
@@ -94 +94 @@
     IF (using_server) THEN
       CALL create_request(event_id_set_grid_domain)
-      CALL pack(LEN(TRIM(name)))
-      CALL pack(TRIM(name))
-      CALL pack(ni)
-      CALL pack(nj)
-      CALL pack(ibegin)
-      CALL pack(jbegin)
-      CALL pack(lon)
-      CALL pack(lat)
+      CALL pack_data(LEN(TRIM(name)))
+      CALL pack_data(TRIM(name))
+      CALL pack_data(ni)
+      CALL pack_data(nj)
+      CALL pack_data(ibegin)
+      CALL pack_data(jbegin)
+      CALL pack_data(lon)
+      CALL pack_data(lat)
       CALL Finalize_request
     ELSE
@@ -116 +116 @@
     IF (using_server) THEN
       CALL create_request(event_id_set_grid_type_nemo)
-      CALL pack(LEN(TRIM(name)))
-      CALL pack(TRIM(name))
+      CALL pack_data(LEN(TRIM(name)))
+      CALL pack_data(TRIM(name))
       CALL Finalize_request
     ELSE
@@ -134 +134 @@
     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 pack_data(LEN(TRIM(name)))
+      CALL pack_data(TRIM(name))
+      CALL pack_data(nbp)
+      CALL pack_data(offset)
       CALL Finalize_request
     ELSE
@@ -154 +154 @@
     IF (using_server) THEN
       CALL create_request(event_id_set_time_parameters)
-      CALL pack(itau0)
-      CALL pack(zjulian)
-      CALL pack(zdt)
+      CALL pack_data(itau0)
+      CALL pack_data(zjulian)
+      CALL pack_data(zdt)
       CALL Finalize_request
     ELSE
@@ -172 +172 @@
     IF (using_server) THEN
       CALL create_request(event_id_set_calendar)
-      CALL pack(LEN(TRIM(str_calendar)))
-      CALL pack(TRIM(str_calendar))
+      CALL pack_data(LEN(TRIM(str_calendar)))
+      CALL pack_data(TRIM(str_calendar))
       CALL Finalize_request
     ELSE
@@ -189 +189 @@
     IF (using_server) THEN
       CALL create_request(event_id_enable_field)
-      CALL pack(len(varname))
-      CALL pack(varname)
+      CALL pack_data(len(varname))
+      CALL pack_data(varname)
       CALL Finalize_request 
     ELSE
@@ -205 +205 @@
     IF (using_server) THEN
       CALL create_request(event_id_disable_field)
-      CALL pack(len(varname))
-      CALL pack(varname)
+      CALL pack_data(len(varname))
+      CALL pack_data(varname)
       CALL Finalize_request 
     ELSE
@@ -222 +222 @@
     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_data(len(varname))
+      CALL pack_data(size(var,1))
+      CALL pack_data(varname)
       CALL pack_field(var)
       CALL Finalize_request 
@@ -241 +241 @@
     IF (using_server) THEN
       CALL create_request(event_id_write_field2d)
-      CALL pack(len(varname))
-      CALL pack(size(var,1))
-      CALL pack(size(var,2))
-      CALL pack(varname)
+      CALL pack_data(len(varname))
+      CALL pack_data(size(var,1))
+      CALL pack_data(size(var,2))
+      CALL pack_data(varname)
       CALL pack_field(var)
       CALL Finalize_request 
@@ -261 +261 @@
     IF (using_server) THEN
       CALL create_request(event_id_write_field3d)
-      CALL pack(len(varname))
-      CALL pack(size(var,1))
-      CALL pack(size(var,2))
-      CALL pack(size(var,3))
-      CALL pack(varname)
+      CALL pack_data(len(varname))
+      CALL pack_data(size(var,1))
+      CALL pack_data(size(var,2))
+      CALL pack_data(size(var,3))
+      CALL pack_data(varname)
       CALL pack_field(var)
       CALL Finalize_request 
@@ -281 +281 @@
     IF (using_server) THEN
       CALL create_request(event_id_set_timestep)
-      CALL pack(timestep)
+      CALL pack_data(timestep)
       CALL Finalize_request
     ELSE
@@ -313 +313 @@
     IF (using_server) THEN
       CALL create_request(event_id_set_attribut)
-      CALL pack(len(id))
-      CALL pack(id)
-      CALL pack(attrib)
+      CALL pack_data(len(id))
+      CALL pack_data(id)
+      CALL pack_data(attrib)
       CALL Finalize_request
     ELSE