Changeset 629
- Timestamp:
- 2007-03-01T15:38:55+01:00 (18 years ago)
- Location:
- trunk/NEMO/OPA_SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r532 r629 39 39 !##################### WARNING coupled mode ############################### 40 40 #if defined key_mpp_mpi 41 USE lib_mpp, only : size, rank! message passing42 USE lib_mpp, only : mppsend ! message passing43 USE lib_mpp, only : mpprecv ! message passing41 USE lib_mpp, only : mppsize, mpprank ! message passing 42 USE lib_mpp, only : mppsend ! message passing 43 USE lib_mpp, only : mpprecv ! message passing 44 44 #endif 45 45 USE daymod ! date and time info … … 250 250 commRank = .false. 251 251 252 localRank = rank ! from lib_mpp253 localSize = size ! from lib_mpp252 localRank = mpprank ! from lib_mpp 253 localSize = mppsize ! from lib_mpp 254 254 255 255 IF ( rootexchg ) THEN -
trunk/NEMO/OPA_SRC/SBC/cpl_oasis4.F90
r581 r629 34 34 !##################### WARNING coupled mode ############################### 35 35 #if defined key_mpp_mpi 36 USE lib_mpp, only : size,rank ! message passing37 USE lib_mpp, only : mppsend ! message passing38 USE lib_mpp, only : mpprecv ! message passing36 USE lib_mpp, only : mppsize, mpprank ! message passing 37 USE lib_mpp, only : mppsend ! message passing 38 USE lib_mpp, only : mpprecv ! message passing 39 39 #endif 40 40 USE daymod ! date and time info … … 338 338 commRank = .false. 339 339 340 localRank = rank ! from lib_mpp341 localSize = size ! from lib_mpp340 localRank = mpprank ! from lib_mpp 341 localSize = mppsize ! from lib_mpp 342 342 343 343 IF(lwp) WRITE(numout,*) "CALLING DEFINE" -
trunk/NEMO/OPA_SRC/lib_mpp.F90
r619 r629 62 62 PUBLIC mpprecv, mppsend, mppscatter, mppgather, mppobc, mpp_ini_north, mppstop, mppsync 63 63 #if defined key_oasis3 || defined key_oasis4 64 PUBLIC size,rank64 PUBLIC mppsize, mpprank 65 65 #endif 66 66 … … 110 110 111 111 INTEGER :: & 112 size,& ! number of process113 rank,& ! process number [ 0 - size-1 ]112 mppsize, & ! number of process 113 mpprank, & ! process number [ 0 - size-1 ] 114 114 mpi_comm_opa ! opa local communicator 115 115 … … 380 380 mpi_comm_opa = mpi_comm_world 381 381 #endif 382 CALL mpi_comm_rank( mpi_comm_opa, rank, ierr )383 CALL mpi_comm_size( mpi_comm_opa, size, ierr )384 mynode = rank382 CALL mpi_comm_rank( mpi_comm_opa, mpprank, ierr ) 383 CALL mpi_comm_size( mpi_comm_opa, mppsize, ierr ) 384 mynode = mpprank 385 385 #else 386 386 !! * Local variables (SHMEM version)
Note: See TracChangeset
for help on using the changeset viewer.