Changeset 1237
- Timestamp:
- 2008-12-29T19:35:34+01:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/lib_mpp.F90
r1209 r1237 138 138 INTEGER :: & ! size of the buffer in case of mpi_bsend 139 139 nn_buffer = 0 140 REAL(kind=wp), ALLOCATABLE, DIMENSION(:) :: tampon ! buffer in case of bsend 140 141 141 142 #elif defined key_mpp_shmem … … 3532 3533 3533 3534 3534 FUNCTION lc_isl( py, px, kdim , kdtatyp)3535 FUNCTION lc_isl( py, px, kdim ) 3535 3536 INTEGER :: kdim 3536 3537 REAL(wp), DIMENSION(kdim) :: px, py … … 4400 4401 INTEGER :: ierr 4401 4402 INTEGER :: jproc 4402 INTEGER :: ii ,ji4403 INTEGER :: ii 4403 4404 INTEGER, DIMENSION(jpnij) :: kice 4404 4405 INTEGER, DIMENSION(jpnij) :: zwork 4405 INTEGER :: zrank4406 4406 !!---------------------------------------------------------------------- 4407 4407 … … 5299 5299 !!--------------------------------------------------------------------- 5300 5300 5301 INTEGER :: code, rang,ierr5301 INTEGER :: code, ierr 5302 5302 LOGICAL :: mpi_was_called 5303 REAL(kind=8), ALLOCATABLE, DIMENSION(:) :: tampon5304 5303 5305 5304 ! MPI initialization
Note: See TracChangeset
for help on using the changeset viewer.