Changeset 32 for XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_client.f90

Timestamp:

04/20/09 18:16:37 (15 years ago)

Author:

ymipsl

Message:

Portage sur Vargas + correction sur IOSERVER : finalisation de la derniÚre requÚte

File:

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

XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_client.f90

@@ -21 +21 @@
   LOGICAL,SAVE :: ok_new_request
   
+  LOGICAL,SAVE :: is_last_request
 CONTAINS
 
@@ -35 +36 @@
     Request_pos=1
     ok_new_request=.TRUE.
+    is_last_request=.FALSE.
+    
     CALL set_pack_buffer(MPI_Buffer,buffer_begin)
     
@@ -94 +97 @@
 !      PRINT *,"Request_pos",request_pos
 !      PRINT *,"Pos in Buffer",Pending_request(Request_pos)%Pos,"pack_pos",pack_pos
-      IF ( nb_request_pending==1 .AND. (buffer_free < MPI_buffer_size * 0.4) ) THEN
+      IF ( nb_request_pending==1 .AND. ( (buffer_free < MPI_buffer_size * 0.4) .OR. is_last_request ) ) THEN
         ok_out=.FALSE.
-        CALL Wait_us(1)
+        CALL Wait_us(10)
         IF (.NOT. is_buffer_full) THEN
           CALL VTb(VTbuffer_full)