Changeset 37


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

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

Location:
XMLIO_SERVER/trunk
Files:
3 added
8 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_SERVER/trunk/bld.cfg

    r27 r37  
    2828bld::tool::fflags    %FFLAGS %INCDIR 
    2929bld::tool::ldflags   %BASE_LD %LIB 
    30  
     30bld::tool::cppflags  %FPP_FLAGS %INCDIR 
     31bld::tool::fppflags  %FPP_FLAGS %INCDIR 
     32bld::tool::fppkeys   %CPP_KEY 
    3133# Pre-process code before analysing dependencies 
    3234bld::pp              1 
  • XMLIO_SERVER/trunk/configure

    r32 r37  
    66set has_use_vt             = FALSE 
    77set has_oasis              = FALSE 
     8set has_no_mpi             = FALSE 
    89 
    910top: 
     
    5556    case -oasis 
    5657        set has_oasis = TRUE 
     58        shift ; goto top 
     59 
     60    case -no_mpi 
     61        set has_no_mpi = TRUE 
    5762        shift ; goto top 
    5863    
     
    135140endif 
    136141 
     142if ( $has_no_mpi == TRUE ) then 
     143  set CPP_KEY="NO_MPI $CPP_KEY" 
     144endif 
    137145 
    138146 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_global_memory.f90

    r32 r37  
    1111 
    1212  SUBROUTINE Allocate_global_memory_r8(size,Pt) 
     13  USE mpi_mod 
    1314  IMPLICIT NONE 
    14     INCLUDE 'mpif.h' 
    1515    REAL(kind=8),POINTER :: Pt(:) 
    1616    INTEGER              :: size 
     
    3939 
    4040  SUBROUTINE Allocate_global_memory_i8(size,Pt) 
     41  USE mpi_mod 
    4142  IMPLICIT NONE 
    42     INCLUDE 'mpif.h' 
    4343    INTEGER(kind=8),POINTER :: Pt(:) 
    4444    INTEGER              :: size 
     
    6666   
    6767!  SUBROUTINE Allocate_global_memory_r4(size,Pt) 
     68!  USE mpi_mod 
    6869!  IMPLICIT NONE 
    69 !    INCLUDE 'mpif.h' 
    7070!    REAL(kind=4),POINTER :: Pt(:) 
    7171!    INTEGER              :: size 
     
    9595 
    9696  SUBROUTINE Allocate_global_memory_i4(size,Pt) 
     97  USE mpi_mod 
    9798  IMPLICIT NONE 
    98     INCLUDE 'mpif.h' 
    9999    INTEGER(kind=4),POINTER :: Pt(:) 
    100100    INTEGER              :: size 
  • 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 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_ioclient_para.F90

    r31 r37  
    1616  USE mod_prism_get_comm   
    1717#endif 
     18  USE mpi_mod 
    1819  IMPLICIT NONE 
    19     INCLUDE 'mpif.h' 
    2020    INTEGER :: NEW_COMM 
    2121    INTEGER :: ierr 
     
    7979   
    8080  SUBROUTINE Finalize_parallel 
     81  USE mpi_mod 
    8182  IMPLICIT NONE 
    82     include 'mpif.h' 
    8383    INTEGER :: ierr 
    8484     
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_ioserver_para.F90

    r31 r37  
    2424  USE mod_prism_get_comm  
    2525#endif  
     26  USE mpi_mod 
    2627  IMPLICIT NONE 
    27     INCLUDE 'mpif.h' 
    2828    INTEGER :: ierr 
    2929    INTEGER :: global_rank 
     
    8686  USE mod_prism_proto 
    8787#endif 
     88  USE mpi_mod 
    8889  IMPLICIT NONE 
    89     include 'mpif.h' 
    9090    INTEGER :: ierr 
    9191     
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_client.f90

    r36 r37  
    5555  USE mod_ioclient_para 
    5656  USE mpitrace 
     57  USE mpi_mod 
    5758  IMPLICIT NONE 
    58     INCLUDE 'mpif.h' 
    5959    INTEGER :: request_id 
    6060     
     
    7676  USE mpitrace 
    7777  use mod_wait 
     78  USE mpi_mod 
    7879  IMPLICIT NONE 
    79     INCLUDE 'mpif.h' 
    8080    INTEGER :: ierr 
    8181    INTEGER :: message_size 
     
    150150 
    151151  SUBROUTINE Check_request 
     152  USE mpi_mod 
    152153  IMPLICIT NONE 
    153   INCLUDE 'mpif.h' 
    154154  LOGICAL :: ok_out 
    155155  LOGICAL :: OK_complete 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_mpi_buffer_server.f90

    r36 r37  
    5454  USE mod_ioserver_para 
    5555  USE mpitrace 
    56   IMPLICIT NONE 
    57   INCLUDE 'mpif.h' 
     56  USE mpi_mod 
     57  IMPLICIT NONE 
    5858    INTEGER :: n 
    5959    INTEGER :: status(MPI_STATUS_SIZE) 
Note: See TracChangeset for help on using the changeset viewer.