Ignore:
Timestamp:
07/10/09 17:01:28 (15 years ago)
Author:
ymipsl
Message:

Feature : permet d'utiliser XMLIO-SERVER sans MPI, donc en mode édition de lien, sans server.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r27 r37  
    1111  USE mod_event_client 
    1212  USE iomanager 
     13  USE mpi_mod 
    1314  IMPLICIT NONE 
    1415    INTEGER, INTENT(INOUT),OPTIONAL :: NEW_COMM 
    … …  
    1920    INTEGER :: ierr 
    2021    LOGICAL :: init 
    21     INCLUDE 'mpif.h' 
    2222  
    2323    CALL read_namelist 
    2424 
    25     IF (using_server) THEN 
    26       CALL Init_parallel 
    27       CALL Init_mpi_buffer 
    28       CALL Init_wait 
    29       IF (PRESENT(NEW_COMM)) THEN 
    30         NEW_COMM=intracomm 
     25    IF (using_mpi) THEN 
     26      IF (using_server) THEN 
     27        CALL Init_parallel 
     28        CALL Init_mpi_buffer 
     29        CALL Init_wait 
     30        IF (PRESENT(NEW_COMM)) THEN 
     31          NEW_COMM=intracomm 
     32        ENDIF 
     33      ELSE 
     34        CALL MPI_INITIALIZED(init,ierr) 
     35        IF (init) THEN 
     36          IF (.NOT. PRESENT(NEW_COMM)) THEN 
     37             Comm=MPI_COMM_WORLD 
     38          ELSE 
     39            Comm=New_Comm 
     40          ENDIF 
     41        ELSE 
     42          CALL MPI_INIT(ierr) 
     43          Comm=MPI_COMM_WORLD 
     44           
     45          IF (PRESENT(NEW_COMM)) THEN 
     46            New_Comm=MPI_COMM_WORLD 
     47          ENDIF 
     48        ENDIF   
     49        CALL MPI_COMM_SIZE(Comm,nb_server,ierr)      
     50        CALL MPI_COMM_RANK(Comm,rank,ierr) 
     51        CALL iom__init(1,nb_server,rank) 
     52        CALL iom__set_current_rank(1) 
    3153      ENDIF 
    3254    ELSE 
    33       CALL MPI_INITIALIZED(init,ierr) 
    34       IF (init) THEN 
    35         IF (.NOT. PRESENT(NEW_COMM)) THEN 
    36            Comm=MPI_COMM_WORLD 
    37         ELSE 
    38           Comm=New_Comm 
    39         ENDIF 
    40       ELSE 
    41         CALL MPI_INIT(ierr) 
    42         Comm=MPI_COMM_WORLD 
    43          
    44         IF (PRESENT(NEW_COMM)) THEN 
    45           New_Comm=MPI_COMM_WORLD 
    46         ENDIF 
    47       ENDIF   
    48       CALL MPI_COMM_SIZE(Comm,nb_server,ierr)      
    49       CALL MPI_COMM_RANK(Comm,rank,ierr) 
    50       CALL iom__init(1,nb_server,rank) 
     55      CALL iom__init(1,1,0) 
    5156      CALL iom__set_current_rank(1) 
    5257    ENDIF 
Note: See TracChangeset for help on using the changeset viewer.