Changeset 709 for LMDZ4/branches/V3_test/libf/dyn3dpar/mod_hallo.F90

Timestamp:

Sep 20, 2006, 12:12:39 PM (18 years ago)

Author:

Laurent Fairhead

Message:

Nouvelles versions de la dynamique YM
LF

File:

• LMDZ4/branches/V3_test/libf/dyn3dpar/mod_hallo.F90 (modified) (2 diffs)

LMDZ4/branches/V3_test/libf/dyn3dpar/mod_hallo.F90

@@ -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