Changeset 1237

Timestamp:

2008-12-29T19:35:34+01:00 (15 years ago)

Author:

rblod

Message:

Light fixes, see ticket #271

File:

• trunk/NEMO/OPA_SRC/lib_mpp.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/lib_mpp.F90

@@ -138 +138 @@
    INTEGER ::            & ! size of the buffer in case of mpi_bsend 
       nn_buffer = 0
+   REAL(kind=wp), ALLOCATABLE, DIMENSION(:) :: tampon  ! buffer in case of bsend
 
 #elif defined key_mpp_shmem
@@ -3532 +3533 @@
 
 
-  FUNCTION lc_isl( py, px, kdim, kdtatyp )
+  FUNCTION lc_isl( py, px, kdim )
     INTEGER :: kdim
     REAL(wp), DIMENSION(kdim) ::  px, py
@@ -4400 +4401 @@
     INTEGER :: ierr
     INTEGER :: jproc
-    INTEGER :: ii,ji
+    INTEGER :: ii
     INTEGER, DIMENSION(jpnij) :: kice
     INTEGER, DIMENSION(jpnij) :: zwork
-    INTEGER :: zrank
     !!----------------------------------------------------------------------
 
@@ -5299 +5299 @@
      !!---------------------------------------------------------------------
 
-      INTEGER                                 :: code,rang,ierr
+      INTEGER                                 :: code, ierr
       LOGICAL                                 :: mpi_was_called
-      REAL(kind=8), ALLOCATABLE, DIMENSION(:) :: tampon
  
       ! MPI initialization