Changeset 30


Ignore:
Timestamp:
04/15/09 17:55:40 (13 years ago)
Author:
ymipsl
Message:

Ajout de clef CPP USE_OASIS

Location:
XMLIO_SERVER/trunk
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_SERVER/trunk/configure

    r27 r30  
    126126  set INCDIR="$INCDIR $OASIS_INCDIR" 
    127127  set LIB="$LIB $OASIS_LIBDIR $OASIS_LIB" 
     128  set CPP_KEY="$CPP_KEY USE_OASIS" 
    128129endif 
    129130 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_ioclient_para.f90

    r27 r30  
    1313  USE mpitrace 
    1414  USE mod_ioserver_namelist 
     15#ifdef USE_OASIS 
    1516  USE mod_prism_get_comm   
     17#endif 
    1618  IMPLICIT NONE 
    1719    INCLUDE 'mpif.h' 
     
    3335      oasis_server_id=server_id 
    3436      PRINT *,'prism_get_intracomm' 
     37#ifdef USE_OASIS 
    3538      CALL prism_get_intracomm(Comm_client_server,oasis_server_id,ierr) 
     39#endif 
    3640    ELSE 
    3741      CALL MPI_INIT(ierr) 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_ioserver_para.f90

    r27 r30  
    2121  USE mpitrace 
    2222  USE mod_ioserver_namelist 
    23   USE mod_prism_get_comm   
     23#ifdef USE_OASIS 
     24  USE mod_prism_get_comm  
     25#endif  
    2426  IMPLICIT NONE 
    2527    INCLUDE 'mpif.h' 
     
    3739       oasis_server_id=server_id 
    3840       oasis_client_id=client_id 
     41#ifdef USE_OASIS 
    3942       CALL prism_init_comp_proto (comp_id, oasis_server_id, ierr) 
    4043       CALL prism_get_intracomm(Comm_client_server,oasis_client_id,ierr) 
     44#endif 
    4145    ELSE 
    4246      CALL MPI_INIT(ierr) 
     
    7983  SUBROUTINE Finalize_parallel 
    8084  USE mod_ioserver_namelist 
     85#ifdef USE_OASIS 
    8186  USE mod_prism_proto 
     87#endif 
    8288  IMPLICIT NONE 
    8389    include 'mpif.h' 
     
    8591     
    8692    IF (using_oasis) THEN 
     93#ifdef USE_OASIS 
    8794      CALL prism_terminate_proto(ierr) 
     95#endif 
    8896    ELSE 
    8997      CALL MPI_FINALIZE(ierr) 
Note: See TracChangeset for help on using the changeset viewer.