Changeset 1434 for branches/dev_004_VVL/NEMO/OPA_SRC/lib_mpp.F90

Timestamp:

2009-05-11T15:44:36+02:00 (15 years ago)

Author:

rblod

Message:

dev_004_VVL:sync: synchro with trunk (r1420), see ticket #412

File:

• branches/dev_004_VVL/NEMO/OPA_SRC/lib_mpp.F90 (modified) (2 diffs)

branches/dev_004_VVL/NEMO/OPA_SRC/lib_mpp.F90

@@ -2364 +2364 @@
       !!            08/04 :: R. Benshila, generalisation
       !!---------------------------------------------------------------------
-#if defined key_ioserver
-      USE io_interface
-#endif
       INTEGER                                 :: code, ierr
       LOGICAL                                 :: mpi_was_called
       !!---------------------------------------------------------------------
       !
-#if defined key_ioserver
-      CALL init_ioserver(mpi_comm_opa,.TRUE.)
-#else
       CALL mpi_initialized( mpi_was_called, code )      ! MPI initialization
       IF ( code /= MPI_SUCCESS ) THEN
@@ -2388 +2382 @@
          ENDIF
       ENDIF
-#endif
       !
       IF( nn_buffer > 0 ) THEN