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_ioserver_namelist.f90

    r26 r36  
    11MODULE mod_ioserver_namelist 
    22 
    3   LOGICAL :: using_server 
    4   LOGICAL :: using_oasis 
    5   CHARACTER(LEN=100) :: client_id 
    6   CHARACTER(LEN=100) :: server_id 
    7    
     3  LOGICAL,SAVE :: using_server 
     4  LOGICAL,SAVE :: using_oasis 
     5  CHARACTER(LEN=100),SAVE :: client_id 
     6  CHARACTER(LEN=100),SAVE :: server_id 
    87  NAMELIST /coupling_param/ using_server,using_oasis,client_id,server_id   
     8 
     9  INTEGER,SAVE :: global_mpi_buffer_size             
     10  NAMELIST /mpi_param/ global_mpi_buffer_size   
    911 
    1012  INTEGER,PARAMETER,PRIVATE :: starting_unit=356 
     
    1921    client_id='unknown' 
    2022    server_id='unknown' 
     23    global_mpi_buffer_size=512 
     24     
    2125  END SUBROUTINE set_default_namelist 
    2226   
     
    4145    IF (ierr==0) THEN 
    4246      READ(unit,nml=coupling_param) 
     47      READ(unit,nml=mpi_param) 
     48      global_mpi_buffer_size=global_mpi_buffer_size*1024*128   
    4349      CLOSE(unit) 
    4450    ELSE 
Note: See TracChangeset for help on using the changeset viewer.