Changeset 36 for XMLIO_SERVER/trunk/src/IOSERVER/mod_ioserver_namelist.f90

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:

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

XMLIO_SERVER/trunk/src/IOSERVER/mod_ioserver_namelist.f90

@@ -1 +1 @@
 MODULE mod_ioserver_namelist
 
-  LOGICAL :: using_server
-  LOGICAL :: using_oasis
-  CHARACTER(LEN=100) :: client_id
-  CHARACTER(LEN=100) :: server_id
-  
+  LOGICAL,SAVE :: using_server
+  LOGICAL,SAVE :: using_oasis
+  CHARACTER(LEN=100),SAVE :: client_id
+  CHARACTER(LEN=100),SAVE :: server_id
   NAMELIST /coupling_param/ using_server,using_oasis,client_id,server_id  
+
+  INTEGER,SAVE :: global_mpi_buffer_size            
+  NAMELIST /mpi_param/ global_mpi_buffer_size  
 
   INTEGER,PARAMETER,PRIVATE :: starting_unit=356
@@ -19 +21 @@
     client_id='unknown'
     server_id='unknown'
+    global_mpi_buffer_size=512
+    
   END SUBROUTINE set_default_namelist
   
@@ -41 +45 @@
     IF (ierr==0) THEN
       READ(unit,nml=coupling_param)
+      READ(unit,nml=mpi_param)
+      global_mpi_buffer_size=global_mpi_buffer_size*1024*128  
       CLOSE(unit)
     ELSE