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

Ajout de clef CPP USE_OASIS

File:
1 edited

Legend:

Unmodified
Added
Removed

  • 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) 
Note: See TracChangeset for help on using the changeset viewer.