Ignore:
Timestamp:
07/07/09 17:04:46 (13 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_server.f90

    r17 r36  
    2424   
    2525  INTEGER,SAVE :: current_rank 
    26    
     26  INTEGER,SAVE :: mpi_buffer_size 
    2727   
    2828CONTAINS 
     
    3535     
    3636    ALLOCATE(buffers(nb_client)) 
    37      
     37    mpi_buffer_size=global_mpi_buffer_size/nb_client  
    3838    DO n=1,nb_client 
    3939      CALL allocate_global_memory(mpi_buffer_size,buffers(n)%MPI_Buffer) 
Note: See TracChangeset for help on using the changeset viewer.