Changeset 764 for LMDZ4/trunk/libf/dyn3dpar/mod_hallo.F90

Timestamp:

Jun 4, 2007, 4:13:10 PM (17 years ago)

Author:

Laurent Fairhead

Message:

Merge entre la version V3_conv et le HEAD
YM, JG, LF

File:

• LMDZ4/trunk/libf/dyn3dpar/mod_hallo.F90 (modified) (6 diffs)

LMDZ4/trunk/libf/dyn3dpar/mod_hallo.F90

@@ -3 +3 @@
 implicit none
 !  include 'mpif.h'
-  integer, parameter :: MaxRequest=80
+  integer, parameter :: MaxRequest=200
   integer, parameter :: MaxProc=80
   integer, parameter :: MaxBufferSize=1024*1024*16
@@ -385 +385 @@
 !         print *, 'process',MPI_RANK,'ISSEND: requette ',a_request%tag,'au process',rank,'de taille',SizeBuffer
 !         call MPI_ISSEND(Req%Buffer,SizeBuffer,MPI_REAL8,rank,a_request%tag,     &
-!                         MPI_COMM_WORLD,Req%MSG_Request,ierr)
+!                         COMM_LMDZ,Req%MSG_Request,ierr)
          call MPI_ISSEND(Buffer(req%Pos),SizeBuffer,MPI_REAL8,rank,a_request%tag,     &
-                         MPI_COMM_WORLD,Req%MSG_Request,ierr)
+                         COMM_LMDZ,Req%MSG_Request,ierr)
 
         endif
@@ -410 +410 @@
             
 !           call MPI_IRECV(Req%Buffer,SizeBuffer,MPI_REAL8,rank,a_request%tag,     &
-!                           MPI_COMM_WORLD,Req%MSG_Request,ierr)
+!                           COMM_LMDZ,Req%MSG_Request,ierr)
             call MPI_IRECV(Buffer(Req%Pos),SizeBuffer,MPI_REAL8,rank,a_request%tag,     &
-                           MPI_COMM_WORLD,Req%MSG_Request,ierr)
+                           COMM_LMDZ,Req%MSG_Request,ierr)
 
           endif
@@ -430 +430 @@
       type(request_SR),pointer :: Req
       type(Hallo),pointer :: PtrHallo
-      integer, dimension(4) :: TabRequest
-      integer, dimension(MPI_STATUS_SIZE,4) :: TabStatus
+      integer, dimension(2*mpi_size) :: TabRequest
+      integer, dimension(MPI_STATUS_SIZE,2*mpi_size) :: TabStatus
       integer :: NbRequest
       integer :: i,rank,pos,ij,l,ierr
@@ -512 +512 @@
       type(request_SR),pointer :: Req
       type(Hallo),pointer :: PtrHallo
-      integer, dimension(4) :: TabRequest
-      integer, dimension(MPI_STATUS_SIZE,4) :: TabStatus
+      integer, dimension(mpi_size) :: TabRequest
+      integer, dimension(MPI_STATUS_SIZE,mpi_size) :: TabStatus
       integer :: NbRequest
       integer :: i,rank,pos,ij,l,ierr
@@ -553 +553 @@
       type(request_SR),pointer :: Req
       type(Hallo),pointer :: PtrHallo
-      integer, dimension(4) :: TabRequest
-      integer, dimension(MPI_STATUS_SIZE,4) :: TabStatus
+      integer, dimension(mpi_size) :: TabRequest
+      integer, dimension(MPI_STATUS_SIZE,mpi_size) :: TabStatus
       integer :: NbRequest
       integer :: i,rank,pos,ij,l,ierr