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

Timestamp:

02/16/09 14:24:05 (15 years ago)

Author:

ymipsl

Message:

Correction de bugs pour portage sur Mercure

File:

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

XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_client.f90

@@ -57 +57 @@
 !    PRINT *,"Pos in Buffer",Pending_request(Request_pos)%Pos,"pack_pos",pack_pos
     CALL pack(request_id)
-
   END SUBROUTINE create_request
   
@@ -97 +96 @@
       IF ( nb_request_pending==1 .AND. (buffer_free < MPI_buffer_size * 0.4) ) THEN
         ok_out=.FALSE.
-        CALL Wait_us(10)
+        CALL Wait_us(1)
         IF (.NOT. is_buffer_full) THEN
           CALL VTb(VTbuffer_full)
@@ -119 +118 @@
                     server_rank,tag_iocomm,iocomm,Pending_request(Request_pos)%request,ierr )
     
-!    PRINT *,"Requete envoyée !!!!" 
+!    PRINT *,"Requete envoyï¿œe !!!!" 
 !    PRINT *,"Message : ",MPI_Buffer(Pending_request(Request_pos)%Pos:Pending_request(Request_pos)%Pos+message_size-1)              
       IF ( Pack_Pos > MPI_buffer_size*0.6 ) THEN