Ignore:
Timestamp:
07/07/09 17:04:46 (15 years ago)
Author:
ymipsl
Message:

Les buffers MPI sont maintenant donnes en quantite de memoire totale par serveur et non par client.
La valeur par defaut peut etre redefinie dans la namelist.

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_client.f90

    r32 r36  
    2020  INTEGER,SAVE :: start_pos 
    2121  LOGICAL,SAVE :: ok_new_request 
    22    
    2322  LOGICAL,SAVE :: is_last_request 
     23 
     24  INTEGER      :: mpi_buffer_size 
     25 
    2426CONTAINS 
    2527 
    … …  
    2729  USE mod_global_memory 
    2830  USE mod_pack 
     31  USE mod_ioclient_para 
    2932  IMPLICIT NONE 
     33 
     34  INTEGER  :: nb_client 
    3035   
     36    nb_client=iosize-1   
     37    mpi_buffer_size=global_mpi_buffer_size/nb_client 
     38     
    3139    CALL allocate_global_memory(mpi_buffer_size,MPI_Buffer) 
    3240    buffer_begin=1 
Note: See TracChangeset for help on using the changeset viewer.