Changeset 570 for trunk/NEMO/OPA_SRC
- Timestamp:
- 2006-11-13T15:08:20+01:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/lib_mpp.F90
r532 r570 307 307 IF( Agrif_Root() ) THEN 308 308 #endif 309 !!bug RB : should be clean to use Agrif in coupled mode 310 #if ! defined key_agrif 309 311 CALL mpi_initialized ( mpi_was_called, code ) 310 312 IF( code /= MPI_SUCCESS ) THEN … … 333 335 WRITE(numout,*) ' without calling MPI_Init before ! ' 334 336 ELSE 337 #endif 335 338 SELECT CASE ( c_mpi_send ) 336 339 CASE ( 'S' ) ! Standard mpi send (blocking) … … 349 352 END SELECT 350 353 354 #if ! defined key_agrif 351 355 CALL mpi_comm_dup( mpi_comm_world, mpi_comm_opa, code) 352 356 IF( code /= MPI_SUCCESS ) THEN … … 356 360 ! 357 361 ENDIF 362 #endif 358 363 #if defined key_agrif 359 364 ELSE … … 372 377 END SELECT 373 378 ENDIF 374 #endif 375 376 CALL mpi_comm_rank( mpi_comm_opa, rank, ierr ) 377 CALL mpi_comm_size( mpi_comm_opa, size, ierr ) 379 380 mpi_comm_opa = mpi_comm_world 381 #endif 382 CALL mpi_comm_rank( mpi_comm_opa, rank, ierr ) 383 CALL mpi_comm_size( mpi_comm_opa, size, ierr ) 378 384 mynode = rank 379 385 #else
Note: See TracChangeset
for help on using the changeset viewer.