Changeset 2620


Ignore:
Timestamp:
Sep 2, 2016, 4:47:32 PM (8 years ago)
Author:
fhourdin
Message:

Correction pour compenser un bug dans la bibliothèque MPI sur ada.

Location:
LMDZ5/trunk/libf/dyn3dmem
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3dmem/mod_hallo.F90

    r2436 r2620  
    14111411         
    14121412#ifdef CPP_MPI
    1413          call MPI_ISSEND(Buffer(req%Pos),SizeBuffer,MPI_REAL_LMDZ,rank,a_request%tag+1000*omp_rank,     &
     1413         call MPI_ISEND(Buffer(req%Pos),SizeBuffer,MPI_REAL_LMDZ,rank,a_request%tag+1000*omp_rank,     &
    14141414                         COMM_LMDZ,Req%MSG_Request,ierr)
    14151415#endif

  • LMDZ5/trunk/libf/dyn3dmem/parallel_lmdz.F90

    r2054 r2620  
    575575!$OMP CRITICAL (MPI)
    576576#ifdef CPP_MPI
    577           call MPI_ISSEND(Buffer_send_up,Buffer_Size,MPI_REAL8,MPI_Rank-1,1,     &
     577          call MPI_ISEND(Buffer_send_up,Buffer_Size,MPI_REAL8,MPI_Rank-1,1,     &
    578578                          COMM_LMDZ,Request(NbRequest),ierr)
    579579#endif
Note: See TracChangeset for help on using the changeset viewer.